Changeset 2623


Ignore:
Timestamp:
Apr 4, 2007, 9:41:25 PM (14 years ago)
Author:
orlov
Message:
  • Change one-line comments from '*' to ''.
  • Use rfp_src.rf from compiler.
Location:
to-imperative/trunk/RfpUpgrader
Files:
1 added
2 deleted
1 edited
1 moved

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/RfpUpgrader/RfpUpgrader.rf

    r2614 r2623  
    33$use Access Arithm Box Class Compare Convert Dir Dos File List StdIO Table;
    44
    5 $use "rfp_src" "rfp_lex" "rfp_parse" "rfp_helper";
     5$use "rfpc" "rfp_src" "rfp_lex" "rfp_parse" "rfp_helper";
    66
    77// information about available options
     
    229229  e.tokens $iter {
    230230    e.tokens : t.first e.rest = t.first : {
    231       ((s.line s.col) (s.tag e.val)),
     231      (((s.line s.col) t) (s.tag e.val)),
    232232        s.tag : \{ WORD = 0; QWORD = 2; } :: s.extra =
    233233        {
     
    267267            <To-Upper e.val> :: e.val,
    268268            {
    269               <? &Parse> : Use = <Lookup &Uses e.val>;
     269              <? &Parse> : Use = {
     270                <Lookup &Uses e.val>;
     271                $error "Can't find module " e.val;
     272              };
    270273              e.val;
    271274            } :: e.val,
     
    278281          <Put &Substs (Word s.line s.col <Length e.val> '"' e.val '"')>;
    279282        };
    280       ((s.line s.col) (s.type e.name)),
     283      (((s.line s.col) (s.e-line s.e-col)) (s.type e.name)),
    281284        s.type : \{ SVAR; TVAR; VVAR; EVAR; },
    282285        # \{
    283286          <All &IsIdentSymbol (e.name)> # <In-Table? &RFP-Options CASE-INSENSITIVE>;
    284           e.name : /*empty*/;
     287          e.name : '$' e;
    285288        } =
     289        <Length e.name> :: s.len,
    286290        {
    287           <In-Table? &RFP-Options CASE-INSENSITIVE> = <To-Lower e.name>;
    288           e.name;
    289         } :: e.name,
    290         {
    291           e.name : '.' e.n = '.' <Convert e.n>;
    292           <Convert e.name>;
    293         } :: e.new-name,
    294         <Put &Substs (Var s.line <"+" s.col 1> <Length e.name> e.new-name)>;
     291          <"-" <"-" s.e-col s.col> 1> : s.len = <Convert e.name> s.len;
     292          '.' <Convert e.name> <"+" s.len 1>;
     293        } :: e.new-name s.len,
     294        <Put &Substs (Var s.line <"+" s.col 1> s.len e.new-name)>;
    295295      (t (SEMICOLON)) =
    296296        <Store &Parse /*empty*/>;
    297       ((s.line s.col) (s.keyword)),
     297      (((s.line s.col) t) (s.keyword)),
    298298        s.keyword : \{
    299299          USE = <Store &Parse Use>;
     
    311311      \{ (t (REF)); (t (LBRACKET)); } =
    312312        <Store &Parse Ref>;
     313      (((s.line s.col) (s.e-line s.e-col)) (COMMENT e.comment)),
     314        # \{ e.comment : e (e) e; } =
     315        <Put &Substs (Comment s.line s.col <"-" s.e-col s.col> '//' e.comment)>;
    313316      t = ;
    314317    },
Note: See TracChangeset for help on using the changeset viewer.