globals.c

   1 #include "INTERN.h"
   2 #define PERL_IN_GLOBALS_C
   3 #include "perl.h"
   4
   5 int
   6 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
   7 {
   8     dTHXs;
   9     va_list(arglist);
  10     va_start(arglist, format);
  11     return PerlIO_vprintf(stream, format, arglist);
  12 }
  13
  14 int
  15 Perl_printf_nocontext(const char *format, ...)
  16 {
  17     dTHX;
  18     va_list(arglist);
  19     va_start(arglist, format);
  20     return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
  21 }
  22
  23 #include "perlapi.h"            /* bring in PL_force_link_funcs */