unoidl2

commit 6972943520917cd553aaadc6b35ed12a0cde1813
parent b8026382e481e3d59cb2ca936822b48efde6e255
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 15 Jan 2012 11:39:10 +0100

typeinfo interface flag

Diffstat:
M
unoidl2java.c
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/unoidl2java.c b/unoidl2java.c
@@ -229,6 +229,9 @@ static int type_flags(Any x) {
     case UNSIGNED: return _UNSIGNED;
     case ANY: return _ANY;
     case SEQUENCE: return type_flags(cadr(x));
+    case RELATIVE:
+    case ABSOLUTE:
+      return equal(com_sun_star_uno_XInterface, cdr(x)) ? _INTERFACE : 0;
     }
   }
   return 0;
@@ -240,7 +243,6 @@ static Any pr_TypeInfo1(void *env, Any x) {
   int f = 0;
   switch(kind(car(x))) {
   case ATTRIBUTE: // (attribute (string) KeyName (readonly))
-    // TODO BOUND
     f |= type_flags(cadr(x));
     if(some(NULL, readonlyp, cadddr(x))) f |= _READONLY;
     pr_TypeInfo2("Attribute", caddr(x), f, env, -1);