blitz3D like syntax to c++

This code has been declared by its author to be Public Domain code.

blitz3D like syntax to c++ by MusicianKool

2010

Well this will make coding in c++ easier. Still not sure on how to make c++ dll's for expanding blitz3d, as that is the primary goal here. But for now it will translate the basic syntax of Blitz3D to c++. and will provide a good reference to what your code would look like in c++. It's about 90% complete, but it might not go any farther then that, as I'm stumped on some of blitz3d's type handling. I'm using Dev-C++ for testing the c++ code, I have not tested on other C++ compilers. So features:

[PLEASE READ THE BELOW]
regular c++ case sensitive for all commands(not really but just to be on the safe side make everything lowercase! )
and variables(this is a must - 'a' is not the same as 'A' in c++ variable naming as well as 'ab' <> 'Ab' <> 'aB' <> 'AB')
c++ basic math is good '+=' '-=' '*=' '/=' '++' '--'
To use more complex math functions use '#include <math.h>' at the begining of the '.ob' file.
The syntax is about the same as blitz3d for most if not all c++ math functions, the only thing that is different is you need to have a return convention for them ie:

;blitz3D cos example
a# = Cos(n)

;translator example
local a#
a = float cos(n)

you can inline c++ code with:

[cpp]
// put c++ code here
[cpp]
;this will also work
[c++]
// put c++ code here
[c++]

Limitations:
No mulitiple lines of code on a single line outside a c++ code block not only is it bad coding its not translated corectly:

x = 1:y = 2:z = 3:for i = 1 to 10:print x:next

should be

x = 1
y = 2
z = 3
for i = 1 to 10
	print x
next

the local statement in blitz3D allows assigning values to variables. that is not true with this translator.

local x=1,y=2,words$="what is a word?",flo#=1.2323201

should be

local x%,y,words$,flo#
x = 1
y=2
words= "what is a word?"
flo =1.2323201

The translator only works within class/end class and function/ end function scope. so globals need to be declared in c++ syntax and outside of any function and class.

int i;
string k;
float x;

'type / end type' works the same as 'class / end class'
any field accesor like blitz3D's 'f\variable' is changed to 'f.variable' .

Things I haven't figured out.
Insert, after, before, first, last, for f.foo = each foo
converting strings to integers/floats and vis versa.

If I remember more limitations or uses I will list them:
Please tell me of any bugs or features that should be added!

test2.ob

; Comment test for cpp
#include <iostream> 		;Must use this include for using print and other commands
#include <string>			;Must be used to do strings
#include <new>				;Must be used for dynamic arrays
#include <list>				;Must be used for dynamic lists of classes
using namespace std
#define true = 1
#define false = 0


Class foo 					;Test Comment on Class
	field a% 				;Test Comment on Field
	field b$
	Method addhundo() 	;Test Comment on Method
		a += 100			;Test Comment on Method code
	end method				;Test Comment on Method Exit
	Method addsome(amount%)
		local i%,j
		for i = 1 to amount
			while j < 10
				if a = 1000 then
					return
				endif
				a += i
				j++
				print j
				if j > 5 then
					exit
				endif
			wend
		next
	end method
End Class 					;Test Comment on Class exit

function dosomething(f.foo)
	f.a = 0
	f.b = "xxxx"
end function

Function make_an_instance.foo()
	foo g
	return g
end function

Function Main() 			;Test Comment on function
	; 'foo f' creates a new class foo where f is the handle but as soon 
	; as f isn't used anymore the class instance is deleted!
	; Use 'f tolist foo'  to put it into the class list
	; or use 'foo_list.push_back(f)' as that is what 'f tolist foo' converts too.
	; Also you can change the fields of f and use 'f tolist foo' and it will create
	; a new instance of foo with the changed fields.
	; And 'f.foo = new foo' translates to 'foo f;foo_list.push_back(f)' so works
	; the same as blitz3D.
	foo f
	print f.a
	f tolist foo
	f.addhundo()
	print f.a
	f tolist foo
	f.b = "Hello"
	print f.b+"  World!"
	f tolist foo
	f.addsome(100)
	print f.a
	f tolist foo
	
	print "Printing made instences"
	
	; Still trying to figure out how:
	; for i.foo = each foo
	;	 print i.a + "    " + i.b
	; next
	; would translate to the below c++ code.
	[cpp]
	list<foo>::iterator i;
	for(i=foo_list.begin();i != foo_list.end(); ++i){
		cout << (*i).a << "   " << (*i).b << endl;
	}
	[cpp]
	
	waitkey
	g.foo = new foo			;This creates a new class foo where g is the handle and stores it in a list.
	dim myarray.foo[100]
	for i = 0 to 99
		myarray[i].a = i
	next
	for i = 0 to 99
		print myarray[i].a
	next
	
	dosomething(f)
	print f.a + f.b
	foo m = make_an_instance.foo()
	print m.a + m.b
	print "delete myarray"
	Delete myarray
	Waitkey
end function				;Test Comment on function exit

Translates to 'test2.cpp':

// Comment test for cpp
#include <iostream> 		  // Must use this include for using print and other commands;
#include <string>			  // Must be used to do strings;
#include <new>				  // Must be used for dynamic arrays;
#include <list>				  // Must be used for dynamic lists of classes;
using namespace std;
#define true = 1;
#define false = 0;

class foo { //Test Comment on Class
public:
	int a;	//Test Comment on Field
	string b;	
	foo ();
	~foo ();
	void addhundo ();
	void addsome (int amount);
};//Test Comment on Class exit
list<foo> foo_list;
foo::foo() { //Constructor
	a = 0;
	b = "";
} 
foo::~foo() { //Destructor
} 
void foo::addhundo() { //Test Comment on Method
	a += 100			;//Test Comment on Method code
} //Test Comment on Method Exit
void foo::addsome(int amount) { 
	int i = 0;int j = 0;
	for ( i = 1 ; i <= amount ; i++ ){
		while (j < 10){
			if (a == 1000 ){
				return;
			}
			a += i;
			j++;
			cout << j << endl;
			if (j > 5 ){
				break;
			}
		}
	}
} 
void dosomething(foo &f){
	f.a = 0;
	f.b = "xxxx";
}
foo make_an_instance_foo(){
	foo g;
	return g;
}
int main(){//Test Comment on function
	;// 'foo f' creates a new class foo where f is the handle but as soon
	;// as f isn't used anymore the class instance is deleted!
	;// Use 'f tolist foo'  to put it into the class list
	;// or use 'foo_list.push_back(f)' as that is what 'f tolist foo' converts too.
	;// Also you can change the fields of f and use 'f tolist foo' and it will create
	;// a new instance of foo with the changed fields.
	;// And 'f.foo = new foo' translates to 'foo f;foo_list.push_back(f)' so works
	;// the same as blitz3D.
	foo f;
	cout << f.a << endl;
	foo_list.push_back(f);
	f.addhundo();
	cout << f.a << endl;
	foo_list.push_back(f);
	f.b = "Hello";
	cout << f.b << "  World!" << endl;
	foo_list.push_back(f);
	f.addsome(100);
	cout << f.a << endl;
	foo_list.push_back(f);
	;
	cout << "Printing made instences" << endl;
	;
	;// Still trying to figure out how:
	;// for i.foo = each foo
	;//	 print i.a + "    " + i.b
	;// next
	;// would translate to the below c++ code.
	
	list<foo>::iterator i;
	for(i=foo_list.begin();i != foo_list.end(); ++i){
		cout << (*i).a << "   " << (*i).b << endl;
	}
	
	;
	system("PAUSE");
	foo g;foo_list.push_back(g);//This creates a new class foo where g is the handle and stores it in a list.
	foo * myarray = new (nothrow) foo[100];if (myarray == 0){cout << "Error: memory could Not be allocated";return 0;};
	for ( int i = 0 ; i <= 99 ; i++ ){
		myarray[i].a = i;
	}
	for ( int i = 0 ; i <= 99 ; i++ ){
		cout << myarray[i].a << endl;
	}
	;
	dosomething(f);
	cout << f.a  <<  f.b << endl;
	foo m = make_an_instance_foo();
	cout << m.a  <<  m.b << endl;
	cout << "delete myarray" << endl;
	delete[] myarray;
	system("PAUSE");
}//Test Comment on function exit

The source (put this in the same folder that test2.ob is in):

FileName$ = "Test2"
Global file = ReadFile(filename+".OB")
Global file2= WriteFile(filename+".cpp")
Global LineIn$,InClass,InMethod,LineCount
Global ObservedKeySymbol$,ObservedKeyWord$,ObservedNumber$
Global InCpp

