mirror of
https://github.com/fish-shell/fish-shell
synced 2024-11-14 08:58:01 +00:00
51 lines
858 B
Fish
51 lines
858 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
|
||
|
|