-int warn(char * s)
-{
- char buf[EBUFSIZ];
-
- err_setup();
-
- if (listing > 0)
- ship_ln(s);
-
- sprintf(buf, "%s%d: Warning: %s%s", curfname, curlineno, s, nl);
-
- if (err_flag)
- write(err_fd, buf, (LONG)strlen(buf));
- else
- printf("%s", buf);
-
- taglist('W');
-
- return OK;
-}
-
-int warns(char * s, char * s1)
-{
- char buf[EBUFSIZ];
- char buf1[EBUFSIZ];
-
- err_setup();
- sprintf(buf, s, s1);
-
- if (listing > 0)
- ship_ln(s);
-
- sprintf(buf1, "%s%d: Warning: %s%s", curfname, curlineno, buf, nl);
-
- if (err_flag)
- write(err_fd, buf1, (LONG)strlen(buf1));
- else
- printf("%s", buf1);
-
- taglist('W');