Convert_OOPS_cpp()
Write_cpp_Code()

CloseFile(file2)	;close the output file so that it can be debuged through blitz
CloseFile(file)		;close the Objective Blitz3D file

End

Type Class
	Field Name$
	Field Name_Lower$
	Field ClassTabs
	Field TypesPointer$
	Field LastPointer$
	Field ParentClass.Class
	Field ContainMethods
	Field Private
	Field Comment$
	Field ExitClassComment$
	Field iterator$
End Type

Type Fields
	Field Name$
	Field Name_Lower$
	Field VariableType
	Field Tabs
	Field ParentClass.Class
	Field ParentClassName$
	Field Private
	Field Comment$
End Type

Type Method
	Field parentPTR.Class
	Field Name$
	Field Name_Lower$
	Field ReturnType%
	Field Parameters$
	Field Tabs
	Field Private
	Field Comment$
	Field ExitComment$
	Field Constructor
	Field Destructor
End Type
Type MethodCode
	Field Parent.Method
	Field Code$
	Field Tabs
	Field Comment$
	Field Term
End Type
Type MethodVariable
	Field Name$
	Field VariableType
	Field Parent.Method
	Field Declared
	Field ClassName$
	Field IsArray
End Type

Type Functions
	Field Name$
	Field Name_Lower$
	Field ReturnType%
	Field Parameters$
	Field Comment$
	Field ExitComment$
	Field ClassName$
End Type
Type FunctionCode
	Field Parent.Functions
	Field Code$
	Field Tabs
	Field Comment$
	Field Term
End Type
Type FunctionVariable
	Field Name$
	Field VariableType
	Field Parent.Functions
	Field Declared
	Field ClassName$
	Field IsArray
End Type

Function Convert_OOPS_cpp()
	
Local LineCount,TabCount,T.Class,Name$,OldBS,M.Method,LineRead,C.Class,ParentName$,MC.MethodCode
Local InFunctionFlag,F.Functions

	While Not Eof(file)
		
		LineIn$ = ReadLine(file):LineCount = LineCount + 1
		TabCount = RemoveTabs()
		ti = 0
		Select True
			Case Lower(Left$(LineIn$,5)) = "class" Or Lower(Left$(LineIn$,5)) = "type "
				T.Class = ProcessClass.Class(LineIn$,TabCount)
				M.method = New Method
				M\Name = T\Name
				M\Constructor = True
				M\parentPTR = T
				M\Tabs = T\ClassTabs + 1
				M\Comment = "//Constructor"
				M.Method = New Method
				M\Name = "~"+T\Name
				M\parentPTR = T
				M\Destructor = True
				M\Comment = "//Destructor"
				M\Tabs = T\ClassTabs + 1
				InClass = True
	
			Case Lower(Left$(LineIn$,9)) = "end class" Or Lower(Left$(LineIn$,8)) = "end type"
				InClass = False
				For i = 9 To Len(LineIn)
					If Mid$(LineIn,i,1) = ";" Then T\ExitClassComment = "//"+Right$(LineIn,Len(LineIn)-i)
				Next
			
			Case Lower(Left$(LineIn$,5)) = "field"
				ProcessField(LineIn$, T , TabCount)
	
			Case InClass = True And LineRead = False And Lower(Left$(LineIn,6))<> "method" And InMethod = False
				ProcessField(LineIn$, T , TabCount)
			
			Case Lower(Left$(LineIn$,8)) = "private:" : T\Private = True
			
			Case Lower(Left$(LineIn$,7)) = "public:" : T\Private = False
		
			Case Lower(Left$(LineIn$,10)) = "end method" 
				MethodFlag = False:InMethod = False
				For i = 10 To Len(LineIn)
					If Mid$(LineIn,i,1) = ";" Then M\ExitComment = "//"+Right$(LineIn,Len(LineIn)-i)
				Next
			
			Case MethodFlag
				LineIn = RemoveRightSideTabs_Spaces$(LineIn)
				If Lower(LineIn) = "return" Then M\ReturnType = 0
				MC.MethodCode = New MethodCode
				MC\Parent = M
				MC\Tabs = TabCount
				MC\Code = LineIn
	
			Case Lower(Left$(LineIn$,6)) = "method"
				T\ContainMethods = True
				M.Method = New Method
				tm$ =  Right$(LineIn$,Len(LineIn$)-7)
				startx = 0: endx = 0:TypeHandle = 0:Coms = 0
				For j = 1 To Len( tm )
					If Mid$(tm,j,1) = "." Then TypeHandle = j
					If Mid$(tm,j,1) = "(" Then StartX = j
					If Mid$(tm,j,1) = ")" Then EndX = j
					If Mid$(tm,j,1) = ";" Then ComS = j
				Next
				Select True
					Case Mid$(tm,startx-1,1) = "%"
						M\ReturnType = 1
					Case Mid$(tm,startx-1,1) = "#"
						M\ReturnType = 2
					Case Mid$(tm,startx-1,1) = "$"
						M\ReturnType = 3
					Case TypeHandle <> 0 And typehandle < startx
						M\ReturnType = 4
				End Select
				If coms <> 0 Then M\Comment = "//"+Right$(tm,Len(tm)-coms)
				If M\ReturnType<>0 Then 
					M\Name$ = Left$(tm,startx-2)
				Else
					M\Name$ = Left$(tm,startx-1)
				EndIf
				M\Name_Lower = Lower(M\Name)
				If endx - startx > 1 Then M\Parameters$ = Mid$(tm,startx+1,(endx-2)-startx+1)
				M\Parameters = ProcessMethodParameters$(M)
				M\Tabs = TabCount
				M\parentPTR = T
				If T\Private = True Then M\Private = True
				MethodFlag = True
				InMethod = True
			
			Case Lower(Left$(LineIn$,12)) = "end function"
				InFunctionFlag = False
				For i = 10 To Len(LineIn)
					If Mid$(LineIn,i,1) = ";" Then F\ExitComment = "//"+Right$(LineIn,Len(LineIn)-i)
				Next
	
			Case InFunctionFlag ;Then
				LineIn = RemoveRightSideTabs_Spaces$(LineIn)
				If Lower(LineIn) = "waitkey" Then LineIn = "system("+Chr(34)+"PAUSE"+Chr(34)+")"
				FC.FunctionCode = New FunctionCode
				fC\Parent = F
				fC\Tabs = TabCount
				fc\code = LineIn
	
			Case Lower(Left$(LineIn,9)) = "function "
				F.Functions = New Functions
				tm$ = Right$(LineIn,Len(LineIn)-9)
				startx = 0: endx = 0:TypeHandle = 0:Coms = 0
				For j = 1 To Len( tm )
					If Mid$(tm,j,1) = "." Then TypeHandle = j
					If Mid$(tm,j,1) = "(" Then StartX = j
					If Mid$(tm,j,1) = ")" Then EndX = j
					If Mid$(tm,j,1) = ";" Then ComS = j
				Next
				Select True
					Case Mid$(tm,startx-1,1) = "%"
						F\ReturnType = 1
					Case Mid$(tm,startx-1,1) = "#"
						F\ReturnType = 2
					Case Mid$(tm,startx-1,1) = "$"
						F\ReturnType = 3
					Case typehandle <> 0 And typehandle < startx
						F\ReturnType = 4
						F\classname = Mid$(tm,typehandle+1,(startx-typehandle)-1)
				End Select
				If coms <> 0 Then F\Comment = "//"+Right$(tm,Len(tm)-coms)
				Select True
					Case F\ReturnType > 0 And F\ReturnType<4
						F\Name = Left$(tm,startx-2)
					Case F\ReturnType = 4
						F\Name = Left$(tm,typehandle-1)
					Default
						F\Name = Left$(tm,startx-1)
				End Select
				F\Name_Lower = Lower(F\Name)
				If Lower(F\Name) = "main" Then F\Name = F\Name_Lower:F\ReturnType = 1
				If endx - startx > 1 Then F\Parameters = Mid$(tm,startx+1,(endx-2)-startx+1):ProcessFunctionParameters$(F)
				InFunctionFlag = True
			Default
				If Left$(LineIn$,1) <> ";" Then
					If LineIn$ <> "" Then tol$ = Objective_Line$(LineIn$)+";":WriteLine(file2,ReplaceTabs$(tol$,TabCount));:WriteLine(file2,"")
				Else
					WriteLine(file2,ReplaceTabs$("//"+Right$(LineIn,Len(LineIn)-1),TabCount))
				EndIf
		End Select
	Wend
