pike.git / src / modules / Perl / perlmod.c

version» Context lines:

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