98 |
for (i = 0; i < 256; i++) *p++ = islower(i)? toupper(i) : tolower(i); |
for (i = 0; i < 256; i++) *p++ = islower(i)? toupper(i) : tolower(i); |
99 |
|
|
100 |
/* Then the character class tables. Don't try to be clever and save effort on |
/* Then the character class tables. Don't try to be clever and save effort on |
101 |
exclusive ones - in some locales things may be different. |
exclusive ones - in some locales things may be different. |
102 |
|
|
103 |
Note that the table for "space" includes everything "isspace" gives, including |
Note that the table for "space" includes everything "isspace" gives, including |
104 |
VT in the default locale. This makes it work for the POSIX class [:space:]. |
VT in the default locale. This makes it work for the POSIX class [:space:]. |
129 |
|
|
130 |
/* Finally, the character type table. In this, we used to exclude VT from the |
/* Finally, the character type table. In this, we used to exclude VT from the |
131 |
white space chars, because Perl didn't recognize it as such for \s and for |
white space chars, because Perl didn't recognize it as such for \s and for |
132 |
comments within regexes. However, Perl changed at release 5.18, so PCRE changed |
comments within regexes. However, Perl changed at release 5.18, so PCRE changed |
133 |
at release 8.34. */ |
at release 8.34. */ |
134 |
|
|
135 |
for (i = 0; i < 256; i++) |
for (i = 0; i < 256; i++) |