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

version» Context lines:

pike.git/src/modules/Perl/perlmod.c:1: - /* $Id: perlmod.c,v 1.16 2000/05/16 12:38:54 leif Exp $ */ + /* $Id: perlmod.c,v 1.17 2000/07/07 02:44:07 hubbe Exp $ */      #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"
pike.git/src/modules/Perl/perlmod.c:65:   };      #define _THIS ((struct perlmod_storage *)(Pike_fp->current_storage))      #ifdef PERL_560   #define my_perl PERL   #endif      /* since both Perl and Pike likes to use "sp" as a stack pointer,    * let's define some Pike macros as functions... +  * +  * Hubbe: Not true anymore, we should really define NO_PIKE_SHORTHAND    */   static void _push_int(INT32 i) { push_int(i);}   static void _push_float(float f) { push_float(f);}   static void _push_string(struct pike_string *s) { push_string(s);}   static void _push_array(struct array *a) { push_array(a);}   static void _pop_n_elems(int n) { pop_n_elems(n);}   static void _pike_pop() { --Pike_sp;}   #undef sp      #define BLOCKING 1