WebSVN – tendra.SVN – Diff – /trunk/src/utilities/make_err/obj_tok/msg_ops.h



/*
    		 Crown Copyright (c) 1997
 
    This TenDRA(r) Computer Program is subject to Copyright
    owned by the United Kingdom Secretary of State for Defence
    acting through the Defence Evaluation and Research Agency
    (DERA).  It is made available to Recipients with a
    royalty-free licence for its use, reproduction, transfer
    to other parties and amendment for any purpose not excluding
    product development provided that any such use et cetera
    shall be deemed to be acceptance of the following conditions:-
 
        (1) Its Recipients shall ensure that this Notice is
        reproduced upon any copies or amended versions of it;
 
        (2) Any amended version of it shall be clearly marked to
        show both the nature of and the organisation responsible
        for the relevant amendment or amendments;
 
        (3) Its onward transfer from a recipient to another
        party shall be deemed to be that party's acceptance of
        these conditions;
 
        (4) DERA gives no warranty or assurance as to its
        quality or suitability for any purpose and DERA accepts
        no liability whatsoever in relation to any use to which
        it may be put.
*/

#ifndef MSG_OPS_H_INCLUDED
#define MSG_OPS_H_INCLUDED
 
/* Operations for union MESSAGE */
 
#pragma token PROC(EXP : MESSAGE :) EXP : unsigned : TAG_msg #
#pragma interface TAG_msg
 
 
/* Operations for field param of union MESSAGE */
 
#pragma token EXP const : unsigned : msg_param_tag #
#pragma token PROC(EXP : MESSAGE :) EXP : int : IS_msg_param #
#pragma interface msg_param_tag IS_msg_param
 
#pragma token PROC(EXP : MESSAGE :)\
    EXP : PTR(PARAM) : msg_param_arg #
#pragma interface msg_param_arg
 
#pragma token PROC(\
	EXP : PARAM :,\
	EXP lvalue : MESSAGE :\
    ) STATEMENT MAKE_msg_param #
#pragma interface MAKE_msg_param
 
#pragma token PROC(\
	EXP lvalue : PARAM :,\
	EXP : MESSAGE :\
    ) STATEMENT DECONS_msg_param #
#pragma interface DECONS_msg_param
 
#pragma token PROC(\
	EXP : DESTROYER :,\
	EXP lvalue : PARAM :,\
	EXP : MESSAGE :\
    ) STATEMENT DESTROY_msg_param #
#pragma interface DESTROY_msg_param
 
 
/* Operations for field text of union MESSAGE */
 
#pragma token EXP const : unsigned : msg_text_tag #
#pragma token PROC(EXP : MESSAGE :) EXP : int : IS_msg_text #
#pragma interface msg_text_tag IS_msg_text
 
#pragma token PROC(EXP : MESSAGE :)\
    EXP : PTR(string) : msg_text_arg #
#pragma interface msg_text_arg
 
#pragma token PROC(\
	EXP : string :,\
	EXP lvalue : MESSAGE :\
    ) STATEMENT MAKE_msg_text #
#pragma interface MAKE_msg_text
 
#pragma token PROC(\
	EXP lvalue : string :,\
	EXP : MESSAGE :\
    ) STATEMENT DECONS_msg_text #
#pragma interface DECONS_msg_text
 
#pragma token PROC(\
	EXP : DESTROYER :,\
	EXP lvalue : string :,\
	EXP : MESSAGE :\
    ) STATEMENT DESTROY_msg_text #
#pragma interface DESTROY_msg_text

