pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:1602:    *! like it could be useful.    */   PMOD_EXPORT   PIKEFUN int(8 .. 8)|int(16 .. 16)|int(32 .. 32) string_width(string s)    errname width;    optflags OPT_TRY_OPTIMIZE;   {    RETURN 8 * (1 << s->size_shift);   }    - /*! @decl mixed m_delete(object|mapping map, mixed index) + /*! @decl mixed m_delete(object|mapping|multiset map, mixed index)    *!    *! If @[map] is an object that implements @[lfun::_m_delete()],    *! that function will be called with @[index] as its single argument.    *! -  *! Otherwise if @[map] is a mapping the entry with index @[index] -  *! will be removed from @[map] destructively. +  *! Otherwise if @[map] is a mapping or multiset the entry with +  *! index @[index] will be removed from @[map] destructively.    *! -  *! If the mapping does not have an entry with index @[index], nothing is done. +  *! If the mapping or multiset does not have an entry with +  *! index @[index], nothing is done.    *!    *! @returns -  *! The value that was removed will be returned. +  *! The value that was removed will be returned, +  *! and @expr{UNDEFINED@} otherwise.    *!    *! @note    *! Note that @[m_delete()] changes @[map] destructively.    *!    *! @seealso    *! @[mappingp()]    */   PMOD_EXPORT - PIKEFUN mixed m_delete(object|mapping map, mixed index) + PIKEFUN mixed m_delete(object|mapping|multiset 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)) +  rawtype tOr3(tFunc(tMap(tSetvar(0,tMix),tSetvar(1,tMix)) tVar(0),tVar(1)), +  tFunc(tSet(tSetvar(0,tMix)) tVar(0),tInt01), +  tFunc(tObj tMix,tMix));   {    struct program *p;    if( TYPEOF(*map) == 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);
pike.git/src/builtin.cmod:1648:    {    int id = FIND_LFUN(p->inherits[SUBTYPEOF(*map)].prog, LFUN__M_DELETE);       if( id == -1 )    SIMPLE_ARG_TYPE_ERROR("m_delete", 1, "object containing the _m_delete method");       apply_low(map->u.object,    id + p->inherits[SUBTYPEOF(*map)].identifier_level, 1);    stack_swap();    pop_stack(); +  } else if (TYPEOF(*map) == T_MULTISET) { +  struct svalue s; +  multiset_delete_2(map->u.multiset, index, &s); +  pop_n_elems(args); +  *Pike_sp = s; +  Pike_sp++; +  dmalloc_touch_svalue(Pike_sp-1);    } else { -  SIMPLE_ARG_TYPE_ERROR("m_delete", 1, "object|mapping"); +  SIMPLE_ARG_TYPE_ERROR("m_delete", 1, "object|mapping|multiset");    }   }      /*! @decl void m_clear(mapping map)    *!    *! Clear the contents of a mapping.    *!    *! This function clears the content of the mapping @[map] so    *! that it becomes empty. This is an atomic operation.    *!