diff options
author | Benoit Germain <bnt.germain@gmail.com> | 2011-02-18 20:33:43 +0100 |
---|---|---|
committer | Benoit Germain <bnt.germain@gmail.com> | 2011-02-18 20:33:43 +0100 |
commit | 1760eafa1d2ebce8f07e11414a53d4a251af5b8e (patch) | |
tree | 18f2fcd400bb35528212930c4e61be04be31bea0 /src/keeper.lua | |
parent | ab233d0c9a1edc34836e2249c1eb6d714f1066b5 (diff) | |
download | lanes-1760eafa1d2ebce8f07e11414a53d4a251af5b8e.tar.gz lanes-1760eafa1d2ebce8f07e11414a53d4a251af5b8e.tar.bz2 lanes-1760eafa1d2ebce8f07e11414a53d4a251af5b8e.zip |
* keeper.lua is now embedded in text form instead of bytecode to improve LuaJIT2-compatibility (but this is not enough).
* moved keeper-related code in a separate source file
Diffstat (limited to 'src/keeper.lua')
-rw-r--r-- | src/keeper.lua | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/src/keeper.lua b/src/keeper.lua index 9256a4b..2c38c0b 100644 --- a/src/keeper.lua +++ b/src/keeper.lua | |||
@@ -43,12 +43,26 @@ assert( nil_sentinel ) | |||
43 | local table_remove= assert( table.remove ) | 43 | local table_remove= assert( table.remove ) |
44 | local table_concat= assert( table.concat ) | 44 | local table_concat= assert( table.concat ) |
45 | 45 | ||
46 | --[[ | ||
46 | local function WR(...) | 47 | local function WR(...) |
47 | if io then | 48 | if io then |
48 | io.stderr:write( table_concat({...},'\t').."\n" ) | 49 | io.stderr:write( table_concat({...},'\t').."\n" ) |
49 | end | 50 | end |
50 | end | 51 | end |
51 | 52 | ||
53 | local function DEBUG(title,ud,key) | ||
54 | assert( title and ud and key ) | ||
55 | |||
56 | local data,incoming,_= tables(ud) | ||
57 | |||
58 | local s= tostring(data[key]) | ||
59 | for _,v in ipairs( incoming[key] or {} ) do | ||
60 | s= s..", "..tostring(v) | ||
61 | end | ||
62 | WR( "*** "..title.." ("..tostring(key).."): ", s ) | ||
63 | end | ||
64 | --]] | ||
65 | |||
52 | ----- | 66 | ----- |
53 | -- Actual data store | 67 | -- Actual data store |
54 | -- | 68 | -- |
@@ -92,20 +106,6 @@ local function tables( ud ) | |||
92 | return _data[ud], _incoming[ud], _limits[ud] | 106 | return _data[ud], _incoming[ud], _limits[ud] |
93 | end | 107 | end |
94 | 108 | ||
95 | |||
96 | local function DEBUG(title,ud,key) | ||
97 | assert( title and ud and key ) | ||
98 | |||
99 | local data,incoming,_= tables(ud) | ||
100 | |||
101 | local s= tostring(data[key]) | ||
102 | for _,v in ipairs( incoming[key] or {} ) do | ||
103 | s= s..", "..tostring(v) | ||
104 | end | ||
105 | WR( "*** "..title.." ("..tostring(key).."): ", s ) | ||
106 | end | ||
107 | |||
108 | |||
109 | ----- | 109 | ----- |
110 | -- bool= send( linda_deep_ud, key, ... ) | 110 | -- bool= send( linda_deep_ud, key, ... ) |
111 | -- | 111 | -- |