pike.git/ src/ builtin.cmod

2001-04-08

2001-04-08 10:11:40 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 1c1c5e2ff4c7c3d81d701d069d7c4fa5777d6186 (107 lines) (+107/-0) ^{[ Show | Annotate ]}
  Branch: 7.9

pike now avoides saving o->parent when it doesn't have to

Rev: src/bignum.c:1.21
Rev: src/builtin.cmod:1.25
Rev: src/builtin_functions.c:1.358
Rev: src/las.c:1.250
Rev: src/object.c:1.168
Rev: src/program.c:1.310
Rev: src/program.h:1.124
Rev: src/testsuite.in:1.401

364:    RETURN low_allocate_program();   }    + /*! @decl string function_name(function f) +  *! +  *! Return the name of the function @[f]. +  *! +  *! If @[f] is a global function defined in the runtime @tt{0@} (zero) +  *! will be returned. +  *! +  *! @seealso +  *! @[function_object()] +  */ + PIKEFUN string function_name(program|function func) +  efun; +  optflags OPT_TRY_OPTIMIZE; + { +  struct pike_string *s; +  switch(func->type) +  { +  default: +  if(!func->u.object->prog) +  bad_arg_error("function_name", Pike_sp-args, args, 1, +  "function|program", Pike_sp-args, +  "Bad argument.\n"); +  return; /* NOTREACHED */ +  +  case PIKE_T_PROGRAM: +  { +  struct program *p=func->u.program; +  +  if(p->parent) +  { +  int e; +  p=p->parent; +  /* search constants in parent for this +  * program... +  */ +  +  for(e = p->num_identifier_references; e--; ) +  { +  struct identifier *id; +  if (p->identifier_references[e].id_flags & ID_HIDDEN) +  continue; +  +  id = ID_FROM_INT(p, e); +  if (IDENTIFIER_IS_CONSTANT(id->identifier_flags) && +  is_eq( & PROG_FROM_INT(p, e)->constants[id->func.offset].sval, +  func)) +  REF_RETURN id->name; +  } +  } +  break; +  } +  +  case PIKE_T_FUNCTION: +  if(func->subtype == FUNCTION_BUILTIN) break; +  if(!func->u.object->prog) +  bad_arg_error("function_name", Pike_sp-args, args, 1, +  "function", Pike_sp-args, +  "Destructed object.\n"); +  +  REF_RETURN ID_FROM_INT(func->u.object->prog, func->subtype)->name; +  } +  pop_n_elems(args); +  push_int(0); + } +  + /*! @decl object function_object(function|program f) +  *! +  *! Return the object the function @[f] is in. +  *! +  *! If @[f] is a global function defined in the runtime @tt{0@} (zero) +  *! will be returned. +  *! +  *! @seealso +  *! @[function_name()] +  */ + PIKEFUN object|program function_object(program|function func) +  efun; +  optflags OPT_TRY_OPTIMIZE; +  type function(object:object)|function(program:program); + { +  switch(func->type) +  { +  default: +  SIMPLE_BAD_ARG_ERROR("function_object",1,"function"); +  +  case PIKE_T_PROGRAM: +  { +  struct program *p; +  if(!(p=func->u.program->parent)) break; +  add_ref(p); +  free_program(func->u.program); +  func->u.program=p; +  return; +  } +  +  case PIKE_T_FUNCTION: +  if(func->subtype == FUNCTION_BUILTIN) break; +  func->type=T_OBJECT; +  return; +  } +  pop_n_elems(args); +  push_int(0); + } +  +  +    void init_builtin(void)   {   INIT   }