globals.c

   1 /*    globals.c
   2  *
   3  *    Copyright (c) 1997-2002, Larry Wall
   4  *
   5  *    You may distribute under the terms of either the GNU General Public
   6  *    License or the Artistic License, as specified in the README file.
   7  *
   8  */
   9
  10 #include "INTERN.h"
  11 #define PERL_IN_GLOBALS_C
  12 #include "perl.h"
  13
  14 int
  15 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
  16 {
  17     dTHXs;
  18     va_list(arglist);
  19     va_start(arglist, format);
  20     return PerlIO_vprintf(stream, format, arglist);
  21 }
  22
  23 int
  24 Perl_printf_nocontext(const char *format, ...)
  25 {
  26     dTHX;
  27     va_list(arglist);
  28     va_start(arglist, format);
  29     return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
  30 }
  31
  32 #include "perlapi.h"            /* bring in PL_force_link_funcs */