Anyone write compilers?

int aaa=356
float bb=56.3
for c=1 to 10  <-- ERROR (c not delcared)

Class Image

	Field data:Ptr

	Method Draw(x:Int,y:Int)
		glDrawPixels(x,y,Self.data) //Self is required!
	EndMethod

	Method Draw() //Overloading allowed, yay
		glDrawPixels(0,0,Self.data) //Self is required!
	EndMethod

EndClass

Local image:Image = New Image( data )

image.Draw(20,30)

Local a:Int=3
a++
Print(a) //prints "4"

-- demo 1

int a=42
for int b=0 until 4 ; print b ; end

-- two ways to use color()
if c=45 then
  color RED ; line 30,50,100,200
  color 200,10,4 ; line 30,10,50,80
end

boolean isPositive(val)
   if val>0 then return true
  return false
end

Class Image

	Ptr data

	void Draw(x:Int,y:Int)
		glDrawPixels(x,y,Self.data) //Self is required!
	End

	void Draw() //Overloading allowed, yay
		glDrawPixels(0,0,Self.data) //Self is required!
	End

End

Image image=Image(data)

image.Draw()

Class Image
	Field data:Ptr

	Method Draw(x:Int,y:Int)
		glDrawPixels(x,y,Self.data) //Self is required!
	EndMethod

	Method Draw() //Overloading allowed, yay
		glDrawPixels(0,0,Self.data) //Self is required!
	EndMethod

	' Constructors!
	Method New(data:Ptr)     ' I don't like the class name being used as the constructor... prefer "New"
		Self.data=data
	End Method
EndClass

Local image:Image = New Image( data )

image.Draw(20,30)

Class Image

	Ptr data

	Method Draw(Int x,Int y)
		glDrawPixels(x,y,Self.data) //Self is required!
	End

	Method Draw() //Overloading allowed, yay
		glDrawPixels(0,0,Self.data) //Self is required!
	End

	//Constructors!
	Method New( Ptr data )     // I don't like the class name being used as the constructor... prefer "New"
		Self.data=data
	End
End

Image image = New Image( data )

image.Draw(20,30)

Class Image {

	Ptr data

	Method Draw(Int x,Int y)
	Method Draw()

	//Constructor - Declare if programmer needs to incorporate their own constructor body code, otherwise, let C++ (if going that route) create a default one.
	Method New( Ptr data )     // I don't like the class name being used as the constructor... prefer "New"
	//Destructor - Same as constructor
	Method Delete()
}

Method Image::Draw(Int x,Int y)
{
	glDrawPixels(x,y,Self.data) //Self is required!
}

Method Image::Draw() //Overloading allowed, yay
{
	glDrawPixels(0,0,Self.data) //Self is required!
}

//Constructor!
Method Image::New( Ptr data )     // I don't like the class name being used as the constructor... prefer "New"
{
	Self.data=data
}

//Destructor!
Method Image::Delete()     
{
	Self.data=Null
}

g++ "myfile.cpp" 2> "output.txt"

Print "Hello!"
Print "This is my awesome programming language."
RuntimeError "Here is an error!"
Print "Do you like it?"

#include <stdio.h>
#include <String>
#include <math.h>
#include <process.h>

void Print(const std::string& s)
{
	printf("%s\n", s.c_str());
}

void End()
{
	exit(EXIT_SUCCESS);
}

void RuntimeError(const std::string& s)
{
	printf("%s\n", s.c_str());
	exit(EXIT_FAILURE);
}

int main(int argc, char* argv[])
{
	Print("Hello!");
	Print("This is my awesome programming language.");
	RuntimeError("Here is an error!");
	Print("Do you like it?");
}

#include <iostream>
#include <string>
#include <math.h>

void Print(const std::string& s )
{
        cout << s << endl;
}

void End()
{
	exit(EXIT_SUCCESS);
}

void RuntimeError(const std::string& s )
{
        cout << s << endl;
	exit(EXIT_FAILURE);
}

int main(int argc, char* argv[])
{
	Print("Hello!");
	Print("This is my awesome programming language.");
	RuntimeError("Here is an error!");
	Print("Do you like it?");
}

Function func:String()
	Return "Here is a string."
EndFunction

Function func2:Int()
	Return 2
EndFunction

Print func()
Print func2()
Print 2.8+func2()

#include <stdio.h>
#include <String>
#include <math.h>
#include <process.h>
#include <sstream>

void Print(const std::string& s)
{
	printf("%s\n", s.c_str());
}

std::string String( int i ) {
	std::stringstream out;
	out << i;
	return out.str();
}

std::string String( double f ) {
	std::stringstream out;
	out << f;
	return out.str();
}

