| 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 |
|
|