311 |
input_block *i; |
input_block *i; |
312 |
|
|
313 |
/* Make sure we were passed a builtin function type token. */ |
/* Make sure we were passed a builtin function type token. */ |
314 |
assert (VALUE_TYPE (token) == M4_SYMBOL_FUNC); |
assert (m4_is_symbol_value_func (token)); |
315 |
|
|
316 |
if (next != NULL) |
if (next != NULL) |
317 |
{ |
{ |
323 |
sizeof (struct input_block)); |
sizeof (struct input_block)); |
324 |
i->funcs = &builtin_funcs; |
i->funcs = &builtin_funcs; |
325 |
|
|
326 |
i->u.u_b.func = VALUE_FUNC (token); |
i->u.u_b.func = m4_get_symbol_value_func (token); |
327 |
i->u.u_b.handle = VALUE_HANDLE (token); |
i->u.u_b.handle = VALUE_HANDLE (token); |
328 |
i->u.u_b.arg_signature= VALUE_ARG_SIGNATURE (token); |
i->u.u_b.arg_signature= VALUE_ARG_SIGNATURE (token); |
329 |
i->u.u_b.min_args = VALUE_MIN_ARGS (token); |
i->u.u_b.min_args = VALUE_MIN_ARGS (token); |
527 |
abort (); |
abort (); |
528 |
} |
} |
529 |
|
|
530 |
VALUE_TYPE (token) = M4_SYMBOL_FUNC; |
m4_set_symbol_value_func (token, isp->u.u_b.func); |
|
VALUE_FUNC (token) = isp->u.u_b.func; |
|
531 |
VALUE_HANDLE (token) = isp->u.u_b.handle; |
VALUE_HANDLE (token) = isp->u.u_b.handle; |
532 |
VALUE_FLAGS (token) = isp->u.u_b.flags; |
VALUE_FLAGS (token) = isp->u.u_b.flags; |
533 |
VALUE_ARG_SIGNATURE(token) = isp->u.u_b.arg_signature; |
VALUE_ARG_SIGNATURE(token) = isp->u.u_b.arg_signature; |
940 |
|
|
941 |
bzero (token, sizeof (m4_symbol_value)); |
bzero (token, sizeof (m4_symbol_value)); |
942 |
|
|
943 |
VALUE_TYPE (token) = M4_SYMBOL_TEXT; |
m4_set_symbol_value_text (token, obstack_finish (&token_stack)); |
|
VALUE_TEXT (token) = obstack_finish (&token_stack); |
|
|
VALUE_MIN_ARGS (token) = -1; |
|
944 |
VALUE_MAX_ARGS (token) = -1; |
VALUE_MAX_ARGS (token) = -1; |
945 |
|
|
946 |
#ifdef DEBUG_INPUT |
#ifdef DEBUG_INPUT |