unoidl2

commit 9dc08dcd8a9be93a23a53a92783633db3ebe4cc9
parent eb9b9b0fba1097c9c691992a9c12903de61add1c
Author: Tomas Hlavaty <tom@logand.com>
Date:   Sun, 22 Jan 2012 17:09:04 +0100

2java: remember struct

Diffstat:
M
unoidl2java.c
 | 
3
+++

1 file changed, 3 insertions(+), 0 deletions(-)
diff --git a/unoidl2java.c b/unoidl2java.c
@@ -28,6 +28,7 @@ extern const Any ast;
 static Any module;
 static Any typedefs;
 static Any enums;
+static Any structs;
 static Any rel_package;
 static Any uno_star_sun_com;
 static Any Exception;
@@ -329,6 +330,7 @@ static void pr_extends(Any x) {
 }
 
 static void pr_struct(Any x) {
+  structs = cons(cons(reverse(module, list1(cadr(x))), cdddr(x)), structs);
   Any name = cadr(x);
   Any published = caddr(x);
   if(NIL != published) {
@@ -711,6 +713,7 @@ int main() {
   module = NIL;
   typedefs = NIL;
   enums = NIL;
+  structs = NIL;
   rel_package = NIL;
   uno_star_sun_com = list4(mk(ID, "uno"), mk(ID, "star"), mk(ID, "sun"), mk(ID, "com"));
   Exception = mk(ID, "Exception");