End Function

Function Write_cpp_Code()

	Local T.Class,TT.Class

	For T.Class = Each Class
		
		WriteLine(file2,"")
		
		TT = T\ParentClass
		If TT <> Null Then	
			WriteLine(file2,ReplaceTabs$("class" + " " + T\Name +":public "+ T\ParentClass\Name+" { " + T\Comment,T\ClassTabs))
			WriteLine(file2,"public:")
		Else
			WriteLine(file2,ReplaceTabs$("class" + " " + T\Name+ " { " + T\Comment,T\ClassTabs))
			WriteLine(file2,"public:")
		EndIf
		ProcessTypes(T)	
		PredeclareMethods(T)
		
		WriteLine(file2,ReplaceTabs$("};"+T\ExitClassComment,T\ClassTabs))
		WriteLine(file2,ReplaceTabs$("list<"+T\Name+"> "+T\Name+"_list;",T\ClassTabs))
		If T\ContainMethods = True Then WriteMethods(T)
	Next
	WriteFunctions()
End Function

Function WriteMethods(T.Class)

	Local M.Method,Method,BS,Code$,mct,LIN$,Name$,MC.MethodCode,F.Fields
	If Not T\ContainMethods Then Return
	For M.Method = Each Method
		If M\parentPTR = T Then
			
			Select True
				Case M\ReturnType = 0
					Name = "void"
				Case M\ReturnType = 1
					Name = "int"
				Case M\ReturnType = 2
					Name = "float"
				Case M\ReturnType = 3
					Name = "string"
				Case M\ReturnType = 4
					Name = T\Name
			End Select
			
			If M\Constructor = False And M\Destructor = False Then
				LIN$ = Name+" "+T\Name$+"::"+ M\Name$+"("+M\Parameters+")" + " { " + M\Comment
				WriteLine(file2,ReplaceTabs$(LIN$,M\Tabs-1))
				For MC.MethodCode = Each MethodCode
					If MC\Parent = M Then
						MC\Code = RemoveRightSideTabs_Spaces$(MC\Code)
						ProcessMethodCode(MC)
						Code= MC\Code
						If MC\Term = True Then
							WriteLine(file2,ReplaceTabs$(Code+MC\Comment,MC\Tabs-1))
						Else
							WriteLine(file2,ReplaceTabs$(Code+";"+MC\Comment,MC\Tabs-1))
						EndIf
					EndIf
				Next
			ElseIf M\Constructor
				LIN$ = T\Name$+"::"+ M\Name$+"("+M\Parameters+")" + " { " + M\Comment
				WriteLine(file2,ReplaceTabs$(LIN$,M\Tabs-1))
				For F.Fields = Each Fields
					If F\ParentClass = M\parentPTR Then
						Select True
							Case F\VariableType = 0
								WriteLine(file2,ReplaceTabs(F\Name + " = 0;",M\Tabs))
							Case F\VariableType = 1
								WriteLine(file2,ReplaceTabs(F\Name + " = "+Chr(34)+Chr(34)+";",M\Tabs))
							Case F\VariableType = 2
								WriteLine(file2,ReplaceTabs(F\Name + " = 0.0;",M\Tabs))
						End Select
					EndIf
				Next
			ElseIf M\Destructor 
				LIN$ = T\Name$+"::"+ M\Name$+"("+M\Parameters+")" + " { " + M\Comment
				WriteLine(file2,ReplaceTabs$(LIN$,M\Tabs-1))
			EndIf
			WriteLine(file2,ReplaceTabs$("}"+" "+M\ExitComment,M\Tabs-1))
		EndIf
	Next
End Function

Function WriteFunctions()
	
	Local F.Functions,Name$,FC.FunctionCode
	For F.Functions = Each Functions
		Select True
			Case F\ReturnType = 0
				Name = "void"
			Case F\ReturnType = 1
				Name = "int"
			Case F\ReturnType = 2
				Name = "string"
			Case F\ReturnType = 3
				Name = "float"
			Case F\ReturnType = 4
				Name = F\ClassName
		End Select
		If F\ClassName <> "" Then
			WriteLine(file2,Name+" " + F\Name+"_"+Name + "(" +F\Parameters+"){"+F\Comment)
		Else
			WriteLine(file2,Name+" " + F\Name + "(" +F\Parameters+"){"+F\Comment)
		EndIf
		For FC.functioncode = Each functioncode
			If FC\Parent = F Then
				FC\Code = RemoveRightSideTabs_Spaces$(FC\Code)
				ProcessFunctionCode(FC)
				If FC\Term = True Then
					WriteLine(file2,ReplaceTabs(FC\Code+FC\Comment,FC\Tabs))
				Else
					WriteLine(file2,ReplaceTabs(FC\Code+";"+FC\Comment,FC\Tabs))
				EndIf
			EndIf
		Next
		WriteLine(file2,"}"+F\ExitComment)
	Next
End Function

Function ProcessClass.Class(LineIn$,TabCount)

	Local T.Class,C.Class,TLIN,ParentName$,TI,SI,I
	
	ParentName$ = ""
	
	For I = 1 To Len(LineIn$)
		If Mid$(LineIn$,I,1) = ";" Then SI = I
		If Mid$(LineIn$,I,1) = ":" Then 
			TI = I
		EndIf
	Next

	T.Class = New Class
	
	If SI <> 0 Then T\Comment = "//"+Right$(LineIn$,Len(LineIn$) - (SI)):LineIn$ = Left$(LineIn$,SI-1)
	
	LineIn$ = RemoveRightSideTabs_Spaces$(LineIn$)
	
	TLIN = Len(LineIn$)-Len("Class")
	If TLIN <= 0 Then RuntimeError "Error @ Line: "+ LineCount+" Class has no name!"

	If TI <> 0 Then ParentName$ = RemoveSpaces$(Mid$(LineIn$,(TI+1),(SI - TI)-2))
	
	If ParentName$ <> "" Then
		For C.Class = Each Class
			If C\Name$=ParentName$ Or C\Name_Lower$=ParentName$ Then 
				T\ParentClass = C:T\Name = Mid$(LineIn$,7,TI - 7)
			EndIf
		Next
	Else
		T\Name = Right$(LineIn$, TLIN - 1)
	EndIf
	
	T\Name_Lower = Lower(T\name)
	T\ClassTabs = TabCount
	T\ContainMethods = False
	
	Return T
	
End Function

Function ProcessField(LineIn$,T.Class,TabCount)
	
	Local FieldName$,F.Fields,I,SI,TI,TP
	
	For I = 1 To Len(LineIn$)
		If Mid$(LineIn$,I,1) = ";" Then SI = I
		If Mid$(LineIn$,I,1) = ":" Then TI = I
		If Mid$(LineIn$,I,1) = "." Then TP = I
	Next
	
	F.Fields = New Fields
	If Lower(LineIn) = "public:" Then F\Name = "public:":F\VariableType = 999:F\ParentClass = T:F\Tabs=TabCount:Return
	If Lower(LineIn) = "private:" Then F\Name = "private:":F\VariableType = 999:F\ParentClass = T:F\Tabs=TabCount:Return
	If Lower(LineIn) = "protected:" Then F\Name = "protected:":F\VariableType = 999:F\ParentClass = T:F\Tabs=TabCount:Return
	If Lower(Left$(LineIn$,5))= "list<" Or Lower(Left$(LineIn$,5))= "list " Then F\Name = LineIn+";":F\VariableType = 999:F\ParentClass=T:F\Tabs=TabCount:Return
	If SI <> 0 Then F\Comment = "//"+Right$(LineIn$,Len(LineIn$)-(SI)):LineIn$ = Left$(LineIn$,SI-1)
	
	LineIn$ = RemoveRightSideTabs_Spaces$(LineIn$)
	
	Select True
		Case Right$(LineIn$,1)="%"
			F\VariableType=0
			LineIn$ = Left$(LineIn$,Len(LineIn$)-1)
		Case Right$(LineIn$,1)="$"
			F\VariableType=1
			LineIn$ = Left$(LineIn$,Len(LineIn$)-1)
		Case Right$(LineIn$,1)="#"
			F\VariableType=2
			LineIn$ = Left$(LineIn$,Len(LineIn$)-1)
		Case TP <> 0
			F\VariableType=3
			F\ParentClassName = Right$(LineIn,Len(LineIn)-tp)
			LineIn = Left$(LineIn,tp-1)
		Default
			F\VariableType=0
	End Select
	
	FieldName$ = Right$(LineIn$,Len(LineIn$)-6)
	F\Name = FieldName
	F\Name_Lower = Lower(FieldName)
	F\ParentClass = T
	F\Tabs = TabCount
	F\Private = T\Private
	If Lower(Left$(LineIn$,5))= "list<" Or Lower(Left$(LineIn$,5))= "list " Then F\VariableType = 999
