| run.c (170332) | run.c (201951) |
|---|---|
| 1/**************************************************************** 2Copyright (C) Lucent Technologies 1997 3All Rights Reserved 4 5Permission to use, copy, modify, and distribute this software and 6its documentation for any purpose and without fee is hereby 7granted, provided that the above copyright notice appear in all 8copies and that both that the copyright notice and this --- 374 unchanged lines hidden (view full) --- 383 case CONTINUE: 384 return(jcont); 385 default: /* can't happen */ 386 FATAL("illegal jump type %d", n); 387 } 388 return 0; /* not reached */ 389} 390 | 1/**************************************************************** 2Copyright (C) Lucent Technologies 1997 3All Rights Reserved 4 5Permission to use, copy, modify, and distribute this software and 6its documentation for any purpose and without fee is hereby 7granted, provided that the above copyright notice appear in all 8copies and that both that the copyright notice and this --- 374 unchanged lines hidden (view full) --- 383 case CONTINUE: 384 return(jcont); 385 default: /* can't happen */ 386 FATAL("illegal jump type %d", n); 387 } 388 return 0; /* not reached */ 389} 390 |
| 391Cell *getline(Node **a, int n) /* get next line from specific input */ | 391Cell *awkgetline(Node **a, int n) /* get next line from specific input */ |
| 392{ /* a[0] is variable, a[1] is operator, a[2] is filename */ 393 Cell *r, *x; 394 extern Cell **fldtab; 395 FILE *fp; 396 char *buf; 397 int bufsize = recsize; 398 int mode; 399 --- 754 unchanged lines hidden (view full) --- 1154 n1 = strlen(x->sval); 1155 n2 = strlen(y->sval); 1156 s = (char *) malloc(n1 + n2 + 1); 1157 if (s == NULL) 1158 FATAL("out of space concatenating %.15s... and %.15s...", 1159 x->sval, y->sval); 1160 strcpy(s, x->sval); 1161 strcpy(s+n1, y->sval); | 392{ /* a[0] is variable, a[1] is operator, a[2] is filename */ 393 Cell *r, *x; 394 extern Cell **fldtab; 395 FILE *fp; 396 char *buf; 397 int bufsize = recsize; 398 int mode; 399 --- 754 unchanged lines hidden (view full) --- 1154 n1 = strlen(x->sval); 1155 n2 = strlen(y->sval); 1156 s = (char *) malloc(n1 + n2 + 1); 1157 if (s == NULL) 1158 FATAL("out of space concatenating %.15s... and %.15s...", 1159 x->sval, y->sval); 1160 strcpy(s, x->sval); 1161 strcpy(s+n1, y->sval); |
| 1162 tempfree(x); |
|
| 1162 tempfree(y); 1163 z = gettemp(); 1164 z->sval = s; 1165 z->tval = STR; | 1163 tempfree(y); 1164 z = gettemp(); 1165 z->sval = s; 1166 z->tval = STR; |
| 1166 tempfree(x); | |
| 1167 return(z); 1168} 1169 1170Cell *pastat(Node **a, int n) /* a[0] { a[1] } */ 1171{ 1172 Cell *x; 1173 1174 if (a[0] == 0) --- 755 unchanged lines hidden --- | 1167 return(z); 1168} 1169 1170Cell *pastat(Node **a, int n) /* a[0] { a[1] } */ 1171{ 1172 Cell *x; 1173 1174 if (a[0] == 0) --- 755 unchanged lines hidden --- |