* pxp - Pascal execution profiler
* Version 1.0 August 1977
int pplev
[3]; /* STAT, DECL, PRFN */
nopflg
= !all
&& nowcnt() == 0 || !opt('z');
* First real thing printed
* or includes an "id" (if a comment)
while (owenl
|| owenlb
) {
owenlb
? owenlb
-- : owenl
--;
indent1(pplev
[PRFN
] + pplev
[DECL
] + pplev
[STAT
]);
indent1(pplev
[PRFN
] + pplev
[STAT
]);
switch (i
= shudpcnt()) {
printf("%7.7ld.", nowcnt());
putchar(i
== 0 ? '|' : ' ');
for (i
= unit
- 1; i
!= 0; i
--)
extern int putchar(), flush();
i
= pplev
[PRFN
] + profile
? 44 + unit
: 28;