globals.c

   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 */
  56
  57 /*
  58  * Local variables:
  59  * c-indentation-style: bsd
  60  * c-basic-offset: 4
  61  * indent-tabs-mode: t
  62  * End:
  63  *
  64  * ex: set ts=8 sts=4 sw=4 noet:
  65  */