/[m4]/m4/modules/perl.c
ViewVC logotype

Diff of /m4/modules/perl.c

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

revision 1.10 by gary, Thu Jun 26 14:57:32 2003 UTC revision 1.11 by gary, Fri Aug 15 15:53:04 2003 UTC
# Line 32  Line 32 
32    
33  /*              function        macros  blind minargs maxargs */  /*              function        macros  blind minargs maxargs */
34  #define builtin_functions                                       \  #define builtin_functions                                       \
35          BUILTIN (perleval,      FALSE,  FALSE,  0,      -1  )   \          BUILTIN (perleval,      false,  false,  0,      -1  )   \
36    
37    
38  #define BUILTIN(handler, macros,  blind, min, max)  M4BUILTIN(handler)  #define BUILTIN(handler, macros,  blind, min, max)  M4BUILTIN(handler)
# Line 47  m4_builtin m4_builtin_table[] = Line 47  m4_builtin m4_builtin_table[] =
47    builtin_functions    builtin_functions
48  #undef BUILTIN  #undef BUILTIN
49    
50    { 0, 0, FALSE, FALSE, 0, 0 },    { 0, 0, false, false, 0, 0 },
51  };  };
52    
53  /* A table for mapping m4 symbol names to simple expansion text. */  /* A table for mapping m4 symbol names to simple expansion text. */
# Line 111  M4BUILTIN_HANDLER (perleval) Line 111  M4BUILTIN_HANDLER (perleval)
111        if (i > 1)        if (i > 1)
112          obstack_1grow (obs, ',');          obstack_1grow (obs, ',');
113    
114        val = perl_eval_pv(M4ARG(i), TRUE);        val = perl_eval_pv(M4ARG(i), true);
115    
116        m4_shipout_string(context, obs, SvPV(val,PL_na), 0, FALSE);        m4_shipout_string(context, obs, SvPV(val,PL_na), 0, false);
117      }      }
118  }  }

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

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