2.9BSD - /usr/src/ucb/pascal/pxp/cset.c

   1: #
   2: /*
   3:  * pxp - Pascal execution profiler
   4:  *
   5:  * Bill Joy UCB
   6:  * Version 1.2 January 1979
   7:  */
   8: 
   9: #include "0.h"
  10: #include "tree.h"
  11: 
  12: /*
  13:  * Constant sets
  14:  */
  15: cset(r)
  16: int *r;
  17: {
  18:     register *e, *el;
  19: 
  20:     ppbra("[");
  21:     el = r[2];
  22:     if (el != NIL)
  23:         for (;;) {
  24:             e = el[1];
  25:             el = el[2];
  26:             if (e == NIL)
  27:                 continue;
  28:             if (e[0] == T_RANG) {
  29:                 rvalue(e[1], NIL);
  30:                 ppsep("..");
  31:                 rvalue(e[2], NIL);
  32:             } else
  33:                 rvalue(e, NIL);
  34:             if (el == NIL)
  35:                 break;
  36:             ppsep(", ");
  37:         }
  38:     ppket("]");
  39: }

Defined functions