steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

lua: clean up some literals abuse

db4
Joe Groff 2010-04-20 22:48:28 -07:00
parent 01bec445e1
commit 33cf10e922
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/lua/lua.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.accessors alien.c-types alien.libraries USING: accessors alien alien.accessors alien.c-types alien.libraries
alien.syntax classes.struct combinators io.encodings.ascii kernel alien.syntax classes.struct combinators io.encodings.ascii kernel
literals locals math system ; locals math system ;
IN: lua IN: lua
<< "liblua5.1" { << "liblua5.1" {
@ -19,12 +19,12 @@ TYPEDEF: ptrdiff_t LUA_INTEGER
CONSTANT: LUA_IDSIZE 60 CONSTANT: LUA_IDSIZE 60
! This is normally the BUFSIZ value of the given platform. ! This is normally the BUFSIZ value of the given platform.
CONSTANT: LUAL_BUFFERSIZE $[ : LUAL_BUFFERSIZE ( -- x )
{ {
{ [ os windows? ] [ 512 ] } { [ os windows? ] [ 512 ] }
{ [ os macosx? ] [ 1024 ] } { [ os macosx? ] [ 1024 ] }
{ [ os unix? ] [ 8192 ] } { [ os unix? ] [ 8192 ] }
} cond ] } cond ;
! lua.h ! lua.h
CONSTANT: LUA_SIGNATURE B{ 27 76 117 97 } CONSTANT: LUA_SIGNATURE B{ 27 76 117 97 }
@ -207,7 +207,7 @@ STRUCT: lua_Debug
: luaL_getn ( L i -- int ) lua_objlen ; inline : luaL_getn ( L i -- int ) lua_objlen ; inline
: luaL_setn ( L i j -- ) 3drop ; inline : luaL_setn ( L i j -- ) 3drop ; inline
CONSTANT: LUA_ERRFILE $[ $ LUA_ERRERR 1 + ] : LUA_ERRFILE ( -- x ) LUA_ERRERR 1 + ;
STRUCT: luaL_Reg STRUCT: luaL_Reg
{ name char* } { name char* }