End Function

Function Objective_Line$(code$,term = True)
	Local F.Functions
	
	If Left$(Code$,7) = "Global " And InClass = False And InMethod = False And InFunction = False Then 
		Code = Right$(Code,Len(Code)-7)
	ElseIf Left$(Code$,7) = "Global " And InClass = True Or InMethod = True Or InFunction = True
		RuntimeError "Global in Class or Method not allowed @ "+ LineCount
	EndIf
	For i = 1 To Len(Code)
		If  Mid$(Code,i,1) = " " Or  Mid$(Code,i,1) = "=" Then LSP = i
		If Mid$(Code,i,1) = ";" Then 
			tCode$ = " // " +Right$(Code,Len(Code)-i)
			Code = Left$(Code,i-1)
		EndIf
		If Mid$(Code,i,1) = "." Then
			If lsp <> 0 Then
				fcode$=Mid$(Code,LSP+1,(i-lsp)-1)
			Else
				fCode$ = Left$(Code,i-1)
			EndIf
			For f.functions = Each functions
				If Lower(fCode) = F\Name_Lower Then Code = Left$(Code,i-1) + "_" + Right$(Code,Len(Code)-i)
			Next
		EndIf
		If Mid$(code,i,1) = "\" Then
			code$ = Left$(code,i-1)+"."+Right$(code,Len(code)-i)
		EndIf
	Next
	If Lower(Left$(Code,6)) = "print " Or Lower(Left$(Code,6)) = "print(" Then 
		Code = "cout << " + Right$(Code,Len(Code)-6)
		For i = 1 To Len(Code)-1
			If Mid$(Code,i,1) = "+" Then Code = Left$(Code,i-1)+" << "+ Right$(Code,Len(Code)-i):i = i+3
		Next
		Code = Code + " << endl"
	EndIf
	If Lower(Left$(Code,9)) = "#include " Or Lower(Left$(Code,9)) = "#include<" Then
		Return Code + " " + tcode
	EndIf
	If Lower(Left$(code,4)) = "dim " Then
		dx = 0:de = 0:dt = 0:di = False:ds = False:df = False
		For I = 5 To Len(Code)
			If Mid$(code,i,1) = "[" Then DX = i
			If Mid$(code,i,1) = "]" Then DE = i
			If Mid$(Code,i,1) = "%" Then DI = True
			If Mid$(Code,i,1) = "$" Then DS = True
			If Mid$(code,i,1) = "#" Then DF = True
			If Mid$(code,i,1) = "." Then DT = i
		Next
		If di = True Or ds = True Or df = True Or DT <> 0 Then
			Select True
				Case di
					Dtype$ = "int"
					name$ =  Mid$(code,5,(DX-1)-5)
				Case ds
					Dtype$ = "string"
					name$ =  Mid$(code,5,(DX-1)-5)
				Case df
					Dtype$ = "float"
					name$ =  Mid$(code,5,(DX-1)-5)
				Case dt > 0
					Dtype$ = Mid$(code,dt+1,dx-dt-1)
					name$ = Mid$(code,5,dt-5)
			End Select
		Else
			Dtype$ = "int"
			name$ = Mid$(code,5,(DX)-5)
		EndIf
		Amount$ = Mid$(Code,dx+1,(de-dx)-1)
		code$ = Dtype$+" * "+name$ + " = new (nothrow) "+dtype$+"["+amount+"];"+"if ("+name+" == 0){cout << "+Chr(34)+"Error: memory could Not be allocated"+Chr(34)+";return 0;}":Return code+tcode
	EndIf
	If Lower(Left$(Code,7)) =  "delete " Then
		name$ = Mid$(Code,8,(Len(Code)-7))
		Code = "delete[] "+name$
	EndIf
	tl = Instr(Lower(code)," tolist ")
	If tl > 0 Then
		code = Right$(code,Len(code)-(tl+7))+"_list.push_back("+Left$(code,tl-1)+")"
	EndIf
	tl = 0:tl=Instr(Lower(code)," = new ")Or Instr(Lower(code),"= new ") Or Instr(Lower(code)," =new ")Or Instr(Lower(code),"=new ")
	If tl > 0 Then
		For i = 1 To Len(code)
			If Mid$(code,i,1) = "." Then Exit
		Next
		code = Mid$(code,i+1,(tl-1)-(i+1))+" "+ Left$(code,i-1)+";"+Mid$(code,i+1,(tl-1)-(i+1))+"_list.push_back("+ Left$(code,i-1)+")"
	EndIf
	Return Code + tcode
End Function

Function ProcessTypes(T.Class)
	
	Local F.Fields,FT$,Name$
	
	For F.Fields = Each Fields
		FT = ""
		If F\ParentClass = T Then
			Select True
				Case F\VariableType = 0
					Name = "int"
					WriteLine (file2,ReplaceTabs$(Name + " " + F\Name+";"+Chr(9)+F\Comment,F\Tabs))
				Case F\VariableType = 1
					Name = "string"
					WriteLine (file2,ReplaceTabs$(Name + " " + F\Name+";"+Chr(9)+F\Comment,F\Tabs))
				Case F\VariableType = 2
					Name = "float"
					WriteLine (file2,ReplaceTabs$(Name + " " + F\Name+";"+Chr(9)+F\Comment,F\Tabs))
				Default
					WriteLine(file2,ReplaceTabs$(F\Name+Chr(9)+F\Comment,F\Tabs))
			End Select
		EndIf
	Next
	
End Function

Function ProcessTypesParent(T.Class)
	
	Local F.Fields,FT$
	
	For F.Fields = Each Fields
		FT = ""
		
		If F\ParentClass = T And F\Private = False Then
		Select True
				Case F\VariableType = 0
					FT = "%":Name = "int"
				Case F\VariableType = 1
					FT = "$":Name = "string"
				Case F\VariableType = 2
					FT = "#":Name = "float"
			End Select
			WriteLine (file2,ReplaceTabs$(Name + " " + F\Name+";"+Chr(9)+F\Comment,F\Tabs))
		EndIf
	Next
	
End Function

Function PredeclareMethods(T.Class)
	
	Local M.Method,Name$
	For M.Method = Each Method
		If M\parentPTR = T Then 
			Select True
				Case M\ReturnType = 0
					Name = "void"
				Case M\ReturnType = 1
					Name = "int"
				Case M\ReturnType = 2
					Name = "float"
				Case M\ReturnType = 3
					Name = "string"
				Case M\ReturnType = 4
					Name = T\Name
			End Select
			If M\Constructor Then
				WriteLine(file2,ReplaceTabs$(M\Name + " (" +M\Parameters+");",M\Tabs))
			ElseIf M\Destructor Then
				WriteLine(file2,ReplaceTabs$(M\Name + " (" +M\Parameters+");",M\Tabs))
			Else
				WriteLine(file2,ReplaceTabs$(Name + " " + M\Name + " (" +M\Parameters+")"+";",M\Tabs))
			EndIf
		EndIf
	Next
End Function

Function ProcessFunctionParameters$(M.Functions)
	If M\Parameters = "" Then Return
	Local I, StartX=1,MV.FunctionVariable,In$,VN$,CN,TN$,CNSX,T.Class,TI,MVN$
	In = M\Parameters
	For I = 1 To Len(In$)
		If TestKeySymbol(Mid$(In,I,1)) Or (I = Len(in)) Then
			If I = Len(In) Then
				VN = Mid$(M\Parameters,StartX,(I+1) - StartX)
			Else
				VN = Mid$(M\Parameters,StartX,I - StartX)
			EndIf
			If (ObservedKeySymbol <> "." Or CN = True) And TestKeySymbol(vn) = False And vn <> "" Then 
				MV.FunctionVariable = New FunctionVariable
				MV\Parent = M
				Select True
					Case ObservedKeySymbol = "%"
						MV\VariableType = 1
						MV\Name = Mid$(VN,StartX,(I)-startx)
					Case ObservedKeySymbol = "#"
						MV\VariableType = 2
						MV\Name = Mid$(VN,StartX,(I)-startx)
					Case ObservedKeySymbol = "$"
						MV\VariableType = 3
						MV\Name = Mid$(VN,StartX,(I)-startx)
					Case CN = True
						TN$ = Mid$(In,CNSX,(i+1)- CNSX):CN = False
						For t.class = Each class
							If TN = T\Name Then MV\VariableType = 4:MV\ClassName = T\Name:MV\Name = MVN
						Next
					Default
						MV\VariableType = 1	
						MV\Name = VN
				End Select
				MV\Declared = True
			Else If ObservedKeySymbol = "." And TestKeySymbol(vn) = False And vn <> "" Then
				CN = True:CNSX = I+1:MVN = Mid$(In,StartX,I - StartX)
			EndIf
			TI = I:StartX = I+1
		EndIf
	Next
	m\parameters = ReWriteFunctionParameters$(M)
