mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
* parse.y (parse_string): readjusted.
* parse.y (heredoc_identifier): readjusted. * parse.y (here_document): make EOL codes of single-quoted here-documents consistent. * parse.y (yylex): reduced unnecessary conditionals. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3249 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
378a6bdea5
commit
559ca6258a
2 changed files with 54 additions and 37 deletions
11
ChangeLog
11
ChangeLog
|
@ -1,3 +1,14 @@
|
|||
Tue Dec 31 07:47:15 2002 Nobuyoshi Nakada <nobu.nokada@softhome.net>
|
||||
|
||||
* parse.y (parse_string): readjusted.
|
||||
|
||||
* parse.y (heredoc_identifier): readjusted.
|
||||
|
||||
* parse.y (here_document): make EOL codes of single-quoted
|
||||
here-documents consistent.
|
||||
|
||||
* parse.y (yylex): reduced unnecessary conditionals.
|
||||
|
||||
Tue Dec 31 04:49:51 2002 Akinori MUSHA <knu@iDaemons.org>
|
||||
|
||||
* ruby.1: mdoc'ify.
|
||||
|
|
80
parse.y
80
parse.y
|
@ -2585,6 +2585,7 @@ pushback(c)
|
|||
lex_p--;
|
||||
}
|
||||
|
||||
#define was_bol() (lex_p == lex_pbeg + 1)
|
||||
#define peek(c) (lex_p != lex_pend && (c) == *lex_p)
|
||||
|
||||
#define tokfix() (tokenbuf[tokidx]='\0')
|
||||
|
@ -2975,20 +2976,16 @@ parse_string(quote)
|
|||
do {c = nextc();} while (ISSPACE(c));
|
||||
space = 1;
|
||||
}
|
||||
if (c == term) {
|
||||
if (!lex_strnest) {
|
||||
eos:
|
||||
if (func & STR_FUNC_QWORDS) {
|
||||
quote->nd_func = -1;
|
||||
return ' ';
|
||||
}
|
||||
if (!(func & STR_FUNC_REGEXP)) return tSTRING_END;
|
||||
yylval.num = regx_options();
|
||||
return tREGEXP_END;
|
||||
if ((c == term && !lex_strnest) ||
|
||||
(c == '\\' && WHEN_QUOTED_TERM(peek(quoted_term_char)) &&
|
||||
(c = nextc()) == term)) {
|
||||
if (func & STR_FUNC_QWORDS) {
|
||||
quote->nd_func = -1;
|
||||
return ' ';
|
||||
}
|
||||
}
|
||||
if (c == '\\' && WHEN_QUOTED_TERM(peek(quoted_term_char))) {
|
||||
if ((c = nextc()) == term) goto eos;
|
||||
if (!(func & STR_FUNC_REGEXP)) return tSTRING_END;
|
||||
yylval.num = regx_options();
|
||||
return tREGEXP_END;
|
||||
}
|
||||
if (space) {
|
||||
pushback(c);
|
||||
|
@ -3025,18 +3022,8 @@ heredoc_identifier()
|
|||
|
||||
if (c == '-') {
|
||||
c = nextc();
|
||||
if (ISSPACE(c)) {
|
||||
pushback(c);
|
||||
pushback('-');
|
||||
return 0;
|
||||
}
|
||||
func = STR_FUNC_INDENT;
|
||||
}
|
||||
else if (ISSPACE(c)) {
|
||||
not_heredoc:
|
||||
pushback(c);
|
||||
return 0;
|
||||
}
|
||||
switch (c) {
|
||||
case '\'':
|
||||
func |= str_squote; goto quoted;
|
||||
|
@ -3059,7 +3046,13 @@ heredoc_identifier()
|
|||
break;
|
||||
|
||||
default:
|
||||
if (!is_identchar(c)) goto not_heredoc;
|
||||
if (!is_identchar(c)) {
|
||||
pushback(c);
|
||||
if (func & STR_FUNC_INDENT) {
|
||||
pushback('-');
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
newtok();
|
||||
term = '"';
|
||||
tokadd(func |= str_dquote);
|
||||
|
@ -3118,9 +3111,9 @@ here_document(here)
|
|||
NODE *here;
|
||||
{
|
||||
int c, func, indent = 0;
|
||||
char *eos;
|
||||
char *eos, *p, *pend;
|
||||
long len;
|
||||
VALUE str = 0, line;
|
||||
VALUE str = 0;
|
||||
|
||||
eos = RSTRING(here->nd_lit)->ptr;
|
||||
len = RSTRING(here->nd_lit)->len - 1;
|
||||
|
@ -3133,18 +3126,31 @@ here_document(here)
|
|||
lex_strterm = 0;
|
||||
return 0;
|
||||
}
|
||||
if (lex_p - 1 == lex_pbeg && whole_match_p(eos, len, indent)) {
|
||||
if (was_bol() && whole_match_p(eos, len, indent)) {
|
||||
heredoc_restore(lex_strterm);
|
||||
return tSTRING_END;
|
||||
}
|
||||
|
||||
if (!(func & STR_FUNC_EXPAND)) {
|
||||
do {
|
||||
line = lex_lastline;
|
||||
p = RSTRING(lex_lastline)->ptr;
|
||||
pend = lex_pend;
|
||||
if (pend > p) {
|
||||
switch (pend[-1]) {
|
||||
case '\n':
|
||||
if (--pend == p || pend[-1] != '\r') {
|
||||
pend++;
|
||||
break;
|
||||
}
|
||||
case '\r':
|
||||
--pend;
|
||||
}
|
||||
}
|
||||
if (str)
|
||||
rb_str_cat(str, RSTRING(line)->ptr, RSTRING(line)->len);
|
||||
rb_str_cat(str, p, pend - p);
|
||||
else
|
||||
str = rb_str_new(RSTRING(line)->ptr, RSTRING(line)->len);
|
||||
str = rb_str_new(p, pend - p);
|
||||
if (pend < lex_pend) rb_str_cat(str, "\n", 1);
|
||||
lex_p = lex_pend;
|
||||
if (nextc() == -1) {
|
||||
if (str) dispose_string(str);
|
||||
|
@ -3304,7 +3310,7 @@ yylex()
|
|||
return '!';
|
||||
|
||||
case '=':
|
||||
if (lex_p == lex_pbeg + 1) {
|
||||
if (was_bol()) {
|
||||
/* skip embedded rd document */
|
||||
if (strncmp(lex_p, "begin", 5) == 0 && ISSPACE(lex_p[5])) {
|
||||
for (;;) {
|
||||
|
@ -4163,10 +4169,10 @@ yylex()
|
|||
case '4': case '5': case '6':
|
||||
case '7': case '8': case '9':
|
||||
tokadd('$');
|
||||
while (ISDIGIT(c)) {
|
||||
do {
|
||||
tokadd(c);
|
||||
c = nextc();
|
||||
}
|
||||
} while (ISDIGIT(c));
|
||||
if (is_identchar(c))
|
||||
break;
|
||||
pushback(c);
|
||||
|
@ -4207,7 +4213,7 @@ yylex()
|
|||
break;
|
||||
|
||||
case '_':
|
||||
if (lex_p - 1 == lex_pbeg && whole_match_p("__END__", 7, 0)) {
|
||||
if (was_bol() && whole_match_p("__END__", 7, 0)) {
|
||||
ruby__end__seen = 1;
|
||||
lex_lastline = 0;
|
||||
return -1;
|
||||
|
@ -4216,7 +4222,7 @@ yylex()
|
|||
break;
|
||||
|
||||
default:
|
||||
if (!is_identchar(c) || ISDIGIT(c)) {
|
||||
if (!is_identchar(c)) {
|
||||
rb_compile_error("Invalid char `\\%03o' in expression", c);
|
||||
goto retry;
|
||||
}
|
||||
|
@ -4225,7 +4231,7 @@ yylex()
|
|||
break;
|
||||
}
|
||||
|
||||
while (is_identchar(c)) {
|
||||
do {
|
||||
tokadd(c);
|
||||
if (ismbchar(c)) {
|
||||
int i, len = mbclen(c)-1;
|
||||
|
@ -4236,7 +4242,7 @@ yylex()
|
|||
}
|
||||
}
|
||||
c = nextc();
|
||||
}
|
||||
} while (is_identchar(c));
|
||||
if ((c == '!' || c == '?') && is_identchar(tok()[0]) && !peek('=')) {
|
||||
tokadd(c);
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue