mirror of
https://github.com/fish-shell/fish-shell
synced 2024-11-14 17:07:44 +00:00
50 lines
862 B
Fish
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
|
|
|