tdirtrunc
tdirtrunc(tp);
tdirtrunc(to);
tdirtrunc(tnp);
tdirtrunc(xtp);
extern void tdirtrunc(struct tmpnode *);