242 |
push_cstring(stack_head, temp); |
push_cstring(stack_head, temp); |
243 |
else if((convert= sscanf(in_line, "%d %[^\n\r]", &itemp, rest)) >= 1) |
else if((convert= sscanf(in_line, "%d %[^\n\r]", &itemp, rest)) >= 1) |
244 |
push_val(stack_head, itemp); |
push_val(stack_head, itemp); |
245 |
else if((convert= sscanf(in_line, "%[^ ;\n\r]%[^\n\r]", temp, rest)) >= 1) |
else if((convert= sscanf(in_line, "\\%c%[^\n\r]", temp, rest)) >= 1) { |
246 |
|
temp[1]= '\0'; push_ref(stack_head, in_hash, temp); |
247 |
|
} else if((convert= sscanf(in_line, "%[^ ;\n\r]%[^\n\r]", temp, rest)) >= 1) |
248 |
push_ref(stack_head, in_hash, temp); |
push_ref(stack_head, in_hash, temp); |
249 |
else if((convert= sscanf(in_line, "%c%[^\n\r]", temp, rest)) >= 1) |
else if((convert= sscanf(in_line, "%c%[^\n\r]", temp, rest)) >= 1) |
250 |
if(*temp==';') |
if(*temp==';') |
331 |
return; |
return; |
332 |
|
|
333 |
left= (*stack_head)->content.ptr; |
left= (*stack_head)->content.ptr; |
334 |
right= (*stack_head)->next->content.ptr; |
swap(stack_head); |
335 |
|
right= (*stack_head)->content.ptr; |
336 |
result= (left==right); |
result= (left==right); |
337 |
|
|
338 |
toss(stack_head); toss(stack_head); |
toss(stack_head); toss(stack_head); |
357 |
not(stack_head); |
not(stack_head); |
358 |
} |
} |
359 |
|
|
360 |
|
extern void def(stackitem** stack_head) |
361 |
|
{ |
362 |
|
stackitem *temp, *value; |
363 |
|
|
364 |
|
if(*stack_head==NULL || (*stack_head)->next==NULL |
365 |
|
|| (*stack_head)->type!=ref) |
366 |
|
return; |
367 |
|
|
368 |
|
temp= (*stack_head)->content.ptr; |
369 |
|
value= (*stack_head)->next; |
370 |
|
temp->content= value->content; |
371 |
|
value->content.ptr=NULL; |
372 |
|
temp->type= value->type; |
373 |
|
|
374 |
|
toss(stack_head); toss(stack_head); |
375 |
|
} |
376 |
|
|
377 |
extern void quit() |
extern void quit() |
378 |
{ |
{ |
379 |
exit(EXIT_SUCCESS); |
exit(EXIT_SUCCESS); |