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 GRAPH_OPS_H_INCLUDED
 35 
#ifndef GRAPH_OPS_H_INCLUDED
36 
#define GRAPH_OPS_H_INCLUDED
 36 
#define GRAPH_OPS_H_INCLUDED
37 
 
 37 
 
38 
/* Operations for union GRAPH */
 38 
/* Operations for union GRAPH */
39 
 
 39 
 
40 
#pragma token PROC ( EXP : GRAPH : ) EXP : unsigned : TAG_graph #
 40 
#pragma token PROC(EXP : GRAPH :) EXP : unsigned : TAG_graph #
41 
#pragma interface TAG_graph
 41 
#pragma interface TAG_graph
42 
 
 42 
 
43 
 
 43 
 
44 
/* Operations for component head of union GRAPH */
 44 
/* Operations for component head of union GRAPH */
45 
 
 45 
 
46 
#pragma token PROC ( EXP : GRAPH : )\
 46 
#pragma token PROC(EXP : GRAPH :)\
47 
    EXP : PTR ( CLASS_TYPE ) : graph_head #
 47 
    EXP : PTR(CLASS_TYPE) : graph_head #
48 
#pragma interface graph_head
 48 
#pragma interface graph_head
49 
 
 49 
 
50 
/* Operations for component access of union GRAPH */
 50 
/* Operations for component access of union GRAPH */
51 
 
 51 
 
52 
#pragma token PROC ( EXP : GRAPH : )\
 52 
#pragma token PROC(EXP : GRAPH :)\
53 
    EXP : PTR ( DECL_SPEC ) : graph_access #
 53 
    EXP : PTR(DECL_SPEC) : graph_access #
54 
#pragma interface graph_access
 54 
#pragma interface graph_access
55 
 
 55 
 
56 
/* Operations for component tails of union GRAPH */
 56 
/* Operations for component tails of union GRAPH */
57 
 
 57 
 
58 
#pragma token PROC ( EXP : GRAPH : )\
 58 
#pragma token PROC(EXP : GRAPH :)\
59 
    EXP : PTR ( LIST ( GRAPH ) ) : graph_tails #
 59 
    EXP : PTR(LIST(GRAPH)) : graph_tails #
60 
#pragma interface graph_tails
 60 
#pragma interface graph_tails
61 
 
 61 
 
62 
/* Operations for component top of union GRAPH */
 62 
/* Operations for component top of union GRAPH */
63 
 
 63 
 
64 
#pragma token PROC ( EXP : GRAPH : )\
 64 
#pragma token PROC(EXP : GRAPH :)\
65 
    EXP : PTR ( GRAPH ) : graph_top #
 65 
    EXP : PTR(GRAPH) : graph_top #
66 
#pragma interface graph_top
 66 
#pragma interface graph_top
67 
 
 67 
 
68 
/* Operations for component equal of union GRAPH */
 68 
/* Operations for component equal of union GRAPH */
69 
 
 69 
 
70 
#pragma token PROC ( EXP : GRAPH : )\
 70 
#pragma token PROC(EXP : GRAPH :)\
71 
    EXP : PTR ( GRAPH ) : graph_equal #
 71 
    EXP : PTR(GRAPH) : graph_equal #
72 
#pragma interface graph_equal
 72 
#pragma interface graph_equal
73 
 
 73 
 
74 
/* Operations for component up of union GRAPH */
 74 
/* Operations for component up of union GRAPH */
75 
 
 75 
 
76 
#pragma token PROC ( EXP : GRAPH : )\
 76 
#pragma token PROC(EXP : GRAPH :)\
77 
    EXP : PTR ( GRAPH ) : graph_up #
 77 
    EXP : PTR(GRAPH) : graph_up #
78 
#pragma interface graph_up
 78 
#pragma interface graph_up
79 
 
 79 
 
80 
/* Operations for component no of union GRAPH */
 80 
/* Operations for component no of union GRAPH */
81 
 
 81 
 
82 
#pragma token PROC ( EXP : GRAPH : )\
 82 
#pragma token PROC(EXP : GRAPH :)\
83 
    EXP : PTR ( unsigned ) : graph_no #
 83 
    EXP : PTR(unsigned) : graph_no #
84 
#pragma interface graph_no
 84 
#pragma interface graph_no
85 
 
 85 
 
86 
/* Operations for component off of union GRAPH */
 86 
/* Operations for component off of union GRAPH */
87 
 
 87 
 
88 
#pragma token PROC ( EXP : GRAPH : )\
 88 
#pragma token PROC(EXP : GRAPH :)\
89 
    EXP : PTR ( OFFSET ) : graph_off #
 89 
    EXP : PTR(OFFSET) : graph_off #
90 
#pragma interface graph_off
 90 
#pragma interface graph_off
91 
 
 91 
 
92 
/* Operations for component member of union GRAPH */
 92 
/* Operations for component member of union GRAPH */
93 
 
 93 
 
94 
#pragma token PROC ( EXP : GRAPH : )\
 94 
#pragma token PROC(EXP : GRAPH :)\
95 
    EXP : PTR ( LIST ( IDENTIFIER ) ) : graph_member #
 95 
    EXP : PTR(LIST(IDENTIFIER)) : graph_member #
96 
#pragma interface graph_member
 96 
#pragma interface graph_member
97 
 
 97 
 
98 
/* Operations for component tok1 of union GRAPH */
 98 
/* Operations for component tok1 of union GRAPH */
99 
 
 99 
 
100 
#pragma token PROC ( EXP : GRAPH : )\
 100 