Rev 2	Rev 7
Line 1...	Line 1...
1	`/*`	1	`/*`
2	`Crown Copyright (c) 1997`	2	`Crown Copyright (c) 1997`
3		3
4	`This TenDRA(r) Computer Program is subject to Copyright`	4	`This TenDRA(r) Computer Program is subject to Copyright`
5	`owned by the United Kingdom Secretary of State for Defence`	5	`owned by the United Kingdom Secretary of State for Defence`
6	`acting through the Defence Evaluation and Research Agency`	6	`acting through the Defence Evaluation and Research Agency`
7	`(DERA). It is made available to Recipients with a`	7	`(DERA). It is made available to Recipients with a`
8	`royalty-free licence for its use, reproduction, transfer`	8	`royalty-free licence for its use, reproduction, transfer`
9	`to other parties and amendment for any purpose not excluding`	9	`to other parties and amendment for any purpose not excluding`
10	`product development provided that any such use et cetera`	10	`product development provided that any such use et cetera`
11	`shall be deemed to be acceptance of the following conditions:-`	11	`shall be deemed to be acceptance of the following conditions:-`
12		12
13	`(1) Its Recipients shall ensure that this Notice is`	13	`(1) Its Recipients shall ensure that this Notice is`
14	`reproduced upon any copies or amended versions of it;`	14	`reproduced upon any copies or amended versions of it;`
15		15
16	`(2) Any amended version of it shall be clearly marked to`	16	`(2) Any amended version of it shall be clearly marked to`
17	`show both the nature of and the organisation responsible`	17	`show both the nature of and the organisation responsible`
18	`for the relevant amendment or amendments;`	18	`for the relevant amendment or amendments;`
19		19
20	`(3) Its onward transfer from a recipient to another`	20	`(3) Its onward transfer from a recipient to another`
21	`party shall be deemed to be that party's acceptance of`	21	`party shall be deemed to be that party's acceptance of`
22	`these conditions;`	22	`these conditions;`
23		23
24	`(4) DERA gives no warranty or assurance as to its`	24	`(4) DERA gives no warranty or assurance as to its`
25	`quality or suitability for any purpose and DERA accepts`	25	`quality or suitability for any purpose and DERA accepts`
26	`no liability whatsoever in relation to any use to which`	26	`no liability whatsoever in relation to any use to which`
27	`it may be put.`	27	`it may be put.`
28	`*/`	28	`*/`
Line 35...	Line 35...
35	`#ifndef MSG_OPS_H_INCLUDED`	35	`#ifndef MSG_OPS_H_INCLUDED`
36	`#define MSG_OPS_H_INCLUDED`	36	`#define MSG_OPS_H_INCLUDED`
37		37
38	`/* Operations for union MESSAGE */`	38	`/* Operations for union MESSAGE */`
39		39
40	`#pragma token PROC ( EXP : MESSAGE : ) EXP : unsigned : TAG_msg #`	40	`#pragma token PROC(EXP : MESSAGE :) EXP : unsigned : TAG_msg #`
41	`#pragma interface TAG_msg`	41	`#pragma interface TAG_msg`
42		42
43		43
44	`/* Operations for field param of union MESSAGE */`	44	`/* Operations for field param of union MESSAGE */`
45		45
46	`#pragma token EXP const : unsigned : msg_param_tag #`	46	`#pragma token EXP const : unsigned : msg_param_tag #`
47	`#pragma token PROC ( EXP : MESSAGE : ) EXP : int : IS_msg_param #`	47	`#pragma token PROC(EXP : MESSAGE :) EXP : int : IS_msg_param #`
48	`#pragma interface msg_param_tag IS_msg_param`	48	`#pragma interface msg_param_tag IS_msg_param`
49		49
50	`#pragma token PROC ( EXP : MESSAGE : )\`	50	`#pragma token PROC(EXP : MESSAGE :)\`
51	`EXP : PTR ( PARAM ) : msg_param_arg #`	51	`EXP : PTR(PARAM) : msg_param_arg #`
52	`#pragma interface msg_param_arg`	52	`#pragma interface msg_param_arg`
53		53
54	`#pragma token PROC (\`	54	`#pragma token PROC(\`
55	`EXP : PARAM :,\`	55	`EXP : PARAM :,\`
56	`EXP lvalue : MESSAGE :\`	56	`EXP lvalue : MESSAGE :\`
57	`) STATEMENT MAKE_msg_param #`	57	`) STATEMENT MAKE_msg_param #`
58	`#pragma interface MAKE_msg_param`	58	`#pragma interface MAKE_msg_param`
59		59
60	`#pragma token PROC (\`	60	`#pragma token PROC(\`
61	`EXP lvalue : PARAM :,\`	61	`EXP lvalue : PARAM :,\`
62	`EXP : MESSAGE :\`	62	`EXP : MESSAGE :\`
63	`) STATEMENT DECONS_msg_param #`	63	`) STATEMENT DECONS_msg_param #`
64	`#pragma interface DECONS_msg_param`	64	`#pragma interface DECONS_msg_param`
65		65
66	`#pragma token PROC (\`	66	`#pragma token PROC(\`
67	`EXP : DESTROYER :,\`	67	`EXP : DESTROYER :,\`
68	`EXP lvalue : PARAM :,\`	68	`EXP lvalue : PARAM :,\`
69	`EXP : MESSAGE :\`	69	`EXP : MESSAGE :\`
70	`) STATEMENT DESTROY_msg_param #`	70	`) STATEMENT DESTROY_msg_param #`
71	`#pragma interface DESTROY_msg_param`	71	`#pragma interface DESTROY_msg_param`
72		72
73		73
74	`/* Operations for field text of union MESSAGE */`	74	`/* Operations for field text of union MESSAGE */`
75		75
76	`#pragma token EXP const : unsigned : msg_text_tag #`	76	`#pragma token EXP const : unsigned : msg_text_tag #`
77	`#pragma token PROC ( EXP : MESSAGE : ) EXP : int : IS_msg_text #`	77	`#pragma token PROC(EXP : MESSAGE :) EXP : int : IS_msg_text #`
78	`#pragma interface msg_text_tag IS_msg_text`	78	`#pragma interface msg_text_tag IS_msg_text`
79		79
80	`#pragma token PROC ( EXP : MESSAGE : )\`	80	`#pragma token PROC(EXP : MESSAGE :)\`
81	`EXP : PTR ( string ) : msg_text_arg #`	81	`EXP : PTR(string) : msg_text_arg #`
82	`#pragma interface msg_text_arg`	82	`#pragma interface msg_text_arg`
83		83
84	`#pragma token PROC (\`	84	`#pragma token PROC(\`
85	`EXP : string :,\`	85	`EXP : string :,\`
86	`EXP lvalue : MESSAGE :\`	86	`EXP lvalue : MESSAGE :\`
87	`) STATEMENT MAKE_msg_text #`	87	`) STATEMENT MAKE_msg_text #`
88	`#pragma interface MAKE_msg_text`	88	`#pragma interface MAKE_msg_text`
89		89
90	`#pragma token PROC (\`	90	`#pragma token PROC(\`
91	`EXP lvalue : string :,\`	91	`EXP lvalue : string :,\`
92	`EXP : MESSAGE :\`	92	`EXP : MESSAGE :\`
93	`) STATEMENT DECONS_msg_text #`	93	`) STATEMENT DECONS_msg_text #`
94	`#pragma interface DECONS_msg_text`	94	`#pragma interface DECONS_msg_text`
95		95
96	`#pragma token PROC (\`	96	`#pragma token PROC(\`
97	`EXP : DESTROYER :,\`	97	`EXP : DESTROYER :,\`
98	`EXP lvalue : string :,\`	98	`EXP lvalue : string :,\`
99	`EXP : MESSAGE :\`	99	`EXP : MESSAGE :\`
100	`) STATEMENT DESTROY_msg_text #`	100	`) STATEMENT DESTROY_msg_text #`
101	`#pragma interface DESTROY_msg_text`	101	`#pragma interface DESTROY_msg_text`

Subversion Repositories tendra.SVN

(root)/trunk/src/utilities/make_err/obj_tok/msg_ops.h – Rev 2 → 7