pike.git/ src/ builtin_functions.c

2001-06-28

2001-06-28 13:16:34 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• fed7def1bfe287d95fcb86c24fc5877ad71167c2 (50 lines) (+49/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Optimized replace(var, const1, const2).
Implemented String.Replace.

Rev: lib/modules/String.pmod:1.20
Rev: src/builtin.cmod:1.49
Rev: src/builtin_functions.c:1.385

5:   \*/   /**/   #include "global.h" - RCSID("$Id: builtin_functions.c,v 1.384 2001/06/28 10:24:21 hubbe Exp $"); + RCSID("$Id: builtin_functions.c,v 1.385 2001/06/28 13:16:33 grubba Exp $");   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"
3094:    */    n->node_info |= OPT_SIDE_EFFECT;    n->tree_info |= OPT_SIDE_EFFECT; +  } else { +  /* First argument is not an array or mapping, +  * +  * It thus must be a string. +  */ +  node **arg1 = my_get_arg(&_CDR(n), 1); +  node **arg2 = my_get_arg(&_CDR(n), 2); +  +  if (arg1 && pike_types_le((*arg1)->type, array_type_string) && +  arg2 && pike_types_le((*arg2)->type, array_type_string)) { +  /* The second and third arguments are arrays. */ +  if (!is_const(*arg0) && is_const(*arg1) && is_const(*arg2)) { +  /* The second and third arguments are constants. */ +  struct svalue *save_sp = Pike_sp; +  JMP_BUF tmp; +  if (SETJMP(tmp)) { +  yywarning("Optimizer failure in replace()."); +  pop_n_elems(Pike_sp - save_sp); +  } else { +  extern struct program *multi_string_replace_program; +  INT16 lfun; +  struct object *replace_obj = +  clone_object(multi_string_replace_program, +  eval_low(*arg1) + eval_low(*arg2)); +  node *ret = NULL; +  +  push_object(replace_obj); +  if (replace_obj->prog && +  ((lfun = FIND_LFUN(replace_obj->prog, LFUN_CALL)) != -1)) { +  Pike_sp[-1].subtype = lfun; +  Pike_sp[-1].type = PIKE_T_FUNCTION; +  ADD_NODE_REF2(*arg0, +  ret = mkapplynode(mkconstantsvaluenode(Pike_sp-1), +  *arg0); +  ); +  +  UNSETJMP(tmp); +  +  free_type(array_zero); +  free_type(mapping_zero); +  +  return ret;    } -  +  } +  UNSETJMP(tmp); +  } +  } +  }       free_type(array_zero);    free_type(mapping_zero);