1 /* This C header file is generated by NIT to compile modules and programs that requires ./../lib/standard/kernel. */
2 #ifndef standard___kernel_sep
3 #define standard___kernel_sep
4 #include <nit_common.h>
5 #include "kernel._nitni.h"
7 extern const classtable_elt_t VFT_standard___kernel___Object
[];
9 extern const classtable_elt_t VFT_standard___kernel___Sys
[];
11 extern const classtable_elt_t VFT_standard___kernel___Comparable
[];
13 extern const classtable_elt_t VFT_standard___kernel___Discrete
[];
15 extern const classtable_elt_t VFT_standard___kernel___Bool
[];
17 extern const classtable_elt_t VFT_standard___kernel___Float
[];
18 struct TBOX_Float
{ const classtable_elt_t
* vft
; bigint object_id
; float val
;};
19 val_t
BOX_Float(float val
);
20 #define UNBOX_Float(x) (((struct TBOX_Float *)(VAL2OBJ(x)))->val)
22 extern const classtable_elt_t VFT_standard___kernel___Int
[];
24 extern const classtable_elt_t VFT_standard___kernel___Char
[];
26 extern const classtable_elt_t VFT_standard___kernel___Pointer
[];
27 struct TBOX_Pointer
{ const classtable_elt_t
* vft
; bigint object_id
; void * val
;};
28 val_t
BOX_Pointer(void * val
);
29 #define UNBOX_Pointer(x) (((struct TBOX_Pointer *)(VAL2OBJ(x)))->val)
30 extern const char *LOCATE_standard___kernel
;
31 extern const int SFT_standard___kernel
[];
32 #define ID_standard___kernel___Object (SFT_standard___kernel[0])
33 #define COLOR_standard___kernel___Object (SFT_standard___kernel[1])
34 #define INIT_TABLE_POS_standard___kernel___Object (SFT_standard___kernel[2] + 0)
35 #define CALL_standard___kernel___Object___object_id(recv) ((standard___kernel___Object___object_id_t)CALL((recv), (SFT_standard___kernel[2] + 1)))
36 #define CALL_standard___kernel___Object___is_same_type(recv) ((standard___kernel___Object___is_same_type_t)CALL((recv), (SFT_standard___kernel[2] + 2)))
37 #define CALL_standard___kernel___Object_____eqeq(recv) ((standard___kernel___Object_____eqeq_t)CALL((recv), (SFT_standard___kernel[2] + 3)))
38 #define CALL_standard___kernel___Object_____neq(recv) ((standard___kernel___Object_____neq_t)CALL((recv), (SFT_standard___kernel[2] + 4)))
39 #define CALL_standard___kernel___Object___output(recv) ((standard___kernel___Object___output_t)CALL((recv), (SFT_standard___kernel[2] + 5)))
40 #define CALL_standard___kernel___Object___output_class_name(recv) ((standard___kernel___Object___output_class_name_t)CALL((recv), (SFT_standard___kernel[2] + 6)))
41 #define CALL_standard___kernel___Object___exit(recv) ((standard___kernel___Object___exit_t)CALL((recv), (SFT_standard___kernel[2] + 7)))
42 #define CALL_standard___kernel___Object___sys(recv) ((standard___kernel___Object___sys_t)CALL((recv), (SFT_standard___kernel[2] + 8)))
43 #define ID_standard___kernel___Sys (SFT_standard___kernel[3])
44 #define COLOR_standard___kernel___Sys (SFT_standard___kernel[4])
45 #define INIT_TABLE_POS_standard___kernel___Sys (SFT_standard___kernel[5] + 0)
46 #define CALL_standard___kernel___Sys___main(recv) ((standard___kernel___Sys___main_t)CALL((recv), (SFT_standard___kernel[5] + 1)))
47 #define CALL_standard___kernel___Sys___init(recv) ((standard___kernel___Sys___init_t)CALL((recv), (SFT_standard___kernel[5] + 2)))
48 #define ID_standard___kernel___Comparable (SFT_standard___kernel[6])
49 #define COLOR_standard___kernel___Comparable (SFT_standard___kernel[7])
50 #define INIT_TABLE_POS_standard___kernel___Comparable (SFT_standard___kernel[8] + 0)
51 #define CALL_standard___kernel___Comparable_____l(recv) ((standard___kernel___Comparable_____l_t)CALL((recv), (SFT_standard___kernel[8] + 1)))
52 #define CALL_standard___kernel___Comparable_____leq(recv) ((standard___kernel___Comparable_____leq_t)CALL((recv), (SFT_standard___kernel[8] + 2)))
53 #define CALL_standard___kernel___Comparable_____geq(recv) ((standard___kernel___Comparable_____geq_t)CALL((recv), (SFT_standard___kernel[8] + 3)))
54 #define CALL_standard___kernel___Comparable_____g(recv) ((standard___kernel___Comparable_____g_t)CALL((recv), (SFT_standard___kernel[8] + 4)))
55 #define CALL_standard___kernel___Comparable_____leqg(recv) ((standard___kernel___Comparable_____leqg_t)CALL((recv), (SFT_standard___kernel[8] + 5)))
56 #define CALL_standard___kernel___Comparable___is_between(recv) ((standard___kernel___Comparable___is_between_t)CALL((recv), (SFT_standard___kernel[8] + 6)))
57 #define CALL_standard___kernel___Comparable___max(recv) ((standard___kernel___Comparable___max_t)CALL((recv), (SFT_standard___kernel[8] + 7)))
58 #define CALL_standard___kernel___Comparable___min(recv) ((standard___kernel___Comparable___min_t)CALL((recv), (SFT_standard___kernel[8] + 8)))
59 #define ID_standard___kernel___Discrete (SFT_standard___kernel[9])
60 #define COLOR_standard___kernel___Discrete (SFT_standard___kernel[10])
61 #define INIT_TABLE_POS_standard___kernel___Discrete (SFT_standard___kernel[11] + 0)
62 #define CALL_standard___kernel___Discrete___succ(recv) ((standard___kernel___Discrete___succ_t)CALL((recv), (SFT_standard___kernel[11] + 1)))
63 #define CALL_standard___kernel___Discrete___prec(recv) ((standard___kernel___Discrete___prec_t)CALL((recv), (SFT_standard___kernel[11] + 2)))
64 #define CALL_standard___kernel___Discrete_____plus(recv) ((standard___kernel___Discrete_____plus_t)CALL((recv), (SFT_standard___kernel[11] + 3)))
65 #define CALL_standard___kernel___Discrete_____minus(recv) ((standard___kernel___Discrete_____minus_t)CALL((recv), (SFT_standard___kernel[11] + 4)))
66 #define CALL_standard___kernel___Discrete___distance(recv) ((standard___kernel___Discrete___distance_t)CALL((recv), (SFT_standard___kernel[11] + 5)))
67 #define ID_standard___kernel___Bool (SFT_standard___kernel[12])
68 #define COLOR_standard___kernel___Bool (SFT_standard___kernel[13])
69 #define INIT_TABLE_POS_standard___kernel___Bool (SFT_standard___kernel[14] + 0)
70 #define ID_standard___kernel___Float (SFT_standard___kernel[15])
71 #define COLOR_standard___kernel___Float (SFT_standard___kernel[16])
72 #define INIT_TABLE_POS_standard___kernel___Float (SFT_standard___kernel[17] + 0)
73 #define CALL_standard___kernel___Float_____leq(recv) ((standard___kernel___Float_____leq_t)CALL((recv), (SFT_standard___kernel[17] + 1)))
74 #define CALL_standard___kernel___Float_____l(recv) ((standard___kernel___Float_____l_t)CALL((recv), (SFT_standard___kernel[17] + 2)))
75 #define CALL_standard___kernel___Float_____geq(recv) ((standard___kernel___Float_____geq_t)CALL((recv), (SFT_standard___kernel[17] + 3)))
76 #define CALL_standard___kernel___Float_____g(recv) ((standard___kernel___Float_____g_t)CALL((recv), (SFT_standard___kernel[17] + 4)))
77 #define CALL_standard___kernel___Float_____plus(recv) ((standard___kernel___Float_____plus_t)CALL((recv), (SFT_standard___kernel[17] + 5)))
78 #define CALL_standard___kernel___Float___unary__minus(recv) ((standard___kernel___Float___unary__minus_t)CALL((recv), (SFT_standard___kernel[17] + 6)))
79 #define CALL_standard___kernel___Float_____minus(recv) ((standard___kernel___Float_____minus_t)CALL((recv), (SFT_standard___kernel[17] + 7)))
80 #define CALL_standard___kernel___Float_____star(recv) ((standard___kernel___Float_____star_t)CALL((recv), (SFT_standard___kernel[17] + 8)))
81 #define CALL_standard___kernel___Float_____slash(recv) ((standard___kernel___Float_____slash_t)CALL((recv), (SFT_standard___kernel[17] + 9)))
82 #define CALL_standard___kernel___Float___to_i(recv) ((standard___kernel___Float___to_i_t)CALL((recv), (SFT_standard___kernel[17] + 10)))
83 #define ID_standard___kernel___Int (SFT_standard___kernel[18])
84 #define COLOR_standard___kernel___Int (SFT_standard___kernel[19])
85 #define INIT_TABLE_POS_standard___kernel___Int (SFT_standard___kernel[20] + 0)
86 #define CALL_standard___kernel___Int___unary__minus(recv) ((standard___kernel___Int___unary__minus_t)CALL((recv), (SFT_standard___kernel[20] + 1)))
87 #define CALL_standard___kernel___Int_____star(recv) ((standard___kernel___Int_____star_t)CALL((recv), (SFT_standard___kernel[20] + 2)))
88 #define CALL_standard___kernel___Int_____slash(recv) ((standard___kernel___Int_____slash_t)CALL((recv), (SFT_standard___kernel[20] + 3)))
89 #define CALL_standard___kernel___Int_____percent(recv) ((standard___kernel___Int_____percent_t)CALL((recv), (SFT_standard___kernel[20] + 4)))
90 #define CALL_standard___kernel___Int___lshift(recv) ((standard___kernel___Int___lshift_t)CALL((recv), (SFT_standard___kernel[20] + 5)))
91 #define CALL_standard___kernel___Int___rshift(recv) ((standard___kernel___Int___rshift_t)CALL((recv), (SFT_standard___kernel[20] + 6)))
92 #define CALL_standard___kernel___Int___to_f(recv) ((standard___kernel___Int___to_f_t)CALL((recv), (SFT_standard___kernel[20] + 7)))
93 #define CALL_standard___kernel___Int___ascii(recv) ((standard___kernel___Int___ascii_t)CALL((recv), (SFT_standard___kernel[20] + 8)))
94 #define CALL_standard___kernel___Int___digit_count(recv) ((standard___kernel___Int___digit_count_t)CALL((recv), (SFT_standard___kernel[20] + 9)))
95 #define CALL_standard___kernel___Int___to_c(recv) ((standard___kernel___Int___to_c_t)CALL((recv), (SFT_standard___kernel[20] + 10)))
96 #define CALL_standard___kernel___Int___enumerate_to(recv) ((standard___kernel___Int___enumerate_to_t)CALL((recv), (SFT_standard___kernel[20] + 11)))
97 #define CALL_standard___kernel___Int___enumerate_before(recv) ((standard___kernel___Int___enumerate_before_t)CALL((recv), (SFT_standard___kernel[20] + 12)))
98 #define ID_standard___kernel___Char (SFT_standard___kernel[21])
99 #define COLOR_standard___kernel___Char (SFT_standard___kernel[22])
100 #define INIT_TABLE_POS_standard___kernel___Char (SFT_standard___kernel[23] + 0)
101 #define CALL_standard___kernel___Char___to_i(recv) ((standard___kernel___Char___to_i_t)CALL((recv), (SFT_standard___kernel[23] + 1)))
102 #define CALL_standard___kernel___Char___ascii(recv) ((standard___kernel___Char___ascii_t)CALL((recv), (SFT_standard___kernel[23] + 2)))
103 #define CALL_standard___kernel___Char___to_lower(recv) ((standard___kernel___Char___to_lower_t)CALL((recv), (SFT_standard___kernel[23] + 3)))
104 #define CALL_standard___kernel___Char___to_upper(recv) ((standard___kernel___Char___to_upper_t)CALL((recv), (SFT_standard___kernel[23] + 4)))
105 #define CALL_standard___kernel___Char___is_digit(recv) ((standard___kernel___Char___is_digit_t)CALL((recv), (SFT_standard___kernel[23] + 5)))
106 #define CALL_standard___kernel___Char___is_lower(recv) ((standard___kernel___Char___is_lower_t)CALL((recv), (SFT_standard___kernel[23] + 6)))
107 #define CALL_standard___kernel___Char___is_upper(recv) ((standard___kernel___Char___is_upper_t)CALL((recv), (SFT_standard___kernel[23] + 7)))
108 #define CALL_standard___kernel___Char___is_letter(recv) ((standard___kernel___Char___is_letter_t)CALL((recv), (SFT_standard___kernel[23] + 8)))
109 #define ID_standard___kernel___Pointer (SFT_standard___kernel[24])
110 #define COLOR_standard___kernel___Pointer (SFT_standard___kernel[25])
111 #define INIT_TABLE_POS_standard___kernel___Pointer (SFT_standard___kernel[26] + 0)
112 static const char * const LOCATE_standard___kernel___Object___object_id
= "kernel::Object::object_id";
113 val_t
standard___kernel___Object___object_id(val_t p0
);
114 typedef val_t (*standard___kernel___Object___object_id_t
)(val_t p0
);
115 static const char * const LOCATE_standard___kernel___Object___is_same_type
= "kernel::Object::is_same_type";
116 val_t
standard___kernel___Object___is_same_type(val_t p0
, val_t p1
);
117 typedef val_t (*standard___kernel___Object___is_same_type_t
)(val_t p0
, val_t p1
);
118 static const char * const LOCATE_standard___kernel___Object_____eqeq
= "kernel::Object::==";
119 val_t
standard___kernel___Object_____eqeq(val_t p0
, val_t p1
);
120 typedef val_t (*standard___kernel___Object_____eqeq_t
)(val_t p0
, val_t p1
);
121 static const char * const LOCATE_standard___kernel___Object_____neq
= "kernel::Object::!=";
122 val_t
standard___kernel___Object_____neq(val_t p0
, val_t p1
);
123 typedef val_t (*standard___kernel___Object_____neq_t
)(val_t p0
, val_t p1
);
124 static const char * const LOCATE_standard___kernel___Object___output
= "kernel::Object::output";
125 void standard___kernel___Object___output(val_t p0
);
126 typedef void (*standard___kernel___Object___output_t
)(val_t p0
);
127 static const char * const LOCATE_standard___kernel___Object___output_class_name
= "kernel::Object::output_class_name";
128 void standard___kernel___Object___output_class_name(val_t p0
);
129 typedef void (*standard___kernel___Object___output_class_name_t
)(val_t p0
);
130 static const char * const LOCATE_standard___kernel___Object___exit
= "kernel::Object::exit";
131 void standard___kernel___Object___exit(val_t p0
, val_t p1
);
132 typedef void (*standard___kernel___Object___exit_t
)(val_t p0
, val_t p1
);
133 static const char * const LOCATE_standard___kernel___Object___sys
= "kernel::Object::sys";
134 val_t
standard___kernel___Object___sys(val_t p0
);
135 typedef val_t (*standard___kernel___Object___sys_t
)(val_t p0
);
136 static const char * const LOCATE_standard___kernel___Sys___main
= "kernel::Sys::main";
137 void standard___kernel___Sys___main(val_t p0
);
138 typedef void (*standard___kernel___Sys___main_t
)(val_t p0
);
139 static const char * const LOCATE_standard___kernel___Sys___init
= "kernel::Sys::init";
140 void standard___kernel___Sys___init(val_t p0
, int* init_table
);
141 typedef void (*standard___kernel___Sys___init_t
)(val_t p0
, int* init_table
);
142 val_t
NEW_Sys_standard___kernel___Sys___init();
143 static const char * const LOCATE_standard___kernel___Comparable_____l
= "kernel::Comparable::<";
144 val_t
standard___kernel___Comparable_____l(val_t p0
, val_t p1
);
145 typedef val_t (*standard___kernel___Comparable_____l_t
)(val_t p0
, val_t p1
);
146 static const char * const LOCATE_standard___kernel___Comparable_____leq
= "kernel::Comparable::<=";
147 val_t
standard___kernel___Comparable_____leq(val_t p0
, val_t p1
);
148 typedef val_t (*standard___kernel___Comparable_____leq_t
)(val_t p0
, val_t p1
);
149 static const char * const LOCATE_standard___kernel___Comparable_____geq
= "kernel::Comparable::>=";
150 val_t
standard___kernel___Comparable_____geq(val_t p0
, val_t p1
);
151 typedef val_t (*standard___kernel___Comparable_____geq_t
)(val_t p0
, val_t p1
);
152 static const char * const LOCATE_standard___kernel___Comparable_____g
= "kernel::Comparable::>";
153 val_t
standard___kernel___Comparable_____g(val_t p0
, val_t p1
);
154 typedef val_t (*standard___kernel___Comparable_____g_t
)(val_t p0
, val_t p1
);
155 static const char * const LOCATE_standard___kernel___Comparable_____leqg
= "kernel::Comparable::<=>";
156 val_t
standard___kernel___Comparable_____leqg(val_t p0
, val_t p1
);
157 typedef val_t (*standard___kernel___Comparable_____leqg_t
)(val_t p0
, val_t p1
);
158 static const char * const LOCATE_standard___kernel___Comparable___is_between
= "kernel::Comparable::is_between";
159 val_t
standard___kernel___Comparable___is_between(val_t p0
, val_t p1
, val_t p2
);
160 typedef val_t (*standard___kernel___Comparable___is_between_t
)(val_t p0
, val_t p1
, val_t p2
);
161 static const char * const LOCATE_standard___kernel___Comparable___max
= "kernel::Comparable::max";
162 val_t
standard___kernel___Comparable___max(val_t p0
, val_t p1
);
163 typedef val_t (*standard___kernel___Comparable___max_t
)(val_t p0
, val_t p1
);
164 static const char * const LOCATE_standard___kernel___Comparable___min
= "kernel::Comparable::min";
165 val_t
standard___kernel___Comparable___min(val_t p0
, val_t p1
);
166 typedef val_t (*standard___kernel___Comparable___min_t
)(val_t p0
, val_t p1
);
167 static const char * const LOCATE_standard___kernel___Discrete___succ
= "kernel::Discrete::succ";
168 val_t
standard___kernel___Discrete___succ(val_t p0
);
169 typedef val_t (*standard___kernel___Discrete___succ_t
)(val_t p0
);
170 static const char * const LOCATE_standard___kernel___Discrete___prec
= "kernel::Discrete::prec";
171 val_t
standard___kernel___Discrete___prec(val_t p0
);
172 typedef val_t (*standard___kernel___Discrete___prec_t
)(val_t p0
);
173 static const char * const LOCATE_standard___kernel___Discrete_____plus
= "kernel::Discrete::+";
174 val_t
standard___kernel___Discrete_____plus(val_t p0
, val_t p1
);
175 typedef val_t (*standard___kernel___Discrete_____plus_t
)(val_t p0
, val_t p1
);
176 static const char * const LOCATE_standard___kernel___Discrete_____minus
= "kernel::Discrete::-";
177 val_t
standard___kernel___Discrete_____minus(val_t p0
, val_t p1
);
178 typedef val_t (*standard___kernel___Discrete_____minus_t
)(val_t p0
, val_t p1
);
179 static const char * const LOCATE_standard___kernel___Discrete___distance
= "kernel::Discrete::distance";
180 val_t
standard___kernel___Discrete___distance(val_t p0
, val_t p1
);
181 typedef val_t (*standard___kernel___Discrete___distance_t
)(val_t p0
, val_t p1
);
182 static const char * const LOCATE_standard___kernel___Bool___object_id
= "kernel::Bool::(kernel::Object::object_id)";
183 val_t
standard___kernel___Bool___object_id(val_t p0
);
184 typedef val_t (*standard___kernel___Bool___object_id_t
)(val_t p0
);
185 static const char * const LOCATE_standard___kernel___Bool_____eqeq
= "kernel::Bool::(kernel::Object::==)";
186 val_t
standard___kernel___Bool_____eqeq(val_t p0
, val_t p1
);
187 typedef val_t (*standard___kernel___Bool_____eqeq_t
)(val_t p0
, val_t p1
);
188 static const char * const LOCATE_standard___kernel___Bool_____neq
= "kernel::Bool::(kernel::Object::!=)";
189 val_t
standard___kernel___Bool_____neq(val_t p0
, val_t p1
);
190 typedef val_t (*standard___kernel___Bool_____neq_t
)(val_t p0
, val_t p1
);
191 static const char * const LOCATE_standard___kernel___Bool___output
= "kernel::Bool::(kernel::Object::output)";
192 void standard___kernel___Bool___output(val_t p0
);
193 typedef void (*standard___kernel___Bool___output_t
)(val_t p0
);
194 static const char * const LOCATE_standard___kernel___Float___object_id
= "kernel::Float::(kernel::Object::object_id)";
195 val_t
standard___kernel___Float___object_id(val_t p0
);
196 typedef val_t (*standard___kernel___Float___object_id_t
)(val_t p0
);
197 static const char * const LOCATE_standard___kernel___Float___output
= "kernel::Float::(kernel::Object::output)";
198 void standard___kernel___Float___output(val_t p0
);
199 typedef void (*standard___kernel___Float___output_t
)(val_t p0
);
200 static const char * const LOCATE_standard___kernel___Float_____leq
= "kernel::Float::<=";
201 val_t
standard___kernel___Float_____leq(val_t p0
, val_t p1
);
202 typedef val_t (*standard___kernel___Float_____leq_t
)(val_t p0
, val_t p1
);
203 static const char * const LOCATE_standard___kernel___Float_____l
= "kernel::Float::<";
204 val_t
standard___kernel___Float_____l(val_t p0
, val_t p1
);
205 typedef val_t (*standard___kernel___Float_____l_t
)(val_t p0
, val_t p1
);
206 static const char * const LOCATE_standard___kernel___Float_____geq
= "kernel::Float::>=";
207 val_t
standard___kernel___Float_____geq(val_t p0
, val_t p1
);
208 typedef val_t (*standard___kernel___Float_____geq_t
)(val_t p0
, val_t p1
);
209 static const char * const LOCATE_standard___kernel___Float_____g
= "kernel::Float::>";
210 val_t
standard___kernel___Float_____g(val_t p0
, val_t p1
);
211 typedef val_t (*standard___kernel___Float_____g_t
)(val_t p0
, val_t p1
);
212 static const char * const LOCATE_standard___kernel___Float_____plus
= "kernel::Float::+";
213 val_t
standard___kernel___Float_____plus(val_t p0
, val_t p1
);
214 typedef val_t (*standard___kernel___Float_____plus_t
)(val_t p0
, val_t p1
);
215 static const char * const LOCATE_standard___kernel___Float___unary__minus
= "kernel::Float::unary -";
216 val_t
standard___kernel___Float___unary__minus(val_t p0
);
217 typedef val_t (*standard___kernel___Float___unary__minus_t
)(val_t p0
);
218 static const char * const LOCATE_standard___kernel___Float_____minus
= "kernel::Float::-";
219 val_t
standard___kernel___Float_____minus(val_t p0
, val_t p1
);
220 typedef val_t (*standard___kernel___Float_____minus_t
)(val_t p0
, val_t p1
);
221 static const char * const LOCATE_standard___kernel___Float_____star
= "kernel::Float::*";
222 val_t
standard___kernel___Float_____star(val_t p0
, val_t p1
);
223 typedef val_t (*standard___kernel___Float_____star_t
)(val_t p0
, val_t p1
);
224 static const char * const LOCATE_standard___kernel___Float_____slash
= "kernel::Float::/";
225 val_t
standard___kernel___Float_____slash(val_t p0
, val_t p1
);
226 typedef val_t (*standard___kernel___Float_____slash_t
)(val_t p0
, val_t p1
);
227 static const char * const LOCATE_standard___kernel___Float___to_i
= "kernel::Float::to_i";
228 val_t
standard___kernel___Float___to_i(val_t p0
);
229 typedef val_t (*standard___kernel___Float___to_i_t
)(val_t p0
);
230 static const char * const LOCATE_standard___kernel___Int___object_id
= "kernel::Int::(kernel::Object::object_id)";
231 val_t
standard___kernel___Int___object_id(val_t p0
);
232 typedef val_t (*standard___kernel___Int___object_id_t
)(val_t p0
);
233 static const char * const LOCATE_standard___kernel___Int_____eqeq
= "kernel::Int::(kernel::Object::==)";
234 val_t
standard___kernel___Int_____eqeq(val_t p0
, val_t p1
);
235 typedef val_t (*standard___kernel___Int_____eqeq_t
)(val_t p0
, val_t p1
);
236 static const char * const LOCATE_standard___kernel___Int_____neq
= "kernel::Int::(kernel::Object::!=)";
237 val_t
standard___kernel___Int_____neq(val_t p0
, val_t p1
);
238 typedef val_t (*standard___kernel___Int_____neq_t
)(val_t p0
, val_t p1
);
239 static const char * const LOCATE_standard___kernel___Int___output
= "kernel::Int::(kernel::Object::output)";
240 void standard___kernel___Int___output(val_t p0
);
241 typedef void (*standard___kernel___Int___output_t
)(val_t p0
);
242 static const char * const LOCATE_standard___kernel___Int_____leq
= "kernel::Int::(kernel::Comparable::<=)";
243 val_t
standard___kernel___Int_____leq(val_t p0
, val_t p1
);
244 typedef val_t (*standard___kernel___Int_____leq_t
)(val_t p0
, val_t p1
);
245 static const char * const LOCATE_standard___kernel___Int_____l
= "kernel::Int::(kernel::Comparable::<)";
246 val_t
standard___kernel___Int_____l(val_t p0
, val_t p1
);
247 typedef val_t (*standard___kernel___Int_____l_t
)(val_t p0
, val_t p1
);
248 static const char * const LOCATE_standard___kernel___Int_____geq
= "kernel::Int::(kernel::Comparable::>=)";
249 val_t
standard___kernel___Int_____geq(val_t p0
, val_t p1
);
250 typedef val_t (*standard___kernel___Int_____geq_t
)(val_t p0
, val_t p1
);
251 static const char * const LOCATE_standard___kernel___Int_____g
= "kernel::Int::(kernel::Comparable::>)";
252 val_t
standard___kernel___Int_____g(val_t p0
, val_t p1
);
253 typedef val_t (*standard___kernel___Int_____g_t
)(val_t p0
, val_t p1
);
254 static const char * const LOCATE_standard___kernel___Int_____plus
= "kernel::Int::(kernel::Discrete::+)";
255 val_t
standard___kernel___Int_____plus(val_t p0
, val_t p1
);
256 typedef val_t (*standard___kernel___Int_____plus_t
)(val_t p0
, val_t p1
);
257 static const char * const LOCATE_standard___kernel___Int___unary__minus
= "kernel::Int::unary -";
258 val_t
standard___kernel___Int___unary__minus(val_t p0
);
259 typedef val_t (*standard___kernel___Int___unary__minus_t
)(val_t p0
);
260 static const char * const LOCATE_standard___kernel___Int_____minus
= "kernel::Int::(kernel::Discrete::-)";
261 val_t
standard___kernel___Int_____minus(val_t p0
, val_t p1
);
262 typedef val_t (*standard___kernel___Int_____minus_t
)(val_t p0
, val_t p1
);
263 static const char * const LOCATE_standard___kernel___Int_____star
= "kernel::Int::*";
264 val_t
standard___kernel___Int_____star(val_t p0
, val_t p1
);
265 typedef val_t (*standard___kernel___Int_____star_t
)(val_t p0
, val_t p1
);
266 static const char * const LOCATE_standard___kernel___Int_____slash
= "kernel::Int::/";
267 val_t
standard___kernel___Int_____slash(val_t p0
, val_t p1
);
268 typedef val_t (*standard___kernel___Int_____slash_t
)(val_t p0
, val_t p1
);
269 static const char * const LOCATE_standard___kernel___Int_____percent
= "kernel::Int::%";
270 val_t
standard___kernel___Int_____percent(val_t p0
, val_t p1
);
271 typedef val_t (*standard___kernel___Int_____percent_t
)(val_t p0
, val_t p1
);
272 static const char * const LOCATE_standard___kernel___Int___lshift
= "kernel::Int::lshift";
273 val_t
standard___kernel___Int___lshift(val_t p0
, val_t p1
);
274 typedef val_t (*standard___kernel___Int___lshift_t
)(val_t p0
, val_t p1
);
275 static const char * const LOCATE_standard___kernel___Int___rshift
= "kernel::Int::rshift";
276 val_t
standard___kernel___Int___rshift(val_t p0
, val_t p1
);
277 typedef val_t (*standard___kernel___Int___rshift_t
)(val_t p0
, val_t p1
);
278 static const char * const LOCATE_standard___kernel___Int___to_f
= "kernel::Int::to_f";
279 val_t
standard___kernel___Int___to_f(val_t p0
);
280 typedef val_t (*standard___kernel___Int___to_f_t
)(val_t p0
);
281 static const char * const LOCATE_standard___kernel___Int___succ
= "kernel::Int::(kernel::Discrete::succ)";
282 val_t
standard___kernel___Int___succ(val_t p0
);
283 typedef val_t (*standard___kernel___Int___succ_t
)(val_t p0
);
284 static const char * const LOCATE_standard___kernel___Int___prec
= "kernel::Int::(kernel::Discrete::prec)";
285 val_t
standard___kernel___Int___prec(val_t p0
);
286 typedef val_t (*standard___kernel___Int___prec_t
)(val_t p0
);
287 static const char * const LOCATE_standard___kernel___Int___distance
= "kernel::Int::(kernel::Discrete::distance)";
288 val_t
standard___kernel___Int___distance(val_t p0
, val_t p1
);
289 typedef val_t (*standard___kernel___Int___distance_t
)(val_t p0
, val_t p1
);
290 static const char * const LOCATE_standard___kernel___Int_____leqg
= "kernel::Int::(kernel::Comparable::<=>)";
291 val_t
standard___kernel___Int_____leqg(val_t p0
, val_t p1
);
292 typedef val_t (*standard___kernel___Int_____leqg_t
)(val_t p0
, val_t p1
);
293 static const char * const LOCATE_standard___kernel___Int___is_between
= "kernel::Int::(kernel::Comparable::is_between)";
294 val_t
standard___kernel___Int___is_between(val_t p0
, val_t p1
, val_t p2
);
295 typedef val_t (*standard___kernel___Int___is_between_t
)(val_t p0
, val_t p1
, val_t p2
);
296 static const char * const LOCATE_standard___kernel___Int___max
= "kernel::Int::(kernel::Comparable::max)";
297 val_t
standard___kernel___Int___max(val_t p0
, val_t p1
);
298 typedef val_t (*standard___kernel___Int___max_t
)(val_t p0
, val_t p1
);
299 static const char * const LOCATE_standard___kernel___Int___min
= "kernel::Int::(kernel::Comparable::min)";
300 val_t
standard___kernel___Int___min(val_t p0
, val_t p1
);
301 typedef val_t (*standard___kernel___Int___min_t
)(val_t p0
, val_t p1
);
302 static const char * const LOCATE_standard___kernel___Int___ascii
= "kernel::Int::ascii";
303 val_t
standard___kernel___Int___ascii(val_t p0
);
304 typedef val_t (*standard___kernel___Int___ascii_t
)(val_t p0
);
305 static const char * const LOCATE_standard___kernel___Int___digit_count
= "kernel::Int::digit_count";
306 val_t
standard___kernel___Int___digit_count(val_t p0
, val_t p1
);
307 typedef val_t (*standard___kernel___Int___digit_count_t
)(val_t p0
, val_t p1
);
308 static const char * const LOCATE_standard___kernel___Int___to_c
= "kernel::Int::to_c";
309 val_t
standard___kernel___Int___to_c(val_t p0
);
310 typedef val_t (*standard___kernel___Int___to_c_t
)(val_t p0
);
311 typedef void (*CLOS_standard___kernel___Int___enumerate_to_0
)(struct stack_frame_t
*, val_t
);
312 static const char * const LOCATE_standard___kernel___Int___enumerate_to
= "kernel::Int::enumerate_to";
313 void standard___kernel___Int___enumerate_to(val_t p0
, val_t p1
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
);
314 typedef void (*standard___kernel___Int___enumerate_to_t
)(val_t p0
, val_t p1
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
);
315 typedef void (*CLOS_standard___kernel___Int___enumerate_before_0
)(struct stack_frame_t
*, val_t
);
316 static const char * const LOCATE_standard___kernel___Int___enumerate_before
= "kernel::Int::enumerate_before";
317 void standard___kernel___Int___enumerate_before(val_t p0
, val_t p1
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
);
318 typedef void (*standard___kernel___Int___enumerate_before_t
)(val_t p0
, val_t p1
, struct stack_frame_t
*closctx_param
, fun_t clos_fun0
);
319 static const char * const LOCATE_standard___kernel___Char___object_id
= "kernel::Char::(kernel::Object::object_id)";
320 val_t
standard___kernel___Char___object_id(val_t p0
);
321 typedef val_t (*standard___kernel___Char___object_id_t
)(val_t p0
);
322 static const char * const LOCATE_standard___kernel___Char_____eqeq
= "kernel::Char::(kernel::Object::==)";
323 val_t
standard___kernel___Char_____eqeq(val_t p0
, val_t p1
);
324 typedef val_t (*standard___kernel___Char_____eqeq_t
)(val_t p0
, val_t p1
);
325 static const char * const LOCATE_standard___kernel___Char_____neq
= "kernel::Char::(kernel::Object::!=)";
326 val_t
standard___kernel___Char_____neq(val_t p0
, val_t p1
);
327 typedef val_t (*standard___kernel___Char_____neq_t
)(val_t p0
, val_t p1
);
328 static const char * const LOCATE_standard___kernel___Char___output
= "kernel::Char::(kernel::Object::output)";
329 void standard___kernel___Char___output(val_t p0
);
330 typedef void (*standard___kernel___Char___output_t
)(val_t p0
);
331 static const char * const LOCATE_standard___kernel___Char_____leq
= "kernel::Char::(kernel::Comparable::<=)";
332 val_t
standard___kernel___Char_____leq(val_t p0
, val_t p1
);
333 typedef val_t (*standard___kernel___Char_____leq_t
)(val_t p0
, val_t p1
);
334 static const char * const LOCATE_standard___kernel___Char_____l
= "kernel::Char::(kernel::Comparable::<)";
335 val_t
standard___kernel___Char_____l(val_t p0
, val_t p1
);
336 typedef val_t (*standard___kernel___Char_____l_t
)(val_t p0
, val_t p1
);
337 static const char * const LOCATE_standard___kernel___Char_____geq
= "kernel::Char::(kernel::Comparable::>=)";
338 val_t
standard___kernel___Char_____geq(val_t p0
, val_t p1
);
339 typedef val_t (*standard___kernel___Char_____geq_t
)(val_t p0
, val_t p1
);
340 static const char * const LOCATE_standard___kernel___Char_____g
= "kernel::Char::(kernel::Comparable::>)";
341 val_t
standard___kernel___Char_____g(val_t p0
, val_t p1
);
342 typedef val_t (*standard___kernel___Char_____g_t
)(val_t p0
, val_t p1
);
343 static const char * const LOCATE_standard___kernel___Char___succ
= "kernel::Char::(kernel::Discrete::succ)";
344 val_t
standard___kernel___Char___succ(val_t p0
);
345 typedef val_t (*standard___kernel___Char___succ_t
)(val_t p0
);
346 static const char * const LOCATE_standard___kernel___Char___prec
= "kernel::Char::(kernel::Discrete::prec)";
347 val_t
standard___kernel___Char___prec(val_t p0
);
348 typedef val_t (*standard___kernel___Char___prec_t
)(val_t p0
);
349 static const char * const LOCATE_standard___kernel___Char___distance
= "kernel::Char::(kernel::Discrete::distance)";
350 val_t
standard___kernel___Char___distance(val_t p0
, val_t p1
);
351 typedef val_t (*standard___kernel___Char___distance_t
)(val_t p0
, val_t p1
);
352 static const char * const LOCATE_standard___kernel___Char___to_i
= "kernel::Char::to_i";
353 val_t
standard___kernel___Char___to_i(val_t p0
);
354 typedef val_t (*standard___kernel___Char___to_i_t
)(val_t p0
);
355 static const char * const LOCATE_standard___kernel___Char___ascii
= "kernel::Char::ascii";
356 val_t
standard___kernel___Char___ascii(val_t p0
);
357 typedef val_t (*standard___kernel___Char___ascii_t
)(val_t p0
);
358 static const char * const LOCATE_standard___kernel___Char_____plus
= "kernel::Char::(kernel::Discrete::+)";
359 val_t
standard___kernel___Char_____plus(val_t p0
, val_t p1
);
360 typedef val_t (*standard___kernel___Char_____plus_t
)(val_t p0
, val_t p1
);
361 static const char * const LOCATE_standard___kernel___Char_____minus
= "kernel::Char::(kernel::Discrete::-)";
362 val_t
standard___kernel___Char_____minus(val_t p0
, val_t p1
);
363 typedef val_t (*standard___kernel___Char_____minus_t
)(val_t p0
, val_t p1
);
364 static const char * const LOCATE_standard___kernel___Char___to_lower
= "kernel::Char::to_lower";
365 val_t
standard___kernel___Char___to_lower(val_t p0
);
366 typedef val_t (*standard___kernel___Char___to_lower_t
)(val_t p0
);
367 static const char * const LOCATE_standard___kernel___Char___to_upper
= "kernel::Char::to_upper";
368 val_t
standard___kernel___Char___to_upper(val_t p0
);
369 typedef val_t (*standard___kernel___Char___to_upper_t
)(val_t p0
);
370 static const char * const LOCATE_standard___kernel___Char___is_digit
= "kernel::Char::is_digit";
371 val_t
standard___kernel___Char___is_digit(val_t p0
);
372 typedef val_t (*standard___kernel___Char___is_digit_t
)(val_t p0
);
373 static const char * const LOCATE_standard___kernel___Char___is_lower
= "kernel::Char::is_lower";
374 val_t
standard___kernel___Char___is_lower(val_t p0
);
375 typedef val_t (*standard___kernel___Char___is_lower_t
)(val_t p0
);
376 static const char * const LOCATE_standard___kernel___Char___is_upper
= "kernel::Char::is_upper";
377 val_t
standard___kernel___Char___is_upper(val_t p0
);
378 typedef val_t (*standard___kernel___Char___is_upper_t
)(val_t p0
);
379 static const char * const LOCATE_standard___kernel___Char___is_letter
= "kernel::Char::is_letter";
380 val_t
standard___kernel___Char___is_letter(val_t p0
);
381 typedef val_t (*standard___kernel___Char___is_letter_t
)(val_t p0
);