Return to testdebug.py CVS log

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

BSD 4.3reno

-- testdebug.py - support routine for pepy generated routines

-- $Header: /var/lib/cvsd/repos/CSRG/43BSDReno/contrib/isode-beta/pepy/testdebug.py,v 1.1.1.1 2018/04/24 16:12:56 root Exp $
--
--
-- $Log: testdebug.py,v $
-- Revision 1.1.1.1  2018/04/24 16:12:56  root
-- BSD 4.3reno
--
-- Revision 7.0  89/11/23  22:12:07  mrose
-- Release 6.0
-- 

--
--				  NOTICE
--
--    Acquisition, use, and distribution of this module and related
--    materials are subject to the restrictions of a license agreement.
--    Consult the Preface in the User's Manual for the full terms of
--    this agreement.
--
--


TESTDEBUG DEFINITIONS ::=

%{
#ifndef	lint
static char *rcsid = "$Header: /var/lib/cvsd/repos/CSRG/43BSDReno/contrib/isode-beta/pepy/testdebug.py,v 1.1.1.1 2018/04/24 16:12:56 root Exp $";
#endif

/* LINTLIBRARY */


#include <stdio.h>

%}

BEGIN

END

%{
int	testdebug (pe, s)
register PE	pe;
register char	*s;
{
    char  *cp;
    register PS ps;
    static int debug = OK;
    
    switch (debug) {
	case NOTOK:
	    return;

	case OK:
	    if ((debug = (cp = getenv ("PEPYDEBUG")) && *cp ? atoi (cp)
							    : NOTOK) == NOTOK)
		return;
	    (void) fflush (stdout);
	    fprintf (stderr, "testdebug made with %s\n", pepyid);
	    /* and fall... */

	default:
	    (void) fflush (stdout);
	    fprintf (stderr, "%s\n", s);

	    if ((ps = ps_alloc (std_open)) == NULLPS)
		break;
	    if (std_setup (ps, stderr) != NOTOK)
		(void) pe2pl (ps, pe);
	    fprintf (stderr, "--------\n");
	    ps_free (ps);
	    break;
    }
}

%}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.