Subversion Repositories tendra.SVN

Rev

Rev 2 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 7
Line 35... Line 35...
35 
#ifndef CONS_OPS_H_INCLUDED
 35 
#ifndef CONS_OPS_H_INCLUDED
36 
#define CONS_OPS_H_INCLUDED
 36 
#define CONS_OPS_H_INCLUDED
37 
 
 37 
 
38 
/* Operations for union CONSTRUCT */
 38 
/* Operations for union CONSTRUCT */
39 
 
 39 
 
40 
#pragma token PROC ( EXP : CONSTRUCT : ) EXP : unsigned : TAG_cons #
 40 
#pragma token PROC(EXP : CONSTRUCT :) EXP : unsigned : TAG_cons #
41 
#pragma interface TAG_cons
 41 
#pragma interface TAG_cons
42 
 
 42 
 
43 
 
 43 
 
44 
/* Operations for component name of union CONSTRUCT */
 44 
/* Operations for component name of union CONSTRUCT */
45 
 
 45 
 
46 
#pragma token PROC ( EXP : CONSTRUCT : )\
 46 
#pragma token PROC(EXP : CONSTRUCT :)\
47 
    EXP : PTR ( string ) : cons_name #
 47 
    EXP : PTR(string) : cons_name #
48 
#pragma interface cons_name
 48 
#pragma interface cons_name
49 
 
 49 
 
50 
/* Operations for component encode of union CONSTRUCT */
 50 
/* Operations for component encode of union CONSTRUCT */
51 
 
 51 
 
52 
#pragma token PROC ( EXP : CONSTRUCT : )\
 52 
#pragma token PROC(EXP : CONSTRUCT :)\
53 
    EXP : PTR ( unsigned ) : cons_encode #
 53 
    EXP : PTR(unsigned) : cons_encode #
54 
#pragma interface cons_encode
 54 
#pragma interface cons_encode
55 
 
 55 
 
56 
/* Operations for component res of union CONSTRUCT */
 56 
/* Operations for component res of union CONSTRUCT */
57 
 
 57 
 
58 
#pragma token PROC ( EXP : CONSTRUCT : )\
 58 
#pragma token PROC(EXP : CONSTRUCT :)\
59 
    EXP : PTR ( SORT ) : cons_res #
 59 
    EXP : PTR(SORT) : cons_res #
60 
#pragma interface cons_res
 60 
#pragma interface cons_res
61 
 
 61 
 
62 
/* Operations for component pars of union CONSTRUCT */
 62 
/* Operations for component pars of union CONSTRUCT */
63 
 
 63 
 
64 
#pragma token PROC ( EXP : CONSTRUCT : )\
 64 
#pragma token PROC(EXP : CONSTRUCT :)\
65 
    EXP : PTR ( LIST ( PARAMETER ) ) : cons_pars #
 65 
    EXP : PTR(LIST(PARAMETER)) : cons_pars #
66 
#pragma interface cons_pars
 66 
#pragma interface cons_pars
67 
 
 67 
 
68 
/* Operations for component kind of union CONSTRUCT */
 68 
/* Operations for component kind of union CONSTRUCT */
69 
 
 69 
 
70 
#pragma token PROC ( EXP : CONSTRUCT : )\
 70 
#pragma token PROC(EXP : CONSTRUCT :)\
71 
    EXP : PTR ( unsigned ) : cons_kind #
 71 
    EXP : PTR(unsigned) : cons_kind #
72 
#pragma interface cons_kind
 72 
#pragma interface cons_kind
73 
 
 73 
 
74 
/* Operations for field basic of union CONSTRUCT */
 74 
/* Operations for field basic of union CONSTRUCT */
75 
 
 75 
 
76 
#pragma token EXP const : unsigned : cons_basic_tag #
 76 
#pragma token EXP const : unsigned : cons_basic_tag #
77 
#pragma token PROC ( EXP : CONSTRUCT : ) EXP : int : IS_cons_basic #
 77 
#pragma token PROC(EXP : CONSTRUCT :) EXP : int : IS_cons_basic #
78 
#pragma interface cons_basic_tag IS_cons_basic
 78 
#pragma interface cons_basic_tag IS_cons_basic
79 
 
 79 
 
80 
#pragma token PROC (\
 80 
#pragma token PROC(\
81 
	EXP : string :,\
 81 
	EXP : string :,\
82 
	EXP : unsigned :,\
 82 
	EXP : unsigned :,\
83 
	EXP : SORT :,\
 83 
	EXP : SORT :,\
84 
	EXP : LIST ( PARAMETER ) :,\
 84 
	EXP : LIST(PARAMETER) :,\
85 
	EXP : unsigned :,\
 85 
	EXP : unsigned :,\
86 
	EXP lvalue : CONSTRUCT :\
 86 
	EXP lvalue : CONSTRUCT :\
87 
    ) STATEMENT MAKE_cons_basic #
 87 
    ) STATEMENT MAKE_cons_basic #
88 
#pragma interface MAKE_cons_basic
 88 
#pragma interface MAKE_cons_basic
89 
 
 89 
 
90 
#pragma token PROC (\
 90 
#pragma token PROC(\
91 
	EXP lvalue : string :,\
 91 
	EXP lvalue : string :,\
92 
	EXP lvalue : unsigned :,\
 92 
	EXP lvalue : unsigned :,\
93 
	EXP lvalue : SORT :,\
 93 
	EXP lvalue : SORT :,\
94 
	EXP lvalue : LIST ( PARAMETER ) :,\
 94 
	EXP lvalue : LIST(PARAMETER) :,\
95 
	EXP lvalue : unsigned :,\
 95 
	EXP lvalue : unsigned :,\
96 
	EXP : CONSTRUCT :\
 96 
	EXP : CONSTRUCT :\
97 
    ) STATEMENT DECONS_cons_basic #
 97 
    ) STATEMENT DECONS_cons_basic #
98 
#pragma interface DECONS_cons_basic
 98 
#pragma interface DECONS_cons_basic
99 
 
 99 
 
100 
#pragma token PROC (\
 100 
#pragma token PROC(\
101 
	EXP : DESTROYER :,\
 101 
	EXP : DESTROYER :,\
102 
	EXP lvalue : string :,\
 102 
	EXP lvalue : string :,\
103 
	EXP lvalue : unsigned :,\
 103 
	EXP lvalue : unsigned :,\
104 
	EXP lvalue : SORT :,\
 104 
	EXP lvalue : SORT :,\
105 
	EXP lvalue : LIST ( PARAMETER ) :,\
 105 
	EXP lvalue : LIST(PARAMETER) :,\
106 
	EXP lvalue : unsigned :,\
 106 
	EXP lvalue : unsigned :,\
107 
	EXP : CONSTRUCT :\
 107 
	EXP : CONSTRUCT :\
108 
    ) STATEMENT DESTROY_cons_basic #
 108 
    ) STATEMENT DESTROY_cons_basic #
109 
#pragma interface DESTROY_cons_basic
 109 
#pragma interface DESTROY_cons_basic
110 
 
 110