| Commit | Line | Data |
|---|
| d6376244 |
1 | /* globals.c |
| 2 | * |
| 4bb101f2 |
3 | * Copyright (C) 1995, 1999, 2000, 2001, by Larry Wall and others |
| d6376244 |
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 |
10 | /* |
| 11 | * "For the rest, they shall represent the other Free Peoples of the World: |
| 12 | * Elves, Dwarves, and Men." --Elrond |
| 13 | */ |
| 14 | |
| 7b8efacb |
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 | |
| ecfc5424 |
33 | #include "INTERN.h" |
| 864dbfa3 |
34 | #define PERL_IN_GLOBALS_C |
| ecfc5424 |
35 | #include "perl.h" |
| 76e3520e |
36 | |
| c5be433b |
37 | int |
| 38 | Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...) |
| 39 | { |
| 1de7c2ac |
40 | dTHXs; |
| c5be433b |
41 | va_list(arglist); |
| 42 | va_start(arglist, format); |
| 43 | return PerlIO_vprintf(stream, format, arglist); |
| 44 | } |
| 682fc664 |
45 | |
| b0316773 |
46 | int |
| 47 | Perl_printf_nocontext(const char *format, ...) |
| 48 | { |
| e87a358a |
49 | dTHX; |
| b0316773 |
50 | va_list(arglist); |
| 51 | va_start(arglist, format); |
| 52 | return PerlIO_vprintf(PerlIO_stdout(), format, arglist); |
| 53 | } |
| 54 | |
| 682fc664 |
55 | #include "perlapi.h" /* bring in PL_force_link_funcs */ |
| 66610fdd |
56 | |
| 57 | /* |
| 58 | * Local variables: |
| 59 | * c-indentation-style: bsd |
| 60 | * c-basic-offset: 4 |
| 61 | * indent-tabs-mode: t |
| 62 | * End: |
| 63 | * |
| 37442d52 |
64 | * ex: set ts=8 sts=4 sw=4 noet: |
| 65 | */ |
projects / p5sagit/p5-mst-13.2.git / blame