BSD 4_3_Net_2 release

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

/*-
* Copyright (c) 1980 The Regents of the University of California.
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
*    notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
*    notice, this list of conditions and the following disclaimer in the
*    documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
*    must display the following acknowledgement:
*      This product includes software developed by the University of
*      California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
*    may be used to endorse or promote products derived from this software
*    without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/

#ifndef lint
static char sccsid[] = "@(#)call.c      5.2 (Berkeley) 4/16/91";
#endif /* not lint */

#
/*
* pxp - Pascal execution profiler
*
* Bill Joy UCB
* Version 1.2 January 1979
*/

#include "0.h"
#include "tree.h"

/*
* Procedure or function call
*/
call(p, argv)
       register int *argv;
{
       register *al;

       ppid(p);
       if (argv != NIL) {
               ppbra("(("+1);  /* \exapropos\estrange
 */
               for (;;) {
                       al = argv[1];
                       if (al[0] == T_WEXP) {
                               rvalue(al[1], NIL);
                               if (al[2] != NIL) {
                                       ppsep(": ");
                                       rvalue(al[2], NIL);
                               }
                               if (al[3] == OCT || al[3] == HEX) {
                                       ppspac();
                                       ppkw(al[3] == OCT ? "oct" : "hex");
                               } else if (al[3] != NIL) {
                                       ppsep(": ");
                                       rvalue(al[3], NIL);
                               }
                       } else
                               rvalue(argv[1], NIL);
                       argv = argv[2];
                       if (argv == NIL)
                               break;
                       ppsep(", ");
               }
               ppket(")");
       }
}