Changeset 3409

Timestamp:

Feb 14, 2008, 12:36:00 AM (13 years ago)

Author:

yura

Message:

• It seems $native works.

File:

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

to-imperative/trunk/compiler/rfp_asail_java.rf

@@ -534 +534 @@
       s.javaType : \{"boolean"; "char"; "byte"; "short"; "int"; "long";} =
         'Symbol.'s.javaType'Value('<Rfp2Java t.var>')';
-      '('s.javaType') Symbol.objectValue('<Rfp2Java t.var>')';
+      '(('s.javaType') Symbol.objectValue('<Rfp2Java t.var>'))';
     };
     EVAR =
       <ToChars s.javaType> : e.javaElemType '[]', <ToWord e.javaElemType> :: s.javaElemType,
-      '('s.javaType') Symbol.toArrayValue('<Rfp2Java t.var>', new 's.javaElemType'['<Rfp2Java t.var>'.length()];';
+      {
+        s.javaElemType : \{"boolean"; "char"; "byte"; "short"; "int"; "long";} =
+          'Symbol.arrayValue('<Rfp2Java t.var>', new 's.javaElemType'['<Rfp2Java t.var>'.length()])';
+        '(('s.javaType') Symbol.arrayValue('<Rfp2Java t.var>', new 's.javaElemType'['<Rfp2Java t.var>'.length()]))';
+      };
   };
 
 $func ConvertFrom t.var e.arg = e;
-  
 ConvertFrom t.var e.arg,
   t.var : (s.refType e),
@@ -556 +559 @@
   <Del_Pragmas <Gener_Var_Indices 1 (<Vars e.in>) 'arg'>> : e.rfArgTypes s,
   <Del_Pragmas <Gener_Var_Indices 1 (<Vars e.out>) 'res'>> : e.rfResTypes s,
-  <PrintLn 1>,
   {
     s.methodName : "" = 'new ' s.className 0;
@@ -562 +564 @@
     s.className '.' s.methodName 0;
   } :: e.funcHead s.shift,
-  <PrintLn 1>,
   {
     s.shift : 1 = e.rfArgTypes : t e.rfArgTypes2, e.rfArgTypes2;
     e.rfArgTypes;
   } :: e.rfArgTypes2,
-  <PrintLn 1>,
   0 $iter {
-    <WriteLn s.num e.javaArgTypes e.rfArgTypes2>,
-    e.args <ConvertTo <L s.num e.javaArgTypes> <L s.num e.rfArgTypes2>> <Add s.num 1>; 
+    {e.args : /**/ = /**/; ', ';} :: e.comma,
+    e.args e.comma <ConvertTo <L s.num e.javaArgTypes> <L s.num e.rfArgTypes2>> <Add s.num 1>; 
   } :: e.args s.num,
   <Length e.javaArgTypes> : s.num =
-  <PrintLn 3>,
-  e.funcHead '(' e.args ');' :: v.funcCall,
-  <PrintLn e.rfResTypes>,
+  e.funcHead '(' e.args ')' :: v.funcCall,
   e.rfResTypes : {
     /**/ = v.funcCall';';
     t.rfResType, (<Rfp2Java e.rfResTypes>'.assign('<ConvertFrom t.rfResType v.funcCall>');');
   } :: e.body =
-  <PrintLn 1>,
   ()
   e.refalFormat
-  ('static '<Access_Mode s.linkage>' void '
-  <Name_To_Java t.qname>' ('<Var_Args_To_Java Expr e.rfArgTypes Result e.rfResTypes>') throws RefalException')
-  ('{' ('try {' (e.body) '} catch (java.lang.Exception e) {' ('throw new org.refal.plus.RefalException("'<Get &Module_Name>'", "'<Name_To_Java t.qname>'", e.toString());')'}') '}');
+  ('static '<Access_Mode s.linkage>' void ' <Name_To_Java t.qname>' ('<Var_Args_To_Java Expr e.rfArgTypes Result e.rfResTypes>') throws RefalException {'
+    ('try {' (e.body) '} catch (java.lang.Exception e) {' ('throw new org.refal.plus.RefalException("'<Get &Module_Name>'", "'<Name_To_Java t.qname>'", e.toString());')'}')
+  '}' );
   /*
   {