pike.git/ src/ builtin_functions.c

2014-12-04

2014-12-04 19:24:10 by Per Hedbor <ph@opera.com>

• 4e6311dabc34f0bdfdc6b15f2c8de261557f00e1 (43 lines) (+43/-0) ^{[ Show | Annotate ]}
  Branch: bill/master_archive_support

Added Debug.map_all_objects

It is somewhat hard to iterate over all objects from pike.

Some objects do their very best to emulate false/0, and destructed
objects are also somewhat hard to differentiate from 0.

The easiest solution was to add a Debug.map_all_objects function.

5219:    push_array(a);   }    +  + /*! @decl int map_all_objects(function(object:void) cb) +  *! @belongs Debug +  *! +  *! Call cb for all objects that currently exist. The callback will +  *! not be called with destructed objects as it's argument. +  *! +  *! Objects might be missed if @[cb] creates new objects or destroys +  *! old ones. +  *! +  *! This function is only intended to be used for debug purposes. +  *! +  *! @returns +  *! The total number of objects +  *! +  *! @seealso +  *! @[next_object()] +  */ + static void f_map_all_objects( INT32 args ) + { +  struct object *o = first_object; +  INT32 total = 0; +  ASSERT_SECURITY_ROOT("_map_all_objects"); +  while( o ) +  { +  struct object *next = o->next; +  if( o->prog ) +  { +  ref_push_object( o ); +  safe_apply_svalue( Pike_sp-2, 1, 1 ); +  pop_stack(); +  } +  total++; +  o = next; +  } +  pop_stack(); +  push_int(total); + } +    /*! @decl void verify_internals()    *! @belongs Debug    *!
9930:    ADD_EFUN("next_object",f_next_object,    tFunc(tOr(tVoid,tObj),tObj),OPT_EXTERNAL_DEPEND);    +  ADD_EFUN("_map_all_objects",f_map_all_objects, +  tFunc(tFunction,tIntPos),OPT_EXTERNAL_DEPEND); +    /* function(string:string)|function(object:object)|function(mapping:mapping)|function(multiset:multiset)|function(program:program)|function(array:array) */    ADD_EFUN("_next",f__next,    tOr6(tFunc(tStr,tStr),