int
Perl_printf_nocontext(const char *format, ...)
{
dTHX;
va_list(arglist);
va_start(arglist, format);
return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
}
int
Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
{
dTHXs;
va_list(arglist);
va_start(arglist, format);
return PerlIO_vprintf(stream, format, arglist);
}
int
PerlIO_stdoutf(const char *fmt,...)
{
va_list ap;
int result;
va_start(ap,fmt);
result = PerlIO_vprintf(PerlIO_stdout(),fmt,ap);
va_end(ap);
return result;
}
int
Perl_printf_nocontext(const char *format, ...)
{
dTHX;
va_list(arglist);
#ifdef PERL_IMPLICIT_CONTEXT
PERL_ARGS_ASSERT_PRINTF_NOCONTEXT;
#endif
va_start(arglist, format);
return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
}
int
Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
{
dTHXs;
va_list(arglist);
/* Easier to special case this here than in embed.pl. (Look at what it
generates for proto.h) */
#ifdef PERL_IMPLICIT_CONTEXT
PERL_ARGS_ASSERT_FPRINTF_NOCONTEXT;
#endif
va_start(arglist, format);
return PerlIO_vprintf(stream, format, arglist);
}
void
Perl_vdeb(pTHX_ const char *pat, va_list *args)
{
#ifdef DEBUGGING
const char* const file = PL_curcop ? OutCopFILE(PL_curcop) : "<null>";
const char* const display_file = file ? file : "<free>";
const long line = PL_curcop ? (long)CopLINE(PL_curcop) : 0;
PERL_ARGS_ASSERT_VDEB;
if (DEBUG_v_TEST)
PerlIO_printf(Perl_debug_log, "(%ld:%s:%ld)\t",
(long)PerlProc_getpid(), display_file, line);
else
PerlIO_printf(Perl_debug_log, "(%s:%ld)\t", display_file, line);
(void) PerlIO_vprintf(Perl_debug_log, pat, *args);
#else
PERL_UNUSED_CONTEXT;
PERL_UNUSED_ARG(pat);
PERL_UNUSED_ARG(args);
#endif /* DEBUGGING */
}
