luaL_addchar ( B c -- )


Vocabulary
lua

Inputs
Ban object
can object


Outputs
None

Definition
USING: accessors alien alien.accessors kernel math ;

IN: lua

:: luaL_addchar ( B c -- )
B p>> alien-address LUAL_BUFFERSIZE B buffer>>
<displaced-alien> alien-address >=
[ B luaL_prepbuffer drop ] when c B p>> 0 set-alien-signed-1
B [ 1 swap <displaced-alien> ] change-p drop ; inline