pike.git
/
src
/
modules
/
Perl
/
perlmod.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/modules/Perl/perlmod.c:1:
/* || This file is part of Pike. For copyright information see COPYRIGHT. || Pike is distributed under GPL, LGPL and MPL. See the file COPYING || for more information.
-
|| $Id: perlmod.c,v 1.
28
2002/10/
11
01
:
39
:
48
nilsson
Exp $
+
|| $Id: perlmod.c,v 1.
29
2002/10/
21
17
:
06
:
22
marcus
Exp $
*/ #define NO_PIKE_SHORTHAND #include "builtin_functions.h" #include "global.h" #include "svalue.h" #include "array.h" #include "stralloc.h" #include "interpret.h" #include "module_support.h" #include "threads.h" #include "mapping.h" #include "perl_machine.h"
-
/* must be included last */
-
#include "module_magic.h"
+
#ifdef HAVE_PERL /* #define PERL_560 1 */ #include <EXTERN.h> #include <perl.h> #ifdef USE_THREADS /* #error Threaded Perl not supported. */
pike.git/src/modules/Perl/perlmod.c:795:
Pike_error("Argument must be a integer in range 1 to 2147483647."); _THIS->array_size_limit = Pike_sp[-args].u.integer; break; default: Pike_error("Wrong number of arguments.\n"); } pop_n_elems(args); push_int(_THIS->array_size_limit); }
-
void pike
_
module
_
init(void)
+
PIKE
_
MODULE
_
INIT
{ #ifdef PIKE_PERLDEBUG fprintf(stderr, "[perl: module init]\n"); #endif start_new_program(); ADD_STORAGE(struct perlmod_storage); /* function(void:int) */ ADD_FUNCTION("create",perlmod_create,tFunc(tVoid,tInt),0); /* function(array(string),void|mapping(string:string):int) */
pike.git/src/modules/Perl/perlmod.c:879:
add_integer_constant("MULTIPLICITY", #ifdef MULTIPLICITY 1, #else 0, #endif 0); }
-
void pike
_
module
_
exit(void)
+
PIKE
_
MODULE
_
EXIT
{ } #else /* HAVE_PERL */ #ifdef ERROR_IF_NO_PERL #error "No Perl!" #endif
-
void pike
_
module
_
init(void)
{}
-
void pike
_
module
_
exit(void)
{}
+
PIKE
_
MODULE
_
INIT
{}
+
PIKE
_
MODULE
_
EXIT
{}
#endif