diff options
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 | -- |