/[m4]/m4/m4/input.c
ViewVC logotype

Diff of /m4/m4/input.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by gary, Wed Jun 18 16:21:54 2003 UTC revision 1.27 by gary, Thu Jun 19 14:51:04 2003 UTC
# Line 311  m4_push_builtin (m4_symbol_value *token) Line 311  m4_push_builtin (m4_symbol_value *token)
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      {      {
# Line 323  m4_push_builtin (m4_symbol_value *token) Line 323  m4_push_builtin (m4_symbol_value *token)
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);
# Line 527  init_builtin_token (m4_symbol_value *tok Line 527  init_builtin_token (m4_symbol_value *tok
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;
# Line 941  m4__next_token (m4_symbol_value *token) Line 940  m4__next_token (m4_symbol_value *token)
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

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26