End Function

Function ReWriteFunctionParameters$(M.Functions)
	Local MV.FunctionVariable,tParameters$,Name$
	For MV.FunctionVariable = Each functionVariable
		If MV\Parent = M Then
			Select True
				Case MV\VariableType = 1
					Name = "int "
				Case MV\VariableType = 2
					Name = "float "
				Case MV\VariableType = 3
					Name = "string& "
				Case MV\VariableType = 4
					Name = MV\ClassName + " &"
			End Select
			tParameters = tParameters + Name + MV\Name + ","
		EndIf
	Next
	Return Left$(tParameters,Len(tParameters)-1)
End Function

Function ProcessFunctionCode(MC.FunctionCode)

	Local F.Fields,VariableName$,StartX,MV.FunctionVariable,Name$
	StartX = 1
	If Lower(MC\Code) = "[cpp]" Or Lower(MC\Code) = "[c++]" And incpp = False Then incpp = True:MC\Code = "":MC\Term = True:Return
	If Lower(MC\Code) = "[cpp]" Or Lower(MC\Code) = "[c++]" And incpp = True Then incpp = False:MC\Code = "":MC\Term = True:Return
	If InCpp = True Then MC\Term = True :Return
	For i = 1 To Len(MC\Code)
		If Mid$(MC\Code,i,1) =";" Then 
			MC\Comment = "//"+Right$(MC\Code,Len(MC\Code)-i)
			MC\Code = Left$(MC\code,i-1):Exit
		EndIf
	Next
	
	If Lower(Left$(MC\Code,6)) = "local " Then
		MC\Code = Right$(MC\Code,Len(MC\Code)-6):LC = 1
		For i = 1 To Len(MC\code)
			If Mid$(MC\Code ,i,1) = "," Or i = Len(MC\code) And  Mid$(MC\Code ,i,1)<>";" Then
				Select True
					Case Mid$(MC\Code ,i-1,1) = "%" Or (i = Len(MC\Code) And Right$(MC\Code,1) = "%")
						If lc = 1 Then
							Name = Mid$(MC\Code ,lc,(i-lc)-1)
							MC\Code = "int "+Left$(MC\Code,lc)+" = 0;"+Right$(MC\Code,Len(MC\Code)-i):i = i + 7
						ElseIf i = Len(MC\Code) Then
							Name = Mid$(MC\Code,lc+1,Len(MC\Code)-lc-1)
							MC\Code = Left$(MC\code,lc)+"int " + Name +" = 0;"
						Else
							Name = Mid$(MC\Code ,lc+1,(i-lc)-2)
							MC\Code = Left$(MC\Code,lc)+"int "+Name+" = 0;"+Right$(MC\Code,Len(MC\Code)-i):i = i + 7
						EndIf
						CreateFunctionVariable(Name,1,MC\Parent)
					Case Mid$(MC\Code ,i-1,1) = "#" Or (i = Len(MC\Code) And Right$(MC\Code,1) = "#")
						If lc = 1 Then
							Name = Mid$(MC\Code ,lc,(i-lc)-1)
							MC\Code = "float "+Left$(MC\Code,lc)+" = 0;"+Right$(MC\Code,Len(MC\Code)-i):i = i + 9
						ElseIf i = Len(MC\Code) Then
							Name = Mid$(MC\Code,lc+1,Len(MC\Code)-lc-1)
							MC\Code = Left$(MC\code,lc)+"float " + Name +" = 0;"
						Else
							Name = Mid$(MC\Code ,lc+1,(i-lc)-2)
							MC\Code = Left$(MC\Code,lc)+"float "+Name+" = 0;"+Right$(MC\Code,Len(MC\Code)-i):i = i + 9
						EndIf
						CreateFunctionVariable(Name,2,MC\Parent)
					Case Mid$(MC\Code ,i-1,1) = "$" Or (i = Len(MC\Code) And Right$(MC\Code,1) = "$")
						If lc = 1 Then
							Name = Mid$(MC\Code ,lc,(i-lc)-1)
							MC\Code = "string "+Left$(MC\Code,lc)+" = "+Chr(34)+Chr(34)+";"+Right$(MC\Code,Len(MC\Code)-i):i = i + 11
						ElseIf i = Len(MC\Code) Then
							Name = Mid$(MC\Code,lc+1,Len(MC\Code)-lc-1)
							MC\Code = Left$(MC\code,lc)+"string " + Name +" = "+Chr(34)+Chr(34)+";"
						Else
							Name = Mid$(MC\Code ,lc+1,(i-lc)-2)
							MC\Code = Left$(MC\Code,lc)+"string "+Name+" = "+Chr(34)+Chr(34)+";"+Right$(MC\Code,Len(MC\Code)-i):i = i + 11
						EndIf
						CreateFunctionVariable(Name,3,MC\Parent)
					Default
						If lc = 1 Then
							Name = Mid$(MC\Code ,lc,(i-lc))
							MC\Code = "int "+Left$(MC\Code,lc)+" = 0;"+Right$(MC\Code,Len(MC\Code)-i):i = i + 6
						ElseIf i = Len(MC\Code) Then
							Name = Mid$(MC\Code,lc+1,Len(MC\Code)-lc)
							MC\Code = Left$(MC\code,lc)+"int " + Name +" = 0;"
						Else
							Name = Mid$(MC\Code ,lc+1,(i-lc)-1)
							MC\Code = Left$(MC\Code,lc)+"int "+Name+" = 0;"+Right$(MC\Code,Len(MC\Code)-i):i = i + 8
						EndIf
						CreateFunctionVariable(Name,1,MC\Parent)
				End Select
				lc = i
			EndIf
		Next
		MC\Term = True
	EndIf
	If Lower(Left$(MC\Code,4)) = "for " Then

		For i = 5 To Len(MC\Code)
			If Lower(Mid$(MC\Code,i,4)) = "and " Then MC\Code = Left$(MC\Code,(i-1))+"&& "+Right$(MC\code,Len(MC\Code)-i-3):i = i + 3
			If Lower(Mid$(MC\code,i,3)) = "or " Then MC\Code = Left$(MC\Code,(i-1))+"|| "+Right$(MC\code,Len(MC\Code)-i-2):i = i + 2
			If Lower(Mid$(MC\Code,i,4)) = "xor " Then MC\Code = Left$(MC\Code,(i-1))+"^ "+Right$(MC\code,Len(MC\Code)-i-3):i = i + 3
		Next
		For I = 5 To Len(MC\Code)
			lmc$ = Mid$(MC\Code,i,1)
			If Mid$(MC\Code,i,1) = " "Or  Mid$(MC\Code,i,1) = "="Then VariableName = Mid$(MC\Code,5,i-5):StartX = I:Exit
		Next
		viu = False
		For MV.Functionvariable = Each Functionvariable
			If MV\Parent = MC\Parent And MV\Name = VariableName Or MV\Name = Left$(VariableName,Len(VariableName)-1) Then
				If MV\Declared = True Then
					ExitTrue = False
					For I = StartX+1 To Len(MC\Code)
						LMC$ = Mid$(MC\Code,i,1)
						If TestKeySymbol( Mid$(MC\Code,i,1)) = True And TestNumber(Mid$(MC\Code,i,1))= False Then
							Tcode$ = "for ( "+MV\Name+Mid$(MC\Code,StartX+1,i-(StartX+1))+" = "
							ExitTrue = True:TI = i
						EndIf
						If ExitTrue Then Exit
					Next
					ExitTrue = False
					For i = ti To Len(MC\code)
						If TestNumber(Mid$(MC\Code,i,1)) = True And n1 = 0 Then n1 = i
						If TestNumber(Mid$(MC\Code,i,1)) <> True And n1 <> 0 Then n2 = i:Exit
					Next
					
					Tcode$ = TCode$ + Mid$(MC\code,n1,n2-n1) + " ; " + MV\Name + " <= "
					For i = n2 To Len(MC\Code)
						If Lower(Mid$(MC\Code,i,3)) = "to " Then I = i + 3:Exit
					Next
					MC\code = Tcode$+ Mid$(MC\Code,i,Len(MC\Code)-(i-1)) + " ; "+MV\Name+"++ ){" 
					MV\Declared = True
					viu = True
				EndIf
			EndIf
		Next
		If viu = False Then
			MV.FunctionVariable = New FunctionVariable
			MV\Parent = MC\Parent
			Select True
				Case Right$(VariableName,1) = "%"
					MV\VariableType = 1:MV\Name = Left$(VariableName,Len(VariableName)-1)
				Case Right$(VariableName,1) = "#"
					MV\VariableType = 2:MV\Name = Left$(VariableName,Len(VariableName)-1)
				Default
					MV\VariableType = 1:MV\Name = VariableName 
			End Select
			If MV\Declared <> True Then
				Select True
					Case MV\VariableType = 1
						Name = "int "
					Case MV\VariableType = 2
						Name = "float "
				End Select
				ExitTrue = False
				For I = StartX+1 To Len(MC\Code)
					LMC$ = Mid$(MC\Code,i,1)
					If TestKeySymbol( Mid$(MC\Code,i,1)) = True And TestNumber(Mid$(MC\Code,i,1))= False Then
						Tcode$ = "for ( "+Name+MV\Name+Mid$(MC\Code,StartX+1,i-(StartX+1))+" = "
						ExitTrue = True:TI = i
					EndIf
					If ExitTrue Then Exit
				Next
				ExitTrue = False
				For i = ti To Len(MC\code)
					If TestNumber(Mid$(MC\Code,i,1)) = True And n1 = 0 Then n1 = i
					If TestNumber(Mid$(MC\Code,i,1)) <> True And n1 <> 0 Then n2 = i:Exit
				Next
				
				Tcode$ = TCode$ + Mid$(MC\code,n1,n2-n1) + " ; " + MV\Name + " <= "
				For i = n2 To Len(MC\Code)
					If Lower(Mid$(MC\Code,i,3)) = "to " Then I = i + 3:Exit
				Next
				MC\code = Tcode$+ Mid$(MC\Code,i,Len(MC\Code)-(i-1)) + " ; "+MV\Name+"++ ){" 
			EndIf
		EndIf
		MC\Term = True
	EndIf
	If Lower(MC\Code) = "next" Then MC\Code = "}":MC\Term = True
	If Lower(Left$(MC\Code,3)) = "if " Or Lower(Left$(MC\Code,3)) = "if(" Then
		
		For i = 5 To Len(MC\Code)
			If Lower(Mid$(MC\Code,i,4)) = "and " Then MC\Code = Left$(MC\Code,(i-1))+"&& "+Right$(MC\code,Len(MC\Code)-i-3):i = i + 3
			If Lower(Mid$(MC\code,i,3)) = "or " Then MC\Code = Left$(MC\Code,(i-1))+"|| "+Right$(MC\code,Len(MC\Code)-i-2):i = i + 2
			If Lower(Mid$(MC\Code,i,4)) = "xor " Then MC\Code = Left$(MC\Code,(i-1))+"^ "+Right$(MC\code,Len(MC\Code)-i-3):i = i + 3
		Next
		MC\Code = Left$(MC\Code,3) + "(" + Right$(MC\Code,Len(MC\Code)-3)
		For i = 3 To Len(MC\Code)
			If Mid$(MC\Code,i,1) = "=" And (Mid$(MC\Code,i-1,2) <> "<=" Or Mid$(MC\Code,i-1,2) <> ">="Or Mid$(MC\Code,i-1,2) <> "!=" )Then 
				MC\Code = Left$(MC\Code,i)+"="+Right$(MC\Code,Len(MC\Code)-i):i = i + 1
			Else If Mid$(MC\Code,i,2) = "<>" Then
				MC\Code = Left$(MC\code,i-1)+"!="+Right$(MC\Code,Len(MC\code)-(i+1))
			EndIf
			If i = Len(MC\Code) Then
				If Mid$(MC\Code,i-3,4) = "then" Then MC\Code = Left$(MC\Code,i-4)+"){":MC\Term = True
			EndIf
		Next
	EndIf
	If Lower(MC\Code) = "else" Then MC\Code = "} else {":MC\Term = True
	If Lower(Left$(MC\Code,8)) = "else if " Then MC\Code = "} else if (" + Right$(MC\Code,Len(MC\code)-8)+"){":MC\Term = True
	If Lower(MC\Code) = "endif" Or Lower(MC\Code) = "end if" Then MC\Code = "}":MC\Term = True
	If Lower(MC\Code) = "wend" Then MC\Code = "}":MC\Term = True
	If Lower(Left$(MC\Code,6)) = "while " Then MC\Code = "while (" + Right$(MC\code,Len(MC\Code)-6) +"){":MC\Term=True
	If Lower(MC\code) = "exit" Then MC\Code = "break"
	If Lower(Left$(MC\Code,6)) = "print " Or Lower(Left$(MC\Code,6)) = "print(" Then 
		MC\Code = "cout << " + Right$(MC\Code,Len(MC\Code)-6)
		For i = 1 To Len(MC\Code)-1
			If Mid$(MC\Code,i,1) = "+" Then MC\Code = Left$(MC\Code,i-1)+" << "+ Right$(MC\Code,Len(MC\Code)-i):i = i+3
		Next
		MC\Code = MC\Code + " << endl"
	EndIf
	If MC\Term = False Then MC\Code = Objective_Line$(MC\Code)
