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

##### Functions

    var               X
    varbeg            X
    varend            X

##### Variables

    varcnt            X

       1: /*
       2:  * Copyright (c) 1980 Regents of the University of California.
       3:  * All rights reserved.  The Berkeley software License Agreement
       4:  * specifies the terms and conditions for redistribution.
       5:  */
       6:
       7: #ifndef lint
       8: static char sccsid[] = "@(#)var.c	5.1 (Berkeley) 6/5/85";
       9: #endif not lint
      10:
      11: /*
      12:  * pxp - Pascal execution profiler
      13:  *
      14:  * Bill Joy UCB
      15:  * Version 1.2 January 1979
      16:  */
      17:
      18: #include "0.h"
      19: #include "tree.h"
      20:
      21: STATIC  int varcnt = -1;
      22: /*
      23:  * Var declaration part
      24:  */
      25: varbeg(l, vline)
      26:     int l, vline;
      27: {
      28:
      29:     line = l;
      30:     if (nodecl)
      31:         printoff();
      32:     puthedr();
      33:     putcm();
      34:     ppnl();
      35:     indent();
      36:     ppkw("var");
      37:     ppgoin(DECL);
      38:     varcnt = 0;
      39:     setline(vline);
      40: }
      41:
      42: var(vline, vidl, vtype)
      43:     int vline;
      44:     register int *vidl;
      45:     int *vtype;
      46: {
      47:
      48:     if (varcnt)
      49:         putcm();
      50:     setline(vline);
      51:     ppitem();
      52:     if (vidl != NIL)
      53:         for (;;) {
      54:             ppid(vidl[1]);
      55:             vidl = vidl[2];
      56:             if (vidl == NIL)
      57:                 break;
      58:             ppsep(", ");
      59:         }
      60:     else
      61:         ppid("{identifier list}");
      62:     ppsep(":");
      63:     gtype(vtype);
      64:     ppsep(";");
      65:     setinfo(vline);
      66:     putcml();
      67:     varcnt++;
      68: }
      69:
      70: varend()
      71: {
      72:
      73:     if (varcnt == -1)
      74:         return;
      75:     if (varcnt == 0)
      76:         ppid("{variable decls}");
      77:     ppgoout(DECL);
      78:     varcnt = -1;
      79: }

#### Defined functions

var defined in line 42; never used
varbeg defined in line 25; never used
varend defined in line 70; never used

#### Defined variables

sccsid defined in line 8; never used
varcnt defined in line 21; used 6 times

- in line 38, 48, 67, 73-78(3)

Last modified: 1985-06-06 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 918 |