Lines Matching defs:cur_wordv
47 char **cur_wordv; /* the actual error message */
81 wordvbuild(line, &cur_wordc, &cur_wordv);
84 * for convenience, convert cur_wordv to be 1 based, instead
87 cur_wordv -= 1;
108 erroradd(cur_wordc, cur_wordv+1, errorclass, C_UNKNOWN);
177 if (strcmp(cur_wordv[1], "Stop.") == 0) {
181 if (strcmp(cur_wordv[1], "Assembler:") == 0) {
186 if (strcmp(cur_wordv[1], "Undefined:") == 0) {
191 if (lastchar(cur_wordv[1]) == ':') {
193 currentfilename = cur_wordv[1];
202 nwordv[1] = cur_wordv[1];
206 cur_wordv = nwordv - 1;
229 && lastchar(cur_wordv[1]) == ':'
230 && isdigit((unsigned char)firstchar(cur_wordv[2]))
231 && lastchar(cur_wordv[2]) == ':') {
233 clob_last(cur_wordv[1], '\0');
234 clob_last(cur_wordv[2], '\0');
252 if (firstchar(cur_wordv[1]) == '"'
253 && lastchar(cur_wordv[1]) == ','
254 && next_lastchar(cur_wordv[1]) == '"'
255 && strcmp(cur_wordv[2], "line") == 0
256 && isdigit((unsigned char)firstchar(cur_wordv[3]))
257 && lastchar(cur_wordv[3]) == ':') {
258 clob_last(cur_wordv[1], '\0'); /* drop last , */
259 clob_last(cur_wordv[1], '\0'); /* drop last " */
260 cur_wordv[1]++; /* drop first " */
261 clob_last(cur_wordv[3], '\0'); /* drop : on line number */
262 cur_wordv[2] = cur_wordv[1]; /* overwrite "line" */
263 cur_wordv++; /*compensate*/
265 currentfilename = cur_wordv[1];
288 if (lastchar(cur_wordv[1]) != ':')
291 cp = cur_wordv[1] + strlen(cur_wordv[1]) - 1;
303 clob_last(cur_wordv[1], '\0'); /* last : */
306 file = cur_wordv[1];
312 nwordv = wordvsplice(EHEAD, cur_wordc, cur_wordv + 1);
319 cur_wordv = nwordv - 1;
321 currentfilename = cur_wordv[1];
345 if (lastchar(cur_wordv[1]) == ':') {
346 cp = cur_wordv[1] + strlen(cur_wordv[1]) - 1;
350 clob_last(cur_wordv[1], '\0'); /* last : */
352 file = cur_wordv[1];
353 nwordv = wordvsplice(1, cur_wordc, cur_wordv+1);
357 cur_wordv = nwordv - 1;
359 currentfilename = cur_wordv[1];
381 if (lastchar(cur_wordv[1]) == ':'
382 && next_lastchar(cur_wordv[1]) == ')') {
383 clob_last(cur_wordv[1], '\0'); /* colon */
384 if (persperdexplode(cur_wordv[1], &line, &file)) {
385 nwordv = wordvsplice(1, cur_wordc, cur_wordv+1);
389 cur_wordv = nwordv - 1;
393 cur_wordv[1][strlen(cur_wordv[1])] = ':';
411 if (cur_wordc > 1 && strcmp(cur_wordv[cur_wordc-1], "::") == 0) {
421 && persperdexplode(cur_wordv[cur_wordc], &line2, &file2)
422 && persperdexplode(cur_wordv[cur_wordc-2], &line1, &file1)) {
423 nwordv1 = wordvsplice(2, cur_wordc, cur_wordv+1);
424 nwordv2 = wordvsplice(2, cur_wordc, cur_wordv+1);
431 cur_wordv = nwordv2 - 1; /* 1 based */
461 if (lastchar(cur_wordv[2]) == '(' /* ')' */
462 && strcmp(cur_wordv[4], "),") == 0) {
464 if (persperdexplode(cur_wordv[3], &line, &file)) {
465 nwordv = wordvsplice(2, cur_wordc, cur_wordv+1);
469 cur_wordv = nwordv - 1; /* 1 based */
491 if (wordv_eq(cur_wordv+2, 4, Lint31)
492 || wordv_eq(cur_wordv+2, 6, Lint32)) {
529 if (cur_wordc == 3 && wordv_eq(cur_wordv+1, 3, F77_no_ass)) {
535 if (lastchar(cur_wordv[6]) == ':'
537 wordv_eq(cur_wordv+1, 3, F77_fatal)
538 || wordv_eq(cur_wordv+1, 3, F77_error)
539 || wordv_eq(cur_wordv+1, 3, F77_warning)
543 nwordv = wordvsplice(2, cur_wordc, cur_wordv+1);
544 nwordv[0] = cur_wordv[6];
546 nwordv[1] = cur_wordv[4];
548 cur_wordv = nwordv - 1; /* 1 based */
566 if (wordv_eq(cur_wordv+1, 3, Make_Croak)) {
570 if (wordv_eq(cur_wordv+2, 5, Make_NotRemade)) {
602 if (firstchar(cur_wordv[1]) == '"'
603 && lastchar(cur_wordv[1]) == '"'
604 && lastchar(cur_wordv[2]) == ':'
605 && isdigit((unsigned char)firstchar(cur_wordv[2]))) {
606 clob_last(cur_wordv[1], '\0'); /* drop the last " */
607 cur_wordv[1]++; /* skip over the first " */
608 clob_last(cur_wordv[2], '\0');
635 if (firstchar(cur_wordv[1]) == '`'
636 && lastchar(cur_wordv[1]) == ','
637 && next_lastchar(cur_wordv[1]) == '\''
638 && strcmp(cur_wordv[2], "line") == 0
639 && isdigit((unsigned char)firstchar(cur_wordv[3]))
640 && lastchar(cur_wordv[3]) == ':') {
641 clob_last(cur_wordv[1], '\0'); /* drop last , */
642 clob_last(cur_wordv[1], '\0'); /* drop last " */
643 cur_wordv[1]++; /* drop first " */
644 clob_last(cur_wordv[3], '\0'); /* drop : on line number */
645 cur_wordv[2] = cur_wordv[1]; /* overwrite "line" */
646 cur_wordv++; /*compensate*/
647 currentfilename = cur_wordv[1];
662 if ((strcmp(cur_wordv[1], "!!!") == 0 /* early version */
663 || strcmp(cur_wordv[1], "File") == 0) /* later version */
664 && lastchar(cur_wordv[2]) == ',' /* file name */
665 && strcmp(cur_wordv[3], "line") == 0
666 && isdigit((unsigned char)firstchar(cur_wordv[4])) /* line number */
667 && lastchar(cur_wordv[4]) == ':' /* line number */
669 clob_last(cur_wordv[2], '\0'); /* drop last , on file name */
670 clob_last(cur_wordv[4], '\0'); /* drop last : on line number */
671 cur_wordv[3] = cur_wordv[2]; /* file name on top of "line" */
672 cur_wordv += 2;
674 currentfilename = cur_wordv[1];
Indexes created Mon Oct 13 05:10:05 GMT 2025