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 /*
  11  * "For the rest, they shall represent the other Free Peoples of the World:
  12  * Elves, Dwarves, and Men." --Elrond
  13  */
  14
  15 #include "INTERN.h"
  16 #define PERL_IN_GLOBALS_C
  17 #include "perl.h"
  18
  19 int
  20 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
  21 {
  22     dTHXs;
  23     va_list(arglist);
  24     va_start(arglist, format);
  25     return PerlIO_vprintf(stream, format, arglist);
  26 }
  27
  28 int
  29 Perl_printf_nocontext(const char *format, ...)
  30 {
  31     dTHX;
  32     va_list(arglist);
  33     va_start(arglist, format);
  34     return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
  35 }
  36
  37 #include "perlapi.h"            /* bring in PL_force_link_funcs */