Xmas demo out!

[PhilMac:~/Downloads/monkey2/src philippeback$] ./rebuildall.sh
TRANS monkey compiler V1.86
Parsing...
Semanting...
Translating...
Building...
Installing mx2cc

MX2CC monkey2 compiler V0.001
Configured with: --prefix=/Applications/Xcode.app/Contents/Developer/usr --with-gxx-include-dir=/usr/include/c++/4.2.1

Apple LLVM version 6.1.0 (clang-602.0.53) (based on LLVM 3.6.0svn)
Target: x86_64-apple-darwin14.5.0
Thread model: posix

Making module: <monkey.monkey2>
Parsing...
Semanting...
Translating...
Compiling...
Archiving...
Making module: <lib.monkey2>
Parsing...
Semanting...
Translating...
Compiling...
Archiving...
Making module: <std.monkey2>
Parsing...
Semanting...
Translating...
Compiling...

Command failed:
g++  -std=c++11 -Wno-deprecated-declarations -Wno-tautological-pointer-compare -Wno-undefined-bool-conversion -Wno-int-to-void-pointer-cast -Wno-inconsistent-missing-override -Wno-logical-op-parentheses -Wno-undefined-inline -g -O0 -I"." -I"/Users/philippeback/Downloads/monkey2/modules/std/std.buildv001/build_cache/desktop_debug_macos" -I"/Users/philippeback/Downloads/monkey2/modules/std/std.buildv001/desktop_debug_macos" -I"/Users/philippeback/Downloads/monkey2/modules/lib/lib.buildv001/desktop_debug_macos" -I"/Users/philippeback/Downloads/monkey2/modules/lib/hoedown/hoedown/src" -I"/Users/philippeback/Downloads/monkey2/modules/lib/sdl2/SDL/include" -I"/Users/philippeback/Downloads/monkey2/modules/lib/sdl2mixer/SDL_mixer" -I"/Users/philippeback/Downloads/monkey2/modules/lib/litehtml/litehtml/include" -I"/Users/philippeback/Downloads/monkey2/modules/monkey/monkey.buildv001/desktop_debug_macos" -I"/Users/philippeback/Downloads/monkey2/modules/monkey/native" -c -o "/Users/philippeback/Downloads/monkey2/modules/std/std.buildv001/build_cache/desktop_debug_macos/native_2filesystem.cpp.o" "/Users/philippeback/Downloads/monkey2/modules/std/native/filesystem.cpp" 2>tmp/tmp0.txt


***** Error *****

warning: unknown warning option '-Wno-inconsistent-missing-override' [-Wunknown-warning-option]
/Users/philippeback/Downloads/monkey2/modules/std/native/filesystem.cpp:171:8: error: use of undeclared identifier 'getcwd'
                        if( getcwd( buf,PATH_MAX )<0 ) return "";
                            ^
/Users/philippeback/Downloads/monkey2/modules/std/native/filesystem.cpp:189:11: error: use of undeclared identifier 'chdir'
                        return chdir( path.toUtf8String() );
                               ^
1 warning and 2 errors generated.

?[?] : Error :Execute failed

MX2CC monkey2 compiler V0.001
Configured with: --prefix=/Applications/Xcode.app/Contents/Developer/usr --with-gxx-include-dir=/usr/include/c++/4.2.1

Apple LLVM version 6.1.0 (clang-602.0.53) (based on LLVM 3.6.0svn)
Target: x86_64-apple-darwin14.5.0
Thread model: posix

Parsing...
Semanting...
Translating...
Compiling...

