ãã Copyright (c) 1990-2008 Morgan Stanley All rights reserved. ãã See .../src/LICENSE for terms of distribution. $cx dlu tree{p}:prefix{Âp;dir_tree{p;1}} prefix{p;t}:if (2=#t) (q;&¡{q;1Øt}) Ý qû>¡(<(Îp),'/'),¡Î¡0Øt dir_tree{p;g}:if (g) dir_tree_0{(p;'');É0} else (;) dir_tree_0{pd;st}: { if (0<#dsûagetdents{p} Ý pûp,('/'¨¢1Ùp)/'/' Ý pûØpd) if (0<#i Ý (i;st)ûis_dir{p;ds;st}) (Ø¡ds;&¡{((<1Øfs) is_file{dir;mat}#mat else b/mat Ý bû©/>b½@1¡'.',¡sfs Ý bû(-1+>#¡sfs Ý sfsûΡk/0Øfs)Ù@1¡