sdiff

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

# Here's the plan
#
# $sdiff() -- convert bytes to kilobytes
# $sdiff2() -- convert bytes to megabytes
#

alias sdiff {
	^set floating_point on
	^local kb $trunc($1 ${[$0] / 1024})
	@ function_return = kb ## [K]
	^set floating_point off
}

alias sdiff2 {
	^set floating_point on
	^local mb $trunc($1 ${[$0] / (1024 * 1024)})
	@ function_return = mb ## [mb]
	^set floating_point off
}

#hop'97