scandir

来自「EPIC IRC客户端。来源于IRCII客户端但做了很多性能和功能的优化。」· 代码 · 共 19 行

/*
 * 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