home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
minnie.tuhs.org
/
unixen.tar
/
unixen
/
PDP-11
/
Distributions
/
ucb
/
spencer_2bsd.tar.gz
/
2bsd.tar
/
src
/
pxp
/
cset.c
< prev
next >
Wrap
C/C++ Source or Header
|
1980-02-17
|
549b
|
41 lines
/* Copyright (c) 1979 Regents of the University of California */
#
/*
* pxp - Pascal execution profiler
*
* Bill Joy UCB
* Version 1.2 January 1979
*/
#include "0.h"
#include "tree.h"
/*
* Constant sets
*/
cset(r)
int *r;
{
register *e, *el;
ppbra("[");
el = r[2];
if (el != NIL)
for (;;) {
e = el[1];
el = el[2];
if (e == NIL)
continue;
if (e[0] == T_RANG) {
rvalue(e[1], NIL);
ppsep("..");
rvalue(e[2], NIL);
} else
rvalue(e, NIL);
if (el == NIL)
break;
ppsep(", ");
}
ppket("]");
}