# 2.11BSD#431 - /usr/src/ucb/pascal/pxp/cset.c

##### Functions

    cset              X

       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

cset defined in line 15; used 1 times

- in /usr/src/ucb/pascal/pxp/rval.c line 51

Last modified: 1981-07-10 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 447 |