blob: c8d1365bf814248c1d1177025ee1de4a695caf0a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
include defs
# locate --- look for c in char class at pat (offset)
integer function locate (c, pat, offset)
character c, pat (MAXPAT)
integer offset
integer i
# size of class is at pat (offset), characters follow
for (i = offset + pat (offset); i > offset; i = i - 1)
if (c == pat (i))
return (YES)
return (NO)
end
|
