X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=lib%2Fobject.c;h=6a2a90c5b5d46aeec6c8709be842121bd553f41a;hb=aac897f2337471637d9a47b38e1b7b35ab0359b5;hp=ab882c12a139479db0e0f007f41bdb87c0dc6ccb;hpb=27a399729245ab082e8f76985d4cccb363ad82bb;p=libucw.git

diff --git a/lib/object.c b/lib/object.c
index ab882c12..6a2a90c5 100644
--- a/lib/object.c
+++ b/lib/object.c
@@ -15,6 +15,7 @@
 
 #include <string.h>
 #include <stdio.h>
+#include <stdlib.h>
 
 void
 obj_dump(struct odes *o)
@@ -117,6 +118,13 @@ obj_find_aval(struct odes *o, uns x)
   return a ? a->val : NULL;
 }
 
+uns
+obj_find_anum(struct odes *o, uns x, uns def)
+{
+  struct oattr *a = obj_find_attr(o, x);
+  return a ? (uns)atol(a->val) : def;
+}
+
 struct oattr *
 obj_set_attr(struct odes *o, uns x, byte *v)
 {