Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
function fload (fname) f(readfile(fname)) end; fload( "demo7-lib"); C1:: strlen -- ( adr -- len ) :RSR 0$ -- S0$ ( S: adr -- S: adr+len+1 D: adr ) : S0$ S> DUP DUP strlen + 1 + >S ; function zstr (str) f("0$") dbstuff(str, 0) end; g: DEMO 0 dllua_open lua_state! zstr( "print"); lua_getglobal zstr( "Hello"); lua_pushstring 1 0 lua_call ; -- # lua -f flua.lua 'do_demo(arg[2])' demo6 -- (find-node "(lua)Error Handling") -- (find-node "(lua)call") -- (find-luafile "src/lib/lbaselib.c")