Changeset 3731 for to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_java.rf

Timestamp:

Apr 17, 2008, 9:09:37 PM (13 years ago)

Author:

yura

Message:

• Static function Expr.create(Comparable) instead of constructor.

File:

• to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_java.rf (modified) (3 diffs)

to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_asail_java.rf

@@ -252 +252 @@
       e.refalDecl
       ('static '<Access_Mode s.linkage>' final Expr '<Name_To_Java t.name>
-      ' = new Expr (Symbol.new'e.class_name' ("'s.n'"));');
+      ' = Expr.create (Symbol.new'e.class_name' ("'s.n'"));');
     ("DECL-OBJ" t.name) = ;
     ("DECL-FUNC" t.name) = ;
@@ -296 +296 @@
   /*empty*/ = 'Expr.empty';
   (PAREN e.expr) =
-    'new Expr ((Comparable<?>) '<Expr_Ref_To_Java e.expr>')';
+    'Expr.create ('<Expr_Ref_To_Java e.expr>')';
   term =
     <Term_Ref_To_Java term> :: (e.term),
@@ -396 +396 @@
           'Symbol.new' e;
         } =
-          'new Expr ('e1')';
+          'Expr.create ('e1')';
         e1;
       };