6 |
and semantics are as close as possible to those of the Perl 5 language. |
and semantics are as close as possible to those of the Perl 5 language. |
7 |
|
|
8 |
Written by Philip Hazel |
Written by Philip Hazel |
9 |
Copyright (c) 1997-2006 University of Cambridge |
Copyright (c) 1997-2007 University of Cambridge |
10 |
|
|
11 |
----------------------------------------------------------------------------- |
----------------------------------------------------------------------------- |
12 |
Redistribution and use in source and binary forms, with or without |
Redistribution and use in source and binary forms, with or without |
130 |
meta-character, which in this sense is any character that terminates a run |
meta-character, which in this sense is any character that terminates a run |
131 |
of data characters. */ |
of data characters. */ |
132 |
|
|
133 |
if (strchr("*+?{^.$|()[", i) != 0) x += ctype_meta; |
if (strchr("\\*+?{^.$|()[", i) != 0) x += ctype_meta; |
134 |
*p++ = x; |
*p++ = x; |
135 |
} |
} |
136 |
|
|