unoidl2

commit b8026382e481e3d59cb2ca936822b48efde6e255
parent 729b5be1578d20a18259ef1a41752030e123a132
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 15 Jan 2012 11:17:03 +0100

readonly typeinfo detected

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

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/unoidl2java.c b/unoidl2java.c
@@ -234,13 +234,15 @@ static int type_flags(Any x) {
   return 0;
 }
 
+static int readonlyp(void *env, Any x) {return READONLY == kind(x);}
+
 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));
-    // TODO if(some(READONLY, cadddr(x))) f |= _READONLY;
+    if(some(NULL, readonlyp, cadddr(x))) f |= _READONLY;
     pr_TypeInfo2("Attribute", caddr(x), f, env, -1);
     break;
   case ID: // (NewValue (any))