| 1 | #include "stralloc.h" |
| 2 | #include "readwrite.h" |
| 3 | #include "substdio.h" |
| 4 | #include "qsutil.h" |
| 5 | |
| 6 | static stralloc foo = {0}; |
| 7 | |
| 8 | static char errbuf[1]; |
| 9 | static struct substdio sserr = SUBSTDIO_FDBUF(write,0,errbuf,1); |
| 10 | |
| 11 | void logsa(sa) stralloc *sa; { |
| 12 | substdio_putflush(&sserr,sa->s,sa->len); } |
| 13 | void log1(s1) char *s1; { |
| 14 | substdio_putsflush(&sserr,s1); } |
| 15 | void log2(s1,s2) char *s1; char *s2; { |
| 16 | substdio_putsflush(&sserr,s1); |
| 17 | substdio_putsflush(&sserr,s2); } |
| 18 | void log3(s1,s2,s3) char *s1; char *s2; char *s3; { |
| 19 | substdio_putsflush(&sserr,s1); |
| 20 | substdio_putsflush(&sserr,s2); |
| 21 | substdio_putsflush(&sserr,s3); } |
| 22 | void nomem() { log1("alert: out of memory, sleeping...\n"); sleep(10); } |
| 23 | |
| 24 | void pausedir(dir) char *dir; |
| 25 | { log3("alert: unable to opendir ",dir,", sleeping...\n"); sleep(10); } |
| 26 | |
| 27 | static int issafe(ch) char ch; |
| 28 | { |
| 29 | if (ch == '%') return 0; /* general principle: allman's code is crap */ |
| 30 | if (ch < 33) return 0; |
| 31 | if (ch > 126) return 0; |
| 32 | return 1; |
| 33 | } |
| 34 | |
| 35 | void logsafe(s) char *s; |
| 36 | { |
| 37 | int i; |
| 38 | while (!stralloc_copys(&foo,s)) nomem(); |
| 39 | for (i = 0;i < foo.len;++i) |
| 40 | if (foo.s[i] == '\n') |
| 41 | foo.s[i] = '/'; |
| 42 | else |
| 43 | if (!issafe(foo.s[i])) |
| 44 | foo.s[i] = '_'; |
| 45 | logsa(&foo); |
| 46 | } |