Return to grind4-9a.py CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / isode-beta / doc / manual

Annotation of 43BSDReno/contrib/isode-beta/doc/manual/grind4-9a.py, revision 1.1.1.1

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.