fish-shell/share/functions/seq.fish
Aaron Gyes eaf496c1d4 seq.fish: use gseq if available.
Apparently if you install gnu coreutils on OpenBSD, the tools are
g-prefixed. So we definitely want to just alias that rather than
provide our lousy shell script implementation.
2019-03-09 13:44:03 -08:00

65 lines
1.7 KiB
Fish

# If seq is not installed, then define a function that invokes __fish_fallback_seq
# We can't call type here because that also calls seq
if not command -sq seq
if command -sq gseq
# No seq provided by the OS, but GNU coreutils was apparently installed, fantastic
function seq --description "Print sequences of numbers (gseq)"
gseq $argv
end
exit
else
# No seq command
function seq --description "Print sequences of numbers"
__fish_fallback_seq $argv
end
end
function __fish_fallback_seq --description "Fallback implementation of the seq command"
set -l from 1
set -l step 1
set -l to 1
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)
return 1
end
for i in $from $step $to
if not string match -rq -- '^-?[0-9]*([0-9]*|\.[0-9]+)$' $i
printf (_ "%s: '%s' is not a number\n") seq $i
return 1
end
end
if test $step -ge 0
set -l i $from
while test $i -le $to
echo $i
set i (math -- $i + $step)
end
else
set -l i $from
while test $i -ge $to
echo $i
set i (math -- $i + $step)
end
end
end
end