void End()
{
	exit(EXIT_SUCCESS);
}

void RuntimeError(const std::string& s)
{
	printf("%s\n", s.c_str());
	exit(EXIT_FAILURE);
}

float Float( int i )
{
	return float(i);
}

float Sign( float f )
{
	if (f<0.0) {
		return -1.0;
	}
	else {
		return 1.0;
	}
}

int Int( float f )
{
	return int(f+0.5*Sign(f));
}

#line 1 "test.txt"
std::string func() {
#line 2 "test.txt"
return "Here is a string.";
#line 3 "test.txt"
}

#line 5 "test.txt"
int func2() {
#line 6 "test.txt"
return 2;
#line 7 "test.txt"
}

int main(int argc, char* argv[])
{
#line 9 "test.txt"
	Print(func());
#line 10 "test.txt"
	Print(String(func2()));
#line 11 "test.txt"
	Print(String(2.8 + func2()));
}

Function myfunc1
...
EndFunction

Function myfunc1
...
End

Begin myfunc1
...
End

Function Min:Float(a:Float,b:Float)
	If a<b
		Return a
	Else
		Return b
	EndIf
EndFunction

Local a:Int=3
Local b:Int=2

Print Min(b,a)

Local a:Int=3
Local b:Int=2
Print Min(b,a)

float a = 3.0;
int b = 2;
Print(String(Min(Float(b),a)));

Function Min:Float(a:Float,b:Float)
	If a<b
		Return a
	Else
		Return b
	EndIf
EndFunction

Local a:Float=3
Local b:Int=2
Local c:String="0.5"
Local d:Float = Min(a,b)

Print "d = "+d
Print Min(d,c)
Print "Part" + " " + b

Type Vec3
Field x:Float
Field y:Float
Field z:Float

Method Add(v:Vec3)
self.x = self.x + v.x
self.y = self.x + v.y
self.z = self.x + v.z
EndMethod

EndType

a=Vec3(1)
a=Vec3(2)

c = a + b

Function Min:Float(a:Float,b:Float)
	If a<b
		Return a
	Else
		Return b
	EndIf
EndFunction

Local a:Float=3
Local b:Int=2
Local c:String="0.5"
Local d:Float = Min(a,b)

Print "d = "+d
Print Min(d,c)
Print "Part" + " " + b+"!"
Print test
Print 3+func()
Print aa()
Print test3

Function aa:Int()
	Return bb()
EndFunction

Function bb:Int()
	Return 1
EndFunction

Function func:Int()
	Return test
EndFunction

Global test:Int=5
Global test2:Int=test
Global test3:Int=aa()

if a=1
	Local b=3
	Print b
EndIf

'This does not work:
Print b

Print"hello"      <--- No space between command and args although " is valid
Print    "help"   <---- Tabbed char used instead of space
Print(13245)    <---- Again, no space here although brackets are commonly used

Print "The End // Or Not?"     <-- Commands End Or Not and comment // in the string

Local s:String = "Hello "+1
Local n:Int="2"

Type Vec3
	Field x:Float
	Field y:Float
	Field z:Float
EndType


Local v:Vec3

v.x = v.x + 1
v.y = 2
v.z = 3

Print v.x+", "+v.y+", "+v.z

Local n:Int=New Int
n=1
Delete n

Local n:Int
n=1

mesh=LoadMesh()
Delete mesh

Type Vec3 {cantthinkofatermtouse}
EndType

Type Vec3
	Field x:Float
	Field y:Float
	Field z:Float
EndType


Local a:Vec3
Local b:Vec3

a.x = 1
a.y = 2
a.z = 3

b=a

b.x=6

Print a.x+", "+a.y+", "+a.z
Print b.x+", "+b.y+", "+b.z

1, 2, 3
6, 2, 3

Type Vec3 {Var}    ' declares it as a variable type?
	Field x:Float
	Field y:Float
	Field z:Float
EndType

Local a:Vec3
Local b:Vec3

local a:Vec3=null

Type Vec3 {Var}
	Field x:Float
	Field y:Float
	Field z:Float
EndType

Local a:Vec3
a.x=1
'nothing to clean up, no garbage collection needed.  It's just a variable.

Type Vec3
	Field x:Float
	Field y:Float
	Field z:Float
EndType

Local a:Vec3 'a is Null at this point!
a=New Vec3
a.x=1
Delete a 'a has to be manually deleted

Type Vec3
	Field x:Float
	Field y:Float
	Field z:Float
EndType

Local a:Vec3 'it is nothing, just a declaration
a.x=1 'the compiler 'creates' a NEW 'a' object and its field 'x' is now 1
Delete a 'a has to be manually deleted

