[p5sagit/p5-mst-13.2.git] / globals.c

/*    globals.c
 *
 *    Copyright (c) 1997-2002, Larry Wall
 *
 *    You may distribute under the terms of either the GNU General Public
 *    License or the Artistic License, as specified in the README file.
 *
 */

#include "INTERN.h"
#define PERL_IN_GLOBALS_C
#include "perl.h"

int
Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
{
    dTHXs;
    va_list(arglist);
    va_start(arglist, format);
    return PerlIO_vprintf(stream, format, arglist);
}

int
Perl_printf_nocontext(const char *format, ...)
{
    dTHX;
    va_list(arglist);
    va_start(arglist, format);
    return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
}

#include "perlapi.h"		/* bring in PL_force_link_funcs */
Commit	Line	Data
d6376244	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
ecfc5424	10	#include "INTERN.h"
864dbfa3	11	#define PERL_IN_GLOBALS_C
ecfc5424	12	#include "perl.h"
76e3520e	13
c5be433b	14	int
	15	Perl_fprintf_nocontext(PerlIO stream, const char format, ...)
	16	{
1de7c2ac	17	dTHXs;
c5be433b	18	va_list(arglist);
	19	va_start(arglist, format);
	20	return PerlIO_vprintf(stream, format, arglist);
	21	}
682fc664	22
b0316773	23	int
	24	Perl_printf_nocontext(const char *format, ...)
	25	{
e87a358a	26	dTHX;
b0316773	27	va_list(arglist);
	28	va_start(arglist, format);
	29	return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
	30	}
	31
682fc664	32	#include "perlapi.h" /* bring in PL_force_link_funcs */