pike.git / src / mapping.c

version» Context lines:

pike.git/src/mapping.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: mapping.c,v 1.86 2000/06/12 19:33:08 mast Exp $"); + RCSID("$Id: mapping.c,v 1.87 2000/06/20 03:26:16 hubbe Exp $");   #include "main.h"   #include "object.h"   #include "mapping.h"   #include "svalue.h"   #include "array.h"   #include "pike_macros.h"   #include "error.h"   #include "pike_memory.h"   #include "dynamic_buffer.h"   #include "interpret.h"
pike.git/src/mapping.c:1533:    if(!m->data->size)    return mkefuncallnode("aggregate_mapping",0);       s.type=T_MAPPING;    s.subtype=0;    s.u.mapping=m;    return mkconstantsvaluenode(&s);    }   }    - void f_m_delete(INT32 args) - { -  if(args < 2) -  error("Too few arguments to m_delete.\n"); -  if(sp[-args].type != T_MAPPING) -  error("Bad argument 1 to m_delete.\n"); -  -  map_delete(sp[-args].u.mapping,sp+1-args); -  pop_n_elems(args-1); - } -  +    void f_aggregate_mapping(INT32 args)   {    INT32 e;    struct keypair *k;    struct mapping *m;       if(args & 1)    error("Uneven number of arguments to aggregate_mapping.\n");       m=allocate_mapping(MAP_SLOTS(args / 2));