Squirrel scripting language wrapper module

Rem

	Squirrel - Example 4 : Precompiling
	This shows how to precompile a script
	
	Created by Tim Leonard (Aka. Helios)
	Version 1.0

End Rem

Rem
	Framework
End Rem
Strict
Framework BRL.System
	Import BRL.retro
	Import DE.Squirrel
	
Rem
	Squirrel Example
End Rem

' Create a new squirrelengine
Global SE:TSquirrelEngine = New TSquirrelEngine

' Load the test file 
SE.LoadFile("Scripts\Example4.nut")

' Now lets dump the compile bytecode to a file
SE.DumpByteCode("Scripts\Example4.cnut")

' Kill Old Squirrel Engine
SE = Null
FlushMem()

' Now to show that this has dumped the file
' succcesfully, we will create another squirrel engine
' and make it run it

' Create new engine
SE:TSquirrelEngine = New TSquirrelEngine

' Register a simple function with
' a parameter mask and count
SE.RegisterGlobalFunction(func_Notify,"Notify",2,"sn")

' Now lets test if it reads out byte code 
' successfully, it will auromatically decide
' if the file is compiled or not and load it 
' appropriatly, you shhould notice a loading dip of about
' 10ms for a simple script when you precompile
SE.LoadFile("Scripts\Example4.cnut")
Se.Run()

Rem
	Our squirrel function, must always 
	have the prototype of FunctionName(State:Byte ptr)
	
	This is called with 2 paremeters the first being a string
	and the second being a integer
End Rem
Function Func_Notify(State:Byte Ptr)

	' Please not that when accessing paremeters 
	' always start at 0 as the TSquirrelEngine access 
	' them as zero-based
	Notify SE.GetStringParameter(0),SE.GetIntegerParameter(1)

End Function

local table = {
	a = "10"
	subtable = {
		array = [1,2,3]
	},
	[10 + 123] = "expression index"
}

local array=[ 1, 2, 3, { a = 10, b = "string" } ];

foreach (i,val in array)
{
	::print("the type of val is"+typeof val);
}

/////////////////////////////////////////////


class Entity
{	
	constructor(etype,entityname)
	{
		name = entityname;
		type = etype;
	}
									
	x = 0;
	y = 0;
	z = 0;
	name = null;
	type = null;
}

function Entity::MoveTo(newx,newy,newz)
{
	x = newx;
	y = newy;
	z = newz;
}

class Player extends Entity {
	constructor(entityname)
	{
		Entity.constructor("Player",entityname)
	}
	function DoDomething()
	{
		::print("something");
	}
	
}


local newplayer = Player("da playar");

newplayer.MoveTo(100,200,300);	

Compile Error: Unable to convert from 'String' to 'Byte Ptr'
[/Applications/BlitzMax/mod/de.mod/squirrel.mod/squirrel.bmx;380;3]
Build Error: failed to compile /Applications/BlitzMax/mod/de.mod/squirrel.mod/squirrel.bmx

	Rem
		bbdoc: Used to load and compile a string 
	End Rem
	Method LoadString(Buffer:String,SourceName:String)
		Local bptr:Byte Ptr = buffer.ToCString()
		Local sptr:Byte Ptr = sourcename.ToCString()
		'Return sq_compilebuffer(State,Buffer.ToCString(),Len(Buffer),SourceName,1)
		Local Ret:Int = sq_compilebuffer(State,bptr,Len(Buffer),sptr,1)
		MemFree bptr
		MemFree sptr
		Return ret
	End Method

If T.State = State
				TSquirrelEngine.ErrorDescription = Description
				TSquirrelEngine.ErrorSourcename  = SourceName
				TSquirrelEngine.ErrorLine		 = Line
				TSquirrelEngine.ErrorColumn		 = Column
			EndIf