/[cvs]/stack/stack.c
ViewVC logotype

Diff of /stack/stack.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by masse, Tue Jan 8 18:06:19 2002 UTC revision 1.13 by masse, Wed Jan 9 05:01:24 2002 UTC
# Line 242  int stack_read(stackitem** stack_head, h Line 242  int stack_read(stackitem** stack_head, h
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==';')
# Line 329  extern void eq(stackitem** stack_head) Line 331  extern void eq(stackitem** stack_head)
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);
# Line 354  extern void neq(stackitem** stack_head) Line 357  extern void neq(stackitem** 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);
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.13
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26