pike.git/ src/ builtin_functions.c

1997-01-18

1997-01-18 21:34:34 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 6023aeee4193c48958e8cdce579a34d7407df64a (39 lines) (+38/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

version(), _refs() and replace_master() added

Rev: src/builtin_functions.c:1.20
Rev: src/main.c:1.17
Rev: src/object.c:1.10
Rev: src/version.c:1.1
Rev: src/version.h:1.1

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.19 1997/01/17 19:08:25 hubbe Exp $"); + RCSID("$Id: builtin_functions.c,v 1.20 1997/01/18 21:34:32 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "macros.h"
28:   #include "memory.h"   #include "threads.h"   #include "time_stuff.h" + #include "version.h"   #include <math.h>   #include <ctype.h>   
1569:    }   }    + void f__refs(INT32 args) + { +  INT32 i; +  if(!args) error("Too few arguments to _refs()\n"); +  if(sp[-args].type > MAX_REF_TYPE) +  error("Bad argument 1 to _refs()\n"); +  +  i=sp[-args].u.refs[0]; +  pop_n_elems(args); +  push_int(i); + } +  + void f_replace_master(INT32 args) + { +  if(!args) +  error("Too few arguments to replace_master()\n"); +  if(sp[-args].type != T_OBJECT) +  error("Bad argument 1 to replace_master()\n"); +  if(!sp[-args].u.object->prog) +  error("replace_master() called with destructed object.\n"); +  +  free_object(master_object); +  master_object=sp[-args].u.object; +  master_object->refs++; +  +  free_program(master_program); +  master_program=master_object->prog; +  master_program->refs++; +  +  pop_n_elems(args); + } +    void init_builtin_efuns()   {    init_operators();    -  +  add_efun("_refs",f__refs,"function(string|array|mapping|multiset|object|program:int)",OPT_EXTERNAL_DEPEND); +  add_efun("replace_master",f_replace_master,"function(object:void)",OPT_SIDE_EFFECT);    add_efun("add_constant",f_add_constant,"function(string,void|mixed:void)",OPT_SIDE_EFFECT);    add_efun("aggregate",f_aggregate,"function(mixed ...:mixed *)",OPT_TRY_OPTIMIZE);    add_efun("aggregate_multiset",f_aggregate_multiset,"function(mixed ...:multiset)",OPT_TRY_OPTIMIZE);
1644: Inside #if defined(GC2)
  #ifdef GC2    add_efun("gc",f_gc,"function(:int)",OPT_SIDE_EFFECT);   #endif +  add_efun("version", f_version, "function(:string)", 0);   }