| 87 |
0, 0, 0, 0, 0, 0, 0, 0, /* 0 - 7 */ |
0, 0, 0, 0, 0, 0, 0, 0, /* 0 - 7 */ |
| 88 |
0, 0, ':', ';', '<', '=', '>', '?', /* 8 - ? */ |
0, 0, ':', ';', '<', '=', '>', '?', /* 8 - ? */ |
| 89 |
'@', -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 */ |
| 90 |
0, 0, 0, 0, 0, 0, 0, 0, /* H - O */ |
0, 0, 0, -ESC_K, 0, 0, 0, 0, /* H - O */ |
| 91 |
-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, 0, -ESC_W, /* P - W */ |
| 92 |
-ESC_X, 0, -ESC_Z, '[', '\\', ']', '^', '_', /* X - _ */ |
-ESC_X, 0, -ESC_Z, '[', '\\', ']', '^', '_', /* X - _ */ |
| 93 |
'`', 7, -ESC_b, 0, -ESC_d, ESC_e, ESC_f, 0, /* ` - g */ |
'`', 7, -ESC_b, 0, -ESC_d, ESC_e, ESC_f, 0, /* ` - g */ |
| 243 |
"repeating a DEFINE group is not allowed", |
"repeating a DEFINE group is not allowed", |
| 244 |
"inconsistent NEWLINE options", |
"inconsistent NEWLINE options", |
| 245 |
"\\g is not followed by an (optionally braced) non-zero number", |
"\\g is not followed by an (optionally braced) non-zero number", |
| 246 |
"(?+ or (?- must be followed by a non-zero number" |
"(?+ or (?- or (?(+ or (?(- must be followed by a non-zero number" |
| 247 |
}; |
}; |
| 248 |
|
|
| 249 |
|
|
| 2096 |
int class_lastchar; |
int class_lastchar; |
| 2097 |
int newoptions; |
int newoptions; |
| 2098 |
int recno; |
int recno; |
| 2099 |
|
int refsign; |
| 2100 |
int skipbytes; |
int skipbytes; |
| 2101 |
int subreqbyte; |
int subreqbyte; |
| 2102 |
int subfirstbyte; |
int subfirstbyte; |
| 3623 |
|
|
| 3624 |
code[1+LINK_SIZE] = OP_CREF; |
code[1+LINK_SIZE] = OP_CREF; |
| 3625 |
skipbytes = 3; |
skipbytes = 3; |
| 3626 |
|
refsign = -1; |
| 3627 |
|
|
| 3628 |
/* Check for a test for recursion in a named group. */ |
/* Check for a test for recursion in a named group. */ |
| 3629 |
|
|
| 3647 |
terminator = '\''; |
terminator = '\''; |
| 3648 |
ptr++; |
ptr++; |
| 3649 |
} |
} |
| 3650 |
else terminator = 0; |
else |
| 3651 |
|
{ |
| 3652 |
|
terminator = 0; |
| 3653 |
|
if (ptr[1] == '-' || ptr[1] == '+') refsign = *(++ptr); |
| 3654 |
|
} |
| 3655 |
|
|
| 3656 |
/* We now expect to read a name; any thing else is an error */ |
/* We now expect to read a name; any thing else is an error */ |
| 3657 |
|
|
| 3687 |
if (lengthptr != NULL) break; |
if (lengthptr != NULL) break; |
| 3688 |
|
|
| 3689 |
/* In the real compile we do the work of looking for the actual |
/* In the real compile we do the work of looking for the actual |
| 3690 |
reference. */ |
reference. If the string started with "+" or "-" we require the rest to |
| 3691 |
|
be digits, in which case recno will be set. */ |
| 3692 |
|
|
| 3693 |
|
if (refsign > 0) |
| 3694 |
|
{ |
| 3695 |
|
if (recno <= 0) |
| 3696 |
|
{ |
| 3697 |
|
*errorcodeptr = ERR58; |
| 3698 |
|
goto FAILED; |
| 3699 |
|
} |
| 3700 |
|
if (refsign == '-') |
| 3701 |
|
{ |
| 3702 |
|
recno = cd->bracount - recno + 1; |
| 3703 |
|
if (recno <= 0) |
| 3704 |
|
{ |
| 3705 |
|
*errorcodeptr = ERR15; |
| 3706 |
|
goto FAILED; |
| 3707 |
|
} |
| 3708 |
|
} |
| 3709 |
|
else recno += cd->bracount; |
| 3710 |
|
PUT2(code, 2+LINK_SIZE, recno); |
| 3711 |
|
break; |
| 3712 |
|
} |
| 3713 |
|
|
| 3714 |
|
/* Otherwise (did not start with "+" or "-"), start by looking for the |
| 3715 |
|
name. */ |
| 3716 |
|
|
| 3717 |
slot = cd->name_table; |
slot = cd->name_table; |
| 3718 |
for (i = 0; i < cd->names_found; i++) |
for (i = 0; i < cd->names_found; i++) |
| 3719 |
{ |
{ |
| 4036 |
case '5': case '6': case '7': case '8': case '9': /* subroutine */ |
case '5': case '6': case '7': case '8': case '9': /* subroutine */ |
| 4037 |
{ |
{ |
| 4038 |
const uschar *called; |
const uschar *called; |
|
int sign = *ptr; |
|
| 4039 |
|
|
| 4040 |
if (sign == '+') ptr++; |
if ((refsign = *ptr) == '+') ptr++; |
| 4041 |
else if (sign == '-') |
else if (refsign == '-') |
| 4042 |
{ |
{ |
| 4043 |
if ((digitab[ptr[1]] & ctype_digit) == 0) |
if ((digitab[ptr[1]] & ctype_digit) == 0) |
| 4044 |
goto OTHER_CHAR_AFTER_QUERY; |
goto OTHER_CHAR_AFTER_QUERY; |
| 4055 |
goto FAILED; |
goto FAILED; |
| 4056 |
} |
} |
| 4057 |
|
|
| 4058 |
if (sign == '-') |
if (refsign == '-') |
| 4059 |
{ |
{ |
| 4060 |
if (recno == 0) |
if (recno == 0) |
| 4061 |
{ |
{ |
| 4069 |
goto FAILED; |
goto FAILED; |
| 4070 |
} |
} |
| 4071 |
} |
} |
| 4072 |
else if (sign == '+') |
else if (refsign == '+') |
| 4073 |
{ |
{ |
| 4074 |
if (recno == 0) |
if (recno == 0) |
| 4075 |
{ |
{ |