mirror of
https://github.com/fish-shell/fish-shell.git
synced 2024-11-24 14:10:48 +08:00
9c327b19a6
New fish_indent does that too, so this will make any future reformatting diffs smaller. Done using either of: perl -pi -e 'undef $/; s/\n*$/\n/' share/**.fish kak -n -f '<a-/>\n*<ret>d' share/**.fish
46 lines
1.0 KiB
Fish
46 lines
1.0 KiB
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]
|
|
return 0
|
|
end
|
|
if test "$s" = "$pattern[$i]"
|
|
set -e nomatch[1]
|
|
set i (math $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
|