run.c (112336) | run.c (118194) |
---|---|
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 --- 1207 unchanged lines hidden (view full) --- 1216 ap = execute(a[1]); /* array name */ 1217 freesymtab(ap); 1218 dprintf( ("split: s=|%s|, a=%s, sep=|%s|\n", s, NN(ap->nval), fs) ); 1219 ap->tval &= ~STR; 1220 ap->tval |= ARR; 1221 ap->sval = (char *) makesymtab(NSYMTAB); 1222 1223 n = 0; | 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 --- 1207 unchanged lines hidden (view full) --- 1216 ap = execute(a[1]); /* array name */ 1217 freesymtab(ap); 1218 dprintf( ("split: s=|%s|, a=%s, sep=|%s|\n", s, NN(ap->nval), fs) ); 1219 ap->tval &= ~STR; 1220 ap->tval |= ARR; 1221 ap->sval = (char *) makesymtab(NSYMTAB); 1222 1223 n = 0; |
1224 if ((*s != '\0' && strlen(fs) > 1) || arg3type == REGEXPR) { /* reg expr */ | 1224 if (*s != '\0' && (strlen(fs) > 1 || arg3type == REGEXPR)) { /* reg expr */ |
1225 fa *pfa; 1226 if (arg3type == REGEXPR) { /* it's ready already */ 1227 pfa = (fa *) a[2]; 1228 } else { 1229 pfa = makedfa(fs, 1); 1230 } 1231 if (nematch(pfa,s)) { 1232 tempstat = pfa->initstat; --- 681 unchanged lines hidden --- | 1225 fa *pfa; 1226 if (arg3type == REGEXPR) { /* it's ready already */ 1227 pfa = (fa *) a[2]; 1228 } else { 1229 pfa = makedfa(fs, 1); 1230 } 1231 if (nematch(pfa,s)) { 1232 tempstat = pfa->initstat; --- 681 unchanged lines hidden --- |