-int error(const char * s)
-{
- char buf[EBUFSIZ];
- unsigned int length;
-
- err_setup();
-
- if (listing > 0)
- ship_ln(s);
-
- sprintf(buf, "%s%d: Error: %s%s", curfname, curlineno, s, nl);
- length = strlen(buf);
-
- if (err_flag)
- write(err_fd, buf, length);
- else
- printf("%s", buf);
-
- taglist('E');
- errcnt++;
-
- return ERROR;
-}
-
-int errors(char * s, char * s1)