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/rfpc.rf

    r1819 r1825  
    303303                  e.exports;
    304304              } :: e.exports,
    305               <RFP-ASAIL-To-Java t.asail-mod-name (e.exports) e.module> :: e.module,
     305              <RFP-ASAIL-To-Java t.asail-mod-name (e.exports) e.module> :: (e.inputs) e.module,
    306306              <Verbose "compilation from as-ail to java finished">,
    307307              <Open-Channel e.basename ('.java')> :: s.channel s.need-close?,
     
    309309                e.dirname : v =
    310310                  <PrintLN! s.channel
    311                   'package '<Subst (&RFP-Dir-Separator) (('.')) e.dirname>';'>;;
     311                  'package '<Subst (&RFP-Dir-Separator) (('.')) e.dirname>';\n'>;;
    312312              },
    313313              <PrintLN! s.channel 'import org.refal.plus.*;'>,
     314              {
     315                e.inputs : e (e.java-module) e,
     316                  <Lookup &RFP-Includes <To-Chars e.java-module>> : {
     317                    BOOT e = 'org.refal.plus.library.'e.java-module;
     318                    LOCAL e.path =
     319                      <Subst (&RFP-Dir-Separator) (('.')) e.path> e.java-module;
     320                } :: e.java-module,
     321                  <PrintLN! s.channel 'import 'e.java-module';'>,
     322                  $fail;;
     323              },
    314324              <CPP-Pretty-Print 0 s.channel () e.module>,
    315325              { s.need-close? : 1 = <Close-Channel s.channel>;; },
     
    324334  ((('I') ('ipath')) IPATH
    325335    ("dir") "add <dir> to the list of directories to be searched" "for .rfi files")
     336  ((('B') ('bootpath')) BPATH
     337    ("dir") "add <dir> to the list of directories to be searched" "for standard library .rfi files")
    326338  ((('ne') ('no-elaborate')) (BIND NO-ELABORATE))
    327339  ((('nc') ('no-check')) (BIND NO-CHECK)
     
    414426                  <? &RFP-Include-Path> : e1 (e2 &RFP-Dir-Separator),
    415427                    <Store &RFP-Include-Path e1 (e2)>;
     428                };
     429            };
     430          BPATH =
     431            <Store &RFP-Boot-Path <? &RFP-Boot-Path> (v.arg)>,
     432            {
     433              $iter
     434                # \{
     435                  <? &RFP-Boot-Path> : e1 (e2 &RFP-Dir-Separator),
     436                    <Store &RFP-Boot-Path e1 (e2)>;
    416437                };
    417438            };
     
    468489
    469490RFP-Set-Path =
    470   <Store &RFP-Include-Path <? &RFP-Include-Path> &RFP-Default-Include-Path>;
     491  <Store &RFP-Boot-Path <? &RFP-Boot-Path> &RFP-Default-Include-Path>,
     492  <Store &RFP-Include-Path <? &RFP-Include-Path> <? &RFP-Boot-Path>>;
    471493
    472494Get-Ready-To-Work e.Items =
Note: See TracChangeset for help on using the changeset viewer.