Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tag: perl-5.8.8
Fetching contributors…

Cannot retrieve contributors at this time

file 65 lines (58 sloc) 1.787 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
/* 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
*/

/* This file exists to #include "perl.h" _ONCE_ with
* PERL_IN_GLOBALS_C defined. That causes various global varaiables
* in perl.h and other files it includes to be _defined_ (and initialized)
* rather than just declared.
*
* There is a #include "perlapi.h" which makes use of the fact
* that the object file created from this file will be included by linker
* (to resolve global variables). perlapi.h mention various other "API"
* functions not used by perl itself, but the functions get
* pulled into the perl executable via the refrerence here.
*
* Two printf() like functions have also found their way here.
* Most likely by analogy to the API scheme above (as perl doesn't
* use them) but they probably belong elsewhere the obvious place
* being in perlio.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, ...)
{
    dTHX;
    va_list(arglist);
    va_start(arglist, format);
    return PerlIO_vprintf(PerlIO_stdout(), format, arglist);
}

#include "perlapi.h" /* bring in PL_force_link_funcs */

/*
* Local variables:
* c-indentation-style: bsd
* c-basic-offset: 4
* indent-tabs-mode: t
* End:
*
* ex: set ts=8 sts=4 sw=4 noet:
*/
Something went wrong with that request. Please try again.