| 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; *p++ = x; } |
if (strchr("\\*+?{^.$|()[", i) != 0) x += ctype_meta; |
| 134 |
|
*p++ = x; |
| 135 |
|
} |
| 136 |
|
|
| 137 |
return yield; |
return yield; |
| 138 |
} |
} |