diff options
Diffstat (limited to 'src/interp/io.boot')
-rw-r--r-- | src/interp/io.boot | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/interp/io.boot b/src/interp/io.boot index 17fa032b..87416720 100644 --- a/src/interp/io.boot +++ b/src/interp/io.boot @@ -96,4 +96,7 @@ expandLeadingTabs line == findChar(c,s,k == 0) == or/[i for i in k..maxIndex s | stringChar(s,i) = c] - +findString(s1,s2,k == 0) == + n1 := #s1 + or/[i for i in k..(#s2 - n1) | + and/[stringChar(s1,j) = stringChar(s2,i+j) for j in 0..(n1-1)]] |