error/common/errorpi.c

168 isdateformat(int wordc, char **wordv)
171 	    (instringset(wordv[0], Days)) &&
172 	    (instringset(wordv[1], Months)) &&
173 	    (alldigits(wordv[2])) && (alldigits(wordv[4])));
192 extern	char	**wordv;
201 	if ((strlen(wordv[1]) == 1) &&
202 	    ((wordv[1][0] == 'e') || (wordv[1][0] == 'E')) &&
203 	    (piptr(wordv[2]))) {
228 		(void) substitute(wordv[2], '^', '|');
229 		longpiptr = position(wordv[2], '|') > (6+8);
230 		nwordv = wordvsplice(longpiptr ? 2 : 4, wordc, wordv+1);
235 			nwordv[3] = wordv[1];
243 		wordv = nwordv - 1;		/* convert to 1 based */
248 	    (strlen(wordv[1]) == 1) &&
249 	    ((*wordv[1] == 'E') || (*wordv[1] == 'w') ||
250 		(*wordv[1] == 'e')) &&
251 	    (alldigits(wordv[2])) &&
252 	    (strlen(wordv[3]) == 1) &&
253 	    (wordv[3][0] == '-')) {
259 		nwordv = wordvsplice(1, wordc, wordv + 1);
261 		nwordv[1] = wordv[2];
262 		nwordv[2] = wordv[1];
263 		c_linenumber = wordv[2];
265 		wordv = nwordv - 1;
269 	    (strlen(wordv[1]) == 1) &&
270 	    ((*(wordv[1]) == 'E') || (*(wordv[1]) == 'w') ||
271 		(*(wordv[1]) == 'e')) &&
272 	    (strlen(wordv[2]) == 1) &&
273 	    (wordv[2][0] == '-')) {
296 		if (((undefined = (wordvcmp(wordv+2, 3, pi_und1) == 0)) != 0) ||
298 			    (wordvcmp(wordv+2, 3, pi_und2) == 0)) != 0) ||
299 		    (wordvcmp(wordv+2, 4, pi_imp1) == 0) ||
300 		    (wordvcmp(wordv+2, 4, pi_imp2) == 0)) {
304 				    wordv+1);
306 				nwordv[1] = wordv[wordindex];
312 			wordv = nwordv - 1;
316 		nwordv = wordvsplice(1+3, wordc, wordv+1);
321 		wordv = nwordv - 1;
325 	if (strcmp(wordv[1], "...") == 0) {
332 		nwordv = wordvsplice(1, wordc, wordv+1);
335 		wordv = nwordv - 1;
340 	    (lastchar(wordv[6]) == ':') &&
341 	    (isdateformat(5, wordv + 1))) {
346 		currentfilename = strsave(wordv[6]);
351 	    (strcmp(wordv[1], "In") == 0) &&
352 	    (lastchar(wordv[3]) == ':') &&
353 	    (instringset(wordv[2], Piroutines))) {
355 		c_header = wordvsplice(0, wordc, wordv+1);
361 	if (alldigits(wordv[1])) {
363 		c_linenumber = wordv[1];
375 	if (((wordc == 6) && (wordvcmp(wordv+1, 2, pi_Endmatched) == 0)) ||
376 	    ((wordc == 8) && (wordvcmp(wordv+1, 4, pi_Inserted) == 0)) ||
378 		(wordvcmp(wordv+1, 6, pi_multiple) == 0))) ||
380 		(wordvcmp(wordv+6, 5, pi_structured) == 0)))) {
382 		nwordv = wordvsplice(2, wordc, wordv+1);
384 		nwordv[1] = structured ? wordv [5] : wordv[wordc];
386 		wordv = nwordv - 1;
391 		nwordv[1] = wordv[wordc - 2];