/* Free the memory pointed to by a 'struct token_ty'. */
static inline void
free_token (token_ty *tp)
{
if (tp->type == token_type_string_literal || tp->type == token_type_symbol)
free (tp->string);
if (tp->type == token_type_string_literal)
drop_reference (tp->comment);
}
/* 8c. In ObjectiveC mode, drop '@' before a literal string. We need to
do this before performing concatenation of adjacent string literals. */
static void
phase8c_get (token_ty *tp)
{
token_ty tmp;
phase8b_get (tp);
if (tp->type != token_type_objc_special)
return;
phase8b_get (&tmp);
if (tmp.type != token_type_string_literal)
{
phase8b_unget (&tmp);
return;
}
/* Drop the '@' token and return immediately the following string. */
drop_reference (tmp.comment);
tmp.comment = tp->comment;
*tp = tmp;
}
/* Extract messages until the next balanced closing parenthesis.
Extracted messages are added to MLP.
Return true upon eof, false upon closing parenthesis. */
static bool
extract_parenthesized (message_list_ty *mlp,
flag_context_ty outer_context,
flag_context_list_iterator_ty context_iter,
bool in_i18n)
{
int state; /* 1 or 2 inside _( ... ), otherwise 0 */
int plural_state = 0; /* defined only when in states 1 and 2 */
message_ty *plural_mp = NULL; /* defined only when in states 1 and 2 */
/* Context iterator that will be used if the next token is a '('. */
flag_context_list_iterator_ty next_context_iter =
passthrough_context_list_iterator;
/* Current context. */
flag_context_ty inner_context =
inherited_context (outer_context,
flag_context_list_iterator_advance (&context_iter));
/* Start state is 0 or 1. */
state = (in_i18n ? 1 : 0);
for (;;)
{
token_ty token;
if (in_i18n)
phase8_get (&token);
else
phase5_get (&token);
switch (token.type)
{
case token_type_i18n:
if (extract_parenthesized (mlp, inner_context, next_context_iter,
true))
return true;
next_context_iter = null_context_list_iterator;
state = 0;
continue;
case token_type_string_literal:
if (state == 1)
{
lex_pos_ty pos;
pos.file_name = logical_file_name;
pos.line_number = token.line_number;
if (plural_state == 0)
{
/* Seen an msgid. */
plural_mp = remember_a_message (mlp, NULL, token.string,
inner_context, &pos,
NULL, token.comment);
plural_state = 1;
state = 2;
}
else
{
/* Seen an msgid_plural. */
if (plural_mp != NULL)
remember_a_message_plural (plural_mp, token.string,
inner_context, &pos,
token.comment);
state = 0;
}
drop_reference (token.comment);
}
else
{
free_token (&token);
state = 0;
}
next_context_iter = null_context_list_iterator;
continue;
case token_type_symbol:
next_context_iter =
flag_context_list_iterator (
flag_context_list_table_lookup (
flag_context_list_table,
token.string, strlen (token.string)));
free_token (&token);
state = 0;
continue;
case token_type_lparen:
if (extract_parenthesized (mlp, inner_context, next_context_iter,
false))
return true;
next_context_iter = null_context_list_iterator;
state = 0;
continue;
case token_type_rparen:
return false;
case token_type_comma:
if (state == 2)
state = 1;
else
state = 0;
inner_context =
inherited_context (outer_context,
flag_context_list_iterator_advance (
&context_iter));
next_context_iter = passthrough_context_list_iterator;
continue;
case token_type_other:
next_context_iter = null_context_list_iterator;
state = 0;
continue;
case token_type_eof:
return true;
default:
abort ();
}
}
}
/* Extract messages until the next balanced closing parenthesis or bracket.
Extracted messages are added to MLP.
DELIM can be either token_type_rparen or token_type_rbracket, or
token_type_eof to accept both.
Return true upon eof, false upon closing parenthesis. */
static bool
extract_balanced (message_list_ty *mlp,
token_type_ty delim,
flag_context_ty outer_context,
flag_context_list_iterator_ty context_iter,
struct arglist_parser *argparser)
{
/* Current argument number. */
int arg = 1;
/* 0 when no keyword has been seen. 1 right after a keyword is seen. */
int state;
/* Parameters of the keyword just seen. Defined only in state 1. */
const struct callshapes *next_shapes = NULL;
/* Context iterator that will be used if the next token is a '('. */
flag_context_list_iterator_ty next_context_iter =
passthrough_context_list_iterator;
/* Current context. */
flag_context_ty inner_context =
inherited_context (outer_context,
flag_context_list_iterator_advance (&context_iter));
/* Start state is 0. */
state = 0;
for (;;)
{
token_ty token;
x_php_lex (&token);
switch (token.type)
{
case token_type_symbol:
{
void *keyword_value;
if (hash_find_entry (&keywords, token.string, strlen (token.string),
&keyword_value)
== 0)
{
next_shapes = (const struct callshapes *) keyword_value;
state = 1;
}
else
state = 0;
}
next_context_iter =
flag_context_list_iterator (
flag_context_list_table_lookup (
flag_context_list_table,
token.string, strlen (token.string)));
free (token.string);
continue;
case token_type_lparen:
if (extract_balanced (mlp, token_type_rparen,
inner_context, next_context_iter,
arglist_parser_alloc (mlp,
state ? next_shapes : NULL)))
{
arglist_parser_done (argparser, arg);
return true;
}
next_context_iter = null_context_list_iterator;
state = 0;
continue;
case token_type_rparen:
if (delim == token_type_rparen || delim == token_type_eof)
{
arglist_parser_done (argparser, arg);
return false;
}
next_context_iter = null_context_list_iterator;
state = 0;
continue;
case token_type_comma:
arg++;
inner_context =
inherited_context (outer_context,
flag_context_list_iterator_advance (
&context_iter));
next_context_iter = passthrough_context_list_iterator;
state = 0;
continue;
case token_type_lbracket:
if (extract_balanced (mlp, token_type_rbracket,
null_context, null_context_list_iterator,
arglist_parser_alloc (mlp, NULL)))
{
arglist_parser_done (argparser, arg);
return true;
}
case token_type_rbracket:
if (delim == token_type_rbracket || delim == token_type_eof)
{
arglist_parser_done (argparser, arg);
return false;
}
next_context_iter = null_context_list_iterator;
state = 0;
continue;
case token_type_string_literal:
{
lex_pos_ty pos;
pos.file_name = logical_file_name;
pos.line_number = token.line_number;
if (extract_all)
remember_a_message (mlp, NULL, token.string, inner_context,
&pos, token.comment);
else
arglist_parser_remember (argparser, arg, token.string,
inner_context,
pos.file_name, pos.line_number,
token.comment);
drop_reference (token.comment);
}
next_context_iter = null_context_list_iterator;
state = 0;
continue;
case token_type_dot:
case token_type_operator1:
case token_type_operator2:
case token_type_other:
next_context_iter = null_context_list_iterator;
state = 0;
continue;
case token_type_eof:
arglist_parser_done (argparser, arg);
return true;
default:
abort ();
}
}
}