Command failed:
g++  -std=c++11 -Wno-deprecated-declarations -Wno-tautological-pointer-compare -Wno-undefined-bool-conversion -Wno-int-to-void-pointer-cast -Wno-inconsistent-missing-override -Wno-logical-op-parentheses -Wno-undefined-inline -g -O0 -I"." -I"/Users/philippeback/Downloads/monkey2/src/ted2/ted2.buildv001/build_cache/desktop_debug_macos" -I"/Users/philippeback/Downloads/monkey2/src/ted2/ted2.buildv001/desktop_debug_macos" -I"/Users/philippeback/Downloads/monkey2/modules/mojo/mojo.buildv001/desktop_debug_macos" -I"/Users/philippeback/Downloads/monkey2/modules/mojo2/mojo2.buildv001/desktop_debug_macos" -I"/Users/philippeback/Downloads/monkey2/modules/std/std.buildv001/desktop_debug_macos" -I"/Users/philippeback/Downloads/monkey2/modules/lib/lib.buildv001/desktop_debug_macos" -I"/Users/philippeback/Downloads/monkey2/modules/lib/hoedown/hoedown/src" -I"/Users/philippeback/Downloads/monkey2/modules/lib/sdl2/SDL/include" -I"/Users/philippeback/Downloads/monkey2/modules/lib/sdl2mixer/SDL_mixer" -I"/Users/philippeback/Downloads/monkey2/modules/lib/litehtml/litehtml/include" -I"/Users/philippeback/Downloads/monkey2/modules/monkey/monkey.buildv001/desktop_debug_macos" -I"/Users/philippeback/Downloads/monkey2/modules/monkey/native" -c -o "/Users/philippeback/Downloads/monkey2/src/ted2/ted2.buildv001/build_cache/desktop_debug_macos/ted2_ted2.cpp.o" "/Users/philippeback/Downloads/monkey2/src/ted2/ted2.buildv001/build_cache/desktop_debug_macos/ted2_ted2.cpp" 2>tmp/tmp1.txt


***** Error *****

warning: unknown warning option '-Wno-inconsistent-missing-override' [-Wunknown-warning-option]
/Users/philippeback/Downloads/monkey2/src/ted2/ted2.buildv001/build_cache/desktop_debug_macos/ted2_ted2.cpp:6:10: fatal error: 'modules/mojo/mojo.buildv001/desktop_debug_macos/mojo_app.h' file not found
#include <modules/mojo/mojo.buildv001/desktop_debug_macos/mojo_app.h>
         ^
1 warning and 1 error generated.

?[?] : Error :Execute failed
[PhilMac:~/Downloads/monkey2/src philippeback$]

GCC_EXEC_PREFIX=

Class NotifyDialog Extends Dialog
	Field Okay:Void()
	Method New( title:String,text:String,width:Int,height:Int )
		Super.New( title,width,height )
		ContentView=New View
		ContentView.Label=text
		'-------
		AddAction( "Okay" ).Triggered=Lambda()
			Okay()
		End
                '-------
	End' of method
	
End' of class

		_title.Dragged=Lambda( delta:Vec2i )
			Translation=Translation+delta
		End

Field Okay:Void()

		'-------
		AddAction( "Okay" ).Triggered=Lambda()
			Okay()
		End
                '-------

Class Action

	Field Triggered:Void()
....

Local dialog:=New NotifyDialog
dialog.Okay=Lamba()
    Print "Okay!"
End

Local button:=New Button( "My Button" )
button.Clicked=Lambda()
   'when the button is clicked, this code is run!
   'the code can see the 'button' var, and, if we're in a  method, the fields of the object.
End

Local button:=New Button( "My Button" )
button.Clicked=Lambda() 'Note: could be a method, function etc instead of a lambda...
'when the button is clicked, this code is run!
'the code can see the 'button' var, and, if we're in a method, the fields of the object.
End

Local myFunction := Lambda(item:Int) item < 2

Local myList:=New List<String>
....
Local firstItemStartingWithM := myList.First(Lambda(item) item.StartsWith("M"))

if myStringsList.Any(Lambda(item) item.Trim().Length=0) Then Print "The list has empty strings!!"

button.OnClick = Function()
    Print("Button clicked!")
End

protected IEnumerator MoveTo( Vector3 end, float seconds ) {
		float elapsedTime = 0;
		Vector3 start = rb2D.position;

		while( elapsedTime <= seconds * .999f ) {
			elapsedTime += Time.deltaTime * inverseMoveTime;
			rb2D.MovePosition(Vector3.Lerp(start,end,elapsedTime));
			yield return null;
		}
		transform.position = end;
	}
}

button.OnClick = Function()
                    Print("Button clicked!")
                 End

button.OnClick = Lambda()
                    Print("Button clicked!")
                 End

Local myFunction:=Lambda:Bool( item:Int )
   Return item<2
End

Local firstItemStartingWithM:=myList.First( Lambda:Bool( item:String )
    Return item.StartsWith( "M" )
End )

If myStringsList.Any( Lambda:Bool( item:String )
   Return item.Trim().Length=0
End ) Then Print "The list has empty strings!!"

Yield Wait(3.0)
and
Yield Lambda()
End

New OneShotTimer( 3.0 ).Fired=Lambda()
    'do something after 3 seconds!
End

New OneShotTimer( 0.0 ).Fired=Lambda()
    'do something on next update!
End

App.Idle+=Lambda()
    'do something on next update!
End

public IEnumerator<T> GetEnumerator() {
	foreach( T v in storage.Values ) yield return v;
}

Function Run:Int( title:String )
   Local result:=New Future<Int>   'effectively a semaphore/result pair.
   Local dialog:=New ConfirmDialog( title )
   dialog.Okay=Lambda()
      result.Set( 1 )   'sets results, signals semaphore...
   End
   dialog.No=Lambda()
      result.Set( 0 )
   End
   dialog.Cancel=Lambda()
      result.Set( -1 )
   End
   Return result.Get()   'waits for semaphore, returns result.
End

Method OnCloseAll() Async
   For Local file:=Eachin OpenFiles
      If file.Modified
         Select ConfirmDialog.Run( "File has been modified - save?" )   'blocking call!
         Case 1
            file.Save()
         Case 0
         Case -1
            Exit
         End
      Endif
End

Function Wait( seconds:Double )
   Local result:=New Semaphore
   New OneShotTimer( seconds ).Ticked=Lambda()
      result.Signal()
   End
   result.Wait()
End

Function WaitIdle()
   Local result:=New Semaphore
   App.Idle+=Lambda()   'App.Idle is the nearest monkey2 has to an 'update tick' right now!
      result.Signal()
   End
   result.Wait()
End

Function LevelComplete() Async
   
   MainView.Content=LevelCompleteView   'show LevelComplete page...
   Wait( 5 )   'wait 5 seconds
   For Local y:=0 Until MainView.Height  'slide down...
      MainView.y=y
      WaitIdle()   'VWait
   Next
End

Class Lander Extends Enemy

   Method Run() Async   'only returns when we die!

      While Alive
         'update stuff here...
         WaitIdle()
      Wend
   End

End

#Import "<mojo.monkey2>"

Using std
Using mojo
Using mojo2

Class MyWindow Extends Window

    Field func:Void(canvas:Canvas)

    Method New()
        Super.New( "Hello World Window",0,0,640,480,WindowFlags.Center )
        Destroyed=App.Terminate
        ClearColor=Color.DarkGrey

        func = 
               Lambda:Void(c:Canvas)
                   c.SetColor( 1,1,0,1 )
                   c.DrawText( "Hello World!",ClientRect.Width/2,ClientRect.Height/2,.5,.5 )
               End
    End

    Method OnRender( canvas:Canvas ) Override
        func(canvas)
    End
End

Function Main()
    New AppInstance
    New MyWindow
    App.Run()
End

canvas.SetColor( 1,1,0,1 )

canvas.SetColor( $FFFF00FF )             ' not really cross-platform

canvas.SetColor( RGBA($FF,$FF,$00,$FF) ) ' cross-platform using macros
canvas.SetColor( RGBA(1,1,0,1) )

canvas.SetColor( RGB($FF,$FF,$00) )
canvas.SetColor( RGB(1,1,0) )

Method LevelComplete() Async

   MainView=LevelCompleteView  'change main view.

   Wait( 5 )  'wait 5 seconds.

   For Local y:=0 Until MainView.Height

      MainView.Translate( 0,y )  'scroll main view down...

      Wait( 0 ) 'wait for next 'frame'.

   Next

End

Function StartFiber:Int( entry:Void() )
Function SwitchToFiber:Void( fiber:Int )
Function GetCurrentFiber:Int()

Class MyWindow Extends Window

	Method New()
		Super.New( "My Window",0,0,640,480,WindowFlags.Center )
		
		Destroyed=App.Terminate
		
		StartFiber( Yeehaa )
	End
	
	Method Yeehaa()
	
		For Local i:=0 Until 256
			ClearColor=New Color( 1,0,i/255.0,1 )
			App.RequestRender()
			WaitFrame()
		Next
	End
End

Function WaitFrame()

	Local fiber:=GetCurrentFiber()
	
	App.Idle+=Lambda()
		SwitchToFiber( fiber )
	End
	
	SwitchToFiber( 0 )
End

Class IntGenerator Extends Generator<T>

   Method New( min:Int,max:Int )
      Start( Lambda()   'ok, this is a bit funky, but necessary for now...
         For Local i:=min To max
            Yield( i )
         Next
      End )
   End

End

Function Main()
   Local gen:=New IntGenerator( 1,10 )
   While gen.HasNext
      Print gen.NextValue
   Wend
End

StartFiber:Int( entry:Void(), coreThread:int )

GeneratorFiberCode()
   'do the 'yield' loop...
   _finished=true
   SwitchToFiber( _parent )
End

GeneratorFiberCode:Int()  'returns fiber to switch to after we've finished and have been cleaned up/deallocated etc.
    'do the 'yield' loop
   _finished=True
  Return _parent
End

'a signal! To 'raise', simply call GameOver().
Global GameOver:Void()

Class Actor

   'another object signal
   Field Destroyed:Void()

   Method New()

      GameOver+=Lambda()  'this adds a 'listener' to GameOver.
      End

      Destroyed+=Lambda()
         'ditto, this called when actor destroyed - maybe cancel fibers here? maybe have fibers groups? A fiber hierarchy?
      End

   End

End

'what the 'CloseAll button' does..
CloseAllAction.Triggered=Lambda()   'when Close All is clicked...
   StartFiber( Lambda:Int()    'we start a fiber...
      '
      '...which can now 'block' without blocking the gui!
      '
   End )
End

'what the 'CloseAll button' does..
CloseAllAction.Triggered=LambdaFiber(
      '
      '...which can now 'block' without blocking the gui!
      '
End

Function MyWaitFrame() ' gui elements would still use the standard WaitFrame
	Local fiber:=GetCurrentFiber()
	
	App.Idle+=Lambda()		' is this a stack or does this Lambda have to be removed from App.Idle somewhere?
		If game.state <> state.paused
			SwitchToFiber( fiber )
		End
	End
	
	SwitchToFiber( 0 )
	
End

StartFiber:Int( entry:Void() )    'create a running fiber - same as create followed by resume...
CreateFiber:Int( entry:Void() )   'create a suspended fiber
ResumeFiber( fiber:Int )      'resume a suspended fiber
TerminateFiber( fiber:Int )    'terminate a fiber
SuspendFiber()     'suspend current fiber
CurrentFiber:Int()    'get current fiber.

Function WaitFrame()
   Local fiber:=CurrentFiber()
   App.Idle+=Lambda()
      ResumeFiber( fiber )
   End
   SuspendFiber()
End

Function ResumeFiber( fiber )
   readyStack.Push( CurrentFiber() )   'push current fiber on global readyStack.
   SwitchToFiber( fiber )                      'wake up suspended fiber
End

Function SuspendFiber()
   If readyStack.Empty Throw New IllegalOperation( "Fiber stack is empty!" )
   SwitchToFiber( readyStack.Pop() )  'back to next 'ready' fiber. We are now 'suspended'.
End

player1.OnCollision += soundPlayer.PlayCollision
player1.OnCollision += screen.Flash

Field OnMouseMove:Void( x:Int, y:Int )
Field OnSomething:Int( e:EventArgs )

Function MyWaitFrame(o:object)
	Local fiber:=CurrentFiber()
	App.Idle+=Lambda(o:object)
		IF (entity)o.IsAlive
			ResumeFiber( fiber )
		Else
			CancelFiber( fiber )
		End
	End
	SuspendFiber()
End

#Import "<mojo.monkey2>"
#Import "<mojo2.monkey2>"
#Import "<std.monkey2>"

Import <mojo.monkey2>
Import <mojo2.monkey2>
Import <std.monkey2>

Import "myfile.monkey2"

Import "style.css"
Import "stargatesprites.png"

Function Main()
    Print("Hello World!")
End

#Import "<std.monkey2>"

Using std  'for List, Stack, filesystem etc...

Function Main()
   Print "Hello World!"
End

Local points:POINT[] Ptr = AllocateMemory( sizeOf( POINT ) * 15 )
Local points:POINT[] Ptr = AllocateStructure( POINT, 15 )

Local points:POINT Ptr[] = AllocateMemory( sizeOf( POINT ) * 15 )
Local points:POINT Ptr[] = AllocateStructure( POINT, 15 )

MainFile:
   Import Mojo2
   Include File2

Class MyClass Extends BaseClass

   Field x:Float
   Field y:Float
   Field vx:Float
   Field vy:Float

   Method Update()
	Print( "Updating!" )
	x+=vx
	y+=vy
   End
End

class MyClass extends BaseClass

    float x,y,vx,vy

    method Update
        put "Updating!"
        x+=vx
        y+=vy

Global:Int x, y, z
Local:Float f1, f2 = 5.0, f3
Field:Player p1, p2, p3
Local:Int[] arr1 = [], arr2 = [10,20,30]

Field x,y,vx,vy:Float

Class MyClass Extends BaseClass

   Field x:Float
   Field y:Float
   Field vx:Float
   Field vy:Float

   Method Update()
	Print( "Updating!" )
	x+=vx
	y+=vy
   End
End

Class MyClass Extends BaseClass

   Field:Float x, y, vx, vy

   Method Update()
	Print( "Updating!" )
	x+=vx
	y+=vy
   End
End

Local x:Float, y:Float, vx:Float, vy:Float

Local:Float x, y, vx, vy

' empty line
#Import "<lib.monkey2>"        ' Import a library/framework

Struct Point
    Field x:Int
    Field y:Int
End

Function Main()
    Local pt:Point
    Print("sizeof(pt):")
    Print( lib.c.sizeof(pt)  ) ' use Function sizeof with full namespace
    Print("---")
End

' empty line
#Import "<lib.monkey2>"        ' Import a library/framework

Using lib                      ' We are using namespace 'lib' -
                               ' That means, everything from namespace 'lib'
                               ' becomes directly available within the global namespace

Struct Point
    Field x:Int
    Field y:Int
End

Function Main()
    Local pt:Point
    Print("sizeof(pt):")
    Print( c.sizeof(pt)  )      ' use Function c.sizeof - we don't need to write lib.c.sizeof() anymore,
                                ' because we did 'Using lib' to use everything from this namespace directly
    Print("---")
End

' empty line
#Import "<lib.monkey2>"        ' Import a library/framework

Using lib.c                    ' We are using namespace 'lib.c' -
                               ' That means, everything from namespace 'lib.c'
                               ' becomes directly available within the global namespace

Struct Point
    Field x:Int
    Field y:Int
End

Function Main()
    Local pt:Point
    Print("sizeof(pt):")
    Print( sizeof(pt)  )        ' use Function sizeof - we don't need to write lib.c.sizeof() anymore,
                                ' because we did 'Using lib.c' to use everything from this namespace directly
    Print("---")
End

#Import "native/lib/somelib.a"   'local import of a static link library.

#Import "<libwinmm.a>"     'system lib import - specify actual filename here, not -l name.

x = y = z = 3

Function dlsym:Void Ptr(handle:Void Ptr, symbolName:String)
Function GetProcAddress:Void Ptr(handle:Void Ptr, symbolName:String)

#Import "<dlfcn.h>"

Alias pMyFunc:Int()

Extern
    Const RTLD_LAZY:Int
    Const RTLD_NOW:Int
    Const RTLD_GLOBAL:Int
    Const RTLD_LOCAL:Int

    Function dlopen:Void Ptr(path:String, mode:Int = RTLD_LAZY|RTLD_GLOBAL)
    Function dlclose:Int(handle:Void Ptr)
    Function dlerror:String()
    Function dlsym:Void Ptr(handle:Void Ptr, symbolName:String)
Public

Function Main()
    Print("---")
    Local myfunc:pMyFunc
    
    Local lib := dlopen("/Users/danilo/myfile.dylib") ' OK
    Print( lib )                                      ' OK
    If lib
        Print( dlsym(lib, "myfunc") )                 ' OK
        Print( dlsym(lib, "myfunc2") )                ' OK
        
        myfunc = dlsym(lib, "myfunc")                 ' Error : Can't convert from type 'void ptr' to type 'int()'
        pMyFunc( dlsym(lib, "myfunc") )()             ' Error : Can't convert from type 'void ptr' to type 'int()'
        myfunc = Cast<pMyFunc>( dlsym(lib, "myfunc") )' Error : Can't convert from type 'void ptr' to type 'int()'
        
        dlclose(lib)                                  ' OK
    Else
        Print( dlerror() )                            ' OK
    Endif
End

g++ -framework Cocoa -ffreestanding -x objective-c -c myfile.cpp -o myfile.o

g++ -shared -framework Cocoa --target=x86_64 -ffreestanding -o myfile.so -fPIC myfile.o
g++ -dynamiclib -framework Cocoa -ffreestanding -o myfile.dylib -fPIC myfile.o
gcc -static -framework Cocoa -ffreestanding -x objective-c myfile.cpp

ar -r myfile.a myfile.o

#ifndef BB_MYLIB_H
#define BB_MYLIB_H

#ifdef __cplusplus
extern "C"{
#endif

int myfunc();
int myfunc2();

#ifdef __cplusplus
}
#endif

#endif

Namespace mylib

#Import "native/mylib.h"
#import "native/mylib.m"

Extern

Function myfunc:Int()
Function myfunc2:int()

Function Main()
    Print("Hello World!")
End