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 */ 38