source: to-imperative/trunk/samples/Syntax/static1.cc @ 715

Last change on this file since 715 was 715, checked in by orlov, 18 years ago
  • Reflection on compiler changes.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.5 KB
Line 
1#include <rf_core.hh>
2
3namespace refal
4{
5
6using namespace rfrt;
7
8namespace static1
9{
10
11static const Expr _c_16 = Word::create_expr ("X") + Word::create_expr ("A") + Word::create_expr ("B") + Word::create_expr ("C") + Word::create_expr ("D");
12
13static const Expr _c_17 = Expr (_c_16, 2, 2);
14
15static const Expr _c_0 = Word::create_expr ("A") + (_c_17) () + Word::create_expr ("D");
16
17static const Expr _c_18 = Expr (_c_16, 3, 2);
18
19static const Expr _c_5 = Word::create_expr ("A") + Word::create_expr ("B") + (_c_18) () + Word::create_expr ("E") + Word::create_expr ("F");
20
21static const Expr _c_1 = Expr (_c_5, 0, 2);
22
23static const Expr _c_19 = Expr (_c_16, 0, 3);
24
25static const Expr _c_8 = (_c_1) () + (_c_19) () + (_c_16) () + (_c_17) () + (_c_18) ();
26
27static const Expr _c_2 = Expr (_c_8, 0, 1);
28
29static const Expr _c_3 = (_c_2) ();
30
31static const Expr _c_4 = Word::create_expr ("D") + (_c_17) () + Word::create_expr ("A");
32
33static const Expr _c_7 = Word::create_expr ("A") + Word::create_expr ("X") + (_c_18) () + Word::create_expr ("Y") + Word::create_expr ("B") + (Word::create_expr ("Z") + Word::create_expr ("Z")) ();
34
35static const Expr _c_6 = Word::create_expr ("M") + (Expr (_c_7, 1, 3)) () + Word::create_expr ("N");
36
37static const Expr _c_9 = Expr (_c_8, 1, 2);
38
39static const Expr _c_13 = ShortInt::create_expr (1) + ShortInt::create_expr (2) + ShortInt::create_expr (3) + ShortInt::create_expr (4);
40
41static const Expr _c_10 = Expr (_c_13, 0, 2);
42
43static const Expr _c_11 = Expr (_c_13, 2, 2);
44
45static const Expr _c_12 = Expr (_c_13, 1, 2);
46
47static const Expr _c_14 = Expr (_c_13, 0, 3);
48
49static const Expr _c_15 = Expr (_c_13, 1, 3);
50
51RF_FUNC (Main, (), (RF_RES _v_res1))
52  Expr _ve__e__e_tmp_m_static1rf_m_3_m_17 (_c_0);
53  Expr _ve__e__e_tmp_m_static1rf_m_4_m_11 (_c_1);
54  Expr _ve__e__e_tmp_m_static1rf_m_5_m_13 (_c_2);
55  Expr _ve__e__e_tmp_m_static1rf_m_6_m_15 (_c_3);
56  Expr _ve__e__e_tmp_m_static1rf_m_7_m_17 (_c_4);
57  Expr _ve__e__e_tmp_m_static1rf_m_8_m_21 (_c_5);
58  Expr _ve__e__e_tmp_m_static1rf_m_9_m_23 (_c_6);
59  Expr _ve__e__e_tmp_m_static1rf_m_10_m_27 (_c_7);
60  Expr _ve__e__e_tmp_m_static1rf_m_11_m_45 (_c_8);
61  Expr _ve__e__e_tmp_m_static1rf_m_12_m_27 (_c_9);
62  Expr _ve__e__e_tmp_m_static1rf_m_13_m_11 (_c_10);
63  Expr _ve__e__e_tmp_m_static1rf_m_14_m_11 (_c_11);
64  Expr _ve__e__e_tmp_m_static1rf_m_15_m_11 (_c_12);
65  Expr _ve__e__e_tmp_m_static1rf_m_16_m_15 (_c_13);
66  Expr _ve__e__e_tmp_m_static1rf_m_17_m_13 (_c_14);
67  Expr _ve__e__e_tmp_m_static1rf_m_18_m_13 (_c_15);
68  _v_res1 = empty;
69RF_END
70
71}
72
73rfrt::Entry rf_entry (static1::Main);
74
75}
Note: See TracBrowser for help on using the repository browser.