Author: fperrad
Date: Thu Aug 7 23:23:27 2008
New Revision: 30122
Modified:
trunk/languages/lua/src/lib/base64.pir
trunk/languages/lua/src/lib/bc.pir
trunk/languages/lua/src/lib/bitlib.pir
trunk/languages/lua/src/lib/gl.pir
trunk/languages/lua/src/lib/glut.pir
trunk/languages/lua/src/lib/lfs.pir
trunk/languages/lua/src/lib/luaaux.pir
trunk/languages/lua/src/lib/luabasic.pir
trunk/languages/lua/src/lib/luacoroutine.pir
trunk/languages/lua/src/lib/luadebug.pir
trunk/languages/lua/src/lib/luafile.pir
trunk/languages/lua/src/lib/luaio.pir
trunk/languages/lua/src/lib/luamath.pir
trunk/languages/lua/src/lib/luaos.pir
trunk/languages/lua/src/lib/luapackage.pir
trunk/languages/lua/src/lib/luastring.pir
trunk/languages/lua/src/lib/luatable.pir
trunk/languages/lua/src/lib/md5.pir
trunk/languages/lua/src/lib/random.pir
trunk/languages/lua/src/lib/uuid.pir
Log:
[Lua] libraries
- improve layout
Modified: trunk/languages/lua/src/lib/base64.pir
==============================================================================
--- trunk/languages/lua/src/lib/base64.pir (original)
+++ trunk/languages/lua/src/lib/base64.pir Thu Aug 7 23:23:27 2008
@@ -43,7 +43,10 @@
set $P1, MYNAME
_lua__GLOBAL[$P1] = _base64
- $P2 = split ' ', 'decode encode'
+ $P2 = split "\n", <<'LIST'
+decode
+encode
+LIST
lua_register($P1, _base64, $P2)
new $P2, 'LuaString'
Modified: trunk/languages/lua/src/lib/bc.pir
==============================================================================
--- trunk/languages/lua/src/lib/bc.pir (original)
+++ trunk/languages/lua/src/lib/bc.pir Thu Aug 7 23:23:27 2008
@@ -51,7 +51,24 @@
set $P1, MYNAME
_lua__GLOBAL[$P1] = _bc
- $P2 = split ' ', 'digits tostring iszero isneg number compare __eq __lt
add sub mul pow div mod sqrt __unm'
+ $P2 = split "\n", <<'LIST'
+digits
+tostring
+iszero
+isneg
+number
+compare
+__eq
+__lt
+add
+sub
+mul
+pow
+div
+mod
+sqrt
+__unm
+LIST
lua_register($P1, _bc, $P2)
set $P1, 'add'
Modified: trunk/languages/lua/src/lib/bitlib.pir
==============================================================================
--- trunk/languages/lua/src/lib/bitlib.pir (original)
+++ trunk/languages/lua/src/lib/bitlib.pir Thu Aug 7 23:23:27 2008
@@ -45,7 +45,16 @@
set $P1, MYNAME
_lua__GLOBAL[$P1] = _bitlib
- $P2 = split ' ', 'cast bnot band bor bxor lshift rshift arshift'
+ $P2 = split "\n", <<'LIST'
+cast
+bnot
+band
+bor
+bxor
+lshift
+rshift
+arshift
+LIST
lua_register($P1, _bitlib, $P2)
new $P2, 'LuaNumber'
Modified: trunk/languages/lua/src/lib/gl.pir
==============================================================================
--- trunk/languages/lua/src/lib/gl.pir (original)
+++ trunk/languages/lua/src/lib/gl.pir Thu Aug 7 23:23:27 2008
@@ -45,7 +45,146 @@
set $P1, 'gl'
_lua__GLOBAL[$P1] = _gl
- $P2 = split ' ', 'Accum AlphaFunc AreTexturesResident ArrayElement Begin
BindTexture Bitmap BlendFunc CallList CallLists Clear ClearAccum ClearColor
ClearDepth ClearIndex ClearStencil ClipPlane Color ColorMask ColorMaterial
ColorPointer CopyPixels CopyTexImage CopyTexSubImage CullFace DeleteLists
DeleteTextures DepthFunc DepthMask DepthRange Disable DisableClientState
DrawArrays DrawBuffer DrawElements DrawPixels EdgeFlag EdgeFlagPointer Enable
EnableClientState End EndList EvalCoord EvalMesh EvalPoint FeedbackBuffer
Finish Flush Fog FrontFace Frustum GenLists GenTextures Get GetArray GetConst
GetClipPlane GetError GetLight GetMap GetMaterial GetPixelMap GetPointer
GetPolygonStipple GetString GetTexEnv GetTexGen GetTexImage
GetTexLevelParameter GetTexParameter Hint Index IndexMask IndexPointer
InitNames IsEnabled IsList IsTexture Light LightModel LineStipple LineWidth
ListBase LoadIdentity LoadMatrix LoadName LogicOp Map MapGrid Material
MatrixMode MultMatrix NewList Nor
mal NormalPointer Ortho PassThrough PixelMap PixelStore PixelTransfer
PixelZoom PointSize PolygonMode PolygonOffset PolygonStipple PopAttrib
PopClientAttrib PopMatrix PopName PrioritizeTextures PushAttrib
PushClientAttrib PushMatrix PushName RasterPos ReadBuffer ReadPixels Rect
RenderMode Rotate Scale Scissor SelectBuffer ShadeModel StencilFunc StencilMask
StencilOp TexCoord TexCoordPointer TexEnv TexGen TexImage TexSubImage
TexParameter Translate Vertex VertexPointer Viewport'
+ $P2 = split "\n", <<'LIST'
+Accum
+AlphaFunc
+AreTexturesResident
+ArrayElement
+Begin
+BindTexture
+Bitmap
+BlendFunc
+CallList
+CallLists
+Clear
+ClearAccum
+ClearColor
+ClearDepth
+ClearIndex
+ClearStencil
+ClipPlane
+Color
+ColorMask
+ColorMaterial
+ColorPointer
+CopyPixels
+CopyTexImage
+CopyTexSubImage
+CullFace
+DeleteLists
+DeleteTextures
+DepthFunc
+DepthMask
+DepthRange
+Disable
+DisableClientState
+DrawArrays
+DrawBuffer
+DrawElements
+DrawPixels
+EdgeFlag
+EdgeFlagPointer
+Enable
+EnableClientState
+End
+EndList
+EvalCoord
+EvalMesh
+EvalPoint
+FeedbackBuffer
+Finish
+Flush
+Fog
+FrontFace
+Frustum
+GenLists
+GenTextures
+Get
+GetArray
+GetConst
+GetClipPlane
+GetError
+GetLight
+GetMap
+GetMaterial
+GetPixelMap
+GetPointer
+GetPolygonStipple
+GetString
+GetTexEnv
+GetTexGen
+GetTexImage
+GetTexLevelParameter
+GetTexParameter
+Hint
+Index
+IndexMask
+IndexPointer
+InitNames
+IsEnabled
+IsList
+IsTexture
+Light
+LightModel
+LineStipple
+LineWidth
+ListBase
+LoadIdentity
+LoadMatrix
+LoadName
+LogicOp
+Map
+MapGrid
+Material
+MatrixMode
+MultMatrix
+NewList
+Normal
+NormalPointer
+Ortho
+PassThrough
+PixelMap
+PixelStore
+PixelTransfer
+PixelZoom
+PointSize
+PolygonMode
+PolygonOffset
+PolygonStipple
+PopAttrib
+PopClientAttrib
+PopMatrix
+PopName
+PrioritizeTextures
+PushAttrib
+PushClientAttrib
+PushMatrix
+PushName
+RasterPos
+ReadBuffer
+ReadPixels
+Rect
+RenderMode
+Rotate
+Scale
+Scissor
+SelectBuffer
+ShadeModel
+StencilFunc
+StencilMask
+StencilOp
+TexCoord
+TexCoordPointer
+TexEnv
+TexGen
+TexImage
+TexSubImage
+TexParameter
+Translate
+Vertex
+VertexPointer
+Viewport
+LIST
lua_register($P1, _gl, $P2)
$P0 = _gl_str()
Modified: trunk/languages/lua/src/lib/glut.pir
==============================================================================
--- trunk/languages/lua/src/lib/glut.pir (original)
+++ trunk/languages/lua/src/lib/glut.pir Thu Aug 7 23:23:27 2008
@@ -46,7 +46,20 @@
set $P1, 'glut'
_lua__GLOBAL[$P1] = _glut
- $P2 = split ' ', 'CreateWindow DestroyWindow DisplayFunc IdleFunc Init
InitDisplayMode InitWindowSize KeyboardFunc MainLoop PostRedisplay ReshapeFunc
SwapBuffers'
+ $P2 = split "\n", <<'LIST'
+CreateWindow
+DestroyWindow
+DisplayFunc
+IdleFunc
+Init
+InitDisplayMode
+InitWindowSize
+KeyboardFunc
+MainLoop
+PostRedisplay
+ReshapeFunc
+SwapBuffers
+LIST
lua_register($P1, _glut, $P2)
.return (_glut)
Modified: trunk/languages/lua/src/lib/lfs.pir
==============================================================================
--- trunk/languages/lua/src/lib/lfs.pir (original)
+++ trunk/languages/lua/src/lib/lfs.pir Thu Aug 7 23:23:27 2008
@@ -44,7 +44,18 @@
set $P1, 'lfs'
_lua__GLOBAL[$P1] = _lfs
- $P2 = split ' ', 'attributes chdir currentdir dir lock mkdir rmdir
symlinkattributes touch unlock'
+ $P2 = split "\n", <<'LIST'
+attributes
+chdir
+currentdir
+dir
+lock
+mkdir
+rmdir
+symlinkattributes
+touch
+unlock
+LIST
lua_register($P1, _lfs, $P2)
new $P2, 'LuaString'
Modified: trunk/languages/lua/src/lib/luaaux.pir
==============================================================================
--- trunk/languages/lua/src/lib/luaaux.pir (original)
+++ trunk/languages/lua/src/lib/luaaux.pir Thu Aug 7 23:23:27 2008
@@ -791,6 +791,7 @@
L3:
unless names goto L4
$S0 = shift names
+ unless $S0 goto L3
$P0 = ns[$S0]
$P0.'setfenv'(env)
set $P1, $S0
Modified: trunk/languages/lua/src/lib/luabasic.pir
==============================================================================
--- trunk/languages/lua/src/lib/luabasic.pir (original)
+++ trunk/languages/lua/src/lib/luabasic.pir Thu Aug 7 23:23:27 2008
@@ -49,7 +49,33 @@
set $P1, '_G'
_lua__GLOBAL[$P1] = _lua__GLOBAL
- $P2 = split ' ', 'assert collectgarbage dofile error getfenv getmetatable
ipairs load loadfile loadstring next pairs pcall print rawequal rawget rawset
select setfenv setmetatable tonumber tostring type unpack xpcall'
+ $P2 = split "\n", <<'LIST'
+assert
+collectgarbage
+dofile
+error
+getfenv
+getmetatable
+ipairs
+load
+loadfile
+loadstring
+next
+pairs
+pcall
+print
+rawequal
+rawget
+rawset
+select
+setfenv
+setmetatable
+tonumber
+tostring
+type
+unpack
+xpcall
+LIST
lua_register($P1, _lua__GLOBAL, $P2)
=item C<_VERSION>
Modified: trunk/languages/lua/src/lib/luacoroutine.pir
==============================================================================
--- trunk/languages/lua/src/lib/luacoroutine.pir (original)
+++ trunk/languages/lua/src/lib/luacoroutine.pir Thu Aug 7 23:23:27 2008
@@ -36,7 +36,14 @@
set $P1, 'coroutine'
_lua__GLOBAL[$P1] = _coroutine
- $P2 = split ' ', 'create resume running status wrap yield'
+ $P2 = split "\n", <<'LIST'
+create
+resume
+running
+status
+wrap
+yield
+LIST
lua_register($P1, _coroutine, $P2)
new $P0, 'ResizablePMCArray'
Modified: trunk/languages/lua/src/lib/luadebug.pir
==============================================================================
--- trunk/languages/lua/src/lib/luadebug.pir (original)
+++ trunk/languages/lua/src/lib/luadebug.pir Thu Aug 7 23:23:27 2008
@@ -43,7 +43,22 @@
set $P1, 'debug'
_lua__GLOBAL[$P1] = _debug
- $P2 = split ' ', 'debug getfenv gethook getinfo getlocal getmetatable
getregistry getupvalue setfenv sethook setlocal setmetatable setupvalue
traceback'
+ $P2 = split "\n", <<'LIST'
+debug
+getfenv
+gethook
+getinfo
+getlocal
+getmetatable
+getregistry
+getupvalue
+setfenv
+sethook
+setlocal
+setmetatable
+setupvalue
+traceback
+LIST
lua_register($P1, _debug, $P2)
.end
Modified: trunk/languages/lua/src/lib/luafile.pir
==============================================================================
--- trunk/languages/lua/src/lib/luafile.pir (original)
+++ trunk/languages/lua/src/lib/luafile.pir Thu Aug 7 23:23:27 2008
@@ -29,7 +29,17 @@
set $P1, '__index'
_file[$P1] = _file
- $P2 = split ' ', 'close flush lines read seek setvbuf write __gc
__tostring'
+ $P2 = split "\n", <<'LIST'
+close
+flush
+lines
+read
+seek
+setvbuf
+write
+__gc
+__tostring
+LIST
null $P0
lua_register($P0, _file, $P2)
Modified: trunk/languages/lua/src/lib/luaio.pir
==============================================================================
--- trunk/languages/lua/src/lib/luaio.pir (original)
+++ trunk/languages/lua/src/lib/luaio.pir Thu Aug 7 23:23:27 2008
@@ -53,7 +53,20 @@
set $P1, 'io'
_lua__GLOBAL[$P1] = _io
- $P2 = split ' ', 'close flush input lines open output popen read tmpfile
type write readline'
+ $P2 = split "\n", <<'LIST'
+close
+flush
+input
+lines
+open
+output
+popen
+read
+tmpfile
+type
+write
+readline
+LIST
lua_register($P1, _io, $P2, _io_env)
.const .Sub _readline = 'readline'
Modified: trunk/languages/lua/src/lib/luamath.pir
==============================================================================
--- trunk/languages/lua/src/lib/luamath.pir (original)
+++ trunk/languages/lua/src/lib/luamath.pir Thu Aug 7 23:23:27 2008
@@ -62,7 +62,33 @@
set $P1, 'math'
_lua__GLOBAL[$P1] = _math
- $P2 = split ' ', 'abs acos asin atan atan2 ceil cos deg exp floor fmod
frexp ldexp log log10 max min modf pow rad random randomseed sin sqrt tan'
+ $P2 = split "\n", <<'LIST'
+abs
+acos
+asin
+atan
+atan2
+ceil
+cos
+deg
+exp
+floor
+fmod
+frexp
+ldexp
+log
+log10
+max
+min
+modf
+pow
+rad
+random
+randomseed
+sin
+sqrt
+tan
+LIST
lua_register($P1, _math, $P2)
# LUA_COMPAT_MOD
Modified: trunk/languages/lua/src/lib/luaos.pir
==============================================================================
--- trunk/languages/lua/src/lib/luaos.pir (original)
+++ trunk/languages/lua/src/lib/luaos.pir Thu Aug 7 23:23:27 2008
@@ -33,7 +33,19 @@
set $P1, 'os'
_lua__GLOBAL[$P1] = _os
- $P2 = split ' ', 'clock date difftime execute exit getenv remove rename
setlocale time tmpname'
+ $P2 = split "\n", <<'LIST'
+clock
+date
+difftime
+execute
+exit
+getenv
+remove
+rename
+setlocale
+time
+tmpname
+LIST
lua_register($P1, _os, $P2)
.end
Modified: trunk/languages/lua/src/lib/luapackage.pir
==============================================================================
--- trunk/languages/lua/src/lib/luapackage.pir (original)
+++ trunk/languages/lua/src/lib/luapackage.pir Thu Aug 7 23:23:27 2008
@@ -32,7 +32,10 @@
set $P1, 'package'
_lua__GLOBAL[$P1] = _package
- $P2 = split ' ', 'loadlib seeall'
+ $P2 = split "\n", <<'LIST'
+loadlib
+seeall
+LIST
lua_register($P1, _package, $P2)
# LUA_COMPAT_LOADLIB
@@ -76,7 +79,10 @@
set $P1, 'preload'
_package[$P1] = $P0
- $P2 = split ' ', 'module require'
+ $P2 = split "\n", <<'LIST'
+module
+require
+LIST
null $P0
lua_register($P0, _lua__GLOBAL, $P2)
Modified: trunk/languages/lua/src/lib/luastring.pir
==============================================================================
--- trunk/languages/lua/src/lib/luastring.pir (original)
+++ trunk/languages/lua/src/lib/luastring.pir Thu Aug 7 23:23:27 2008
@@ -44,7 +44,22 @@
set $P1, 'string'
_lua__GLOBAL[$P1] = _string
- $P2 = split ' ', 'byte char dump find format gmatch gsub len lower match
rep reverse sub upper'
+ $P2 = split "\n", <<'LIST'
+byte
+char
+dump
+find
+format
+gmatch
+gsub
+len
+lower
+match
+rep
+reverse
+sub
+upper
+LIST
lua_register($P1, _string, $P2)
# LUA_COMPAT_GFIND
Modified: trunk/languages/lua/src/lib/luatable.pir
==============================================================================
--- trunk/languages/lua/src/lib/luatable.pir (original)
+++ trunk/languages/lua/src/lib/luatable.pir Thu Aug 7 23:23:27 2008
@@ -39,7 +39,17 @@
_lua__GLOBAL[$P1] = _table
# LUA_COMPAT_GETN
- $P2 = split ' ', 'concat foreach foreachi getn insert maxn remove setn
sort'
+ $P2 = split "\n", <<'LIST'
+concat
+foreach
+foreachi
+getn
+insert
+maxn
+remove
+setn
+sort
+LIST
lua_register($P1, _table, $P2)
.end
Modified: trunk/languages/lua/src/lib/md5.pir
==============================================================================
--- trunk/languages/lua/src/lib/md5.pir (original)
+++ trunk/languages/lua/src/lib/md5.pir Thu Aug 7 23:23:27 2008
@@ -49,7 +49,14 @@
set $P1, MYNAME
_lua__GLOBAL[$P1] = _md5
- $P2 = split ' ', 'clone digest new reset tostring update'
+ $P2 = split "\n", <<'LIST'
+clone
+digest
+new
+reset
+tostring
+update
+LIST
lua_register($P1, _md5, $P2)
set $P1, 'tostring'
Modified: trunk/languages/lua/src/lib/random.pir
==============================================================================
--- trunk/languages/lua/src/lib/random.pir (original)
+++ trunk/languages/lua/src/lib/random.pir Thu Aug 7 23:23:27 2008
@@ -48,7 +48,15 @@
set $P1, MYNAME
_lua__GLOBAL[$P1] = _random
- $P2 = split ' ', 'clone new seed tostring value valuei valuex'
+ $P2 = split "\n", <<'LIST'
+clone
+new
+seed
+tostring
+value
+valuei
+valuex
+LIST
lua_register($P1, _random, $P2)
set $P1, 'tostring'
Modified: trunk/languages/lua/src/lib/uuid.pir
==============================================================================
--- trunk/languages/lua/src/lib/uuid.pir (original)
+++ trunk/languages/lua/src/lib/uuid.pir Thu Aug 7 23:23:27 2008
@@ -41,7 +41,11 @@
set $P1, 'uuid'
_lua__GLOBAL[$P1] = _uuid
- $P2 = split ' ', 'isvalid new'
+ $P2 = split "\n", <<'LIST'
+isvalid
+new
+time
+LIST
lua_register($P1, _uuid, $P2)
# ???
