File: sdiff

package info (click to toggle)
epic4 1%3A3.0-2.2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 3,756 kB
  • sloc: ansic: 56,285; makefile: 631; sh: 161; perl: 30
file content (21 lines) | stat: -rw-r--r-- 393 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
# 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