/* * scandir -- an interesting way to use $glob() to get all the files * in a [sub]directory. */ alias scandir { ^local retval ^local last for x in ($glob($*/*)) { if (!(last = after(-1 / $x))) \ @ last = x push retval $last } @ function_return = retval } #hop'97