pub.lua example?

Strict

Type TVec3
	Field x:Float
	Field y:Float
	Field z:Float
EndType

Type TFoo
	
	Field position:TVec3=New TVec3
	
	Method SetPosition(x#,y#,z#)
		position.x=x
		position.y=y
		position.z=z
	EndMethod
	
EndType

Local o:TFoo
Local source:String
Local instance:TLuaObject
Local class:TLuaClass

o=New TFoo
LuaRegisterObject o,"myobject"

source=LoadString("myprogram.lua")
class=TLuaClass.Create(source)
instance=TLuaObject.Create(class,Null)
instance.Invoke(Null,Null)

myobject.setposition(1,2,3)
print(myobject.position.x)

-- Same as Local vec:Vec3 = New Vec3.InitWithValues(5,10,15)
local vec = NewVec3():InitWithValues(5,10,15)
local entity = NewTEntity()

entity:SetPosition(vec)

vec = entity:Position()
-- access fields
vec.x = 0
vec.y = 25
vec.z = 50

entity:SetPosition(vec)

Strict

Import "lua-reflection.bmx"

' Example types

' Tell the lref code that you want this type exposed to scripts
Type TVec3 {expose}

	Field x#, y#, z#

	Method ToString:String()
		Return x+", "+y+", "+z
	EndMethod

EndType

' Tell lref you want this type exposed to the script API, but you don't want the scripts to be able to access the fields
Type TEntity {expose}
	
	Field position:TVec3 = New TVec3
	
	Method SetPosition(position:TVec3)
		MemCopy Self.position,position,12
	EndMethod

	Method PrintPosition()
		Print position.ToString()
	EndMethod
	
EndType


' Main code
Print "Creating VM"
Local vm@ Ptr = luaL_newstate()

Print "Implementing types"
lua_implementtypes(vm)

Print "Running script"
If luaL_dofile(vm, "test.lua")
	Local err:String = "Error: "+lua_tostring(vm, -1)
	lua_close(vm)
	RuntimeError(err)
EndIf

Print "Done"

Print "Closing VM"
lua_close(vm)

local position=NewTVec3()

position.x=5
position.y=10
position.z=15

local entity = NewTEntity()

entity.SetPosition(position)

entity.PrintPosition()

' static = global object
' noclass = hide the global object and make the methods global
Type TCommonMethods {expose static noclass}
	' Rename the method to 'Print'
	Method _Print(s$) {rename="Print"}
		Print(s)
	End Method
	
	' Same case
	Method _Notify(s$) {rename="Notify"}
		Notify(s)
	End Method
End Type

local position=NewTVec3()
position.x=5
position.y=10
position.z=15
Print(position.ToString())

local entity = NewTEntity()
entity.SetPosition(position)
Print(entity.position.ToString())

Notify("OK!")

Strict

Import "lua-reflection.bmx"

' Tell the lref code that you want this type exposed to scripts
Type TVec3 {expose}
	
	Field x#, y#, z#
	
	Method ToString:String()
		Return x+", "+y+", "+z
	EndMethod
	
	Method Normalize:TVec3()
		Local m:Float
		Local t:TVec3=New TVec3
		m=Sqr(x*x+y*y+z*z)
		t.x=x/m
		t.y=y/m
		t.z=z/m
		Return t
	EndMethod
	
EndType

' Tell lref you want this type exposed to the script API, but you don't want the scripts to be able to access the fields
Type TEntity {expose}
	
	Field position:TVec3=New TVec3
	
	Method SetPosition(position:TVec3)
		MemCopy Self.position,position,12
	EndMethod
	
EndType

Type TPivot Extends TEntity {expose}
EndType

' static = global object
' noclass = hide the global object and make the methods global
Type TCommonMethods {expose static noclass}
	
	Method _Print(text:String) {rename="Print"}
		Print(text)
	EndMethod
	
	Method _Notify(text:String) {rename="Notify"}
		Notify(text)
	EndMethod

	Method _CreateEntity:TEntity() {rename="CreateEntity"}
		Return New TEntity
	EndMethod
	
	Method _CreatePivot:TPivot() {rename="CreatePivot"}
		Return New TPivot
	EndMethod
	
	Method vec3:TVec3(x#=0,y#=0,z#=0)
		Local t:TVec3=New TVec3
		t.x=x
		t.y=y
		t.z=z
		Return t
	EndMethod
	
EndType

' Main code
Local vm@ Ptr = luaL_newstate()
lua_implementtypes(vm)
If luaL_dofile(vm, "test.lua")
	Local err:String = "Error: "+lua_tostring(vm, -1)
	lua_close(vm)
	RuntimeError(err)
EndIf
lua_close(vm)
End

local position=vec3(1,2,3)
position.x=5
position.y=10
position.z=15

--This works
local entity=CreateEntity()

--This does not
--local entity=CreatePivot()

entity.SetPosition(position)
Print(entity.position.x)

Notify("OK!")

Type TMytype
	Field name:String
	Field x:Int,y:Int
	
	Method Create:TMyType(name:String,x:Int,y:Int)
		Local t:TMytype=New tMytype
		t.name=name
		t.x=x
		t.y=y
		Return t
	End Method

	Method GetName:String()
		Return name
	End Method

End Type

LuaRegisterObject New TMytype,"mytype"

Local class:TLuaClass=TLuaClass.Create(LoadString("lua.lua"))
Local instance:TLuaObject=TLuaObject.Create(class,Null)

instance.invoke Null,Null

--lua test
luatype=mytype.create("newtype",15,20)

print("mytype name is "..luatype.getname())
print("mytype.x="..luatype.x)
luatype.x=luatype.x*2
print("mytype.x="..luatype.x)

lua_getfield(vm,LUA_GLOBALSINDEX,"update")
lua_pushstring(vm,"test")
lua_call(vm,1,0)

function update( entity )
--do stuff
end

function MessageReceive( entity, name, value )
--do stuff
end

function Collision( entity, x, y, z )
--do stuff
end

Ball = {
   x=10
   y=30
}

function ball:Update()
   self.x=self.x+10
end

New(Ball)

SuperStrict

Local source:String
source="n=myfunc(1,2)~n"
source:+"myfunc(n,4)~n"
'source:+"nonexistentfunction()~n"'uncomment this for error

Local L:Byte Ptr
L=luaL_newstate()
luaL_openlibs(L)

lua_register(L, "myfunc", myfunc)
If luaL_dostring(L,source)
	Print "Error: "+lua_tostring(L,-1)
Else
	Print "Everything is fine."
EndIf
lua_close(L)

Function myfunc:Int(L:Byte Ptr)
	Local x:Int = luaL_checkinteger(L, 1)
	Local y:Int = luaL_checkinteger(L, 2)
	Print x+","+y
	lua_pushnumber(L,3)
	Return 1
EndFunction