pike.git/ src/ program.c

2001-03-12

2001-03-12 23:46:22 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 03bcb97e1afcf2ee052e5ffbe6211c5f1b4856a4 (18 lines) (+17/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

now uses event_handler

Rev: bin/precompile.pike:1.40
Rev: src/backend.cmod:1.10
Rev: src/program.c:1.302
Rev: src/program.h:1.119

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.301 2001/03/12 22:42:19 hubbe Exp $"); + RCSID("$Id: program.c,v 1.302 2001/03/12 23:46:22 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
1903:   /*    * set a callback used to initialize clones of this program    * the init function is called at clone time +  * This function is obsolete, use pike_set_prog_event_callback instead.    */   PMOD_EXPORT void set_init_callback(void (*init)(struct object *))   {
1913:   /*    * set a callback used to de-initialize clones of this program    * the exit function is called at destruct +  * This function is obsolete, use pike_set_prog_event_callback instead.    */   PMOD_EXPORT void set_exit_callback(void (*exit)(struct object *))   {
1931:    * The callback might be called more than once for the same instance    * during a gc pass. The gc assumes that the references are enumerated    * in the same order in that case. +  * +  * This function is obsolete, use pike_set_prog_event_callback instead.    */   PMOD_EXPORT void set_gc_recurse_callback(void (*m)(struct object *))   {
1948:    * for all shared instances. The return value from gc_check is useful    * to ensure this; it's zero when called the first time for its    * argument. +  * +  * This function is obsolete, use pike_set_prog_event_callback instead.    */   PMOD_EXPORT void set_gc_check_callback(void (*m)(struct object *))   {
1955:    ((oldhandlertype *)Pike_compiler->new_program->program)[PROG_EVENT_GC_CHECK]=m;   }    + void pike_set_prog_event_callback(void (*cb)(enum pike_program_event)) + { + #ifdef PIKE_DEBUG +  if(Pike_compiler->new_program->event_handler) +  fatal("Program already has an event handler!\n"); + #endif +  Pike_compiler->new_program->event_handler=cb; + } +    int low_reference_inherited_identifier(struct program_state *q,    int e,    struct pike_string *name,