pike.git / src / interpret.h

version» Context lines:

pike.git/src/interpret.h: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: interpret.h,v 1.165 2006/02/27 12:07:10 mast Exp $ + || $Id: interpret.h,v 1.166 2006/03/17 17:55:45 grubba Exp $   */      #ifndef INTERPRET_H   #define INTERPRET_H      #include "global.h"   #include "program.h"   #include "pike_error.h"   #include "object.h"   #include "pike_rusage.h"
pike.git/src/interpret.h:617:      #define APPLY_MASTER(FUN,ARGS) \   do{ \    static int fun_, master_cnt=0; \    struct object *master_ob=master(); \    if(master_cnt != master_ob->prog->id) \    { \    fun_=find_identifier(FUN,master_ob->prog); \    master_cnt = master_ob->prog->id; \    } \ +  if (fun_ >= 0) { \    apply_low(master_ob, fun_, ARGS); \ -  +  } else { \ +  Pike_error("Cannot call undefined function \"%s\" in master.\n", FUN); \ +  } \   }while(0)      #define SAFE_APPLY_MASTER(FUN,ARGS) \   do{ \    static int fun_, master_cnt=0; \    struct object *master_ob=master(); \    if(master_cnt != master_ob->prog->id) \    { \    fun_=find_identifier(FUN,master_ob->prog); \    master_cnt = master_ob->prog->id; \    } \ -  safe_apply_low2(master_ob, fun_, ARGS, 1); \ +  safe_apply_low2(master_ob, fun_, ARGS, FUN); \   }while(0)      #define SAFE_APPLY_HANDLER(FUN, HANDLER, COMPAT, ARGS) do { \    static int h_fun_=-1, h_id_=0; \    static int c_fun_=-1, c_fun_id_=0; \    struct object *h_=(HANDLER), *c_=(COMPAT); \    if (h_ && h_->prog) { \    if (h_->prog->id != h_id_) { \    h_fun_ = find_identifier(fun, h_->prog); \    h_id_ = h_->prog->id; \
pike.git/src/interpret.h:720:   void really_free_pike_scope(struct pike_frame *scope);   int low_mega_apply(enum apply_type type, INT32 args, void *arg1, void *arg2);   void low_return(void);   void low_return_pop(void);   void unlink_previous_frame(void);   void mega_apply(enum apply_type type, INT32 args, void *arg1, void *arg2);   PMOD_EXPORT void f_call_function(INT32 args);   PMOD_EXPORT void call_handle_error(void);   PMOD_EXPORT int apply_low_safe_and_stupid(struct object *o, INT32 offset);   PMOD_EXPORT void safe_apply_low(struct object *o,int fun,int args); - PMOD_EXPORT void safe_apply_low2(struct object *o,int fun,int args, int handle_errors); + PMOD_EXPORT void safe_apply_low2(struct object *o,int fun,int args, +  char *fun_name);   PMOD_EXPORT void safe_apply(struct object *o, const char *fun ,INT32 args);   PMOD_EXPORT int low_unsafe_apply_handler(const char *fun,    struct object *handler,    struct object *compat,    INT32 args);   PMOD_EXPORT void low_safe_apply_handler(const char *fun,    struct object *handler,    struct object *compat,    INT32 args);   PMOD_EXPORT int safe_apply_handler(const char *fun,