BSD 4_1c_2 release

[unix-history] / usr / src / ucb / pascal / pxp / cset.c

static  char *sccsid = "@(#)cset.c      1.1 (Berkeley) 3/2/81";
/* 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("]");
}