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.
31
2002/11/26 14:
18
:
34
nilsson Exp $
+
|| $Id: perlmod.c,v 1.
32
2002/11/26 14:
22
:
47
nilsson Exp $
*/ #define NO_PIKE_SHORTHAND #include "builtin_functions.h" #include "global.h" #include "svalue.h" #include "array.h" #include "stralloc.h" #include "interpret.h"
pike.git/src/modules/Perl/perlmod.c:1075:
break; default: Pike_error("Wrong number of arguments.\n"); } pop_n_elems(args); push_int(_THIS->array_size_limit); }
+
/*! @endclass
+
*/
+
+
/*! @endmodule
+
*/
+
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);