stable 2007.09.28 11:58

1 files changed, 21 insertions, 0 deletions

diff --git a/tex/context/base/l-table.lua b/tex/context/base/l-table.lua
index e8f56ca09..14fad31d7 100644
--- a/tex/context/base/l-table.lua
+++ b/tex/context/base/l-table.lua
@@ -169,6 +169,8 @@ end
 
 do
 
+    -- one of my first exercises in lua ...
+
     -- 34.055.092 32.403.326 arabtype.tma
     --  1.620.614  1.513.863 lmroman10-italic.tma
     --  1.325.585  1.233.044 lmroman10-regular.tma
@@ -528,6 +530,25 @@ function table.tohash(t)
     return h
 end
 
+function table.contains(t, v)
+    if t then
+        for i=1, #t do
+            if t[i] == v then
+                return true
+            end
+        end
+    end
+    return false
+end
+
+function table.count(t)
+    local n, e = 0, next(t)
+    while e do
+        n, e = n + 1, next(t,e)
+    end
+    return n
+end
+
 --~ function table.are_equal(a,b)
 --~     return table.serialize(a) == table.serialize(b)
 --~ end