pike.git/ src/ builtin.cmod

2000-05-25

2000-05-25 05:18:52 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 098c8003b7c0c3d3c6e0a8bdee9f9cdc39594102 (30 lines) (+30/-0) ^{[ Show | Annotate ]}
  Branch: 7.9

more functions moved from builtin_functions.c to builtin.cmod

Rev: bin/precompile.pike:1.3
Rev: src/builtin.cmod:1.2
Rev: src/builtin_functions.c:1.277

19:   #include "module_support.h"   #include "cyclic.h"   #include "bignum.h" + #include "main.h"         PIKEFUN array column(array tmp, mixed val)
69:    RETURN mkmultiset(a);   }    + PIKEFUN int trace(int t) +  efun; +  optflags OPT_SIDE_EFFECT; + { +  pop_n_elems(args); +  push_int(t_flag); +  t_flag=t; + }    -  + PIKEFUN string ctime(int x) +  efun; +  optflags OPT_TRY_OPTIMIZE; + { +  time_t i=(time_t)x; +  RETURN make_shared_string(ctime(&i)); + } +  + PIKEFUN mapping(1:2) mkmapping(array(1=mixed) a, array(2=mixed) b) +  efun; +  optflags OPT_TRY_OPTIMIZE; + { +  if(a->size != b->size) +  bad_arg_error("mkmapping", sp-args, args, 2, "array", sp+1-args, +  "mkmapping called on arrays of different sizes (%d != %d)\n", +  a->size, b->size); +  +  RETURN mkmapping(a,b); + } +    void init_builtin(void)   {    INIT;   }