fish-shell/share/functions/contains_seq.fish
2012-09-22 23:49:26 -07:00

50 lines
862 B
Fish

function contains_seq --description 'Return true if array contains a sequence'
set -l printnext
switch $argv[1]
case --printnext
set printnext[1] 1
set -e argv[1]
end
set -l pattern
set -l string
set -l dest pattern
for i in $argv
if test "$i" = --
set dest string
continue
end
set $dest $$dest $i
end
set -l nomatch 1
set -l i 1
for s in $string
if set -q printnext[2]
#echo $s
return 0
end
#echo a $nomatch
if test "$s" = "$pattern[$i]"
#echo b $nomatch
#echo c $nomatch[1]
set -e nomatch[1]
set i (expr $i + 1)
if not set -q pattern[$i]
if set -q printnext[1]
set printnext[2] 1
continue
end
return 0
end
else
if not set -q nomatch[1]
set nomatch 1
set i 1
end
end
end
if set -q printnext[1]
echo ''
end
set -q printnext[2]
end