error/common/errorinput.c

37 char	**wordv;	/* the actual error message */
74 		wordvbuild(inbuffer, &wordc, &wordv);
76 		 * for convenience, convert wordv to be 1 based, instead
79 		wordv -= 1;
106 			erroradd(wordc, wordv+1, errorclass, C_UNKNOWN);
173 		if (wordv[1] != NULL && strcmp(wordv[1], "Stop.") == 0) {
177 		if (wordv[1] != NULL) {
178 			if (strcmp(wordv[1], "Assembler:") == 0) {
185 			} else if (strcmp(wordv[1], "Undefined:") == 0) {
191 		if (lastchar(wordv[1]) == ':') {
194 			currentfilename = wordv[1];
202 		nwordv[1] = wordv[1];
206 		wordv = nwordv - 1;
216 	if ((wordc == 2) && (lastchar(wordv[2]) == ':')) {
236 	    (lastchar(wordv[1]) == ':') &&
237 	    (isdigit(firstchar(wordv[2]))) &&
238 	    (lastchar(wordv[2]) == ':')) {
240 		clob_last(wordv[1], '\0');
241 		clob_last(wordv[2], '\0');
257 	if ((firstchar(wordv[1]) == '"') &&
258 	    (lastchar(wordv[1]) == ',') &&
259 	    (next_lastchar(wordv[1]) == '"') &&
260 	    (strcmp(wordv[2], "line") == 0) &&
261 	    (isdigit(firstchar(wordv[3]))) &&
262 	    (lastchar(wordv[3]) == ':')) {
263 		clob_last(wordv[1], '\0');	/* drop last , */
264 		clob_last(wordv[1], '\0');	/* drop last " */
265 		wordv[1]++;			/* drop first " */
266 		clob_last(wordv[3], '\0');	/* drop : on line number */
267 		wordv[2] = wordv[1];	/* overwrite "line" */
268 		wordv++;		/* compensate */
270 		currentfilename = wordv[1];
293 	if (lastchar(wordv[1]) == ':') {
294 		cp = wordv[1] + strlen(wordv[1]) - 1;
298 			clob_last(wordv[1], '\0');	/* last : */
300 			file = wordv[1];
301 			nwordv = wordvsplice(1, wordc, wordv+1);
305 			wordv = nwordv - 1;
307 			currentfilename = wordv[1];
326 		if ((lastchar(wordv[1]) == ':') &&
327 		    (next_lastchar(wordv[1]) == ')')) {
328 			clob_last(wordv[1], '\0'); /* colon */
329 			if (persperdexplode(wordv[1], &line, &file)) {
330 				nwordv = wordvsplice(1, wordc, wordv+1);
334 				wordv = nwordv - 1;
338 			wordv[1][strlen(wordv[1])] = ':';
357 	if (wordc > 1 && strcmp(wordv[wordc-1], "::") == 0) {
367 		    (persperdexplode(wordv[wordc], &line2, &file2)) &&
368 		    (persperdexplode(wordv[wordc-2], &line1, &file1))) {
369 			nwordv1 = wordvsplice(2, wordc, wordv+1);
370 			nwordv2 = wordvsplice(2, wordc, wordv+1);
376 			wordv = nwordv2 - 1;	/* 1 based */
398 	if ((lastchar(wordv[2]) == '(' /* ')' */) &&
399 	    (strcmp(wordv[4], "),") == 0)) {
401 		if (persperdexplode(wordv[3], &line, &file)) {
402 			nwordv = wordvsplice(2, wordc, wordv+1);
405 			wordv = nwordv - 1;	/* 1 based */
418 	if ((wordvcmp(wordv+2, 4, Lint31) == 0) ||
419 	    (wordvcmp(wordv+2, 6, Lint32) == 0)) {
448 	if (wordc == 3 && wordvcmp(wordv+1, 3, F77_no_ass) == 0) {
454 	if ((lastchar(wordv[6]) == ':') &&
455 	    ((wordvcmp(wordv+1, 3, F77_fatal) == 0) ||
456 		(wordvcmp(wordv+1, 3, F77_error) == 0) ||
457 		(wordvcmp(wordv+1, 3, F77_warning) == 0))) {
459 		nwordv = wordvsplice(2, wordc, wordv+1);
460 		nwordv[0] = wordv[6];
462 		nwordv[1] = wordv[4];
464 		wordv = nwordv - 1;	/* 1 based */
476 	if (wordvcmp(wordv+1, 3, Make_Croak) == 0) {
480 	if (wordvcmp(wordv+2, 5, Make_NotRemade) == 0) {
510 	if ((firstchar(wordv[1]) == '"') &&
511 	    (lastchar(wordv[1]) == '"') &&
512 	    (lastchar(wordv[2]) == ':') &&
513 	    (isdigit(firstchar(wordv[2])))) {
514 		clob_last(wordv[1], '\0');	/* drop the last " */
515 		wordv[1]++;	/* skip over the first " */
516 		clob_last(wordv[2], '\0');
540 	if ((firstchar(wordv[1]) == '`') &&
541 	    (lastchar(wordv[1]) == ',') &&
542 	    (next_lastchar(wordv[1]) == '\'') &&
543 	    (strcmp(wordv[2], "line") == 0) &&
544 	    (isdigit(firstchar(wordv[3]))) &&
545 	    (lastchar(wordv[3]) == ':')) {
546 		clob_last(wordv[1], '\0');	/* drop last , */
547 		clob_last(wordv[1], '\0');	/* drop last " */
548 		wordv[1]++;			/* drop first " */
549 		clob_last(wordv[3], '\0');	/* drop : on line number */
550 		wordv[2] = wordv[1];	/* overwrite "line" */
551 		wordv++;		/* compensate */
552 		currentfilename = wordv[1];
565 	if (((strcmp(wordv[1], "!!!") == 0) ||		/* early version */
566 	    (strcmp(wordv[1], "File") == 0)) &&		/* later version */
567 		(lastchar(wordv[2]) == ',') &&		/* file name */
568 		(strcmp(wordv[3], "line") == 0) &&
569 		(isdigit(firstchar(wordv[4]))) &&	/* line number */
570 		(lastchar(wordv[4]) == ':')) {	/* line number */
571 		clob_last(wordv[2], '\0');	/* drop last , on file name */
572 		clob_last(wordv[4], '\0');	/* drop last : on line number */
573 		wordv[3] = wordv[2];		/* file name on top of "line" */
574 		wordv += 2;
576 		currentfilename = wordv[1];
593 	if ((firstchar(wordv[1]) == '"') &&
594 	    (lastchar(wordv[1]) == ',') &&
595 	    (next_lastchar(wordv[1]) == '"') &&
596 	    (strcmp(wordv[2], "line") == 0) &&
597 	    (isdigit(firstchar(wordv[3]))) &&
598 	    (lastchar(wordv[3]) == ':') &&
599 		((strcmp(wordv[4], "Error:") == 0) ||
600 		    (strcmp(wordv[4], "Warning:") == 0) ||
601 		    ((strcmp(wordv[4], "ANSI") == 0) &&
602 		    (strcmp(wordv[5], "extension:") == 0)))) {
603 		clob_last(wordv[1], '\0');	/* drop last , */
604 		clob_last(wordv[1], '\0');	/* drop last " */
605 		wordv[1]++;			/* drop first " */
606 		clob_last(wordv[3], '\0');	/* drop : on line number */
607 		wordv[2] = wordv[1];	/* overwrite "line" */
608 		wordv++;		/* compensate */
610 		currentfilename = wordv[1];