58 |
#endif |
#endif |
59 |
|
|
60 |
|
|
61 |
|
/* Macro for setting individual bits in class bitmaps. */ |
62 |
|
|
63 |
|
#define SETBIT(a,b) a[b/8] |= (1 << (b%8)) |
64 |
|
|
65 |
|
|
66 |
/************************************************* |
/************************************************* |
67 |
* Code parameters and static tables * |
* Code parameters and static tables * |
68 |
*************************************************/ |
*************************************************/ |
92 |
0, 0, 0, 0, 0, 0, 0, 0, /* 0 - 7 */ |
0, 0, 0, 0, 0, 0, 0, 0, /* 0 - 7 */ |
93 |
0, 0, ':', ';', '<', '=', '>', '?', /* 8 - ? */ |
0, 0, ':', ';', '<', '=', '>', '?', /* 8 - ? */ |
94 |
'@', -ESC_A, -ESC_B, -ESC_C, -ESC_D, -ESC_E, 0, -ESC_G, /* @ - G */ |
'@', -ESC_A, -ESC_B, -ESC_C, -ESC_D, -ESC_E, 0, -ESC_G, /* @ - G */ |
95 |
0, 0, 0, -ESC_K, 0, 0, 0, 0, /* H - O */ |
-ESC_H, 0, 0, -ESC_K, 0, 0, 0, 0, /* H - O */ |
96 |
-ESC_P, -ESC_Q, -ESC_R, -ESC_S, 0, 0, 0, -ESC_W, /* P - W */ |
-ESC_P, -ESC_Q, -ESC_R, -ESC_S, 0, 0, -ESC_V, -ESC_W, /* P - W */ |
97 |
-ESC_X, 0, -ESC_Z, '[', '\\', ']', '^', '_', /* X - _ */ |
-ESC_X, 0, -ESC_Z, '[', '\\', ']', '^', '_', /* X - _ */ |
98 |
'`', 7, -ESC_b, 0, -ESC_d, ESC_e, ESC_f, 0, /* ` - g */ |
'`', 7, -ESC_b, 0, -ESC_d, ESC_e, ESC_f, 0, /* ` - g */ |
99 |
0, 0, 0, -ESC_k, 0, 0, ESC_n, 0, /* h - o */ |
-ESC_h, 0, 0, -ESC_k, 0, 0, ESC_n, 0, /* h - o */ |
100 |
-ESC_p, 0, ESC_r, -ESC_s, ESC_tee, 0, 0, -ESC_w, /* p - w */ |
-ESC_p, 0, ESC_r, -ESC_s, ESC_tee, 0, -ESC_v, -ESC_w, /* p - w */ |
101 |
0, 0, -ESC_z /* x - z */ |
0, 0, -ESC_z /* x - z */ |
102 |
}; |
}; |
103 |
|
|
111 |
/* 70 */ 0, 0, 0, 0, 0, 0, 0, 0, |
/* 70 */ 0, 0, 0, 0, 0, 0, 0, 0, |
112 |
/* 78 */ 0, '`', ':', '#', '@', '\'', '=', '"', |
/* 78 */ 0, '`', ':', '#', '@', '\'', '=', '"', |
113 |
/* 80 */ 0, 7, -ESC_b, 0, -ESC_d, ESC_e, ESC_f, 0, |
/* 80 */ 0, 7, -ESC_b, 0, -ESC_d, ESC_e, ESC_f, 0, |
114 |
/* 88 */ 0, 0, 0, '{', 0, 0, 0, 0, |
/* 88 */-ESC_h, 0, 0, '{', 0, 0, 0, 0, |
115 |
/* 90 */ 0, 0, -ESC_k, 'l', 0, ESC_n, 0, -ESC_p, |
/* 90 */ 0, 0, -ESC_k, 'l', 0, ESC_n, 0, -ESC_p, |
116 |
/* 98 */ 0, ESC_r, 0, '}', 0, 0, 0, 0, |
/* 98 */ 0, ESC_r, 0, '}', 0, 0, 0, 0, |
117 |
/* A0 */ 0, '~', -ESC_s, ESC_tee, 0, 0, -ESC_w, 0, |
/* A0 */ 0, '~', -ESC_s, ESC_tee, 0,-ESC_v, -ESC_w, 0, |
118 |
/* A8 */ 0,-ESC_z, 0, 0, 0, '[', 0, 0, |
/* A8 */ 0,-ESC_z, 0, 0, 0, '[', 0, 0, |
119 |
/* B0 */ 0, 0, 0, 0, 0, 0, 0, 0, |
/* B0 */ 0, 0, 0, 0, 0, 0, 0, 0, |
120 |
/* B8 */ 0, 0, 0, 0, 0, ']', '=', '-', |
/* B8 */ 0, 0, 0, 0, 0, ']', '=', '-', |
121 |
/* C0 */ '{',-ESC_A, -ESC_B, -ESC_C, -ESC_D,-ESC_E, 0, -ESC_G, |
/* C0 */ '{',-ESC_A, -ESC_B, -ESC_C, -ESC_D,-ESC_E, 0, -ESC_G, |
122 |
/* C8 */ 0, 0, 0, 0, 0, 0, 0, 0, |
/* C8 */-ESC_H, 0, 0, 0, 0, 0, 0, 0, |
123 |
/* D0 */ '}', 0, 0, 0, 0, 0, 0, -ESC_P, |
/* D0 */ '}', 0, 0, 0, 0, 0, 0, -ESC_P, |
124 |
/* D8 */-ESC_Q,-ESC_R, 0, 0, 0, 0, 0, 0, |
/* D8 */-ESC_Q,-ESC_R, 0, 0, 0, 0, 0, 0, |
125 |
/* E0 */ '\\', 0, -ESC_S, 0, 0, 0, -ESC_W, -ESC_X, |
/* E0 */ '\\', 0, -ESC_S, 0, 0,-ESC_V, -ESC_W, -ESC_X, |
126 |
/* E8 */ 0,-ESC_Z, 0, 0, 0, 0, 0, 0, |
/* E8 */ 0,-ESC_Z, 0, 0, 0, 0, 0, 0, |
127 |
/* F0 */ 0, 0, 0, 0, 0, 0, 0, 0, |
/* F0 */ 0, 0, 0, 0, 0, 0, 0, 0, |
128 |
/* F8 */ 0, 0, 0, 0, 0, 0, 0, 0 |
/* F8 */ 0, 0, 0, 0, 0, 0, 0, 0 |
2535 |
|
|
2536 |
case ESC_E: /* Perl ignores an orphan \E */ |
case ESC_E: /* Perl ignores an orphan \E */ |
2537 |
continue; |
continue; |
2538 |
|
|
2539 |
default: /* Not recognized; fall through */ |
default: /* Not recognized; fall through */ |
2540 |
break; /* Need "default" setting to stop compiler warning. */ |
break; /* Need "default" setting to stop compiler warning. */ |
2541 |
} |
} |
2544 |
|
|
2545 |
else if (c == -ESC_d || c == -ESC_D || c == -ESC_w || |
else if (c == -ESC_d || c == -ESC_D || c == -ESC_w || |
2546 |
c == -ESC_W || c == -ESC_s || c == -ESC_S) continue; |
c == -ESC_W || c == -ESC_s || c == -ESC_S) continue; |
2547 |
|
|
2548 |
|
/* We need to deal with \H, \h, \V, and \v in both phases because |
2549 |
|
they use extra memory. */ |
2550 |
|
|
2551 |
|
if (-c == ESC_h) |
2552 |
|
{ |
2553 |
|
SETBIT(classbits, 0x09); /* VT */ |
2554 |
|
SETBIT(classbits, 0x20); /* SPACE */ |
2555 |
|
SETBIT(classbits, 0xa0); /* NSBP */ |
2556 |
|
#ifdef SUPPORT_UTF8 |
2557 |
|
if (utf8) |
2558 |
|
{ |
2559 |
|
class_utf8 = TRUE; |
2560 |
|
*class_utf8data++ = XCL_SINGLE; |
2561 |
|
class_utf8data += _pcre_ord2utf8(0x1680, class_utf8data); |
2562 |
|
*class_utf8data++ = XCL_SINGLE; |
2563 |
|
class_utf8data += _pcre_ord2utf8(0x180e, class_utf8data); |
2564 |
|
*class_utf8data++ = XCL_RANGE; |
2565 |
|
class_utf8data += _pcre_ord2utf8(0x2000, class_utf8data); |
2566 |
|
class_utf8data += _pcre_ord2utf8(0x200A, class_utf8data); |
2567 |
|
*class_utf8data++ = XCL_SINGLE; |
2568 |
|
class_utf8data += _pcre_ord2utf8(0x202f, class_utf8data); |
2569 |
|
*class_utf8data++ = XCL_SINGLE; |
2570 |
|
class_utf8data += _pcre_ord2utf8(0x205f, class_utf8data); |
2571 |
|
*class_utf8data++ = XCL_SINGLE; |
2572 |
|
class_utf8data += _pcre_ord2utf8(0x3000, class_utf8data); |
2573 |
|
} |
2574 |
|
#endif |
2575 |
|
continue; |
2576 |
|
} |
2577 |
|
|
2578 |
|
if (-c == ESC_H) |
2579 |
|
{ |
2580 |
|
for (c = 0; c < 32; c++) |
2581 |
|
{ |
2582 |
|
int x = 0xff; |
2583 |
|
switch (c) |
2584 |
|
{ |
2585 |
|
case 0x09/8: x ^= 1 << (0x09%8); break; |
2586 |
|
case 0x20/8: x ^= 1 << (0x20%8); break; |
2587 |
|
case 0xa0/8: x ^= 1 << (0xa0%8); break; |
2588 |
|
default: break; |
2589 |
|
} |
2590 |
|
classbits[c] |= x; |
2591 |
|
} |
2592 |
|
|
2593 |
|
#ifdef SUPPORT_UTF8 |
2594 |
|
if (utf8) |
2595 |
|
{ |
2596 |
|
class_utf8 = TRUE; |
2597 |
|
*class_utf8data++ = XCL_RANGE; |
2598 |
|
class_utf8data += _pcre_ord2utf8(0x0100, class_utf8data); |
2599 |
|
class_utf8data += _pcre_ord2utf8(0x167f, class_utf8data); |
2600 |
|
*class_utf8data++ = XCL_RANGE; |
2601 |
|
class_utf8data += _pcre_ord2utf8(0x1681, class_utf8data); |
2602 |
|
class_utf8data += _pcre_ord2utf8(0x180d, class_utf8data); |
2603 |
|
*class_utf8data++ = XCL_RANGE; |
2604 |
|
class_utf8data += _pcre_ord2utf8(0x180f, class_utf8data); |
2605 |
|
class_utf8data += _pcre_ord2utf8(0x1fff, class_utf8data); |
2606 |
|
*class_utf8data++ = XCL_RANGE; |
2607 |
|
class_utf8data += _pcre_ord2utf8(0x200B, class_utf8data); |
2608 |
|
class_utf8data += _pcre_ord2utf8(0x202e, class_utf8data); |
2609 |
|
*class_utf8data++ = XCL_RANGE; |
2610 |
|
class_utf8data += _pcre_ord2utf8(0x2030, class_utf8data); |
2611 |
|
class_utf8data += _pcre_ord2utf8(0x205e, class_utf8data); |
2612 |
|
*class_utf8data++ = XCL_RANGE; |
2613 |
|
class_utf8data += _pcre_ord2utf8(0x2060, class_utf8data); |
2614 |
|
class_utf8data += _pcre_ord2utf8(0x2fff, class_utf8data); |
2615 |
|
*class_utf8data++ = XCL_RANGE; |
2616 |
|
class_utf8data += _pcre_ord2utf8(0x3001, class_utf8data); |
2617 |
|
class_utf8data += _pcre_ord2utf8(0x7fffffff, class_utf8data); |
2618 |
|
} |
2619 |
|
#endif |
2620 |
|
continue; |
2621 |
|
} |
2622 |
|
|
2623 |
|
if (-c == ESC_v) |
2624 |
|
{ |
2625 |
|
SETBIT(classbits, 0x0a); /* LF */ |
2626 |
|
SETBIT(classbits, 0x0b); /* VT */ |
2627 |
|
SETBIT(classbits, 0x0c); /* FF */ |
2628 |
|
SETBIT(classbits, 0x0d); /* CR */ |
2629 |
|
SETBIT(classbits, 0x85); /* NEL */ |
2630 |
|
#ifdef SUPPORT_UTF8 |
2631 |
|
if (utf8) |
2632 |
|
{ |
2633 |
|
class_utf8 = TRUE; |
2634 |
|
*class_utf8data++ = XCL_RANGE; |
2635 |
|
class_utf8data += _pcre_ord2utf8(0x2028, class_utf8data); |
2636 |
|
class_utf8data += _pcre_ord2utf8(0x2029, class_utf8data); |
2637 |
|
} |
2638 |
|
#endif |
2639 |
|
continue; |
2640 |
|
} |
2641 |
|
|
2642 |
|
if (-c == ESC_V) |
2643 |
|
{ |
2644 |
|
for (c = 0; c < 32; c++) |
2645 |
|
{ |
2646 |
|
int x = 0xff; |
2647 |
|
switch (c) |
2648 |
|
{ |
2649 |
|
case 0x0a/8: x ^= 1 << (0x0a%8); |
2650 |
|
x ^= 1 << (0x0b%8); |
2651 |
|
x ^= 1 << (0x0c%8); |
2652 |
|
x ^= 1 << (0x0d%8); |
2653 |
|
break; |
2654 |
|
case 0x85/8: x ^= 1 << (0x85%8); break; |
2655 |
|
default: break; |
2656 |
|
} |
2657 |
|
classbits[c] |= x; |
2658 |
|
} |
2659 |
|
|
2660 |
|
#ifdef SUPPORT_UTF8 |
2661 |
|
if (utf8) |
2662 |
|
{ |
2663 |
|
class_utf8 = TRUE; |
2664 |
|
*class_utf8data++ = XCL_RANGE; |
2665 |
|
class_utf8data += _pcre_ord2utf8(0x0100, class_utf8data); |
2666 |
|
class_utf8data += _pcre_ord2utf8(0x2027, class_utf8data); |
2667 |
|
*class_utf8data++ = XCL_RANGE; |
2668 |
|
class_utf8data += _pcre_ord2utf8(0x2029, class_utf8data); |
2669 |
|
class_utf8data += _pcre_ord2utf8(0x7fffffff, class_utf8data); |
2670 |
|
} |
2671 |
|
#endif |
2672 |
|
continue; |
2673 |
|
} |
2674 |
|
|
2675 |
/* We need to deal with \P and \p in both phases. */ |
/* We need to deal with \P and \p in both phases. */ |
2676 |
|
|