Adding ucl_overlap, and improving / fix a bit the other ucl features.

1 files changed, 25 insertions, 0 deletions

diff --git a/lib/LuaHandle.cc b/lib/LuaHandle.cc
index 329c7e7..ce6d48c 100644
--- a/lib/LuaHandle.cc
+++ b/lib/LuaHandle.cc
@@ -75,6 +75,7 @@ class sLuaHandle : public Base {
 #ifdef HAVE_UCL
     static int ucl_compress(lua_State * L);
     static int ucl_decompress(lua_State * L);
+    static int ucl_overlap(lua_State * L);
 #endif
   private:
     static int read(lua_State * L, int);
@@ -632,6 +633,29 @@ int sLuaHandle::ucl_decompress(lua_State * __L) {
 
     return 1;
 }
+
+int sLuaHandle::ucl_overlap(lua_State * __L) {
+    Lua * L = Lua::find(__L);
+    int n = L->gettop();
+    Handle * s, * d;
+    int r, l, l_in = -1;
+
+    if (!((n >= 2) && (n <= 3)) || (!L->isnumber(2))) {
+        L->error("Incorrect arguments to method `Handle::ucl_overlap'");
+    }
+
+    s = L->recast<Handle>(1);
+    l = L->tonumber(2);
+    if (n == 3) {
+        l_in = L->tonumber(3);
+    }
+
+    r = Handle::ucl_overlap(s, l, l_in);
+
+    L->push((lua_Number) r);
+
+    return 1;
+}
 #endif
 
 int sLuaHandle::seek(lua_State * __L) {
@@ -875,5 +899,6 @@ void LuaHandle::pushconstruct(Lua * L) {
 #ifdef HAVE_UCL
     L->declarefunc("ucl_compress", sLuaHandle::ucl_compress);
     L->declarefunc("ucl_decompress", sLuaHandle::ucl_decompress);
+    L->declarefunc("ucl_overlap", sLuaHandle::ucl_overlap);
 #endif
 }