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 ETYPE_OPS_H_INCLUDED
 35 
#ifndef ETYPE_OPS_H_INCLUDED
36 
#define ETYPE_OPS_H_INCLUDED
 36 
#define ETYPE_OPS_H_INCLUDED
37 
 
 37 
 
38 
/* Operations for union ENUM_TYPE */
 38 
/* Operations for union ENUM_TYPE */
39 
 
 39 
 
40 
#pragma token PROC ( EXP : ENUM_TYPE : ) EXP : unsigned : TAG_etype #
 40 
#pragma token PROC(EXP : ENUM_TYPE :) EXP : unsigned : TAG_etype #
41 
#pragma interface TAG_etype
 41 
#pragma interface TAG_etype
42 
 
 42 
 
43 
 
 43 
 
44 
/* Operations for component name of union ENUM_TYPE */
 44 
/* Operations for component name of union ENUM_TYPE */
45 
 
 45 
 
46 
#pragma token PROC ( EXP : ENUM_TYPE : )\
 46 
#pragma token PROC(EXP : ENUM_TYPE :)\
47 
    EXP : PTR ( IDENTIFIER ) : etype_name #
 47 
    EXP : PTR(IDENTIFIER) : etype_name #
48 
#pragma interface etype_name
 48 
#pragma interface etype_name
49 
 
 49 
 
50 
/* Operations for component info of union ENUM_TYPE */
 50 
/* Operations for component info of union ENUM_TYPE */
51 
 
 51 
 
52 
#pragma token PROC ( EXP : ENUM_TYPE : )\
 52 
#pragma token PROC(EXP : ENUM_TYPE :)\
53 
    EXP : PTR ( CLASS_INFO ) : etype_info #
 53 
    EXP : PTR(CLASS_INFO) : etype_info #
54 
#pragma interface etype_info
 54 
#pragma interface etype_info
55 
 
 55 
 
56 
/* Operations for component rep of union ENUM_TYPE */
 56 
/* Operations for component rep of union ENUM_TYPE */
57 
 
 57 
 
58 
#pragma token PROC ( EXP : ENUM_TYPE : )\
 58 
#pragma token PROC(EXP : ENUM_TYPE :)\
59 
    EXP : PTR ( TYPE ) : etype_rep #
 59 
    EXP : PTR(TYPE) : etype_rep #
60 
#pragma interface etype_rep
 60 
#pragma interface etype_rep
61 
 
 61 
 
62 
/* Operations for component form of union ENUM_TYPE */
 62 
/* Operations for component form of union ENUM_TYPE */
63 
 
 63 
 
64 
#pragma token PROC ( EXP : ENUM_TYPE : )\
 64 
#pragma token PROC(EXP : ENUM_TYPE :)\
65 
    EXP : PTR ( TYPE ) : etype_form #
 65 
    EXP : PTR(TYPE) : etype_form #
66 
#pragma interface etype_form
 66 
#pragma interface etype_form
67 
 
 67 
 
68 
/* Operations for component values of union ENUM_TYPE */
 68 
/* Operations for component values of union ENUM_TYPE */
69 
 
 69 
 
70 
#pragma token PROC ( EXP : ENUM_TYPE : )\
 70 
#pragma token PROC(EXP : ENUM_TYPE :)\
71 
    EXP : PTR ( LIST ( IDENTIFIER ) ) : etype_values #
 71 
    EXP : PTR(LIST(IDENTIFIER)) : etype_values #
72 
#pragma interface etype_values
 72 
#pragma interface etype_values
73 
 
 73 
 
74 
/* Operations for component value of union ENUM_TYPE */
 74 
/* Operations for component value of union ENUM_TYPE */
75 
 
 75 
 
76 
#pragma token PROC ( EXP : ENUM_TYPE : )\
 76 
#pragma token PROC(EXP : ENUM_TYPE :)\
77 
    EXP : PTR ( EXP ) : etype_value #
 77 
    EXP : PTR(EXP) : etype_value #
78 
#pragma interface etype_value
 78 
#pragma interface etype_value
79 
 
 79 
 
80 
/* Operations for component plus of union ENUM_TYPE */
 80 
/* Operations for component plus of union ENUM_TYPE */
81 
 
 81 
 
82 
#pragma token PROC ( EXP : ENUM_TYPE : )\
 82 
