fish/seq.in

#!/usr/bin/env fish
#
# Fallback implementation of the seq command
#
# @configure_input@

set -l from 1
set -l step 1
set -l to 1

function _ -d "Alias for the gettext command"
	printf "%s" $argv
end
if test 1 = "@HAVE_GETTEXT@"
	if which gettext ^/dev/null >/dev/null
		function _ -d "Alias for the gettext command"
			gettext fish $argv
		end
	end
end

switch (count $argv)
	case 1
		set to $argv[1]

	case 2
		set from $argv[1]
		set to $argv[2]

	case 3
		set from $argv[1]
		set step $argv[2]
		set to $argv[3]

	case '*'
		printf (_ "%s: Expected 1, 2 or 3 arguments, got %d\n") seq (count $argv)
		exit 1

end

for i in $from $step $to
	if not echo $i | grep -E '^-?[0-9]*([0-9]*|\.[0-9]+)$' >/dev/null
		printf (_ "%s: '%s' is not a number\n") seq $i
		exit 1
	end
end

if [ $step -ge 0 ]
	echo "for( i=$from; i<=$to ; i+=$step ) i;" | bc
else
	echo "for( i=$from; i>=$to ; i+=$step ) i;" | bc
end