mirror of
https://github.com/mirror/tinycc.git
synced 2024-12-30 04:10:08 +08:00
tccpp: Cleanup
With last change the can_read_stream flag is unneeded, so tidy this a bit.
This commit is contained in:
Michael Matz
parent
d8fdd380f3
commit
1f3d3957c4
495
tccpp.c
495
tccpp.c
@ -2901,8 +2901,7 @@ ST_FUNC void next_nomacro(void)
|
|||||||
static void macro_subst(
|
static void macro_subst(
|
||||||
TokenString *tok_str,
|
TokenString *tok_str,
|
||||||
Sym **nested_list,
|
Sym **nested_list,
|
||||||
const int *macro_str,
|
const int *macro_str
|
||||||
int can_read_stream
|
|
||||||
);
|
);
|
||||||
|
|
||||||
/* substitute arguments in replacement lists in macro_str by the values in
|
/* substitute arguments in replacement lists in macro_str by the values in
|
||||||
@ -2992,9 +2991,7 @@ static int *macro_arg_subst(Sym **nested_list, const int *macro_str, Sym *args)
|
|||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
add_var:
|
add_var:
|
||||||
/* NOTE: the stream cannot be read when macro
|
macro_subst(&str, nested_list, st);
|
||||||
substituting an argument */
|
|
||||||
macro_subst(&str, nested_list, st, 0);
|
|
||||||
}
|
}
|
||||||
if (str.len == l0) /* expanded to empty string */
|
if (str.len == l0) /* expanded to empty string */
|
||||||
tok_str_add(&str, TOK_PLCHLDR);
|
tok_str_add(&str, TOK_PLCHLDR);
|
||||||
@ -3016,235 +3013,6 @@ static char const ab_month_name[12][4] =
|
|||||||
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
|
"Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
|
||||||
};
|
};
|
||||||
|
|
||||||
/* peek or read [ws_str == NULL] next token from function macro call,
|
|
||||||
walking up macro levels up to the file if necessary */
|
|
||||||
static int next_argstream(Sym **nested_list, int can_read_stream, TokenString *ws_str)
|
|
||||||
{
|
|
||||||
int t;
|
|
||||||
const int *p;
|
|
||||||
Sym *sa;
|
|
||||||
|
|
||||||
for (;;) {
|
|
||||||
if (macro_ptr) {
|
|
||||||
p = macro_ptr, t = *p;
|
|
||||||
if (ws_str) {
|
|
||||||
while (is_space(t) || TOK_LINEFEED == t || TOK_PLCHLDR == t)
|
|
||||||
tok_str_add(ws_str, t), t = *++p;
|
|
||||||
}
|
|
||||||
if (t == 0) {
|
|
||||||
end_macro();
|
|
||||||
/* also, end of scope for nested defined symbol */
|
|
||||||
sa = *nested_list;
|
|
||||||
while (sa && sa->v == 0)
|
|
||||||
sa = sa->prev;
|
|
||||||
if (sa)
|
|
||||||
sa->v = 0;
|
|
||||||
continue;
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
ch = handle_eob();
|
|
||||||
if (ws_str) {
|
|
||||||
while (is_space(ch) || ch == '\n' || ch == '/') {
|
|
||||||
if (ch == '/') {
|
|
||||||
int c;
|
|
||||||
uint8_t *p = file->buf_ptr;
|
|
||||||
PEEKC(c, p);
|
|
||||||
if (c == '*') {
|
|
||||||
p = parse_comment(p);
|
|
||||||
file->buf_ptr = p - 1;
|
|
||||||
} else if (c == '/') {
|
|
||||||
p = parse_line_comment(p);
|
|
||||||
file->buf_ptr = p - 1;
|
|
||||||
} else
|
|
||||||
break;
|
|
||||||
ch = ' ';
|
|
||||||
}
|
|
||||||
if (!(ch == '\f' || ch == '\v' || ch == '\r'))
|
|
||||||
tok_str_add(ws_str, ch);
|
|
||||||
cinp();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
t = ch;
|
|
||||||
}
|
|
||||||
|
|
||||||
if (ws_str)
|
|
||||||
return t;
|
|
||||||
next_nomacro_spc();
|
|
||||||
return tok;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
/* do macro substitution of current token with macro 's' and add
|
|
||||||
result to (tok_str,tok_len). 'nested_list' is the list of all
|
|
||||||
macros we got inside to avoid recursing. Return non zero if no
|
|
||||||
substitution needs to be done */
|
|
||||||
static int macro_subst_tok(
|
|
||||||
TokenString *tok_str,
|
|
||||||
Sym **nested_list,
|
|
||||||
Sym *s,
|
|
||||||
int can_read_stream)
|
|
||||||
{
|
|
||||||
Sym *args, *sa, *sa1;
|
|
||||||
int parlevel, *mstr, t, t1, spc;
|
|
||||||
TokenString str;
|
|
||||||
char *cstrval;
|
|
||||||
CValue cval;
|
|
||||||
CString cstr;
|
|
||||||
char buf[32];
|
|
||||||
|
|
||||||
/* if symbol is a macro, prepare substitution */
|
|
||||||
/* special macros */
|
|
||||||
if (tok == TOK___LINE__) {
|
|
||||||
snprintf(buf, sizeof(buf), "%d", file->line_num);
|
|
||||||
cstrval = buf;
|
|
||||||
t1 = TOK_PPNUM;
|
|
||||||
goto add_cstr1;
|
|
||||||
} else if (tok == TOK___FILE__) {
|
|
||||||
cstrval = file->filename;
|
|
||||||
goto add_cstr;
|
|
||||||
} else if (tok == TOK___DATE__ || tok == TOK___TIME__) {
|
|
||||||
time_t ti;
|
|
||||||
struct tm *tm;
|
|
||||||
|
|
||||||
time(&ti);
|
|
||||||
tm = localtime(&ti);
|
|
||||||
if (tok == TOK___DATE__) {
|
|
||||||
snprintf(buf, sizeof(buf), "%s %2d %d",
|
|
||||||
ab_month_name[tm->tm_mon], tm->tm_mday, tm->tm_year + 1900);
|
|
||||||
} else {
|
|
||||||
snprintf(buf, sizeof(buf), "%02d:%02d:%02d",
|
|
||||||
tm->tm_hour, tm->tm_min, tm->tm_sec);
|
|
||||||
}
|
|
||||||
cstrval = buf;
|
|
||||||
add_cstr:
|
|
||||||
t1 = TOK_STR;
|
|
||||||
add_cstr1:
|
|
||||||
cstr_new(&cstr);
|
|
||||||
cstr_cat(&cstr, cstrval, 0);
|
|
||||||
cval.str.size = cstr.size;
|
|
||||||
cval.str.data = cstr.data;
|
|
||||||
tok_str_add2(tok_str, t1, &cval);
|
|
||||||
cstr_free(&cstr);
|
|
||||||
} else {
|
|
||||||
int saved_parse_flags = parse_flags;
|
|
||||||
|
|
||||||
mstr = s->d;
|
|
||||||
if (s->type.t == MACRO_FUNC) {
|
|
||||||
/* whitespace between macro name and argument list */
|
|
||||||
TokenString ws_str;
|
|
||||||
tok_str_new(&ws_str);
|
|
||||||
|
|
||||||
spc = 0;
|
|
||||||
parse_flags |= PARSE_FLAG_SPACES | PARSE_FLAG_LINEFEED
|
|
||||||
| PARSE_FLAG_ACCEPT_STRAYS;
|
|
||||||
|
|
||||||
/* get next token from argument stream */
|
|
||||||
t = next_argstream(nested_list, can_read_stream, &ws_str);
|
|
||||||
if (t != '(') {
|
|
||||||
/* not a macro substitution after all, restore the
|
|
||||||
* macro token plus all whitespace we've read.
|
|
||||||
* whitespace is intentionally not merged to preserve
|
|
||||||
* newlines. */
|
|
||||||
parse_flags = saved_parse_flags;
|
|
||||||
tok_str_add(tok_str, tok);
|
|
||||||
if (parse_flags & PARSE_FLAG_SPACES) {
|
|
||||||
int i;
|
|
||||||
for (i = 0; i < ws_str.len; i++)
|
|
||||||
tok_str_add(tok_str, ws_str.str[i]);
|
|
||||||
}
|
|
||||||
tok_str_free_str(ws_str.str);
|
|
||||||
return 0;
|
|
||||||
} else {
|
|
||||||
tok_str_free_str(ws_str.str);
|
|
||||||
}
|
|
||||||
do {
|
|
||||||
next_nomacro(); /* eat '(' */
|
|
||||||
} while (tok == TOK_PLCHLDR);
|
|
||||||
|
|
||||||
/* argument macro */
|
|
||||||
args = NULL;
|
|
||||||
sa = s->next;
|
|
||||||
/* NOTE: empty args are allowed, except if no args */
|
|
||||||
for(;;) {
|
|
||||||
do {
|
|
||||||
next_argstream(nested_list, can_read_stream, NULL);
|
|
||||||
} while (is_space(tok) || TOK_LINEFEED == tok);
|
|
||||||
empty_arg:
|
|
||||||
/* handle '()' case */
|
|
||||||
if (!args && !sa && tok == ')')
|
|
||||||
break;
|
|
||||||
if (!sa)
|
|
||||||
tcc_error("macro '%s' used with too many args",
|
|
||||||
get_tok_str(s->v, 0));
|
|
||||||
tok_str_new(&str);
|
|
||||||
parlevel = spc = 0;
|
|
||||||
/* NOTE: non zero sa->t indicates VA_ARGS */
|
|
||||||
while ((parlevel > 0 ||
|
|
||||||
(tok != ')' &&
|
|
||||||
(tok != ',' || sa->type.t)))) {
|
|
||||||
if (tok == TOK_EOF || tok == 0)
|
|
||||||
break;
|
|
||||||
if (tok == '(')
|
|
||||||
parlevel++;
|
|
||||||
else if (tok == ')')
|
|
||||||
parlevel--;
|
|
||||||
if (tok == TOK_LINEFEED)
|
|
||||||
tok = ' ';
|
|
||||||
if (!check_space(tok, &spc))
|
|
||||||
tok_str_add2(&str, tok, &tokc);
|
|
||||||
next_argstream(nested_list, can_read_stream, NULL);
|
|
||||||
}
|
|
||||||
if (parlevel)
|
|
||||||
expect(")");
|
|
||||||
str.len -= spc;
|
|
||||||
tok_str_add(&str, -1);
|
|
||||||
tok_str_add(&str, 0);
|
|
||||||
sa1 = sym_push2(&args, sa->v & ~SYM_FIELD, sa->type.t, 0);
|
|
||||||
sa1->d = str.str;
|
|
||||||
sa = sa->next;
|
|
||||||
if (tok == ')') {
|
|
||||||
/* special case for gcc var args: add an empty
|
|
||||||
var arg argument if it is omitted */
|
|
||||||
if (sa && sa->type.t && gnu_ext)
|
|
||||||
goto empty_arg;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
if (tok != ',')
|
|
||||||
expect(",");
|
|
||||||
}
|
|
||||||
if (sa) {
|
|
||||||
tcc_error("macro '%s' used with too few args",
|
|
||||||
get_tok_str(s->v, 0));
|
|
||||||
}
|
|
||||||
|
|
||||||
parse_flags = saved_parse_flags;
|
|
||||||
|
|
||||||
/* now subst each arg */
|
|
||||||
mstr = macro_arg_subst(nested_list, mstr, args);
|
|
||||||
/* free memory */
|
|
||||||
sa = args;
|
|
||||||
while (sa) {
|
|
||||||
sa1 = sa->prev;
|
|
||||||
tok_str_free_str(sa->d);
|
|
||||||
sym_free(sa);
|
|
||||||
sa = sa1;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
sym_push2(nested_list, s->v, 0, 0);
|
|
||||||
parse_flags = saved_parse_flags;
|
|
||||||
macro_subst(tok_str, nested_list, mstr, can_read_stream | 2);
|
|
||||||
|
|
||||||
/* pop nested defined symbol */
|
|
||||||
sa1 = *nested_list;
|
|
||||||
*nested_list = sa1->prev;
|
|
||||||
sym_free(sa1);
|
|
||||||
if (mstr != s->d)
|
|
||||||
tok_str_free_str(mstr);
|
|
||||||
}
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
static int paste_tokens(int t1, CValue *v1, int t2, CValue *v2)
|
static int paste_tokens(int t1, CValue *v1, int t2, CValue *v2)
|
||||||
{
|
{
|
||||||
CString cstr;
|
CString cstr;
|
||||||
@ -3338,35 +3106,255 @@ static inline int *macro_twosharps(const int *ptr0)
|
|||||||
return macro_str1.str;
|
return macro_str1.str;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* peek or read [ws_str == NULL] next token from function macro call,
|
||||||
|
walking up macro levels up to the file if necessary */
|
||||||
|
static int next_argstream(Sym **nested_list, TokenString *ws_str)
|
||||||
|
{
|
||||||
|
int t;
|
||||||
|
const int *p;
|
||||||
|
Sym *sa;
|
||||||
|
|
||||||
|
for (;;) {
|
||||||
|
if (macro_ptr) {
|
||||||
|
p = macro_ptr, t = *p;
|
||||||
|
if (ws_str) {
|
||||||
|
while (is_space(t) || TOK_LINEFEED == t || TOK_PLCHLDR == t)
|
||||||
|
tok_str_add(ws_str, t), t = *++p;
|
||||||
|
}
|
||||||
|
if (t == 0) {
|
||||||
|
end_macro();
|
||||||
|
/* also, end of scope for nested defined symbol */
|
||||||
|
sa = *nested_list;
|
||||||
|
while (sa && sa->v == 0)
|
||||||
|
sa = sa->prev;
|
||||||
|
if (sa)
|
||||||
|
sa->v = 0;
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
ch = handle_eob();
|
||||||
|
if (ws_str) {
|
||||||
|
while (is_space(ch) || ch == '\n' || ch == '/') {
|
||||||
|
if (ch == '/') {
|
||||||
|
int c;
|
||||||
|
uint8_t *p = file->buf_ptr;
|
||||||
|
PEEKC(c, p);
|
||||||
|
if (c == '*') {
|
||||||
|
p = parse_comment(p);
|
||||||
|
file->buf_ptr = p - 1;
|
||||||
|
} else if (c == '/') {
|
||||||
|
p = parse_line_comment(p);
|
||||||
|
file->buf_ptr = p - 1;
|
||||||
|
} else
|
||||||
|
break;
|
||||||
|
ch = ' ';
|
||||||
|
}
|
||||||
|
if (!(ch == '\f' || ch == '\v' || ch == '\r'))
|
||||||
|
tok_str_add(ws_str, ch);
|
||||||
|
cinp();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
t = ch;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (ws_str)
|
||||||
|
return t;
|
||||||
|
next_nomacro_spc();
|
||||||
|
return tok;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* do macro substitution of current token with macro 's' and add
|
||||||
|
result to (tok_str,tok_len). 'nested_list' is the list of all
|
||||||
|
macros we got inside to avoid recursing. Return non zero if no
|
||||||
|
substitution needs to be done */
|
||||||
|
static int macro_subst_tok(
|
||||||
|
TokenString *tok_str,
|
||||||
|
Sym **nested_list,
|
||||||
|
Sym *s)
|
||||||
|
{
|
||||||
|
Sym *args, *sa, *sa1;
|
||||||
|
int parlevel, *mstr, t, t1, spc;
|
||||||
|
TokenString str;
|
||||||
|
char *cstrval;
|
||||||
|
CValue cval;
|
||||||
|
CString cstr;
|
||||||
|
char buf[32];
|
||||||
|
|
||||||
|
/* if symbol is a macro, prepare substitution */
|
||||||
|
/* special macros */
|
||||||
|
if (tok == TOK___LINE__) {
|
||||||
|
snprintf(buf, sizeof(buf), "%d", file->line_num);
|
||||||
|
cstrval = buf;
|
||||||
|
t1 = TOK_PPNUM;
|
||||||
|
goto add_cstr1;
|
||||||
|
} else if (tok == TOK___FILE__) {
|
||||||
|
cstrval = file->filename;
|
||||||
|
goto add_cstr;
|
||||||
|
} else if (tok == TOK___DATE__ || tok == TOK___TIME__) {
|
||||||
|
time_t ti;
|
||||||
|
struct tm *tm;
|
||||||
|
|
||||||
|
time(&ti);
|
||||||
|
tm = localtime(&ti);
|
||||||
|
if (tok == TOK___DATE__) {
|
||||||
|
snprintf(buf, sizeof(buf), "%s %2d %d",
|
||||||
|
ab_month_name[tm->tm_mon], tm->tm_mday, tm->tm_year + 1900);
|
||||||
|
} else {
|
||||||
|
snprintf(buf, sizeof(buf), "%02d:%02d:%02d",
|
||||||
|
tm->tm_hour, tm->tm_min, tm->tm_sec);
|
||||||
|
}
|
||||||
|
cstrval = buf;
|
||||||
|
add_cstr:
|
||||||
|
t1 = TOK_STR;
|
||||||
|
add_cstr1:
|
||||||
|
cstr_new(&cstr);
|
||||||
|
cstr_cat(&cstr, cstrval, 0);
|
||||||
|
cval.str.size = cstr.size;
|
||||||
|
cval.str.data = cstr.data;
|
||||||
|
tok_str_add2(tok_str, t1, &cval);
|
||||||
|
cstr_free(&cstr);
|
||||||
|
} else {
|
||||||
|
int saved_parse_flags = parse_flags;
|
||||||
|
int *joined_str = NULL;
|
||||||
|
|
||||||
|
mstr = s->d;
|
||||||
|
if (s->type.t == MACRO_FUNC) {
|
||||||
|
/* whitespace between macro name and argument list */
|
||||||
|
TokenString ws_str;
|
||||||
|
tok_str_new(&ws_str);
|
||||||
|
|
||||||
|
spc = 0;
|
||||||
|
parse_flags |= PARSE_FLAG_SPACES | PARSE_FLAG_LINEFEED
|
||||||
|
| PARSE_FLAG_ACCEPT_STRAYS;
|
||||||
|
|
||||||
|
/* get next token from argument stream */
|
||||||
|
t = next_argstream(nested_list, &ws_str);
|
||||||
|
if (t != '(') {
|
||||||
|
/* not a macro substitution after all, restore the
|
||||||
|
* macro token plus all whitespace we've read.
|
||||||
|
* whitespace is intentionally not merged to preserve
|
||||||
|
* newlines. */
|
||||||
|
parse_flags = saved_parse_flags;
|
||||||
|
tok_str_add(tok_str, tok);
|
||||||
|
if (parse_flags & PARSE_FLAG_SPACES) {
|
||||||
|
int i;
|
||||||
|
for (i = 0; i < ws_str.len; i++)
|
||||||
|
tok_str_add(tok_str, ws_str.str[i]);
|
||||||
|
}
|
||||||
|
tok_str_free_str(ws_str.str);
|
||||||
|
return 0;
|
||||||
|
} else {
|
||||||
|
tok_str_free_str(ws_str.str);
|
||||||
|
}
|
||||||
|
do {
|
||||||
|
next_nomacro(); /* eat '(' */
|
||||||
|
} while (tok == TOK_PLCHLDR);
|
||||||
|
|
||||||
|
/* argument macro */
|
||||||
|
args = NULL;
|
||||||
|
sa = s->next;
|
||||||
|
/* NOTE: empty args are allowed, except if no args */
|
||||||
|
for(;;) {
|
||||||
|
do {
|
||||||
|
next_argstream(nested_list, NULL);
|
||||||
|
} while (is_space(tok) || TOK_LINEFEED == tok);
|
||||||
|
empty_arg:
|
||||||
|
/* handle '()' case */
|
||||||
|
if (!args && !sa && tok == ')')
|
||||||
|
break;
|
||||||
|
if (!sa)
|
||||||
|
tcc_error("macro '%s' used with too many args",
|
||||||
|
get_tok_str(s->v, 0));
|
||||||
|
tok_str_new(&str);
|
||||||
|
parlevel = spc = 0;
|
||||||
|
/* NOTE: non zero sa->t indicates VA_ARGS */
|
||||||
|
while ((parlevel > 0 ||
|
||||||
|
(tok != ')' &&
|
||||||
|
(tok != ',' || sa->type.t)))) {
|
||||||
|
if (tok == TOK_EOF || tok == 0)
|
||||||
|
break;
|
||||||
|
if (tok == '(')
|
||||||
|
parlevel++;
|
||||||
|
else if (tok == ')')
|
||||||
|
parlevel--;
|
||||||
|
if (tok == TOK_LINEFEED)
|
||||||
|
tok = ' ';
|
||||||
|
if (!check_space(tok, &spc))
|
||||||
|
tok_str_add2(&str, tok, &tokc);
|
||||||
|
next_argstream(nested_list, NULL);
|
||||||
|
}
|
||||||
|
if (parlevel)
|
||||||
|
expect(")");
|
||||||
|
str.len -= spc;
|
||||||
|
tok_str_add(&str, -1);
|
||||||
|
tok_str_add(&str, 0);
|
||||||
|
sa1 = sym_push2(&args, sa->v & ~SYM_FIELD, sa->type.t, 0);
|
||||||
|
sa1->d = str.str;
|
||||||
|
sa = sa->next;
|
||||||
|
if (tok == ')') {
|
||||||
|
/* special case for gcc var args: add an empty
|
||||||
|
var arg argument if it is omitted */
|
||||||
|
if (sa && sa->type.t && gnu_ext)
|
||||||
|
goto empty_arg;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if (tok != ',')
|
||||||
|
expect(",");
|
||||||
|
}
|
||||||
|
if (sa) {
|
||||||
|
tcc_error("macro '%s' used with too few args",
|
||||||
|
get_tok_str(s->v, 0));
|
||||||
|
}
|
||||||
|
|
||||||
|
parse_flags = saved_parse_flags;
|
||||||
|
|
||||||
|
/* now subst each arg */
|
||||||
|
mstr = macro_arg_subst(nested_list, mstr, args);
|
||||||
|
/* free memory */
|
||||||
|
sa = args;
|
||||||
|
while (sa) {
|
||||||
|
sa1 = sa->prev;
|
||||||
|
tok_str_free_str(sa->d);
|
||||||
|
sym_free(sa);
|
||||||
|
sa = sa1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sym_push2(nested_list, s->v, 0, 0);
|
||||||
|
parse_flags = saved_parse_flags;
|
||||||
|
joined_str = macro_twosharps(mstr);
|
||||||
|
macro_subst(tok_str, nested_list, joined_str ? joined_str : mstr);
|
||||||
|
|
||||||
|
/* pop nested defined symbol */
|
||||||
|
sa1 = *nested_list;
|
||||||
|
*nested_list = sa1->prev;
|
||||||
|
sym_free(sa1);
|
||||||
|
if (joined_str)
|
||||||
|
tok_str_free_str(joined_str);
|
||||||
|
if (mstr != s->d)
|
||||||
|
tok_str_free_str(mstr);
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
/* do macro substitution of macro_str and add result to
|
/* do macro substitution of macro_str and add result to
|
||||||
(tok_str,tok_len). 'nested_list' is the list of all macros we got
|
(tok_str,tok_len). 'nested_list' is the list of all macros we got
|
||||||
inside to avoid recursing. */
|
inside to avoid recursing. */
|
||||||
static void macro_subst(
|
static void macro_subst(
|
||||||
TokenString *tok_str,
|
TokenString *tok_str,
|
||||||
Sym **nested_list,
|
Sym **nested_list,
|
||||||
const int *macro_str,
|
const int *macro_str
|
||||||
int can_read_stream
|
|
||||||
)
|
)
|
||||||
{
|
{
|
||||||
Sym *s;
|
Sym *s;
|
||||||
const int *ptr;
|
|
||||||
int t, spc, nosubst;
|
int t, spc, nosubst;
|
||||||
CValue cval;
|
CValue cval;
|
||||||
int *macro_str1 = NULL;
|
|
||||||
|
|
||||||
/* first scan for '##' operator handling */
|
|
||||||
ptr = macro_str;
|
|
||||||
spc = nosubst = 0;
|
spc = nosubst = 0;
|
||||||
|
|
||||||
/* first scan for '##' operator handling */
|
|
||||||
if (can_read_stream) {
|
|
||||||
macro_str1 = macro_twosharps(ptr);
|
|
||||||
if (macro_str1)
|
|
||||||
ptr = macro_str1;
|
|
||||||
}
|
|
||||||
|
|
||||||
while (1) {
|
while (1) {
|
||||||
TOK_GET(&t, &ptr, &cval);
|
TOK_GET(&t, ¯o_str, &cval);
|
||||||
if (t <= 0)
|
if (t <= 0)
|
||||||
break;
|
break;
|
||||||
|
|
||||||
@ -3384,18 +3372,18 @@ static void macro_subst(
|
|||||||
|
|
||||||
{
|
{
|
||||||
TokenString str;
|
TokenString str;
|
||||||
str.str = (int*)ptr;
|
str.str = (int*)macro_str;
|
||||||
begin_macro(&str, 2);
|
begin_macro(&str, 2);
|
||||||
|
|
||||||
tok = t;
|
tok = t;
|
||||||
macro_subst_tok(tok_str, nested_list, s, can_read_stream);
|
macro_subst_tok(tok_str, nested_list, s);
|
||||||
|
|
||||||
if (str.alloc == 3) {
|
if (str.alloc == 3) {
|
||||||
/* already finished by reading function macro arguments */
|
/* already finished by reading function macro arguments */
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
|
||||||
ptr = macro_ptr;
|
macro_str = macro_ptr;
|
||||||
end_macro ();
|
end_macro ();
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -3416,9 +3404,6 @@ no_subst:
|
|||||||
nosubst = 1;
|
nosubst = 1;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if (macro_str1)
|
|
||||||
tok_str_free_str(macro_str1);
|
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
/* return next token with macro substitution */
|
/* return next token with macro substitution */
|
||||||
@ -3446,7 +3431,7 @@ ST_FUNC void next(void)
|
|||||||
if (s) {
|
if (s) {
|
||||||
Sym *nested_list = NULL;
|
Sym *nested_list = NULL;
|
||||||
tokstr_buf.len = 0;
|
tokstr_buf.len = 0;
|
||||||
macro_subst_tok(&tokstr_buf, &nested_list, s, 1);
|
macro_subst_tok(&tokstr_buf, &nested_list, s);
|
||||||
tok_str_add(&tokstr_buf, 0);
|
tok_str_add(&tokstr_buf, 0);
|
||||||
begin_macro(&tokstr_buf, 2);
|
begin_macro(&tokstr_buf, 2);
|
||||||
goto redo;
|
goto redo;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user