FreeCalypso > hg > ueda-linux
view ueda/uschem-print/pstring.c @ 116:bb9908f36e23
m4-fp/qfpmnf.inc: basic fixes
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Sat, 13 Jun 2020 04:14:10 +0000 |
parents | cd92449fdb51 |
children |
line wrap: on
line source
/* * Emitting PostScript strings, handling all special characters */ #include <ctype.h> emit_ps_string(str) char *str; { register char *cp; register int c; putchar('('); for (cp = str; c = *cp; cp++) { if (!isprint(c)) { printf("\\%03o", c); continue; } if (c == '(' || c == ')' || c == '\\') putchar('\\'); putchar(c); } putchar(')'); }