Changeset 2071


Ignore:
Timestamp:
Aug 25, 2006, 1:30:40 AM (14 years ago)
Author:
orlov
Message:
  • Changed generation of Java input-s.
File:
1 edited

Legend:

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

    r2068 r2071  
    3636$use "rfp_asail2asail";
    3737
    38 $use Access Arithm Box Class Compare Convert CppMangle Dos List Table StdIO;
     38$use Access Arithm Box Class Compare Convert CppMangle JavaMangle
     39   Dos List Table StdIO;
    3940
    4041$const RevDate = ('$Revision$') ('$Date$');
     
    360361              {
    361362                e.package : v =
    362                   <PrintLN! s.channel 'package 'e.package';\n'>;;
     363                  <PrintLN! s.channel
     364                  'package '<Subst (&RFP-Dir-Separator) (('.')) e.package>';\n'>;;
    363365              },
    364366              <PrintLN! s.channel 'import org.refal.plus.*;'>,
     
    367369                  <Lookup &Includes v.java-module> : \{
    368370                    BOOT e = 'org.refal.plus.library.'v.java-module;
    369 //                    LOCAL e.path =
    370 //                      {
    371 //                        e.path : '.' &RFP-Dir-Separator e.rest-path = e.rest-path;
    372 //                        e.path;
    373 //                      } :: e.path,
    374 //                      <Subst (&RFP-Dir-Separator) (('.')) e.path> e.java-module;
     371                    LOCAL e.path,
     372                      <? &RFP-Include-Path> : e (e.dir) e,
     373                      e.path : \{
     374                        e.dir = /*empty*/;
     375                        e.dir &RFP-Dir-Separator e.p = e.p;
     376                      } :: e.p,
     377                      <Subst (&RFP-Dir-Separator) (('.')) e.p>
     378                      <Rfp2Java <To-Word v.java-module>>;
    375379                  };
    376380                  v.java-module : e '.' e = v.java-module;
Note: See TracChangeset for help on using the changeset viewer.