Blitzmax2java 'convertor'

BlitzMax Forums/BlitzMax Programming/Blitzmax2java 'convertor'

slenkar

(Posted 2009) [#1]

here is a little blitzmax to java convertor
you may want to port your game to mobile device
would using regular expressions help to improve it?


Strict

Local t$="YOUR BMX FILE"
Local source:TStream=ReadFile(t)

Local javafile:TStream=WriteFile("JAVAFILE.java")

While Not Eof(source)

Local string_array$[]= ReadLine(source).split(" ")
For Local xy=0 To string_array.length-1

Select string_array[xy]
Case "True"
string_array[xy]="true"
Case "False"
String_array[xy]="false"
Case "Null"
string_array[xy]="null"
Case "<>"
string_Array[xy]="!="
Case "Self."
string_Array[xy]="this."
Case "DrawImage","SetScale","SetColor","SetRotation","DrawText"
string_array[xy]="gldraw."+string_array[xy]
Case "Super."
string_array[xy]="super."
EndSelect

If string_array[xy].find("Self.")>-1
string_array[xy]=string_array[xy].Replace("Self.","this.")
EndIf
If string_array[xy].find("<>")>-1
string_array[xy]=string_array[xy].Replace("<>","!=")
EndIf
If string_array[xy].find("True")>-1
string_array[xy]=string_array[xy].Replace("True","true")
EndIf
If string_array[xy].find("False")>-1
string_array[xy]=string_array[xy].Replace("False","false")
EndIf
If string_array[xy].find("Null")>-1
string_array[xy]=string_array[xy].Replace("Null","null")
EndIf
If string_array[xy].find("Super.")>-1
string_array[xy]=string_array[xy].Replace("Super.","super.")
EndIf
If string_array[xy].find("addlast")>-1
string_array[xy]=string_array[xy].Replace("addlast","add")
EndIf
If string_array[xy].find("MilliSecs()")>-1
string_array[xy]=string_array[xy].Replace("MilliSecs()","System.nanoTime()")
EndIf

If string_array[xy].find("DrawImage")>-1
string_array[xy]="gldraw.DrawImage"
EndIf
If string_array[xy].find("TextWidth")>-1
string_array[xy]="gldraw.TextWidth"
EndIf
If string_array[xy].find("ImageWidth")>-1
string_array[xy]="gldraw.ImageWidth"
EndIf
If string_array[xy].find("TextHeight")>-1
string_array[xy]="gldraw.TextHeight"
EndIf

Next
Local add_colon=False

For Local x=0 To string_array.length-1
If String_array[x]<>" "
DebugLog "found "+string_array[x]
String_array[x]=Trim(String_array[x])
Select string_array[x]
Case "'"
String_array[x]="//"
Case "Method"

Local next_word$=string_array[x+1]
string_Array[x]="public void "+next_word
string_array[x+1]=""
string_array[string_array.length-1]:+" {"

Case "Function"

Local next_word$=string_array[x+1]
string_Array[x]="public static void "+next_word
string_array[x+1]=""
string_array[string_array.length-1]:+" {"


Case "If"
string_array[x]="if ("
For Local y=0 To string_array.length-1
Select string_array[y]
Case "Or"
string_array[y]="||"
Case "And"
string_array[y]="&&"
Case "="
string_array[y]="=="
EndSelect
Next
string_array[string_array.length-1]:+") {"
Case "Type" 
Local next_word$=string_array[x+1]
If string_array[string_array.length-1]="Abstract"
string_Array[x]="public abstract class "+next_word+"{"
string_array[x+1]=""
string_array[string_array.length-1]=""
Else
string_Array[x]="public class "+next_word+"{"
string_array[x+1]=""
EndIf
Case "Field","Local","Global"

add_colon=True
Local next_word$=string_array[x+1]
Local static=False

If string_array[x]="Global"
static=True
EndIf

If next_word.find(":")>-1

Local o$[]=next_word.split(":")
If o[1]="Float"
o[1]="float"
EndIf
If o[1]="Int"
o[1]="int"
EndIf
string_array[x]=o[1]+" "+o[0]
string_Array[x+1]=""

Else

Select Right(next_word,1)
Case "#"
string_array[x]="float"
Case "$"
string_array[x]="String"
Default 
string_array[x]="int"
EndSelect


EndIf

If static=True
string_array[x]="static "+string_array[x]
EndIf

Case "Else"
string_array[x]="}else{"
Case " "
Case ""
Case "Return"
add_Colon=True
string_Array[x]="return"
Case "EndIf","EndSelect","EndMethod","EndFunction","EndType","Next","Wend","Forever","End Function","End Method"
string_array[x]="}"
Default
add_colon=True
EndSelect
Exit
EndIf
Next

For Local x=0 To string_array.length-1
WriteString(javafile,string_array[x]+" ")
Next

If add_colon=True
WriteString(javafile,";"+"~n")
Else
WriteString(javafile,"~n")
EndIf

Wend
CloseFile(javafile)
CloseFile(source)

its not perfect by any means,
function arguments are not converted, and some other imperfections are there, e.g. FOR and NEXT
You also need gldraw.java to emulate max2d
which is based on my unofficial glmax2d
you will need to know java to complete full conversion of a game.

ImaginaryHuman

(Posted 2009) [#2]

Does this alleviate the dependency on blitzmax's modules, ie convert your code to java and java handles all of the other functionality? Does java thus replace all of bmax's module functionality?

theHand

(Posted 2009) [#3]

No, he's saying it's different. Java is a different programming language and your games will be inherently limited because of Java's VM base!
Because Java is inherently slower than other languages, everyone would do well to write any programs they intend to run in a Java RTE in Java, and not in a different language, so that they run as fast as possible (you're going to want them to). The difference in speed, due to abstraction, might be comparable (comparison for Linux users only) to the difference between opening a PDF with xpdf and opening the same PDF with acroread (Adobe's reader).

I think you're going off on a tangent, slenkar.
If you are trying to develop for mobile platforms, you might consider GLBasic. I would have went for it instead of BlitzMax, but (and don't take this the wrong way) it seems to be developed and supported almost entirely by one person.

N	(Posted 2009) [#4]

I think you'd find it easier to write a proper parser for BlitzMax and compile to Java using the information gained from the parser.

theHand

(Posted 2009) [#5]

Well how do you account for Java's networking or multithreaded capabilities?

I'm not trying to say that your efforts don't mean anything, slenkar (if someone wants to write a complete Java parser for BlitzMax then I encourage them to do so); I just want people to be informed of what a move to Java means for them.

EOF	(Posted 2009) [#6]

Interesting Slenkar

I am using BlitzMax2Mobile (my project) but instead relying on MobileProcessing as an interface for graphics, audio, Key/Touch input, fonts etc ...

Java can be a royal pain to get working and you begin to realise how fussy it is.

* Functions which are non-void types MUST return something (BlitzMax defaults to False if nothing is stated)
* The Switch{} needs break's to split up Cases
* The Java compiler complains at simple things such as using padding in values. E.g, myvar[008]=76 // *Doink* 008 causes errors

A quick example of how my auto-translation is going:

BlitzMAX

Function GrowVeg()
	For Local x=0 To 3
		For Local y=0 To 4
			If vegplot[x,y]<>0
				If waterplot[x,y]<>0 Then vegplot[x,y]:+1
			EndIf
			waterplot[x,y]=0
		Next
	Next
EndFunction

Function isRipe(thisveg) 'bool
	If thisveg=4 Or thisveg=8 Or thisveg=12
		Return True
	EndIf
	Return False
EndFunction

JAVA

void GrowVeg(){
	for (int x=0;x<=3;x++){
		for (int y=0;y<=4;y++){
			if (vegplot[x][y]!=0){
				if (waterplot[x][y]!=0) {vegplot[x][y]+=1;}
			}
			waterplot[x][y]=0;
		}
	}
}

boolean isRipe(int thisveg){
	if ((thisveg==4) | (thisveg==8) | (thisveg==12)){
		return true;
	}
	return false;
}

Using gl sounds interesting. I've been wanting to avoid using MobileProcessing since its support is lacking and I would rather go straight from Max code to Java -> WTK emulation launch

What are you using to compile and test your java code?

Pharmhaus

(Posted 2009) [#7]

A quick example of how my auto-translation is going:

Looks intersting, Jim!

Does java thus replace all of bmax's module functionality?

I think 'simple' things like types, functions etc. are convertable but internal functions/types would need hard work to convert. Also i don't know whats about copyright and so on of the BRL modules?!

okee	(Posted 2009) [#8]

Just for anyone that might find it useful.
jabaco

slenkar

(Posted 2009) [#9]

Jim Brown-

Im using Eclipse, its slow going, my convertor isnt very good :)