2271 |
UNREAD (next_next_char); |
UNREAD (next_next_char); |
2272 |
|
|
2273 |
ok = (next_next_char <= 040 |
ok = (next_next_char <= 040 |
2274 |
|| index ("\"'`;([#?", next_next_char) |
|| index ("\"';([#?", next_next_char) |
2275 |
|
|| (!first_in_list && next_next_char == '`') |
2276 |
|| (new_backquote_flag && next_next_char == ',')); |
|| (new_backquote_flag && next_next_char == ',')); |
2277 |
} |
} |
2278 |
else |
else |
2279 |
{ |
{ |
2280 |
ok = (next_char <= 040 |
ok = (next_char <= 040 |
2281 |
|| index ("\"'`;()[]#", next_char) |
|| index ("\"';()[]#", next_char) |
2282 |
|
|| (!first_in_list && next_char == '`') |
2283 |
|| (new_backquote_flag && next_char == ',')); |
|| (new_backquote_flag && next_char == ',')); |
2284 |
} |
} |
2285 |
UNREAD (next_char); |
UNREAD (next_char); |
2438 |
UNREAD (next_char); |
UNREAD (next_char); |
2439 |
|
|
2440 |
if (next_char <= 040 |
if (next_char <= 040 |
2441 |
|| index ("\"'`;([#?", next_char) |
|| index ("\"';([#?", next_char) |
2442 |
|
|| (!first_in_list && next_char == '`') |
2443 |
|| (new_backquote_flag && next_char == ',')) |
|| (new_backquote_flag && next_char == ',')) |
2444 |
{ |
{ |
2445 |
*pch = c; |
*pch = c; |
2461 |
char *end = read_buffer + read_buffer_size; |
char *end = read_buffer + read_buffer_size; |
2462 |
|
|
2463 |
while (c > 040 |
while (c > 040 |
2464 |
&& !index ("\"'`;()[]#", c) |
&& !index ("\"';()[]#", c) |
2465 |
|
&& !(!first_in_list && c == '`') |
2466 |
&& !(new_backquote_flag && c == ',')) |
&& !(new_backquote_flag && c == ',')) |
2467 |
{ |
{ |
2468 |
if (end - p < MAX_MULTIBYTE_LENGTH) |
if (end - p < MAX_MULTIBYTE_LENGTH) |