-
Notifications
You must be signed in to change notification settings - Fork 1
/
contains-question.fs
33 lines (26 loc) · 802 Bytes
/
contains-question.fs
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
\ galope/contains-question.fs
\ This file is part of Galope
\ http:https://programandala.net/en.program.galope.html
\ Author: Wil Baden, from Charscan library (2002-2003), public domain
\ ==============================================================
: contains? ( ca1 len1 ca2 len2 -- ca1 len1 f )
2over 2swap search nip nip ;
\ doc{
\
\ contains? ( ca1 len1 ca2 len2 -- ca1 len1 f )
\
\ Does a string _ca1 len1_ contains string _ca2 len2_?
\
\ See: `hunt`, `instr`, `instr?`.
\
\ }doc
\ ==============================================================
\ Change log
\ 2012-12-10 Added.
\
\ 2013-11-06 Changed the stack notation of flag.
\
\ 2017-08-17: Update change log layout. Update header. Update stack
\ notation.
\
\ 2017-10-25: Update stack notation. Improve documentation.