#pragma token PROC(EXP : GRAPH :)\
101 
    EXP : PTR ( ulong_type ) : graph_tok1 #
 101 
    EXP : PTR(ulong_type) : graph_tok1 #
102 
#pragma interface graph_tok1
 102 
#pragma interface graph_tok1
103 
 
 103 
 
104 
/* Operations for component tok2 of union GRAPH */
 104 
/* Operations for component tok2 of union GRAPH */
105 
 
 105 
 
106 
#pragma token PROC ( EXP : GRAPH : )\
 106 
#pragma token PROC(EXP : GRAPH :)\
107 
    EXP : PTR ( ulong_type ) : graph_tok2 #
 107 
    EXP : PTR(ulong_type) : graph_tok2 #
108 
#pragma interface graph_tok2
 108 
#pragma interface graph_tok2
109 
 
 109 
 
110 
/* Operations for field basic of union GRAPH */
 110 
/* Operations for field basic of union GRAPH */
111 
 
 111 
 
112 
#pragma token EXP const : unsigned : graph_basic_tag #
 112 
#pragma token EXP const : unsigned : graph_basic_tag #
113 
#pragma token PROC ( EXP : GRAPH : ) EXP : int : IS_graph_basic #
 113 
#pragma token PROC(EXP : GRAPH :) EXP : int : IS_graph_basic #
114 
#pragma interface graph_basic_tag IS_graph_basic
 114 
#pragma interface graph_basic_tag IS_graph_basic
115 
 
 115 
 
116 
#pragma token PROC (\
 116 
#pragma token PROC(\
117 
	EXP : CLASS_TYPE :,\
 117 
	EXP : CLASS_TYPE :,\
118 
	EXP : DECL_SPEC :,\
 118 
	EXP : DECL_SPEC :,\
119 
	EXP lvalue : GRAPH :\
 119 
	EXP lvalue : GRAPH :\
120 
    ) STATEMENT MAKE_graph_basic #
 120 
    ) STATEMENT MAKE_graph_basic #
121 
#pragma interface MAKE_graph_basic
 121 
#pragma interface MAKE_graph_basic
122 
 
 122 
 
123 
#pragma token PROC (\
 123 
#pragma token PROC(\
124 
	EXP lvalue : CLASS_TYPE :,\
 124 
	EXP lvalue : CLASS_TYPE :,\
125 
	EXP lvalue : DECL_SPEC :,\
 125 
	EXP lvalue : DECL_SPEC :,\
126 
	EXP lvalue : LIST ( GRAPH ) :,\
 126 
	EXP lvalue : LIST(GRAPH) :,\
127 
	EXP lvalue : GRAPH :,\
 127 
	EXP lvalue : GRAPH :,\
128 
	EXP lvalue : GRAPH :,\
 128 
	EXP lvalue : GRAPH :,\
129 
	EXP lvalue : GRAPH :,\
 129 
	EXP lvalue : GRAPH :,\
130 
	EXP lvalue : unsigned :,\
 130 
	EXP lvalue : unsigned :,\
131 
	EXP lvalue : OFFSET :,\
 131 
	EXP lvalue : OFFSET :,\
132 
	EXP lvalue : LIST ( IDENTIFIER ) :,\
 132 
	EXP lvalue : LIST(IDENTIFIER) :,\
133 
	EXP lvalue : ulong_type :,\
 133 
	EXP lvalue : ulong_type :,\
134 
	EXP lvalue : ulong_type :,\
 134 
	EXP lvalue : ulong_type :,\
135 
	EXP : GRAPH :\
 135 
	EXP : GRAPH :\
136 
    ) STATEMENT DECONS_graph_basic #
 136 
    ) STATEMENT DECONS_graph_basic #
137 
#pragma interface DECONS_graph_basic
 137 
#pragma interface DECONS_graph_basic
138 
 
 138 
 
139 
#pragma token PROC (\
 139 
#pragma token PROC(\
140 
	EXP : DESTROYER :,\
 140 
	EXP : DESTROYER :,\
141 
	EXP lvalue : CLASS_TYPE :,\
 141 
	EXP lvalue : CLASS_TYPE :,\
142 
	EXP lvalue : DECL_SPEC :,\
 142 
	EXP lvalue : DECL_SPEC :,\
143 
	EXP lvalue : LIST ( GRAPH ) :,\
 143 
	EXP lvalue : LIST(GRAPH) :,\
144 
	EXP lvalue : GRAPH :,\
 144 
	EXP lvalue : GRAPH :,\
145 
	EXP lvalue : GRAPH :,\
 145 
	EXP lvalue : GRAPH :,\
146 
	EXP lvalue : GRAPH :,\
 146 
	EXP lvalue : GRAPH :,\
147 
	EXP lvalue : unsigned :,\
 147 
	EXP lvalue : unsigned :,\
148 
	EXP lvalue : OFFSET :,\
 148 
	EXP lvalue : OFFSET :,\
149 
	EXP lvalue : LIST ( IDENTIFIER ) :,\
 149 
	EXP lvalue : LIST(IDENTIFIER) :,\
150 
	EXP lvalue : ulong_type :,\
 150 
	EXP lvalue : ulong_type :,\
151 
	EXP lvalue : ulong_type :,\
 151 
	EXP lvalue : ulong_type :,\
152 
	EXP : GRAPH :\
 152 
	EXP : GRAPH :\
153 
    ) STATEMENT DESTROY_graph_basic #
 153 
    ) STATEMENT DESTROY_graph_basic #
154 
#pragma interface DESTROY_graph_basic
 154 
#pragma interface DESTROY_graph_basic