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

Diff of /stack/stack.c

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

revision 1.14 by masse, Thu Jan 31 19:51:12 2002 UTC revision 1.15 by masse, Thu Jan 31 21:47:20 2002 UTC
# Line 255  int stack_read(stackitem** stack_head, h Line 255  int stack_read(stackitem** stack_head, h
255    temp= malloc(inlength);    temp= malloc(inlength);
256    rest= malloc(inlength);    rest= malloc(inlength);
257    
258    if((convert= sscanf(in_line, "\"%[^\"\n\r]\" %[^\n\r]", temp, rest)) >= 1)    do {
259      push_cstring(stack_head, temp);      if((convert= sscanf(in_line, "\"%[^\"\n\r]\" %[^\n\r]", temp, rest))) {
260    else if((convert= sscanf(in_line, "%d %[^\n\r]", &itemp, rest)) >= 1)        push_cstring(stack_head, temp);
261      push_val(stack_head, itemp);        break;
262    else if((convert= sscanf(in_line, "\\%c%[^\n\r]", temp, rest)) >= 1) {      }
263      temp[1]= '\0'; push_ref(stack_head, in_hash, temp);  
264    } else if((convert= sscanf(in_line, "%[^ ;\n\r]%[^\n\r]", temp, rest)) >= 1)      if((convert= sscanf(in_line, "%d %[^\n\r]", &itemp, rest))) {
265      push_ref(stack_head, in_hash, temp);        push_val(stack_head, itemp);
266    else if((convert= sscanf(in_line, "%c%[^\n\r]", temp, rest)) >= 1)        break;
267      if(*temp==';')      }
268    
269        if((convert= sscanf(in_line, "\\%c%[^\n\r]", temp, rest))) {
270          temp[1]= '\0';
271          push_ref(stack_head, in_hash, temp);
272          break;
273        }
274          
275        if((convert= sscanf(in_line, "%[^ ;\n\r]%[^\n\r]", temp, rest))) {
276            push_ref(stack_head, in_hash, temp);
277            break;
278        }
279      
280        if((convert= sscanf(in_line, "%c%[^\n\r]", temp, rest)) && *temp==';') {
281        eval(stack_head);        eval(stack_head);
282          break;
283        }
284      } while(0);
285    
286    
287    free(temp);    free(temp);
288    
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
root@recompile.se
 ViewVC Help
Powered by ViewVC 1.1.26