Warning: this is an htmlized version!
The original is across this link,
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")