Changeset 3485


Ignore:
Timestamp:
Mar 11, 2008, 1:06:07 AM (13 years ago)
Author:
orlov
Message:
  • Generate tfun prototype.
Location:
to-imperative/trunk/compiler
Files:
2 edited

Legend:

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

    r3484 r3485  
    6666
    6767
    68 RFP_ASAIL_To_CPP (MODULE (e.ModuleName) e.asail) =
     68RFP_ASAIL_To_TPP (MODULE (e.ModuleName) e.asail) =
    6969  {
    7070    <Store &Int <Lookup &RFP_Options INT>>;
     
    133133        (s.tag LOCAL (<ToWord <Intersperse ('_') e.n>>) t.args t.ress
    134134          (ERROR e.n "Not available"))>;
     135    (TFUNC s.linkage t.name (e.args) (e.ress) e.body),
     136      <Store &Current_Func t.name>,
     137      { <Get &Entry> : e t.name e = <Store &Entry_Name <QName_To_Cpp <Concat t.name>>>;; },
     138      {
     139        \{
     140          <IsInTable &RFP_Options TRACEALL>;
     141          <IsInTable &RFP_Trace t.name>;
     142        } =
     143          <Intersperse ('.') <Concat t.name>> :: e.name,
     144          <Store &Current_Trace e.name (e.ress)>,
     145          (<Trace_Enter e.name (e.args)>) (<Trace_Exit e.name (e.ress)>);
     146        <Store &Current_Trace /*empty*/>,
     147          () ();
     148      } :: (e.trace_enter) (e.trace_exit),
     149      <MapIn &Rfp2Cpp (<Paren e.args>)> :: e.args,
     150      <MapIn &Id 'TExpr ' (e.args)> :: e.args,
     151      <MapIn &Rfp2Cpp (<Paren e.ress>)> :: e.ress,
     152      <MapIn &Id 'tout Expr ' (e.ress)> :: e.ress,
     153      <Extract_Qualifiers t.name> :: (e.qualifiers) e,
     154      <Namespace_Control e.qualifiers>
     155      ('tfun int '<Name_To_CPP "DECL-FUNC" t.name>' ('<Concat <Intersperse (', ') e.args e.ress>>') {'
     156        (e.trace_enter <ASAIL_To_CPP e.body> e.trace_exit)
     157      '}');
    135158    (s.tag s.linkage t.name (e.args) (e.ress) e.body),
    136       s.tag : \{ FUNC; "FUNC?"; TFUNC; },
     159      s.tag : \{ FUNC; "FUNC?"; } =
    137160      <Store &Current_Func t.name>,
    138161      { <Get &Entry> : e t.name e = <Store &Entry_Name <QName_To_Cpp <Concat t.name>>>;; },
  • to-imperative/trunk/compiler/rfp_asail_tpp.rfi

    r3484 r3485  
    33// $Date$
    44
    5 $func RFP_ASAIL_To_CPP t.asail_module = e.cpp;
     5$func RFP_ASAIL_To_TPP t.asail_module = e.cpp;
    66
Note: See TracChangeset for help on using the changeset viewer.