Local a:Int
a=1
a=Null 'what the hell are you trying to do?

Local a:Vec3
a.x=1
a=Null 'what the hell are you trying to do?

Image img=LoadImage("test.bmp")
If img=Null
Notify "Failed to load image!"
Else
Delete img
EndIf

Dynamic Image img=LoadImage("test.bmp")
If img=Null
	Notify "Failed to load image!"
Else
	Delete img
EndIf

Graphics 800,600
Drawtext "Hello World",0,0
Flip
Waitkey()

a = Vec3(5)
b = a + Vec3(1,2,3)
b = b.Normalize()

Type Vec3

Method New(x:Float)
self.x=x
self.y=x
self.z=x
EndMethod

Method New(x:Float,y:Float)
self.x=x
self.y=y
self.z=y
EndMethod

Method New(x:Float,y:Float,z:Float)
self.x=x
self.y=y
self.z=z
EndMethod

EndType

local v1:Vec3=Vec3(2,3,4) ' instance of type Vec3 with params 2,3,4
local v2:Vec3             ' of type Vec3 but null referenced
local v3:Vec3=New Vec3    ' instance of type Vec3 with 0'ized params
local v4:vec3(2,3,4)      ' instance of type Vec3 with params 2,3,4

Method Add(v:Vec3)
 self.x = self.x + v.x
 self.y = self.x + v.y
 self.z = self.x + v.z 
EndMethod

Structure Vec3
	
	Field x:Float
	Field y:Float
	Field z:Float
	
	Method Normalize:Vec3()
		Local v:Vec3
		Local m:Float
		m=Sqrt( Self.x*Self.x + Self.y*Self.y + Self.z*Self.z )
		v.x = Self.x / m
		v.y = Self.y / m
		v.z = Self.z / m
		Return v
	EndMethod
	
	Method Length:Float()
		Return Sqrt( Self.x*Self.x + Self.y*Self.y + Self.z*Self.z )
	EndMethod
	
	Method Dot:Float( v:Vec3 )
		Return Self.x*v.x + Self.y*v.y + Self.z*v.z
	EndMethod
	
	Method ToString:String()
		Return Self.x+", "+Self.y+", "+Self.z
	EndMethod
	
	Method Add:Vec3(v:Vec3)
		v.x=v.x+Self.x
		v.y=v.y+Self.y
		v.z=v.z+Self.z
		Return v
	EndMethod
	
	Method Subtract:Vec3(v:Vec3)
		v.x=Self.x-v.x
		v.y=Self.y-v.y
		v.z=Self.z-v.z
		Return v
	EndMethod
	
	Method Add:Vec3(f:Float)
		Local v:Vec3
		v.x=Self.x+f
		v.y=Self.y+f
		v.z=Self.z+f
		Return v
	EndMethod
	
EndStructure


Class Entity
	
	Field position:Vec3
	Field rotation:Vec3
	Field scale:Vec3	
	Field parent:Entity
	
EndClass

Local a:Vec3
Local b:Vec3

a.x=3

b=a.Normalize()

Print a
Print b

'Produce divide by zero error:
'Local n:Int
'n=n/0

' standard code

	Method Add:Vec3(v:Vec3)
		v.x=v.x+Self.x
		v.y=v.y+Self.y
		v.z=v.z+Self.z
		Return v
	EndMethod

' shortcut version

	Method Add:Vec3(v:Vec3)
		v.x:+x ; v.y:+y ; v.z:+z
		Return v
	EndMethod

Structure Alien
	Field x:Int , y:Int , Name$ , Points:Int , Size:Float
End Structure

Local a:Alien , b:Alien
a.x=40,80,"Slime",500,15.4
b.Name="Moby",100,4.0

Type Alien
	Field x:Int=0 , y:Int=0 , Name$ , Points:Int , Size:Float

	Method Alien(x:int,y:int,Name$, Points:int,Size:float)
		self.x=x
		self.y=y
		self.name=name
		self.Points=points
		self.Size=size
	End
	Method Alien(Name$,Points:int,Size:int)
		self.Name=Name
		self.Points=Points
		self.Size=size
	End
End

A:Alien=New Alien(40,80,"Slime",500,15.4)
B:Alien=New Alien("Moby",100,4.0)

Function MousePos:Int,Int()
    Return MouseX(),MouseY()
End Function
..
Local x:Int , y:Int
x,y=MousePos()

Type Alien
	Field x:Int=0 , y:Int=0 , Name$ , Points:Int , Size:Float

	Method Alien(x:int,y:int,Name$, Points:int,Size:float)
	Method Alien(Name$,Points:int,Size:int)

	' or

	Method Alien(Name$,Points:int,Size:int)
		' Additional constructor code
	End
