84 |
|
|
85 |
|
|
86 |
static void |
static void |
87 |
siLstructure_ref1(void) |
FFN(siLstructure_ref1)(void) |
88 |
{object x=vs_base[0]; |
{object x=vs_base[0]; |
89 |
int n=fix(vs_base[1]); |
int n=fix(vs_base[1]); |
90 |
object def; |
object def; |
138 |
} |
} |
139 |
|
|
140 |
static void |
static void |
141 |
siLstructure_subtype_p(void) |
FFN(siLstructure_subtype_p)(void) |
142 |
{object x,y; |
{object x,y; |
143 |
check_arg(2); |
check_arg(2); |
144 |
x=vs_base[0]; |
x=vs_base[0]; |
177 |
return(vs_pop); |
return(vs_pop); |
178 |
} |
} |
179 |
|
|
180 |
void |
LFD(siLmake_structure)(void) |
|
siLmake_structure(void) |
|
181 |
{ |
{ |
182 |
object x,name,*base; |
object x,name,*base; |
183 |
struct s_data *def=NULL; |
struct s_data *def=NULL; |
235 |
} |
} |
236 |
|
|
237 |
static void |
static void |
238 |
siLcopy_structure(void) |
FFN(siLcopy_structure)(void) |
239 |
{ |
{ |
240 |
object x, y; |
object x, y; |
241 |
struct s_data *def; |
struct s_data *def; |
254 |
END_NO_INTERRUPT;} |
END_NO_INTERRUPT;} |
255 |
} |
} |
256 |
|
|
257 |
void |
LFD(siLstructure_name)(void) |
|
siLstructure_name(void) |
|
258 |
{ |
{ |
259 |
check_arg(1); |
check_arg(1); |
260 |
check_type_structure(vs_base[0]); |
check_type_structure(vs_base[0]); |
261 |
vs_base[0] = S_DATA(vs_base[0]->str.str_def)->name; |
vs_base[0] = S_DATA(vs_base[0]->str.str_def)->name; |
262 |
} |
} |
263 |
|
|
264 |
void |
LFD(siLstructure_ref)(void) |
|
siLstructure_ref(void) |
|
265 |
{ |
{ |
266 |
check_arg(3); |
check_arg(3); |
267 |
vs_base[0]=structure_ref(vs_base[0],vs_base[1],fix(vs_base[2])); |
vs_base[0]=structure_ref(vs_base[0],vs_base[1],fix(vs_base[2])); |
268 |
vs_top=vs_base+1; |
vs_top=vs_base+1; |
269 |
} |
} |
270 |
|
|
271 |
void |
LFD(siLstructure_set)(void) |
|
siLstructure_set(void) |
|
272 |
{ |
{ |
273 |
check_arg(4); |
check_arg(4); |
274 |
structure_set(vs_base[0],vs_base[1],fix(vs_base[2]),vs_base[3]); |
structure_set(vs_base[0],vs_base[1],fix(vs_base[2]),vs_base[3]); |
275 |
vs_base = vs_top-1; |
vs_base = vs_top-1; |
276 |
} |
} |
277 |
|
|
278 |
void |
LFD(siLstructurep)(void) |
|
siLstructurep(void) |
|
279 |
{ |
{ |
280 |
check_arg(1); |
check_arg(1); |
281 |
if (type_of(vs_base[0]) == t_structure) |
if (type_of(vs_base[0]) == t_structure) |
284 |
vs_base[0] = Cnil; |
vs_base[0] = Cnil; |
285 |
} |
} |
286 |
|
|
287 |
void |
LFD(siLrplaca_nthcdr)(void) |
|
siLrplaca_nthcdr(void) |
|
288 |
{ |
{ |
289 |
|
|
290 |
/* |
/* |
311 |
vs_base = vs_base + 2; |
vs_base = vs_base + 2; |
312 |
} |
} |
313 |
|
|
314 |
void |
LFD(siLlist_nth)(void) |
|
siLlist_nth(void) |
|
315 |
{ |
{ |
316 |
|
|
317 |
/* |
/* |
340 |
|
|
341 |
|
|
342 |
static void |
static void |
343 |
siLmake_s_data_structure(void) |
FFN(siLmake_s_data_structure)(void) |
344 |
{object x,y,raw,*base; |
{object x,y,raw,*base; |
345 |
int i; |
int i; |
346 |
check_arg(5); |
check_arg(5); |
364 |
} |
} |
365 |
|
|
366 |
static void |
static void |
367 |
siLstructure_def(void) |
FFN(siLstructure_def)(void) |
368 |
{check_arg(1); |
{check_arg(1); |
369 |
check_type_structure(vs_base[0]); |
check_type_structure(vs_base[0]); |
370 |
vs_base[0]=vs_base[0]->str.str_def; |
vs_base[0]=vs_base[0]->str.str_def; |
388 |
|
|
389 |
|
|
390 |
static void |
static void |
391 |
siLsize_of(void) |
FFN(siLsize_of)(void) |
392 |
{ object x= vs_base[0]; |
{ object x= vs_base[0]; |
393 |
int i; |
int i; |
394 |
i= aet_sizes[fix(fSget_aelttype(x))]; |
i= aet_sizes[fix(fSget_aelttype(x))]; |
396 |
} |
} |
397 |
|
|
398 |
static void |
static void |
399 |
siLaet_type(void) |
FFN(siLaet_type)(void) |
400 |
{vs_base[0]=fSget_aelttype(vs_base[0]);} |
{vs_base[0]=fSget_aelttype(vs_base[0]);} |
401 |
|
|
402 |
|
|
405 |
|
|
406 |
|
|
407 |
static void |
static void |
408 |
siLalignment(void) |
FFN(siLalignment)(void) |
409 |
{struct {double x; int y; double z; |
{struct {double x; int y; double z; |
410 |
float x1; int y1; float z1;} |
float x1; int y1; float z1;} |
411 |
joe; |
joe; |
417 |
if (vs_base[0]==sLshort_float) |
if (vs_base[0]==sLshort_float) |
418 |
{vs_base[0]=make_fixnum((long)&(joe.z1)-(long)&(joe.y1)); return;} |
{vs_base[0]=make_fixnum((long)&(joe.z1)-(long)&(joe.y1)); return;} |
419 |
else |
else |
420 |
{siLsize_of();} |
{FFN(siLsize_of)();} |
421 |
} |
} |
422 |
|
|
423 |
|
|