Subversion Repositories tendra.SVN

Rev

Rev 5 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5 Rev 6
Line 35... Line 35...
35 
#ifndef SORT_OPS_H_INCLUDED
 35 
#ifndef SORT_OPS_H_INCLUDED
36 
#define SORT_OPS_H_INCLUDED
 36 
#define SORT_OPS_H_INCLUDED
37 
 
 37 
 
38 
/* Operations for union SORT */
 38 
/* Operations for union SORT */
39 
 
 39 
 
40 
#pragma token PROC ( EXP : SORT : ) EXP : unsigned : TAG_sort #
 40 
#pragma token PROC(EXP : SORT :) EXP : unsigned : TAG_sort #
41 
#pragma interface TAG_sort
 41 
#pragma interface TAG_sort
42 
 
 42 
 
43 
 
 43 
 
44 
/* Operations for component name of union SORT */
 44 
/* Operations for component name of union SORT */
45 
 
 45 
 
46 
#pragma token PROC ( EXP : SORT : )\
 46 
#pragma token PROC(EXP : SORT :)\
47 
    EXP : PTR ( string ) : sort_name #
 47 
    EXP : PTR(string) : sort_name #
48 
#pragma interface sort_name
 48 
#pragma interface sort_name
49 
 
 49 
 
50 
/* Operations for component caps of union SORT */
 50 
/* Operations for component caps of union SORT */
51 
 
 51 
 
52 
#pragma token PROC ( EXP : SORT : )\
 52 
#pragma token PROC(EXP : SORT :)\
53 
    EXP : PTR ( string ) : sort_caps #
 53 
    EXP : PTR(string) : sort_caps #
54 
#pragma interface sort_caps
 54 
#pragma interface sort_caps
55 
 
 55 
 
56 
/* Operations for component link of union SORT */
 56 
/* Operations for component link of union SORT */
57 
 
 57 
 
58 
#pragma token PROC ( EXP : SORT : )\
 58 
#pragma token PROC(EXP : SORT :)\
59 
    EXP : PTR ( string ) : sort_link #
 59 
    EXP : PTR(string) : sort_link #
60 
#pragma interface sort_link
 60 
#pragma interface sort_link
61 
 
 61 
 
62 
/* Operations for component unit of union SORT */
 62 
/* Operations for component unit of union SORT */
63 
 
 63 
 
64 
#pragma token PROC ( EXP : SORT : )\
 64 
#pragma token PROC(EXP : SORT :)\
65 
    EXP : PTR ( string ) : sort_unit #
 65 
    EXP : PTR(string) : sort_unit #
66 
#pragma interface sort_unit
 66 
#pragma interface sort_unit
67 
 
 67 
 
68 
/* Operations for component code of union SORT */
 68 
/* Operations for component code of union SORT */
69 
 
 69 
 
70 
#pragma token PROC ( EXP : SORT : )\
 70 
#pragma token PROC(EXP : SORT :)\
71 
    EXP : PTR ( int ) : sort_code #
 71 
    EXP : PTR(int) : sort_code #
72 
#pragma interface sort_code
 72 
#pragma interface sort_code
73 
 
 73 
 
74 
/* Operations for component mark of union SORT */
 74 
/* Operations for component mark of union SORT */
75 
 
 75 
 
76 
#pragma token PROC ( EXP : SORT : )\
 76 
#pragma token PROC(EXP : SORT :)\
77 
    EXP : PTR ( int ) : sort_mark #
 77 
    EXP : PTR(int) : sort_mark #
78 
#pragma interface sort_mark
 78 
#pragma interface sort_mark
79 
 
 79 
 
80 
/* Operations for component special of union SORT */
 80 
/* Operations for component special of union SORT */
81 
 
 81 
 
82 
#pragma token PROC ( EXP : SORT : )\
 82 
#pragma token PROC(EXP : SORT :)\
83 
    EXP : PTR ( int ) : sort_special #
 83 
    EXP : PTR(int) : sort_special #
84 
#pragma interface sort_special
 84 
