Changeset 3913


Ignore:
Timestamp:
Sep 12, 2008, 6:34:28 PM (12 years ago)
Author:
orlov
Message:
  • main function generation.
File:
1 edited

Legend:

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

    r3912 r3913  
    9494      <Store &Current_Namespace /*empty*/>,
    9595      {
    96         <Get &Entry_Name> : v.name = ('rfrt::Entry rf_entry (' v.name ');');;
     96        <Get &Entry_Name> : v.name =
     97          //T/ ('rfrt::Entry rf_entry (' v.name ');');;
     98          ('tfun int main (int argc, char *argv[]) {'(
     99            ('for (int i = 0; i < ts::realsuperSize; i++) {'(
     100              ('tct(atRank(i));')
     101              ('(int)fab::init_();')
     102            )'}')
     103            ('TExpr res;')
     104            (v.name'(res);')
     105            ('for (int i = 0; i < ts::realsuperSize; i++) {'(
     106              ('tct(atRank(i));')
     107              ('(int)fab::cleanup_();')
     108            )'}')
     109            ('return 0;')
     110          )'}');;
    97111      } :: e.entry,
    98112      {
     
    119133          e.nc
    120134          ('tfun int init_ () {' (e.init_consts ('return 0;')) '}')
    121           ('tfun int cleanup_ () {' (e.clear_consts ('return 0;')) '}')
     135          ('tfun int cleanup_ () {' (e.clear_consts ('global_exprs.clear();') ('return 0;')) '}')
    122136//T/         ('static AtStart init_registrator_ (&init_);')
    123137          <Map &Close_Namespace (<Get &Current_Namespace>)>
     
    136150      <Map &Close_Namespace (<Get &Current_Namespace>)>
    137151      e.decl_consts
    138       v.cpp e.init /*e.entry*/;;
     152      v.cpp e.init ('GlobalExprs global_exprs;') e.entry;;
    139153  };
    140154
Note: See TracChangeset for help on using the changeset viewer.