Ignore:
Timestamp:
Dec 29, 2005, 4:57:15 AM (15 years ago)
Author:
orlov
Message:
  • Added proper generation of imports in Java code.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/rfp_asail_java.rf

    r1819 r1825  
    88
    99$box Exports;
     10
     11$table Inputs;
    1012
    1113$box Module-Name;
     
    8284      } :: e.entry,
    8385      <Store &Module-Name <Rfp2Java e.ModuleName>>,
     86      (<Domain &Inputs>)
    8487      ('public class '<? &Module-Name>' {'
    8588        (v.java e.entry)
    86        '}');;
     89       '}');
     90    ();
    8791  };
    8892
     
    98102      <Store &Ress e.ress>,
    99103      { <? &Entry> : t.name = <Store &Entry-Name <Rfp2Java t.name>>;; },
    100       <RFP-Extract-Qualifiers t.name> :: (e.qualifiers) e.n,
    101       <Store &Func-Name <Rfp2Java e.n>>,
     104//      <RFP-Extract-Qualifiers t.name> :: (e.qualifiers) e.n,
     105      <Store &Func-Name <Name-To-Java t.name>>,
    102106      ('static '<Access-Mode t.name>' 'e.return-type' '
    103107        <? &Func-Name>' ('<Var-Args-To-Java e.args e.ress>') throws RefalException')
     
    197201    (CONSTEXPR s.linkage t.name (e.comment) e.expr) =
    198202      {
    199         t.name : (STATIC e) = t.name;
    200         <RFP-Extract-Qualifiers t.name> :: (e.qualifiers) e.name = e.name;
     203        t.name : (STATIC e) = <Rfp2Java t.name>;
     204        //<RFP-Extract-Qualifiers t.name> :: (e.qualifiers) e.name = e.name;
     205        <Name-To-Java t.name>;
    201206      } :: e.n,
    202207      <Const-Expr-To-Java e.expr> :: e.a (e.j-expr),
    203       e.a ('static '<Access-Mode t.name>' final Expr '<Rfp2Java e.n>' = 'e.j-expr';');
     208      e.a ('static '<Access-Mode t.name>' final Expr 'e.n' = 'e.j-expr';');
    204209    (OBJ s.linkage s.tag t.name) =
    205210      <To-Chars s.tag> : s1 e2,
    206211      <RFP-Extract-Qualifiers t.name> :: (e.qualifiers) e.n,
    207       ('static '<Access-Mode t.name>' final Expr '<Rfp2Java e.n>
     212      ('static '<Access-Mode t.name>' final Expr '<Name-To-Java t.name>
    208213        ' = new Expr (new Named' s1 <To-Lower e2>' ("'e.n'"));');
    209214    (DECL-OBJ t.name) = ;
     
    484489  {
    485490    e.qualifiers : e.namespace e.cont = <Rfp2Java e.cont e.name>;
    486     <Rfp2Java (e.qualifiers e.name)>;
     491    <Bind &Inputs (e.qualifiers) ()>,
     492      <Rfp2Java (e.qualifiers e.name)>;
    487493  };
    488494
Note: See TracChangeset for help on using the changeset viewer.