#pragma interface sort_special
85 
 
 85 
 
86 
/* Operations for component edge of union SORT */
 86 
/* Operations for component edge of union SORT */
87 
 
 87 
 
88 
#pragma token PROC ( EXP : SORT : )\
 88 
#pragma token PROC(EXP : SORT :)\
89 
    EXP : PTR ( int ) : sort_edge #
 89 
    EXP : PTR(int) : sort_edge #
90 
#pragma interface sort_edge
 90 
#pragma interface sort_edge
91 
 
 91 
 
92 
/* Operations for component info of union SORT */
 92 
/* Operations for component info of union SORT */
93 
 
 93 
 
94 
#pragma token PROC ( EXP : SORT : )\
 94 
#pragma token PROC(EXP : SORT :)\
95 
    EXP : PTR ( SORT_INFO ) : sort_info #
 95 
    EXP : PTR(SORT_INFO) : sort_info #
96 
#pragma interface sort_info
 96 
#pragma interface sort_info
97 
 
 97 
 
98 
/* Operations for field basic of union SORT */
 98 
/* Operations for field basic of union SORT */
99 
 
 99 
 
100 
#pragma token EXP const : unsigned : sort_basic_tag #
 100 
#pragma token EXP const : unsigned : sort_basic_tag #
101 
#pragma token PROC ( EXP : SORT : ) EXP : int : IS_sort_basic #
 101 
#pragma token PROC(EXP : SORT :) EXP : int : IS_sort_basic #
102 
#pragma interface sort_basic_tag IS_sort_basic
 102 
#pragma interface sort_basic_tag IS_sort_basic
103 
 
 103 
 
104 
#pragma token PROC (\
 104 
#pragma token PROC(\
105 
	EXP : string :,\
 105 
	EXP : string :,\
106 
	EXP : string :,\
 106 
	EXP : string :,\
107 
	EXP : string :,\
 107 
	EXP : string :,\
108 
	EXP : string :,\
 108 
	EXP : string :,\
109 
	EXP : int :,\
 109 
	EXP : int :,\
Line 113... Line 113...
113 
	EXP : SORT_INFO :,\
 113 
	EXP : SORT_INFO :,\
114 
	EXP lvalue : SORT :\
 114 
	EXP lvalue : SORT :\
115 
    ) STATEMENT MAKE_sort_basic #
 115 
    ) STATEMENT MAKE_sort_basic #
116 
#pragma interface MAKE_sort_basic
 116 
#pragma interface MAKE_sort_basic
117 
 
 117 
 
118 
#pragma token PROC (\
 118 
#pragma token PROC(\
119 
	EXP lvalue : string :,\
 119 
	EXP lvalue : string :,\
120 
	EXP lvalue : string :,\
 120 
	EXP lvalue : string :,\
121 
	EXP lvalue : string :,\
 121 
	EXP lvalue : string :,\
122 
	EXP lvalue : string :,\
 122 
	EXP lvalue : string :,\
123 
	EXP lvalue : int :,\
 123 
	EXP lvalue : int :,\
Line 127... Line 127...
127 
	EXP lvalue : SORT_INFO :,\
 127 
	EXP lvalue : SORT_INFO :,\
128 
	EXP : SORT :\
 128 
	EXP : SORT :\
129 
    ) STATEMENT DECONS_sort_basic #
 129 
    ) STATEMENT DECONS_sort_basic #
130 
#pragma interface DECONS_sort_basic
 130 
#pragma interface DECONS_sort_basic
131 
 
 131 
 
132 
#pragma token PROC (\
 132 
#pragma token PROC(\
133 
	EXP : DESTROYER :,\
 133 
	EXP : DESTROYER :,\
134 
	EXP lvalue : string :,\
 134 
	EXP lvalue : string :,\
135 
	EXP lvalue : string :,\
 135 
	EXP lvalue : string :,\
136 
	EXP lvalue : string :,\
 136 
	EXP lvalue : string :,\
137 
	EXP lvalue : string :,\
 137 
	EXP lvalue : string :,\