End Function

Function ProcessMethodParameters$(M.Method)
	If M\Parameters = "" Then Return
	Local I, StartX=1,MV.MethodVariable,In$,VN$,CN,TN$,CNSX,T.Class,TI,MVN$
	In = M\Parameters
	For I = 1 To Len(In$)

		If TestKeySymbol(Mid$(In,I,1)) Or (I = Len(in)) Then
			If I = Len(In) Then
				VN = Mid$(M\Parameters,StartX,(I) - StartX)
			Else
				VN = Mid$(M\Parameters,StartX,I - StartX)
			EndIf
			If (ObservedKeySymbol <> "." Or CN = True) And TestKeySymbol(vn) = False And vn <> "" Then 
				MV.MethodVariable = New MethodVariable
				MV\Parent = M
				Select True
					Case ObservedKeySymbol = "%"
						MV\VariableType = 1
						MV\Name = VN
					Case ObservedKeySymbol = "#"
						MV\VariableType = 2
						MV\Name =VN
					Case ObservedKeySymbol = "$"
						MV\VariableType = 3
						MV\Name =VN
					Case CN = True
						TN$ = Mid$(In,CNSX,(i+1)- CNSX):CN = False
						For t.class = Each class
							If TN = T\Name Then MV\VariableType = 4:MV\ClassName = T\Name:MV\Name = MVN
						Next
					Default
						MV\VariableType = 1	
						MV\Name = VN
				End Select
				MV\Declared = True
			Else If ObservedKeySymbol = "." And TestKeySymbol(vn) = False And vn <> "" Then
				CN = True:CNSX = I+1:MVN = Mid$(In,StartX,I - StartX)
			EndIf
			TI = I:StartX = I+1
		EndIf
	Next
	Return ReWriteMethodParameters$(M)
End Function

Function ReWriteMethodParameters$(M.Method)
	Local MV.MethodVariable,tParameters$,Name$
	For MV.MethodVariable = Each MethodVariable
		If MV\Parent = M Then
			Select True
				Case MV\VariableType = 1
					Name = "int "
				Case MV\VariableType = 2
					Name = "float "
				Case MV\VariableType = 3
					Name = "string& "
				Case MV\VariableType = 4
					Name = MV\ClassName + " &"
			End Select
			tParameters = tParameters + Name + MV\Name + ","
		EndIf
	Next
	Return Left$(tParameters,Len(tParameters)-1)
End Function

