Subversion Repositories tendra.SVN

Rev

Rev 2 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 7u83 1 
/*
2 
    		 Crown Copyright (c) 1997, 1998
3 
 
4 
    This TenDRA(r) Computer Program is subject to Copyright
5 
    owned by the United Kingdom Secretary of State for Defence
6 
    acting through the Defence Evaluation and Research Agency
7 
    (DERA).  It is made available to Recipients with a
8 
    royalty-free licence for its use, reproduction, transfer
9 
    to other parties and amendment for any purpose not excluding
10 
    product development provided that any such use et cetera
11 
    shall be deemed to be acceptance of the following conditions:-
12 
 
13 
        (1) Its Recipients shall ensure that this Notice is
14 
        reproduced upon any copies or amended versions of it;
15 
 
16 
        (2) Any amended version of it shall be clearly marked to
17 
        show both the nature of and the organisation responsible
18 
        for the relevant amendment or amendments;
19 
 
20 
        (3) Its onward transfer from a recipient to another
21 
        party shall be deemed to be that party's acceptance of
22 
        these conditions;
23 
 
24 
        (4) DERA gives no warranty or assurance as to its
25 
        quality or suitability for any purpose and DERA accepts
26 
        no liability whatsoever in relation to any use to which
27 
        it may be put.
28 
*/
29 
 
30 
/*
31 
    AUTOMATICALLY GENERATED FROM ALGEBRA c_class (VERSION 1.1)
32 
    BY calculus (VERSION 1.2)
33 
*/
34 
 
35 
#ifndef GRAPH_OPS_H_INCLUDED
36 
#define GRAPH_OPS_H_INCLUDED
37 
 
38 
/* Operations for union GRAPH */
39 
 
7 7u83 40 
#pragma token PROC(EXP : GRAPH :) EXP : unsigned : TAG_graph #
2 7u83 41 
#pragma interface TAG_graph
42 
 
43 
 
44 
/* Operations for component head of union GRAPH */
45 
 
7 7u83 46 
#pragma token PROC(EXP : GRAPH :)\
47 
    EXP : PTR(CLASS_TYPE) : graph_head #
2 7u83 48 
#pragma interface graph_head
49 
 
50 
/* Operations for component access of union GRAPH */
51 
 
7 7u83 52 
#pragma token PROC(EXP : GRAPH :)\
53 
    EXP : PTR(DECL_SPEC) : graph_access #
2 7u83 54 
#pragma interface graph_access
55 
 
56 
/* Operations for component tails of union GRAPH */
57 
 
7 7u83 58 
#pragma token PROC(EXP : GRAPH :)\
59 
    EXP : PTR(LIST(GRAPH)) : graph_tails #
2 7u83 60 
#pragma interface graph_tails
61 
 
62 
/* Operations for component top of union GRAPH */
63 
 
7 7u83 64 
#pragma token PROC(EXP : GRAPH :)\
65 
    EXP : PTR(GRAPH) : graph_top #
2 7u83 66 
#pragma interface graph_top
67 
 
68 
/* Operations for component equal of union GRAPH */
69 
 
7 7u83 70 
#pragma token PROC(EXP : GRAPH :)\
71 
    EXP : PTR(GRAPH) : graph_equal #
2 7u83 72 
#pragma interface graph_equal
73 
 
74 
/* Operations for component up of union GRAPH */
75 
 
7 7u83 76 
#pragma token PROC(EXP : GRAPH :)\
77 
    EXP : PTR(GRAPH) : graph_up #
2 7u83 78 
#pragma interface graph_up
79 
 
80 
/* Operations for component no of union GRAPH */
81 
 
7 7u83 82 
#pragma token PROC(EXP : GRAPH :)\
83 
    EXP : PTR(unsigned) : graph_no #
2 7u83 84 
#pragma interface graph_no
85 
 
86 
/* Operations for component off of union GRAPH */
87 
 
7 7u83 88 
#pragma token PROC(EXP : GRAPH :)\
89 
    EXP : PTR(OFFSET) : graph_off #
2 7u83 90 
#pragma interface graph_off
91 
 
92 
/* Operations for component member of union GRAPH */
93 
 
7 7u83 94 
#pragma token PROC(EXP : GRAPH :)\
95 
    EXP : PTR(LIST(IDENTIFIER)) : graph_member #
2 7u83 96 
#pragma interface graph_member
97 
 
98 
/* Operations for component tok1 of union GRAPH */
99 
 
7 7u83 100 
#pragma token PROC(EXP : GRAPH :)\
101 
    EXP : PTR(ulong_type) : graph_tok1 #
2 7u83 102 
#pragma interface graph_tok1
103 
 
104 
/* Operations for component tok2 of union GRAPH */
105 
 
7 7u83 106 
#pragma token PROC(EXP : GRAPH :)\
107 
    EXP : PTR(ulong_type) : graph_tok2 #
2 7u83 108 
#pragma interface graph_tok2
109 
 
110 
/* Operations for field basic of union GRAPH */
111 
 
112 
#pragma token EXP const : unsigned : graph_basic_tag #
7 7u83 113 
#pragma token PROC(EXP : GRAPH :) EXP : int : IS_graph_basic #
2 7u83 114 
#pragma interface graph_basic_tag IS_graph_basic
115 
 
7 7u83 116 
#pragma token PROC(\
2 7u83 117 
	EXP : CLASS_TYPE :,\
118 
	EXP : DECL_SPEC :,\
119 
	EXP lvalue : GRAPH :\
120 
    ) STATEMENT MAKE_graph_basic #
121 
#pragma interface MAKE_graph_basic
122 
 
7 7u83 123 
#pragma token PROC(\
2 7u83 124 
	EXP lvalue : CLASS_TYPE :,\
125 
	EXP lvalue : DECL_SPEC :,\
7 7u83 126 
	EXP lvalue : LIST(GRAPH) :,\
2 7u83 127 
	EXP lvalue : GRAPH :,\
128 
	EXP lvalue : GRAPH :,\
129 
	EXP lvalue : GRAPH :,\
130 
	EXP lvalue : unsigned :,\
131 
	EXP lvalue : OFFSET :,\
7 7u83 132 
	EXP lvalue : LIST(IDENTIFIER) :,\
2 7u83 133 
	EXP lvalue : ulong_type :,\
134 
	EXP lvalue : ulong_type :,\
135 
	EXP : GRAPH :\
136 
    ) STATEMENT DECONS_graph_basic #
137 
#pragma interface DECONS_graph_basic
138 
 
7 7u83 139 
#pragma token PROC(\
2 7u83 140 
	EXP : DESTROYER :,\
141 
	EXP lvalue : CLASS_TYPE :,\
142 
	EXP lvalue : DECL_SPEC :,\
7 7u83 143 
	EXP lvalue : LIST(GRAPH) :,\
2 7u83 144 
	EXP lvalue : GRAPH :,\
145 
	EXP lvalue : GRAPH :,\
146 
	EXP lvalue : GRAPH :,\
147 
	EXP lvalue : unsigned :,\
148 
	EXP lvalue : OFFSET :,\
7 7u83 149 
	EXP lvalue : LIST(IDENTIFIER) :,\
2 7u83 150 
	EXP lvalue : ulong_type :,\
151 
	EXP lvalue : ulong_type :,\
152 
	EXP : GRAPH :\
153 
    ) STATEMENT DESTROY_graph_basic #
154 
#pragma interface DESTROY_graph_basic
155 
 
156 
 
157 
#endif