blob: c708f4cd51524e02ce97d7a3d4cf66cec9d92056 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
include defs
# match --- find match anywhere on line
integer function match (lin, pat)
character lin (MAXLINE), pat (MAXPAT)
integer i, junk (9)
integer amatch
for (i = 1; lin (i) != EOS; i = i + 1)
if (amatch (lin, i, pat, junk, junk) > 0) {
match = YES
return
}
match = NO
return
end
|