Function ProcessMethodVariables(M.Method)
	Local MC.MethodCode,StartX = 1,MV.MethodVariable,MVUsed,VN$,F.Fields
	For MC.MethodCode = Each MethodCode
		If MC\Parent = M Then
			For i = 1 To Len(MC\Code)
				If TestKeySymbol(Mid$(MC\Code,i,1)) Then
					VN = Mid$(MC\Code,StartX,i - StartX)
					If TestKeyword(VN)= False And VN <> "" Then
						MVUsed = False
						For F.Fields = Each Fields
							If F\ParentClass = M\parentPTR Then
								If VN = F\Name Then MVUsed = True
							EndIf
						Next
						For MV.MethodVariable = Each MethodVariable
							If MV\Name =VN And MV\Parent = M Then MVUsed = True
						Next
						If MVUsed = False Then
							MV.MethodVariable = New MethodVariable
							MV\Parent = M
							Select True
								Case Right$(VN,1) = "%"
									MV\VariableType = 1
									MV\Name = Left$(VN,Len(VN)-1)
								Case Right$(VN,1) = "#"
									MV\VariableType = 2
									MV\Name = Left$(VN,Len(VN)-1)
								Case Right$(VN,1) = "$"
									MV\VariableType = 3
									MV\Name = Left$(VN,Len(VN)-1)
								Default
									MV\VariableType = 1	
									MV\Name = VN
							End Select
						EndIf
					EndIf
					StartX = i + 1
				EndIf
			Next
		EndIf
	Next
End Function

Function ProcessMethodCode(MC.MethodCode)
	Local F.Fields,VariableName$,StartX,MV.MethodVariable,Name$
	StartX = 1
	If MC\Code = "[cpp]" Or MC\Code = "[c++]" And incpp = False Then incpp = True:MC\Code = "":Return
	If MC\Code = "[cpp]" Or MC\Code = "[c++]" And incpp = True Then incpp = False:MC\Code = "":Return
	If InCpp = True Then MC\Term = True :Return
	For i = 1 To Len(MC\code)
		If Mid$(MC\Code,i,1) =";" Then 
			MC\Comment = "//"+Right$(MC\Code,Len(MC\Code)-i)
			MC\Code = Left$(MC\code,i-1):Exit
		EndIf
	Next
	
	If Lower(Left$(MC\Code,6)) = "local " Then
		MC\Code = Right$(MC\Code,Len(MC\Code)-6):LC = 1
		For i = 1 To Len(MC\code)
			If Mid$(MC\Code ,i,1) = "," Or i = Len(MC\code) And  Mid$(MC\Code ,i,1)<>";" Then
				Select True
					Case Mid$(MC\Code ,i-1,1) = "%" Or (i = Len(MC\Code) And Right$(MC\Code,1) = "%")
						If lc = 1 Then
							Name = Mid$(MC\Code ,lc,(i-lc)-1)
							MC\Code = "int "+Left$(MC\Code,lc)+" = 0;"+Right$(MC\Code,Len(MC\Code)-i):i = i + 7
						ElseIf i = Len(MC\Code) Then
							Name = Mid$(MC\Code,lc+1,Len(MC\Code)-lc-1)
							MC\Code = Left$(MC\code,lc)+"int " + Name +" = 0;"
						Else
							Name = Mid$(MC\Code ,lc+1,(i-lc)-2)
							MC\Code = Left$(MC\Code,lc)+"int "+Name+" = 0;"+Right$(MC\Code,Len(MC\Code)-i):i = i + 7
						EndIf
						CreateMethodVariable(Name,1,MC\Parent)
					Case Mid$(MC\Code ,i-1,1) = "#" Or (i = Len(MC\Code) And Right$(MC\Code,1) = "#")
						If lc = 1 Then
							Name = Mid$(MC\Code ,lc,(i-lc)-1)
							MC\Code = "float "+Name+" = 0.0;"+Right$(MC\Code,Len(MC\Code)-i):i = i + 11
						ElseIf i = Len(MC\Code) Then
							Name = Mid$(MC\Code,lc+1,Len(MC\Code)-lc-1)
							MC\Code = Left$(MC\code,lc)+"float " + Name +" = 0.0;"
						Else
							Name = Mid$(MC\Code ,lc+1,(i-lc)-2)
							MC\Code = Left$(MC\Code,lc)+"float "+Name+" = 0.0;"+Right$(MC\Code,Len(MC\Code)-i):i = i + 11
						EndIf
						CreateMethodVariable(Name,2,MC\Parent)
					Case Mid$(MC\Code ,i-1,1) = "$" Or (i = Len(MC\Code) And Right$(MC\Code,1) = "$")
						If lc = 1 Then
							Name = Mid$(MC\Code ,lc,(i-lc)-1)
							MC\Code = "string "+Left$(MC\Code,lc)+" = "+Chr(34)+Chr(34)+";"+Right$(MC\Code,Len(MC\Code)-i):i = i + 11
						ElseIf i = Len(MC\Code) Then
							Name = Mid$(MC\Code,lc+1,Len(MC\Code)-lc-1)
							MC\Code = Left$(MC\code,lc)+"string " + Name +" = "+Chr(34)+Chr(34)+";"
						Else
							Name = Mid$(MC\Code ,lc+1,(i-lc)-2)
							MC\Code = Left$(MC\Code,lc)+"string "+Name+" = "+Chr(34)+Chr(34)+";"+Right$(MC\Code,Len(MC\Code)-i):i = i + 11
						EndIf
						CreateMethodVariable(Name,3,MC\Parent)
					Default
						If lc = 1 Then
							Name = Mid$(MC\Code ,lc,(i-lc))
							MC\Code = "int "+Left$(MC\Code,lc)+" = 0;"+Right$(MC\Code,Len(MC\Code)-i):i = i + 6
						ElseIf i = Len(MC\Code) Then
							Name = Mid$(MC\Code,lc+1,Len(MC\Code)-lc)
							MC\Code = Left$(MC\code,lc)+"int " + Name +" = 0;"
						Else
							Name = Mid$(MC\Code ,lc+1,(i-lc)-1)
							MC\Code = Left$(MC\Code,lc)+"int "+Name+" = 0;"+Right$(MC\Code,Len(MC\Code)-i):i = i + 8
						EndIf
						CreateMethodVariable(Name,1,MC\Parent)
				End Select
				lc = i
			EndIf
		Next
		MC\Term = True
	EndIf
	If Lower(Left$(MC\Code,4)) = "for " Then
		
		For i = 5 To Len(MC\Code)
			If Lower(Mid$(MC\Code,i,4)) = "and " Then MC\Code = Left$(MC\Code,(i-1))+"&& "+Right$(MC\code,Len(MC\Code)-i-3):i = i + 3
			If Lower(Mid$(MC\code,i,3)) = "or " Then MC\Code = Left$(MC\Code,(i-1))+"|| "+Right$(MC\code,Len(MC\Code)-i-2):i = i + 2
			If Lower(Mid$(MC\Code,i,4)) = "xor " Then MC\Code = Left$(MC\Code,(i-1))+"^ "+Right$(MC\code,Len(MC\Code)-i-3):i = i + 3
		Next
		For I = 5 To Len(MC\Code)
			lmc$ = Mid$(MC\Code,i,1)
			If Mid$(MC\Code,i,1) = " "Or  Mid$(MC\Code,i,1) = "="Then VariableName = Mid$(MC\Code,5,i-5):StartX = I:Exit
		Next
		viu = False
		For MV.methodvariable = Each methodvariable
			If MV\Parent = MC\Parent And MV\Name = VariableName Or MV\Name = Left$(VariableName,Len(VariableName)-1) Then
				If MV\Declared = True Then
					ExitTrue = False
					For I = StartX+1 To Len(MC\Code)
						LMC$ = Mid$(MC\Code,i,1)
						If TestKeySymbol( Mid$(MC\Code,i,1)) = True And TestNumber(Mid$(MC\Code,i,1))= False Then
							Tcode$ = "for ( "+MV\Name+Mid$(MC\Code,StartX+1,i-(StartX+1))+" = "
							ExitTrue = True:TI = i
						EndIf
						If ExitTrue Then Exit
					Next
					ExitTrue = False
					For i = ti To Len(MC\code)
						If TestNumber(Mid$(MC\Code,i,1)) = True And n1 = 0 Then n1 = i
						If TestNumber(Mid$(MC\Code,i,1)) <> True And n1 <> 0 Then n2 = i:Exit
					Next
					
					Tcode$ = TCode$ + Mid$(MC\code,n1,n2-n1) + " ; " + MV\Name + " <= "
					For i = n2 To Len(MC\Code)
						If Lower(Mid$(MC\Code,i,3)) = "to " Then I = i + 3:Exit
					Next
					MC\code = Tcode$+ Mid$(MC\Code,i,Len(MC\Code)-(i-1)) + " ; "+MV\Name+"++ ){" 
					MV\Declared = True
					viu = True
				EndIf
			EndIf
		Next
		If viu = False Then
			MV.methodVariable = New MethodVariable
			MV\Parent = MC\Parent
			Select True
				Case Right$(VariableName,1) = "%"
					MV\VariableType = 1:MV\Name = Left$(VariableName,Len(VariableName)-1)
				Case Right$(VariableName,1) = "#"
					MV\VariableType = 2:MV\Name = Left$(VariableName,Len(VariableName)-1)
				Default
					MV\VariableType = 1:MV\Name = VariableName 
			End Select
			If MV\Declared <> True Then
				Select True
					Case MV\VariableType = 1
						Name = "int "
					Case MV\VariableType = 2
						Name = "float "
				End Select
				ExitTrue = False
				For I = StartX+1 To Len(MC\Code)
					LMC$ = Mid$(MC\Code,i,1)
					If TestKeySymbol( Mid$(MC\Code,i,1)) = True And TestNumber(Mid$(MC\Code,i,1))= False Then
						Tcode$ = "for ( "+Name+MV\Name+Mid$(MC\Code,StartX+1,i-(StartX+1))+" = "
						ExitTrue = True:TI = i
					EndIf
					If ExitTrue Then Exit
				Next
				ExitTrue = False
				For i = ti To Len(MC\code)
					If TestNumber(Mid$(MC\Code,i,1)) = True And n1 = 0 Then n1 = i
					If TestNumber(Mid$(MC\Code,i,1)) <> True And n1 <> 0 Then n2 = i:Exit
				Next
				
				Tcode$ = TCode$ + Mid$(MC\code,n1,n2-n1) + " ; " + MV\Name + " <= "
				For i = n2 To Len(MC\Code)
					If Lower(Mid$(MC\Code,i,3)) = "to " Then I = i + 3:Exit
				Next
				MC\code = Tcode$+ Mid$(MC\Code,i,Len(MC\Code)-(i-1)) + " ; "+MV\Name+"++ ){" 
			EndIf
		EndIf
		MC\Term = True
	EndIf
	If Lower(MC\Code) = "next" Then MC\Code = "}":MC\Term = True
	If Lower(Left$(MC\Code,3)) = "if " Or Lower(Left$(MC\Code,3)) = "if(" Then
		
		For i = 5 To Len(MC\Code)
			If Lower(Mid$(MC\Code,i,4)) = "and " Then MC\Code = Left$(MC\Code,(i-1))+"&& "+Right$(MC\code,Len(MC\Code)-i-3):i = i + 3
			If Lower(Mid$(MC\code,i,3)) = "or " Then MC\Code = Left$(MC\Code,(i-1))+"|| "+Right$(MC\code,Len(MC\Code)-i-2):i = i + 2
			If Lower(Mid$(MC\Code,i,4)) = "xor " Then MC\Code = Left$(MC\Code,(i-1))+"^ "+Right$(MC\code,Len(MC\Code)-i-3):i = i + 3
		Next
		MC\Code = Left$(MC\Code,3) + "(" + Right$(MC\Code,Len(MC\Code)-3)
		For i = 3 To Len(MC\Code)
			If Mid$(MC\Code,i,1) = "=" And (Mid$(MC\Code,i-1,2) <> "<=" Or Mid$(MC\Code,i-1,2) <> ">="Or Mid$(MC\Code,i-1,2) <> "!=" )Then 
				MC\Code = Left$(MC\Code,i)+"="+Right$(MC\Code,Len(MC\Code)-i):i = i + 1
			Else If Mid$(MC\Code,i,2) = "<>" Then
				MC\Code = Left$(MC\code,i-1)+"!="+Right$(MC\Code,Len(MC\code)-(i+1))
			EndIf
			If i = Len(MC\Code) Then
				If Mid$(MC\Code,i-3,4) = "then" Then MC\Code = Left$(MC\Code,i-4)+"){":MC\Term = True
			EndIf
		Next
	EndIf
	If Lower(MC\Code) = "else" Then MC\Code = "} else {":MC\Term = True
	If Lower(Left$(MC\Code,8)) = "else if " Then MC\Code = "} else if (" + Right$(MC\Code,Len(MC\code)-8)+"){":MC\Term = True
	If Lower(MC\Code) = "endif" Or Lower(MC\Code) = "end if" Then MC\Code = "}":MC\Term = True
	If Lower(MC\Code) = "wend" Then MC\Code = "}":MC\Term = True
	If Lower(Left$(MC\Code,6)) = "while " Then MC\Code = "while (" + Right$(MC\code,Len(MC\Code)-6) +"){":MC\Term=True
	If Lower(MC\code) = "exit" Then MC\Code = "break"
	If Lower(Left$(MC\Code,6)) = "print " Or Lower(Left$(MC\Code,6)) = "print(" Then 
		MC\Code = "cout << " + Right$(MC\Code,Len(MC\Code)-6)
		For i = 1 To Len(MC\Code)-1
			If Mid$(MC\Code,i,1) = "+" Then MC\Code = Left$(MC\Code,i-1)+" << "+ Right$(MC\Code,Len(MC\Code)-i):i = i+3
		Next
		MC\Code = MC\Code + " << endl"
	EndIf
