2007-01-16 01:29:18 +00:00
|
|
|
function math --description "Perform math calculations in bc"
|
2016-05-03 03:53:48 +00:00
|
|
|
set -l scale 0 # default is integer arithmetic
|
|
|
|
|
|
|
|
if set -q argv[1]
|
|
|
|
switch $argv[1]
|
|
|
|
case '-s*' # user wants to specify the scale of the output
|
|
|
|
set scale (string replace -- '-s' '' $argv[1])
|
|
|
|
if not string match -q -r '^\d+$' "$scale"
|
|
|
|
echo 'Expected an integer to follow -s' >&2
|
|
|
|
return 2 # missing argument is an error
|
|
|
|
end
|
|
|
|
set -e argv[1]
|
|
|
|
|
|
|
|
case -h --h --he --hel --help
|
|
|
|
__fish_print_help math
|
|
|
|
return 0
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
if not set -q argv[1]
|
|
|
|
return 2 # no arguments is an error
|
|
|
|
end
|
|
|
|
|
2016-12-29 12:53:11 +00:00
|
|
|
# Stitch lines together manually. We can't rely on BC_LINE_LENGTH because some systems don't
|
|
|
|
# have a new enough version of bc.
|
|
|
|
set -l out (echo "scale=$scale; $argv" | bc | string replace -r '\\\\$' '' | string join '')
|
2016-05-03 03:53:48 +00:00
|
|
|
switch "$out"
|
|
|
|
case ''
|
|
|
|
# No output indicates an error occurred.
|
|
|
|
return 3
|
2006-11-17 16:24:38 +00:00
|
|
|
|
2016-05-03 03:53:48 +00:00
|
|
|
case 0
|
|
|
|
# For historical reasons a zero result translates to a failure status.
|
|
|
|
echo 0
|
|
|
|
return 1
|
2010-09-18 02:18:26 +00:00
|
|
|
|
2016-05-03 03:53:48 +00:00
|
|
|
case '*'
|
|
|
|
# For historical reasons a non-zero result translates to a success status.
|
|
|
|
echo $out
|
|
|
|
return 0
|
|
|
|
end
|
2006-09-04 16:00:23 +00:00
|
|
|
end
|