pike.git/ src/ builtin_functions.c

2000-04-15

2000-04-15 09:34:26 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 283ec781a84fac334918522014245564ecef2953 (74 lines) (+63/-11) ^{[ Show | Annotate ]}
  Branch: 7.9

some optimizations

Rev: lib/modules/Crypto/randomness.pmod:1.16
Rev: src/builtin_functions.c:1.258

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.257 2000/04/13 21:59:35 hubbe Exp $"); + RCSID("$Id: builtin_functions.c,v 1.258 2000/04/15 09:34:14 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
363:    push_int(i);   }    + void f_random_string(INT32 args) + { +  struct pike_string *ret; +  INT32 e,len; +  get_all_args("random_string",args,"%i",&len); +  ret = begin_shared_string(len); +  for(e=0;e<len;e++) ret->str[e]=my_rand(); +  pop_n_elems(args); +  push_string(end_shared_string(ret)); + } +    void f_random_seed(INT32 args)   {    INT_TYPE i;
5008:    /* ret[i]=fun(arr[i],@extra); */    push_array(d=allocate_array(n));    d=sp[-1].u.array; +  +  if(mysp[-2].type == T_FUNCTION && +  mysp[-2].subtype == FUNCTION_BUILTIN) +  { +  c_fun fun=mysp[-2].u.efun->function; +  struct svalue *spbase=sp; +  +  if(splice) +  {    for (i=0; i<n; i++)    {    push_svalue(a->item+i); -  +  add_ref_svalue(mysp-1); +  push_array_items(mysp[-1].u.array); +  (* fun)(1+splice); +  if(sp>spbase) +  { +  dmalloc_touch_svalue(sp); +  d->item[i]=*--sp; +  pop_n_elems(sp-spbase); +  } +  } +  }else{ +  for (i=0; i<n; i++) +  { +  push_svalue(a->item+i); +  (* fun)(1); +  if(sp>spbase) +  { +  dmalloc_touch_svalue(sp); +  d->item[i]=*--sp; +  pop_n_elems(sp-spbase); +  } +  } +  } +  }else{ +  for (i=0; i<n; i++) +  { +  push_svalue(a->item+i);    if (splice)    {    add_ref_svalue(mysp-1);
5021:    {    apply_svalue(mysp-2,1);    } -  d->item[i]=*--sp; +     dmalloc_touch_svalue(sp); -  +  d->item[i]=*--sp;    } -  +  }    stack_pop_n_elems_keep_top(3); /* fun arr extra d -> d */    return;   
5890:    ADD_EFUN("random_seed",f_random_seed,    tFunc(tInt,tVoid),OPT_SIDE_EFFECT);    +  ADD_EFUN("random_string",f_random_string, +  tFunc(tInt,tString),0); +    /* function(string,string,string:string)|function(string,string*,string*:string)|function(0=array,mixed,mixed:0)|function(1=mapping,mixed,mixed:1) */    ADD_EFUN("replace",f_replace,    tOr4(tFunc(tStr tStr tStr,tStr),