MonkeyMax - The Return

	Method SetMatrix:Int(ix:float,iy:float,jx:float,jy:float,tx:float,ty:float)
		Local sx:Float = Sqr( (ix*ix) + (jx*jx) )
		Local sy:Float = Sqr( (iy*iy) + (jy*jy) )
		Local rot:Float = Atan2( jx, ix )
		SetTransform( rot, sx, sy )
		SetOrigin( tx, ty )
		Return 0
	EndMethod

Function BlitzMaxSetBlend(blend:Int)
	SetBlend(blend)
EndFunction

Error ""

Function error( err:String )
	If err = "" Then
		End
	Else
		RuntimeError err;
	EndIf
EndFunction

Interface Foo
	Method Bar:Void()
End

Class SomeClass Implements Foo
	Method Bar:Void()
		Print "hello world"
	End
End

Function Main()
	Local sc:SomeClass = New SomeClass
	Local f:Foo = sc
	f.Bar()
End

Type Foo Abstract
	Global implementations:TList = New TList
	Method Bar() Abstract
EndType

Type SomeClass
	Method Bar()
		Print "hello world"
	EndMethod
EndType

Foo.implementations.AddLast(TTypeId.ForName("SomeClass"))

Local sc:SomeClass = New SomeClass
Local f:Object = sc
If Foo.implementations.Contains(TTypeId.ForObject(sc)) Then
	SomeClass(f).Bar()
EndIf

'----- No problem for this part ---
Type Foo Abstract
	Global implementations:TList = New TList
	Method Bar() Abstract
EndType

'----- Easy as pie, no issues here ---
Type SomeClass
	Method Bar()
		Print "hello world"
	EndMethod
EndType

'----- Again, this can be done - but since this will be lower than the
' calls to bbMain and so on, this won't be called early enough. So it needs 
' to be inserted further up...or we can simply move the TRANSCODE block
' further up in the template. That should work ---
Foo.implementations.AddLast(TTypeId.ForName("SomeClass"))

Local sc:SomeClass = New SomeClass
Local f:Object = sc
'----- This is where the tricky part is. To do this we have to keep extra
' info in bmxtranslate, that has to be checked against each method call... ------
If Foo.implementations.Contains(TTypeId.ForObject(sc)) Then
	SomeClass(f).Bar()
EndIf

Type Foo Abstract
	Method Bar() Abstract
EndType

Type SomeClass
	Method Bar()
		Print "hello world"
	EndMethod
EndType

Local sc:SomeClass = New SomeClass
Local f:Object = sc
SomeClass(f).Bar()

Function DoSomething( f:Foo )
  f.Bar()
End

Interface Foo
	Method Bar:Void()
End

Class Test
	Method TestMethod()
		Print "Testing..."
	End
End

Class SomeClass Extends Test Implements Foo
	Method Bar:Void()
		Print "hello world"
	End
End

Function Main()
	Local sc:SomeClass = New SomeClass
	Local f:Foo = sc
	f.Bar()
End

		If decl.IsSemanted() semanted.AddLast decl

Compile Error
Missing return statement.

TRANS monkey compiler V1.30
Parsing...
Semanting...

Process Complete

	Method InsertDecl( decl:Decl )
		If decl.scope InternalErr
		
		Local ident$=decl.ident
		If Not ident Return
		
		decl.scope=Self
		decls.AddLast decl
		
		Local decls:StringMap<Object>
		Local tdecl:=declsMap.Get( ident )
		
		If FuncDecl( decl )
			Local funcs:=FuncDeclList( tdecl )
			If funcs Or Not tdecl
				If Not funcs
					funcs=New FuncDeclList
					declsMap.Insert ident,funcs
				Endif
				funcs.AddLast FuncDecl( decl )
			Else
				Err "Duplicate identifier '"+ident+"'."
			Endif
		Else If Not tdecl
			declsMap.Insert ident,decl
		Else
			Err "Duplicate identifier '"+ident+"'."
		Endif

		If decl.IsSemanted() semanted.AddLast decl ' <---- Added for MonkeyMax
	End