End Function

Function CreateMethodVariable(Name$,vt%,Parent.method)
	Local MV.MethodVariable
	MV.MethodVariable = New MethodVariable
	MV\Name = Name
	MV\VariableType = vt
	MV\Parent = Parent
	MV\Declared = True
End Function

Function CreateFunctionVariable(Name$,vt%,Parent.Functions)
	Local MV.FunctionVariable
	MV.FunctionVariable = New FunctionVariable
	MV\Name = Name
	MV\VariableType = vt
	MV\Parent = Parent
	MV\Declared = True
End Function

; Remove Tabs from the OO code if any, keep track of how many there are
Function RemoveTabs()

	Local tc = 0
	
	While Left$(LineIn$,1) = Chr(9)
		tc = tc + 1
		LineIn$ = Right$(LineIn$,Len(LineIn$)-1)
	Wend
	
	Return tc
	
End Function

; Replace Tabs from the OO code so that the readablity is still present.
Function ReplaceTabs$(In$,Tabs)
	
	Local i
	
	For i = 1 To Tabs
		In$ = Chr(9) + In$
	Next
	
	Return In$
	
End Function

; Remove Spaces from the left side of a sting.
Function RemoveSpaces$(in$)
	
	While Left$(in$,1) = " "
		in$ = Right$(in$,Len(in$)-1)
	Wend
	
	Return in$
	
End Function

; Remove Spaces and tabs on the right side(does not keep track of them)
Function RemoveRightSideTabs_Spaces$(In$)
	
	While Right$(In$,1) = " " Or Right$(In$,1) = Chr(9)
		In$ = Left$(In$,Len(In$)-1)
	Wend
	
	Return In$
	
End Function

.KeyWords ;
Data 12	;amount
Data "for","next"
Data "if","end if","endif","else","elseif","else if"
Data "while","wend" ;13
Data "to","then"

Function TestKeyword(code$)
	Restore KeyWords
	Read amt
	For i = 1 To amt
		Read KW$
		kw = Lower(kw)
		If kw = Lower(code) Or kw+" " = Lower(Left$(code,Len(kw)+1)) Or kw+"(" = Lower(Left$(code,Len(kw)+1))Then ObservedKeyWord = kw :Return True
	Next
	Return False
End Function

.KeySymbols
Data 25;amount
Data ";",":","(",")","<"
Data ">","!","~","`","."
Data ",","{","}","[","]"
Data "=","+","-","*","/"
Data "^"," ","#","$","%"

Function TestKeySymbol(in$)
	Restore keysymbols
	Read amt
	If in = Chr(34) Then Return True
	For i = 1 To amt
		Read kw$
		If kw = in Then ObservedKeySymbol = kw:Return True
	Next
	Return False
End Function

.Numbers
Data 10;amount
Data "0","1","2","3","4","5","6","7","8","9"
Function TestNumber(in$)
	Restore numbers
	Read amt
	For i = 1 To amt
		Read kw$
		If Asc(kw) = Asc(in) Then ObservedNumber = kw:Return True
	Next
	Return False
End Function

...

Comments

_PJ_

2010

A lot of my coding practicve follows the requirements here, Hopefully I've kept to my own rules enough to give this a try :)

I'm sure it could be really handy in some cases, though pure C++ could perhaps be a lot better than translated B3D stuff, at least this couyld get most of the groundwork done in any conversions!

Thanks for sharing MusicianKooL!

Code Archives Forum