|
|
1.1 ! root 1: ... ! 2: ! 3: %{ ! 4: /* DEBUG */ ! 5: ! 6: #ifdef DEBUG ! 7: testdebug (pe, s) ! 8: register PE pe; ! 9: register char *s; ! 10: { ! 11: static int debug = OK; ! 12: char *cp; ! 13: register PS ps; ! 14: ! 15: switch (debug) { ! 16: case NOTOK: ! 17: break; ! 18: ! 19: case OK: ! 20: if ((debug = (cp = getenv ("PEPYDEBUG")) && *cp ? atoi (cp) ! 21: : NOTOK) == NOTOK) ! 22: break; ! 23: fprintf (stderr, "%s made with %s\n", myname, pepyid); ! 24: ! 25: default: ! 26: fprintf (stderr, "%s\n", s); ! 27: ! 28: if ((ps = ps_alloc (std_open)) == NULLPS) ! 29: return; ! 30: if (std_setup (ps, stderr) != NOTOK) ! 31: (void) pe2pl (ps, pe); ! 32: fprintf (stderr, "--------\n"); ! 33: ps_free (ps); ! 34: break; ! 35: } ! 36: } ! 37: #endif ! 38: ! 39: ...
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.