- return(s);
-}
-
-
-void
-print_char_octal(char c, FILE *f)
-{
- if (strchr("\a\b\f\n\r\t\v\"", c))
- switch (c)
- {
- case '\a': fprintf(f, "\a"); break;
- case '\b': fprintf(f, "\b"); break;
- case '\f': fprintf(f, "\f"); break;
- case '\n': fprintf(f, "\n"); break;
- case '\r': fprintf(f, "\r"); break;
- case '\t': fprintf(f, "\t"); break;
- case '\v': fprintf(f, "\v"); break;
- case '\"': fprintf(f, "\""); break;
- }
- else if (isprint(c))
- fprintf(f, "%c", c);
- else
- fprintf(f, "\\%03hho", c);