Strict

Import mojo

Function Main:Int()
	New Game()
	Return 0
End

Class Game Extends App
	Field circleShape:Shape = New Circle()
	
	Method OnCreate:Int()
		SetUpdateRate 60
		Return 0
	End
	
	Method OnUpdate:Int()
		Return 0
	End
	
	Method OnRender:Int()
		Cls
		DrawText "TEST", 100, 100
		circleShape.Draw()
		Return 0
	End
End

Interface Shape
	Method Draw:Void()
End

Class Circle Implements Shape
	Method Draw:Void()
		DrawOval 200, 200, 50, 50
	End
End

		If func And Not r
		
			Print( "...Dealing with " + func )

			If ENV_CONFIG<>"release" EmitLeave
			
			If Not VoidType( func.retType )
				If func.IsCtor()
					Emit "return self;"
				Else
					If func.ModuleScope().IsStrict()
						_errInfo=func.errInfo
'						Err "Missing return statement."
						Print "Missing return statement."
					Endif
					Emit "return "+TransValue( func.retType,"" )+";"
				Endif
			Endif
		Endif

Type _Object 
	Method  _ToShape:_Object()
		return _Object(null);
	EndMethod
	Method  m_Draw()
	EndMethod
EndType

Class GraphicsDevice="gxtkGraphics"

	Method Mode()
	Method Width()
	Method Height()
	
	Method LoadSurface:Surface( path$ )
	
	Method Cls( r#,g#,b# )
	Method SetAlpha( alpha# )
	Method SetColor( r#,g#,b# )
	Method SetMatrix( ix#,iy#,jx#,jy#,tx#,ty# )
	Method SetScissor( x,y,width,height )
	Method SetBlend( blend )

	Method SetTransform( tx#, ty# )
	Method SetScale( sx#, sy# )
	Method SetRotation( a# )
	
	Method DrawPoint( x#,y# )
	Method DrawRect( x#,y#,w#,h# )
	Method DrawLine( x1#,y1#,x2#,y2# )
	Method DrawOval( x#,y#,w#,h# )
	Method DrawPoly( verts#[] )
	Method DrawSurface( surface:Surface,x#,y# )
	Method DrawSurface2( surface:Surface,x#,y#,srcx,srcy,srcw,srch )
End

Function Translate( x#,y# )
	Transform 1,0,0,1,x,y
	context.device.SetTranslate( x, y )
End Function

Function Scale( x#,y# )
	Transform x,0,0,y,0,0
	context.device.SetScale( x, y )
End Function

Function Rotate( angle# )
	Transform Cos(angle),-Sin(angle),Sin(angle),Cos(angle),0,0
	context.device.SetRotation( angle )
End Function

If String(world_map.inst.minutes).Length=1

If((bb_worldmapclass_world_map.g_inst.f_minutes).length = 1) Then

		frames+=1
		Local e:=Millisecs()-time
		If e>=1000
			fps=frames
			frames=0
			time+=e
		Endif

	Method LoadString:String( path:String )
		path = "data/" + path
		Try
			Return LoadText( path )
		Catch ReadFail:Object
			Return Null
		EndTry
	EndMethod

Field map:tlQuadTreeNode[][]

Field f_map:bb_rigzcollision_tl_1Quad_1Tree_1Node[][]=New bb_rigzcollision_tl_1Quad_1Tree_1Node[[0],[0]];

=New bb_rigzcollision_tl_1Quad_1Tree_1Node[[0],[0]];

Class tlQuadTree

	Field maxlevels:Int
	Field Box:tlBox
	Field rootnode:tlQuadTreeNode
	Field maxpernode:Int
	Field areacheckcount:Int
	
	Field objectsfound:Int
	Field objectsupdated:Int
	Field totalobjectsintree:Int
	
	Field min_nodewidth:Float
	Field min_nodeheight:Float
	
'	Field map:tlQuadTreeNode[,]
	Field map:tlQuadTreeNode[][]
	
	Field dimension:Int

	#rem
		bbdoc: Create a New tlQuadTree
		returns: A New quadtree
		about: Creates a New quad tree with the coordinates And dimensions given. _maxlevels determines how many times the quadtree can be sub divided. A
		quadtreenode is only subdivided when a certain amount of objects have been added, which is set by passing _maxpernode. There's no optimum values for
		these, it largely depends on your specific needs, so you will probably do well To experiment.
	#End
	Method Create:tlQuadTree(x:Float, y:Float, w:Float, h:Float, _maxlevels:Int = 4, _maxpernode:Int = 4)
		Box = New tlBox.Create(x, y, w, h)
		maxlevels = _maxlevels
		maxpernode = _maxpernode
		rootnode = New tlQuadTreeNode.Create(x, y, w, h, Self)
		dimension = Pow(2,(maxlevels-1))'2 ^ (maxlevels - 1)
		min_nodewidth = w / dimension
		min_nodeheight = h / dimension
'		map = New tlQuadTreeNode[dimension, dimension]
		map = New tlQuadTreeNode[dimension][dimension]
		For Local x:Int = 0 To dimension - 1
			For Local y:Int = 0 To dimension - 1
'				map[x, y] = rootnode
				map[x][y] = rootnode
			Next
		Next
		rootnode.dimension = dimension
		Return Self
	End Method
	
	#rem
		bbdoc: Add a New bounding box To the Quadtree
		returns: False If the box doesn't overlap the qaudtree, otherwise True.
		about: A quadtree isn't much use without any objects. Use this to add a #tlBox to the quadtree. If the bounding box does not overlap the 
		quadtree Then Null is returned.
	#End
	Method AddBox:Int(r:tlBox)
		If Box.BoundingBoxOverlap(r)
			r.quadtree = Self
			rootnode.AddBox(r)
			totalobjectsintree+=1
			Return True
		Else
			Return False
		End If
	End Method

	#rem
		bbdoc: Query the Quadtree To find objects with an area
		about: When you want To find objects within a particular area of the quadtree you can use this Method.  Pass the area coordinates And dimensions
		that you want to check, an object that can be anything that you want To pass through To the callback Function, And the Function callback that you want 
		To perform whatever tasks you need on the objects that are found within the area.
		The callback Function you create needs To have 2 parameters: ReturnedObject:Object which will be the tlBox/circle/poly, And Data:Object which can be
		and object you want to pass through to the call back Function.
	#End
	
	#rem
		bbdoc: Find out how many objects are currently in the quadtree
		returns: Number of Total Objects in Tree
		about: Use this To retrieve the total amount of objects that are stored in the quadtree.
	#End
	Method GetTotalObjects:Int()
		Return totalobjectsintree
	End Method
	
	#rem
		bbdoc: Perform some house keeping on the quadtree
		about: This will search the quadtree tree For any empty #tlQuadTreeNodes And unpartition them If necessary. 
	#End
	Method RunMaintenance()
		rootnode.UnpartitionEmptyQuads()
	End Method
	
	#rem
		bbdoc: Draw the quadtree
		about: This can be used For debugging purposes. *Warning: This will be very slow If the quadtree has more Then 6 Or 7 levels!*
	#End
	Method Draw(offsetx:Float = 0, offsety:Float = 0)
		rootnode.Draw(offsetx, offsety)
	End Method
	
	'Internal Stuff-----------------------------------
	Method UpdateRect(r:tlBox)
		'This is run automatically when a tlBox decides it needs to be moved within the quadtree
		r.RemoveFromQuadTree()
		objectsupdated+=1
		AddBox(r)
	End Method

	Method GetQuadNode:tlQuadTreeNode(x:Float, y:Float)
		Local tx:Int = x / min_nodewidth
		Local ty:Int = y / min_nodeheight
		If tx >= 0 And tx < dimension And ty >= 0 And ty < dimension
'			Return map[tx, ty]
			Return map[tx][ty]
		End If
		Return Null
	End Method
End