[perl5.git] / globals.c

#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, ...)
{
    dTHXs;
    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
ecfc5424	1	#include "INTERN.h"
864dbfa3	2	#define PERL_IN_GLOBALS_C
ecfc5424	3	#include "perl.h"
76e3520e	4
c5be433b GS	5	int
	6	Perl_fprintf_nocontext(PerlIO stream, const char format, ...)
	7	{
1de7c2ac	8	dTHXs;
c5be433b GS	9	va_list(arglist);
	10	va_start(arglist, format);
	11	return PerlIO_vprintf(stream, format, arglist);
	12	}
682fc664	13
b0316773 JH	14	int
	15	Perl_printf_nocontext(const char *format, ...)
	16	{
1de7c2ac	17	dTHXs;
b0316773 JH	18	va_list(arglist);
	19	va_start(arglist, format);
	20	return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
	21	}
	22
682fc664	23	#include "perlapi.h" /* bring in PL_force_link_funcs */