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_lex.rf

    r1464 r1825  
    479479    v = e.dirname &RFP-Dir-Separator;
    480480    e = '.' &RFP-Dir-Separator;
    481   } :: e.dirname,
     481  } :: e.dirn,
    482482//  {
    483483//    e.name $iter { e.name : e1 '.' e2 = e1 &RFP-Dir-Separator e2; } :: e.name,
     
    487487    <In-Table? &RFP-Options CASE-INSENSITIVE> \!
    488488      {
    489         $trap <Open-Dir e.dirname> $with {
     489        $trap <Open-Dir e.dirn> $with {
    490490          e = $fail;
    491491        };
     
    498498              s.ci? : CI, <To-Upper e.basename> : e.NAME;
    499499            } =
    500             (<Try-Open e.dirname e.basename '.rfi'>);;
     500            (<Try-Open e.dirn e.basename '.rfi'>);;
    501501        };
    502502      } :: e.res,
    503503      e.res : (e.source) =
    504504      e.source;
    505     <Try-Open e.dirname e.name '.rfi'>;
    506   };
     505    <Try-Open e.dirn e.name '.rfi'>;
     506  } :: e.source,
     507  {
     508    <? &RFP-Boot-Path> :: e.tmp, e.tmp : e (e.dirname) e =
     509      <Bind &RFP-Includes (e.name) (BOOT e.dirn)>;
     510    <Bind &RFP-Includes (e.name) (LOCAL e.dirn)>;
     511  },
     512  e.source;
    507513
    508514Try-Open e.filename =
Note: See TracChangeset for help on using the changeset viewer.