home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
minnie.tuhs.org
/
unixen.tar
/
unixen
/
PDP-11
/
Distributions
/
ucb
/
spencer_2bsd.tar.gz
/
2bsd.tar
/
src
/
pxp
/
type.c
< prev
next >
Wrap
C/C++ Source or Header
|
1980-02-17
|
2KB
|
204 lines
/* Copyright (c) 1979 Regents of the University of California */
#
/*
* pxp - Pascal execution profiler
*
* Bill Joy UCB
* Version 1.2 January 1979
*/
#include "0.h"
#include "tree.h"
STATIC int typecnt -1;
/*
* Type declaration part
*/
typebeg(l, tline)
int l, tline;
{
line = l;
if (nodecl)
printoff();
puthedr();
putcm();
ppnl();
indent();
ppkw("type");
ppgoin(DECL);
typecnt = 0;
setline(tline);
}
type(tline, tid, tdecl)
int tline;
char *tid;
int *tdecl;
{
if (typecnt)
putcm();
setline(tline);
ppitem();
ppid(tid);
ppsep(" =");
gtype(tdecl);
ppsep(";");
setinfo(tline);
putcml();
typecnt++;
}
typeend()
{
if (typecnt == -1)
return;
if (typecnt == 0)
ppid("{type decls}");
ppgoout(DECL);
typecnt = -1;
}
/*
* A single type declaration
*/
gtype(r)
register int *r;
{
if (r == NIL) {
ppid("{type}");
return;
}
if (r[0] != T_ID && r[0] != T_TYPACK)
setline(r[1]);
switch (r[0]) {
default:
panic("type");
case T_ID:
ppspac();
ppid(r[1]);
return;
case T_TYID:
ppspac();
ppid(r[2]);
break;
case T_TYSCAL:
ppspac();
tyscal(r);
break;
case T_TYRANG:
ppspac();
tyrang(r);
break;
case T_TYPTR:
ppspac();
ppop("^");
gtype(r[2]);
break;
case T_TYPACK:
ppspac();
ppkw("packed");
gtype(r[2]);
break;
case T_TYARY:
ppspac();
tyary(r);
break;
case T_TYREC:
ppspac();
tyrec(r[2], NIL);
break;
case T_TYFILE:
ppspac();
ppkw("file");
ppspac();
ppkw("of");
gtype(r[2]);
break;
case T_TYSET:
ppspac();
ppkw("set");
ppspac();
ppkw("of");
gtype(r[2]);
break;
}
setline(r[1]);
putcml();
}
/*
* Scalar type declaration
*/
tyscal(r)
register int *r;
{
register int i;
ppsep("(");
r = r[2];
if (r != NIL) {
i = 0;
ppgoin(DECL);
for (;;) {
ppid(r[1]);
r = r[2];
if (r == NIL)
break;
ppsep(", ");
i++;
if (i == 7) {
ppitem();
i = 0;
}
}
ppgoout(DECL);
} else
ppid("{constant list}");
ppsep(")");
}
/*
* Subrange type declaration
*/
tyrang(r)
register int *r;
{
gconst(r[2]);
ppsep("..");
gconst(r[3]);
}
/*
* Array type declaration
*/
tyary(r)
register int *r;
{
register int *tl;
ppkw("array");
ppspac();
ppsep("[");
tl = r[2];
if (tl != NIL) {
ppunspac();
for (;;) {
gtype(tl[1]);
tl = tl[2];
if (tl == NIL)
break;
ppsep(",");
}
} else
ppid("{subscr list}");
ppsep("]");
ppspac();
ppkw("of");
gtype(r[3]);
}