pike.git
/
src
/
builtin.cmod
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/builtin.cmod:1:
/* -*- c -*- || This file is part of Pike. For copyright information see COPYRIGHT. || Pike is distributed under GPL, LGPL and MPL. See the file COPYING || for more information.
-
|| $Id: builtin.cmod,v 1.
178
2005/
05
/
06
00
:
41
:
40
nilsson Exp $
+
|| $Id: builtin.cmod,v 1.
179
2005/
11
/
14
19
:
57
:
54
nilsson Exp $
*/ #include "global.h" #include "interpret.h" #include "svalue.h" #include "pike_macros.h" #include "object.h" #include "program.h" #include "array.h" #include "pike_error.h"
pike.git/src/builtin.cmod:825:
*! *! @note *! Note that @[m_delete()] changes @[map] destructively. *! *! @seealso *! @[mappingp()] */ PIKEFUN mixed m_delete(object|mapping map, mixed index) efun; optflags OPT_SIDE_EFFECT;
+
rawtype tOr(tFunc(tMap(tSetvar(0,tMix),tSetvar(1,tMix)) tVar(0),tVar(1)),tFunc(tObj tMix,tMix))
{
-
/*FIXME: Should be
-
* type function(mapping(1=mixed:2=mixed),1:2)|
-
* function(object,mixed:mixed);
-
*
-
* or similar
-
*/
+
struct program *p; if( map->type == T_MAPPING ) { struct svalue s; map_delete_no_free(map->u.mapping, index, &s); pop_n_elems(args); *Pike_sp=s; Pike_sp++; dmalloc_touch_svalue(Pike_sp-1); }