#pragma token PROC(EXP : ENUM_TYPE :)\
83 
    EXP : PTR ( ulong_type ) : etype_plus #
 83 
    EXP : PTR(ulong_type) : etype_plus #
84 
#pragma interface etype_plus
 84 
#pragma interface etype_plus
85 
 
 85 
 
86 
/* Operations for field basic of union ENUM_TYPE */
 86 
/* Operations for field basic of union ENUM_TYPE */
87 
 
 87 
 
88 
#pragma token EXP const : unsigned : etype_basic_tag #
 88 
#pragma token EXP const : unsigned : etype_basic_tag #
89 
#pragma token PROC ( EXP : ENUM_TYPE : ) EXP : int : IS_etype_basic #
 89 
#pragma token PROC(EXP : ENUM_TYPE :) EXP : int : IS_etype_basic #
90 
#pragma interface etype_basic_tag IS_etype_basic
 90 
#pragma interface etype_basic_tag IS_etype_basic
91 
 
 91 
 
92 
#pragma token PROC (\
 92 
#pragma token PROC(\
93 
	EXP : IDENTIFIER :,\
 93 
	EXP : IDENTIFIER :,\
94 
	EXP : CLASS_INFO :,\
 94 
	EXP : CLASS_INFO :,\
95 
	EXP : TYPE :,\
 95 
	EXP : TYPE :,\
96 
	EXP lvalue : ENUM_TYPE :\
 96 
	EXP lvalue : ENUM_TYPE :\
97 
    ) STATEMENT MAKE_etype_basic #
 97 
    ) STATEMENT MAKE_etype_basic #
98 
#pragma interface MAKE_etype_basic
 98 
#pragma interface MAKE_etype_basic
99 
 
 99 
 
100 
#pragma token PROC (\
 100 
#pragma token PROC(\
101 
	EXP lvalue : IDENTIFIER :,\
 101 
	EXP lvalue : IDENTIFIER :,\
102 
	EXP lvalue : CLASS_INFO :,\
 102 
	EXP lvalue : CLASS_INFO :,\
103 
	EXP lvalue : TYPE :,\
 103 
	EXP lvalue : TYPE :,\
104 
	EXP lvalue : TYPE :,\
 104 
	EXP lvalue : TYPE :,\
105 
	EXP lvalue : LIST ( IDENTIFIER ) :,\
 105 
	EXP lvalue : LIST(IDENTIFIER) :,\
106 
	EXP lvalue : EXP :,\
 106 
	EXP lvalue : EXP :,\
107 
	EXP lvalue : ulong_type :,\
 107 
	EXP lvalue : ulong_type :,\
108 
	EXP : ENUM_TYPE :\
 108 
	EXP : ENUM_TYPE :\
109 
    ) STATEMENT DECONS_etype_basic #
 109 
    ) STATEMENT DECONS_etype_basic #
110 
#pragma interface DECONS_etype_basic
 110 
#pragma interface DECONS_etype_basic
111 
 
 111 
 
112 
#pragma token PROC (\
 112 
#pragma token PROC(\
113 
	EXP : DESTROYER :,\
 113 
	EXP : DESTROYER :,\
114 
	EXP lvalue : IDENTIFIER :,\
 114 
	EXP lvalue : IDENTIFIER :,\
115 
	EXP lvalue : CLASS_INFO :,\
 115 
	EXP lvalue : CLASS_INFO :,\
116 
	EXP lvalue : TYPE :,\
 116 
	EXP lvalue : TYPE :,\
117 
	EXP lvalue : TYPE :,\
 117 
	EXP lvalue : TYPE :,\
118 
	EXP lvalue : LIST ( IDENTIFIER ) :,\
 118 
	EXP lvalue : LIST(IDENTIFIER) :,\
119 
	EXP lvalue : EXP :,\
 119 
	EXP lvalue : EXP :,\
120 
	EXP lvalue : ulong_type :,\
 120 
	EXP lvalue : ulong_type :,\
121 
	EXP : ENUM_TYPE :\
 121 
	EXP : ENUM_TYPE :\
122 
    ) STATEMENT DESTROY_etype_basic #
 122 
    ) STATEMENT DESTROY_etype_basic #
123 
#pragma interface DESTROY_etype_basic
 123 
#pragma interface DESTROY_etype_basic