If you are doing any compiler development in Poplog, or writing hairy syntax
procedures, then -lib showcode- is handy to those who do not breath perfection
on every line of code they utter. However, one may be exasperated by
forgetting to set pop_show_code to false before you do something innocent
like using a ved command that has to be autoloaded, whereupon the code
for the autoloaded program is spouted out at length. To avoid this problem
the code below can be put into a suitable file/files (e.g. ved_l1s.p) in a
local library. It gives versions of some of the code-loading commands
which show code only when invoked. E.g. <enter> lcps will show the code
generated for the current procedure.
============================================================================
uses showcode;
define ved_l_xxx_s(f);
dlocal pop_show_code = true;
f();
enddefine;
vars procedure(
ved_l1s = ved_l_xxx_s(%ved_l1%),
ved_lmrs = ved_l_xxx_s(%ved_lmr%),
ved_lcps = ved_l_xxx_s(%ved_lcp%),
);
|