new copyright; att/bsd/shared

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

/*-
* Copyright (c) 1980 The Regents of the University of California.
* All rights reserved.
*
* %sccs.include.redist.c%
*/

#ifndef lint
static char sccsid[] = "@(#)cset.c      5.2 (Berkeley) %G%";
#endif /* not lint */

/*
* 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("]");
}