Code: Select all
Debug "unicode"
*adr.integer=?uni
While *adr\i
Debug PeekS(*adr\i,-1,#PB_Unicode)
*adr+SizeOf(integer)
Wend
Debug ~"\nascii"
*adr=?asci
While *adr\i
Debug PeekS(*adr\i,-1,#PB_Ascii)
*adr+SizeOf(integer)
Wend
DataSection
uni:
Data.i @"one",@"two",@"three",0
s_one: :Data.b "one"
s_two: :Data.b "two"
s_three: :Data.b "three"
asci:
Data.i ?s_one,?s_two,?s_three,0
EndDataSection
Code: Select all
Data.i @a"one",@a"two",@a"three",0
I need something like this to access lua:
Code: Select all
Procedure OpenSpriteLib(lua)
Register_lib(lua,"sprite",#spr_meta,?sprite_meta,?sprite_fuc)
DataSection
s__newindex: :Data.b "__newindex"
s__index: :Data.b "__index"
s__gc: :Data.b "__gc"
s_new: :Data.b "new"
s_dispose: :Data.b "dispose"
sprite_fuc:
Data.i ?s_new, @sprite_new(),?s_dispose,@sprite_dispose(),0,0
sprite_meta:
Data.i ?s__gc,@sprite_dispose(),?s__index,@sprite_index(),?s__newindex,@sprite_newindex(),0,0
EndDataSection
EndProcedure