[perl5.git] / globals.c

/*    globals.c
 *
 *    Copyright (C) 1995, 1999, 2000, 2001, by Larry Wall and others
 *
 *    You may distribute under the terms of either the GNU General Public
 *    License or the Artistic License, as specified in the README file.
 *
 */

/*
 * "For the rest, they shall represent the other Free Peoples of the World:
 * Elves, Dwarves, and Men." --Elrond
 */

#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 JH	1	/* globals.c
d6376244 JH	2	*
4bb101f2	3	* Copyright (C) 1995, 1999, 2000, 2001, by Larry Wall and others
d6376244 JH	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
d31a8517 AT	10	/*
	11	* "For the rest, they shall represent the other Free Peoples of the World:
	12	* Elves, Dwarves, and Men." --Elrond
	13	*/
	14
ecfc5424	15	#include "INTERN.h"
864dbfa3	16	#define PERL_IN_GLOBALS_C
ecfc5424	17	#include "perl.h"
76e3520e	18
c5be433b GS	19	int
	20	Perl_fprintf_nocontext(PerlIO stream, const char format, ...)
	21	{
1de7c2ac	22	dTHXs;
c5be433b GS	23	va_list(arglist);
	24	va_start(arglist, format);
	25	return PerlIO_vprintf(stream, format, arglist);
	26	}
682fc664	27
b0316773 JH	28	int
	29	Perl_printf_nocontext(const char *format, ...)
	30	{
e87a358a	31	dTHX;
b0316773 JH	32	va_list(arglist);
	33	va_start(arglist, format);
	34	return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
	35	}
	36
682fc664	37	#include "perlapi.h" /* bring in PL_force_link_funcs */