1 /* globals.c
2 *
3 * Copyright (C) 1995, 1999, 2000, 2001, by Larry Wall and others
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
Perl_fprintf_nocontext(PerlIO * stream,const char * format,...)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
Perl_printf_nocontext(const char * format,...)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