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 */
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 ---