End

A:Alien 40,80,"Slime",500,15.4
B:Alien "Moby",100,4.0

Print "Hello!"

Class Object
Method ToString:String()
.
Function End()
Function RuntimeError(s:String)
Function Print(text:String)
Function String:String(i:Int)
Function String:String(f:Float)
Function String:String(o:Object)
Function Float:Float(s:String)
Function Float:Float(i:Int)
Function Int:Int(s:String)
Function Int:Int(f:Float)
Function Sign:Float(f:Float)
Function Sqrt:Float(f:Float)

#include "typeB.h"

class typeA
{
	typeB memberName;
}

#include "typeA.h"

class typeB
{
	typeA memberName;
}

class typeA;

class typeB;

#include "typeB.h"

class typeA
{
	typeB memberName;
}

#include "typeA.h"

class typeB
{
	typeA memberName;
}

class typeA;
class typeB;

class typeA
{
	typeB memberName;
}

class typeB
{
	typeA memberName;
}

Repeat .. Until
While .. Wend
For .. To .. [Step] .. Next
For .. Until .. [Step] .. Next

float Sqrt( float f )
{
	return sqrt(f);
}

For local a:Somesuch=Eachin Sumsuches WHERE ID=15 AND x<100
    a.x:+1
Next

For local a:Somesuch=Eachin Sumsuches WHERE ID=15 AND x<100
    a.x:+1
Next

// define a type
type  mytype = record
    i : integer
    s : string
endtype 

var
    alist : list of mytype // the list we will be using

.... some code stuff

// step through the list
loop mt through alist where (mt.i mod 2 = 0) 
    .. only execute code here where condition is true
endloop

For local a:Somesuch=Eachin Sumsuches WHEN ID=15 AND x<100
    a.x:+1
Next

For local a:Somesuch=Eachin Sumsuches AND ID=15 AND x<100
    a.x:+1
Next

For local a:Somesuch=Eachin Sumsuches where ID=15 AND x<100
    a.x:+1
Next

extern c __declspec (dllexport)

For local a:Somesuch=Eachin Sumsuches WHEN ID=15 AND x<100
    a.x:+1
Next

For local a:Somesuch=Eachin Sumsuches
    if (ID=15 AND x<100)
       a.x:+1
    endif
Next

For local a:Somesuch=Eachin Sumsuches
    if (ID=15 AND x<100) a.x:+1
Next

SetEnv ( "Path", GetEnv("Path") + String(";",Len(GetEnv("Path"))>0) + Chr(34)+Your_cc1_Dir+Chr(34))

+ ...\MyCompiler\
	- MyCompiler.exe
	+ bin\
		- Translator.exe (your exe that translate from "txt" to "cpp+hpp"
		- gcc.exe ; copy from bin directory (of your mingw installation)
		- cc1plus.exe ; copy from bin directory (of your mingw installation)
		[- cc1.exe (if you want to compile c files as well)]
	+ lib\
		+ copy the lib directory from gcc here (perhaps from mingw) (should be about 20-30Mo)
	+ include
		+ copy include directory from gcc here
		+ copy your sdk headers for conversion from "Your Format" to "Cpp" here

C:\MyCompiler\bin\gcc.exe -L "C:\MyCompiler\lib" -I "C:\MyCompiler\include" -g -Wall "E:\Cpp\Compile\opengl.c" -o "D:\Bigbang\debug\OutFileName.exe" > "C:\MyCompiler\OutDebug.log" 2>"D:\Bigbang\debug\OutErrors.log"

GarbageCollect True

GarbageCollect False

CollectGarbage

Type Vector Field x#,y# End Type

Function NewVector.Vector(x#,y#):Local v.Vector=New Vector:v\x=x:v\y=y:Return v:End Function
Function Add.Vector (v1.Vector,v2.Vector) : Return NewVector(v1\x+v2\x, v1\y+v2\y):End Function

Local v1.Vector = NewVector(+1,+2)
Local v2.Vector = NewVector(+3,-1)
Local v3.Vector = Add(v1,v2)
Delete v1
Delete v2
Print v3\x+" "+v3\y
WaitKey
End

Type Vector Field x#,y# End Type

Function NewVector.Vector(x#,y#):Local v.Vector=New Vector:v\x=x:v\y=y:Return v:End Function
Function Add.Vector (v1.Vector,v2.Vector) : Return NewVector(v1\x+v2\x, v1\y+v2\y):End Function

Local v.Vector = Add(NewVector(+1,+2),NewVector(+3,-1))
Print v\x+" "+v\y
WaitKey
End