updated to cope with pattern guards
/* pid(gibindfile(b)); */
pid(gibindimod(b));
printf("#%lu\t",gibindqual(b)); /* 1 -- qualified */
/* pid(gibindfile(b)); */
pid(gibindimod(b));
printf("#%lu\t",gibindqual(b)); /* 1 -- qualified */
+ printf("#%lu\t",gibindsource(b)); /* 1 -- from source */
pmaybe(pid, gibindas(b));
pmaybe(pconstr, gibindspec(b));
/* plist(pentid,giebindexp(b)); ??? */
pmaybe(pid, gibindas(b));
pmaybe(pconstr, gibindspec(b));
/* plist(pentid,giebindexp(b)); ??? */
break;
case pgdexp :
PUTTAG('&');
break;
case pgdexp :
PUTTAG('&');
+ plist(ptree, gpguard(p)); /* Experimental: pattern guards */
ptree(gpexp(p));
break;
default :
ptree(gpexp(p));
break;
default :