/usr/share/fish/functions/contains_seq.fish is in fish-common 2.2.0-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | 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
|