[Ooc-checkins] libpobj/src/PObj CodeGenJava.Mod,1.108,1.109

[Michael v. A. <mv...@us...>]

Update of /cvsroot/ooc/libpobj/src/PObj
In directory sc8-pr-cvs3.sourceforge.net:/tmp/cvs-serv22981/src/PObj

Modified Files:
	CodeGenJava.Mod 
Log Message:
add role to reference types


Index: CodeGenJava.Mod
===================================================================
RCS file: /cvsroot/ooc/libpobj/src/PObj/CodeGenJava.Mod,v
retrieving revision 1.108
retrieving revision 1.109
diff -u -d -r1.108 -r1.109
--- CodeGenJava.Mod	7 Mar 2007 10:49:09 -0000	1.108
+++ CodeGenJava.Mod	12 Mar 2007 14:16:34 -0000	1.109
@@ -2403,6 +2403,16 @@
         FOR i := 1 TO indent DO sb.Append(indentLevel); END;
       END Ln;
 
+    PROCEDURE Role(role: SHORTINT): STRING;
+      BEGIN
+        CASE role OF
+        | MetaData.roleMaster:
+          RETURN "Reference.ROLE_MASTER"
+        | MetaData.roleDetail:
+          RETURN "Reference.ROLE_DETAIL"
+        END;
+      END Role;
+      
     BEGIN
       WITH t: MetaData.BooleanWrapper DO
         (* need to have an instance of the wrapper's base type _before_
@@ -2541,6 +2551,10 @@
                     ").setUpperLimit(new "+t.Name(NIL, MetaData.typeNameJava)+"("+
                     QuotedString(t.upperLimit)+"));");
         END;
+      | t: MetaData.RefType DO
+        IF (t.role # MetaData.roleNone) THEN
+          sb.Append("(("+typeName+")"+name+").setRole("+Role(t.role)+");");
+        END;
       ELSE
         (* nothing *)
       END;