2.11BSD#431 - /usr/src/ucb/pascal/pxp/call.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:  * Procedure or function call
  14:  */
  15: call(p, argv)
  16:     register int *argv;
  17: {
  18:     register *al;
  19: 
  20:     ppid(p);
  21:     if (argv != NIL) {
  22:         ppbra("(");
  23:         for (;;) {
  24:             al = argv[1];
  25:             if (al[0] == T_WEXP) {
  26:                 rvalue(al[1], NIL);
  27:                 if (al[2] != NIL) {
  28:                     ppsep(": ");
  29:                     rvalue(al[2], NIL);
  30:                 }
  31:                 if (al[3] == OCT || al[3] == HEX) {
  32:                     ppspac();
  33:                     ppkw(al[3] == OCT ? "oct" : "hex");
  34:                 } else if (al[3] != NIL) {
  35:                     ppsep(": ");
  36:                     rvalue(al[3], NIL);
  37:                 }
  38:             } else
  39:                 rvalue(argv[1], NIL);
  40:             argv = argv[2];
  41:             if (argv == NIL)
  42:                 break;
  43:             ppsep(", ");
  44:         }
  45:         ppket(")");
  46:     }
  47: }

Defined functions