Changeset 3896


Ignore:
Timestamp:
Sep 2, 2008, 8:53:30 PM (12 years ago)
Author:
orlov
Message:
  • Cmd-line parser for directive in RF-files, not only RFI (something strange, FIXME\!).
File:
1 edited

Legend:

Unmodified
Added
Removed
  • to-imperative/trunk/compiler/refal/org/refal/plus/compiler/rfp_parse.rf

    r3887 r3896  
    299299};
    300300
     301// FIXME: something very strange is going on here...
    301302Parse_Module_Name =
    302303  <Expect_Token WORD QWORD> :: (e.pos) (s.type e.origname),
    303304  <Make_Name e.origname> :: e.modulename,
    304305  {
    305     (<Get &Current_Module>) (<Get &Module_Name>) : (RFI e1) (e1) =
    306       <Store &Current_Module RFI e.modulename>,
     306    (<Get &Current_Module>) (<Get &Module_Name>) : (s.RFI e1) (e1) =
     307      <Store &Current_Module s.RFI e.modulename>,
    307308      <Store &Module_Name e.modulename>;
    308     <Get &Current_Module> : RFI e.modulename;
    309     <Get &Current_Module> : RFI e.modname,
     309    <Get &Current_Module> : s.RFI e.modulename;
     310    <Get &Current_Module> : s.RFI e.modname,
    310311      <Add_Error (e.pos) ("Wrong name "e.origname" for module "<Print_Name e.modname>)>;
    311312  },
Note: See TracChangeset for help on using the changeset viewer.