MonkeyMax - Part 3

Method  m_GetClass:bb_reflection__1Class_1Info(t_o:_Object)
		If(((ThrowableObject)((t_o))) <> ThrowableObject(Null)) Then

bb_generation__1P_1M_1Data=[new Int[t_tm_1H],new Int[][0],new Int[0]]

PMData = New Bool[tmH][][]

public bb_reflection_ClassInfo m_GetClass(Object t_o){
		Object t_=t_o;
		if((t_ instanceof ThrowableObject ? (ThrowableObject)t_ : null)!=null){
			return bb_reflection.bb_reflection__classes[10];
		}

Strict
Import mojo
Import utils.arrays

Class MyApp Extends App
	Field arr2d:Int[][]
	Field printed:Bool = false

	Method OnCreate:Int()
		SetUpdateRate 30
		arr2d = Arrays<Int>.Create2d(5,5)
		arr2d = Arrays<Int>.Clear2d(arr2d, 111)
		Return 0
	end
	
	Method OnLoading:Int()
		Return 0
	end
	
	Method OnSuspend:Int()
		Return 0
	end
	
	Method OnUpdate:Int()
		If printed = False
			Print(arr2d[1][1])
			printed = true
		Endif
		Return 0
	End
	
	Method OnRender:Int()
		Return 0
	End
End

Function Main:Int()
	New MyApp
	Return 0
End

local b:Int = 2;
local a:Int = 2;
local c:Int = 1;
If (a=2) and (b=2) and (Not c=2)
 print ("It works");
EndIf  

Target   | Result
---------+--------
BlitzMax | 512000
Flash    | 26214400
HTML5    | 26214400
GLFW     | 0
XNA      | 26214400
STDCPP   | 26214400

The following code:

int i=1;
printf("%d %d %d\n", i++, i++, i);

results in

2 1 3 - using g++ 4.2.1 on Linux.i686
1 2 3 - using SunStudio C++ 5.9 on Linux.i686
2 1 3 - using g++ 4.2.1 on SunOS.x86pc
1 2 3 - using SunStudio C++ 5.9 on SunOS.x86pc
1 2 3 - using g++ 4.2.1 on SunOS.sun4u
1 2 3 - using SunStudio C++ 5.9 on SunOS.sun4u

padsp ./MonkeyGame

ONE!
TWO!
THREE!
TWO!
THREE!
TWO!
THREE!
TWO!
THREE!
TWO!
THREE!
TWO!
FOUR!

ONE!
TWO!
THREE!
THREE!
THREE!
THREE!
THREE!
FOUR!

Local i:Float = 0.1
Local testLimit:Float = 0.2
Local testLimitAnother:Float = 0.4

Select True
Case i > testLimit

Case i > testLimitAnother

End

If(t_ = t_i > t_land_1Low) Then

Method StopChannel( channel:Int )
	Local chan:gxtkChannel = channels[channel]
		
	If chan.state <> 0
		chan.channel.Stop()
		chan.state=0
	EndIf
EndMethod

gxtkAudio.prototype.StopChannel=function( channel ){
	var chan=this.channels[channel];
	
	if( chan.state!=0 ){
		chan.audio.pause();
		chan.state=0;
	}
}

Case "pow" Return Bra(arg0)+"^"+arg1

Case "pow" Return "(" + Bra(arg0) + "^" + Bra(arg1) + ")"

'incorrect results for both cases
Pow(2, 10 * (t - 1))
-Pow(2, -10 * t) + 1

' No BlitzMax implementation
'
' AppPath : String ()
' Execute : Int ( cmd:String )
' ExitApp : Int ( retcode:Int )
' GetEnv : String ( name:String )
' HostOS : String ()
' LoadDir : String[] ( path:String, recursive:Bool, hidden:Bool )
'
' Implementation but different?
'
' CreateDir : Int ( path:String ) - NATIVE but has second recursive=False option
' ExitApp : Int ( retcode:Int )   - End command?
' GetEnv : String ( name:String ) - _GetEnv ?
' LoadDir : String[] ( path:String ) - NATIVE but has second skipdots=True option
'
' Maybe implemented?
'
' SetEnv : Int ( name:String, value:String ) - does _SetEnv exist ?

#end

#elseif TARGET="bmax"

	Import "native/os.bmx"

	Extern

	Function HostOS$() = "BmaxHostOS"
	Function AppPath$() = "BmaxAppPath"
	Function AppArgs$[]() = "BMaxAppArgs"
	Function RealPath$( path$ ) = "RealPath"
	Function FileType( path$ ) = "FileType"
	Function FileSize( path$ ) = "FileSize"
	Function FileTime( path$ ) = "FileTime"
	Function CopyFile( src$,dst$ ) = "CopyFile"
	Function DeleteFile( path$ ) = "DeleteFile"
	
	Function SaveString( str$,path$ ) = "SaveString"
	Function LoadDir$[]( path$ ) = "LoadDir"
	Function CreateDir( path$ ) = "CreateDir"
	Function DeleteDir( path$ ) = "DeleteDir"
	Function ChangeDir( path$ ) = "ChangeDir"
	Function CurrentDir$() = "CurrentDir"
	Function SetEnv( name$,value$ ) = "BMaxSetEnv"
	Function GetEnv$( name$ ) = "getenv_"
	Function Execute( cmd$ , silent = True ) = "BmaxExecute"
	Function ExitApp( retcode = 0 ) = "BmaxEnd"

	Public
	

#end

Function BmaxEnd(ret:Int)
	End
EndFunction

Function BmaxAppPath$()
	Return AppDir
EndFunction

?Win32

Function BMaxExecute( tCommand:String, tSilent:Int = True )

	' start doesnt work unless called via a CMD prompt (env var issue?)
	'If tSilent = True
	'	system_( "start "+tCommand )
	'Else
		system_( tCommand )
	'EndIf
	
EndFunction	

?Linux

Function BMaxExecute( tCommand:String, tSilent:Int = True )

	If tSilent = True
		system_( tCommand+" &" )
	Else
		system_( tCommand )
	EndIf
	
EndFunction

?


Function BMaxAppArgs:String[]()
	Return AppArgs
EndFunction

Function BmaxSetEnv( name$, value$ )
	putenv_ name+"="+value
EndFunction

Function BmaxHostOS$()
?Win32
	Return "win32"
?MacOS
	Return "macos"
?Linux
	Return "linux"
?
EndFunction

Case "fromchars" Return "string_from_chars" + Bra(arg0)

Function string_from_chars:String(chars:Int[])
	' --- this will replicate monkeys FromChars string function ---
	'seems like it would be the fastest option to build a short array and then convert it in 1 call
	'build temp short array
	Local converted:Short[chars.length]
	For Local index:Int = 0 Until chars.length
		converted[index] = Short(chars[index])
	Next
	
	'convert and return short array
	Return String.FromShorts(converted, converted.length)
End Function