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 PAR_OPS_H_INCLUDED
35
#ifndef PAR_OPS_H_INCLUDED
36
#define PAR_OPS_H_INCLUDED
36
#define PAR_OPS_H_INCLUDED
37
 
37
 
38
/* Operations for union PARAMETER */
38
/* Operations for union PARAMETER */
39
 
39
 
40
#pragma token PROC ( EXP : PARAMETER : ) EXP : unsigned : TAG_par #
40
#pragma token PROC(EXP : PARAMETER :) EXP : unsigned : TAG_par #
41
#pragma interface TAG_par
41
#pragma interface TAG_par
42
 
42
 
43
 
43
 
44
/* Operations for component name of union PARAMETER */
44
/* Operations for component name of union PARAMETER */
45
 
45
 
46
#pragma token PROC ( EXP : PARAMETER : )\
46
#pragma token PROC(EXP : PARAMETER :)\
47
    EXP : PTR ( string ) : par_name #
47
    EXP : PTR(string) : par_name #
48
#pragma interface par_name
48
#pragma interface par_name
49
 
49
 
50
/* Operations for component type of union PARAMETER */
50
/* Operations for component type of union PARAMETER */
51
 
51
 
52
#pragma token PROC ( EXP : PARAMETER : )\
52
#pragma token PROC(EXP : PARAMETER :)\
53
    EXP : PTR ( SORT ) : par_type #
53
    EXP : PTR(SORT) : par_type #
54
#pragma interface par_type
54
#pragma interface par_type
55
 
55
 
56
/* Operations for component brk of union PARAMETER */
56
/* Operations for component brk of union PARAMETER */
57
 
57
 
58
#pragma token PROC ( EXP : PARAMETER : )\
58
#pragma token PROC(EXP : PARAMETER :)\
59
    EXP : PTR ( int ) : par_brk #
59
    EXP : PTR(int) : par_brk #
60
#pragma interface par_brk
60
#pragma interface par_brk
61
 
61
 
62
/* Operations for component align of union PARAMETER */
62
/* Operations for component align of union PARAMETER */
63
 
63
 
64
#pragma token PROC ( EXP : PARAMETER : )\
64
#pragma token PROC(EXP : PARAMETER :)\
65
    EXP : PTR ( int ) : par_align #
65
    EXP : PTR(int) : par_align #
66
#pragma interface par_align
66
#pragma interface par_align
67
 
67
 
68
/* Operations for component intro of union PARAMETER */
68
/* Operations for component intro of union PARAMETER */
69
 
69
 
70
#pragma token PROC ( EXP : PARAMETER : )\
70
#pragma token PROC(EXP : PARAMETER :)\
71
    EXP : PTR ( int ) : par_intro #
71
    EXP : PTR(int) : par_intro #
72
#pragma interface par_intro
72
#pragma interface par_intro
73
 
73
 
74
/* Operations for field basic of union PARAMETER */
74
/* Operations for field basic of union PARAMETER */
75
 
75
 
76
#pragma token EXP const : unsigned : par_basic_tag #
76
#pragma token EXP const : unsigned : par_basic_tag #
77
#pragma token PROC ( EXP : PARAMETER : ) EXP : int : IS_par_basic #
77
#pragma token PROC(EXP : PARAMETER :) EXP : int : IS_par_basic #
78
#pragma interface par_basic_tag IS_par_basic
78
#pragma interface par_basic_tag IS_par_basic
79
 
79
 
80
#pragma token PROC (\
80
#pragma token PROC(\
81
	EXP : string :,\
81
	EXP : string :,\
82
	EXP : SORT :,\
82
	EXP : SORT :,\
83
	EXP : int :,\
83
	EXP : int :,\
84
	EXP : int :,\
84
	EXP : int :,\
85
	EXP : int :,\
85
	EXP : int :,\
86
	EXP lvalue : PARAMETER :\
86
	EXP lvalue : PARAMETER :\
87
    ) STATEMENT MAKE_par_basic #
87
    ) STATEMENT MAKE_par_basic #
88
#pragma interface MAKE_par_basic
88
#pragma interface MAKE_par_basic
89
 
89
 
90
#pragma token PROC (\
90
#pragma token PROC(\
91
	EXP lvalue : string :,\
91
	EXP lvalue : string :,\
92
	EXP lvalue : SORT :,\
92
	EXP lvalue : SORT :,\
93
	EXP lvalue : int :,\
93
	EXP lvalue : int :,\
94
	EXP lvalue : int :,\
94
	EXP lvalue : int :,\
95
	EXP lvalue : int :,\
95
	EXP lvalue : int :,\
96
	EXP : PARAMETER :\
96
	EXP : PARAMETER :\
97
    ) STATEMENT DECONS_par_basic #
97
    ) STATEMENT DECONS_par_basic #
98
#pragma interface DECONS_par_basic
98
#pragma interface DECONS_par_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 : SORT :,\
103
	EXP lvalue : SORT :,\
104
	EXP lvalue : int :,\
104
	EXP lvalue : int :,\
105
	EXP lvalue : int :,\
105
	EXP lvalue : int :,\