| 1 |
/* globals.c |
| 2 |
* |
| 3 |
* Copyright (C) 1995, 1999, 2000, 2001, by Larry Wall and others |
| 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 |
|
| 10 |
/* |
| 11 |
* "For the rest, they shall represent the other Free Peoples of the World: |
| 12 |
* Elves, Dwarves, and Men." --Elrond |
| 13 |
*/ |
| 14 |
|
| 15 |
/* This file exists to #include "perl.h" _ONCE_ with |
| 16 |
* PERL_IN_GLOBALS_C defined. That causes various global varaiables |
| 17 |
* in perl.h and other files it includes to be _defined_ (and initialized) |
| 18 |
* rather than just declared. |
| 19 |
* |
| 20 |
* There is a #include "perlapi.h" which makes use of the fact |
| 21 |
* that the object file created from this file will be included by linker |
| 22 |
* (to resolve global variables). perlapi.h mention various other "API" |
| 23 |
* functions not used by perl itself, but the functions get |
| 24 |
* pulled into the perl executable via the refrerence here. |
| 25 |
* |
| 26 |
* Two printf() like functions have also found their way here. |
| 27 |
* Most likely by analogy to the API scheme above (as perl doesn't |
| 28 |
* use them) but they probably belong elsewhere the obvious place |
| 29 |
* being in perlio.c |
| 30 |
* |
| 31 |
*/ |
| 32 |
|
| 33 |
#include "INTERN.h" |
| 34 |
#define PERL_IN_GLOBALS_C |
| 35 |
#include "perl.h" |
| 36 |
|
| 37 |
int |
| 38 |
Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...) |
| 39 |
{ |
| 40 |
dTHXs; |
| 41 |
va_list(arglist); |
| 42 |
va_start(arglist, format); |
| 43 |
return PerlIO_vprintf(stream, format, arglist); |
| 44 |
} |
| 45 |
|
| 46 |
int |
| 47 |
Perl_printf_nocontext(const char *format, ...) |
| 48 |
{ |
| 49 |
dTHX; |
| 50 |
va_list(arglist); |
| 51 |
va_start(arglist, format); |
| 52 |
return PerlIO_vprintf(PerlIO_stdout(), format, arglist); |
| 53 |
} |
| 54 |
|
| 55 |
#include "perlapi.h" /* bring in PL_force_link_funcs */ |
