pike.git/ src/ builtin_functions.c

2000-01-27

2000-01-27 23:07:41 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 6168ce0a09a3acc3b1d86755fe0f635da536977b (20 lines) (+18/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

mkmultiset is now implemented in C

Rev: lib/master.pike.in:1.96
Rev: src/builtin_functions.c:1.232
Rev: src/testsuite.in:1.265

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.231 2000/01/24 14:00:30 noring Exp $"); + RCSID("$Id: builtin_functions.c,v 1.232 2000/01/27 23:07:41 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
2291:    push_mapping(m);   }    + void f_mkmultiset(INT32 args) + { +  struct multiset *m; +  struct array *a; +  get_all_args("mkmultiset",args,"%a",&a); +  +  m=mkmultiset(sp[-args].u.array); +  pop_n_elems(args); +  push_multiset(m); + } +    #define SETFLAG(FLAGS,FLAG,ONOFF) \    FLAGS = (FLAGS & ~FLAG) | ( ONOFF ? FLAG : 0 )   void f_set_weak_flag(INT32 args)
3159:    INT32 e;    struct keypair *k;    -  if (!(m = ITEM(arr)[j].u.mapping)->size) { +  if (! m_sizeof(m = ITEM(arr)[j].u.mapping)) {    /* Not available */    ITEM(min)[i].u.integer = -1;    continue;
5627:    tFunc(tArr(tSetvar(1,tMix)) tArr(tSetvar(2,tMix)),    tMap(tVar(1),tVar(2))),OPT_TRY_OPTIMIZE);    +  ADD_EFUN("mkmultiset",f_mkmultiset, +  tFunc(tArr(tSetvar(1,tMix)), tSet(tVar(1))), +  OPT_TRY_OPTIMIZE); +    /* function(1=mixed,int:1) */    ADD_EFUN("set_weak_flag",f_set_weak_flag,    tFunc(tSetvar(1,tMix) tInt,tVar(1)),OPT_SIDE_EFFECT);