pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:12:   #include "stralloc.h"   #include "multiset.h"   #include "pike_types.h"   #include "pike_memory.h"   #include "threads.h"   #include <math.h>   #include <ctype.h>   #include "module_support.h"   #include "cyclic.h"   #include "bignum.h" + #include "main.h"         PIKEFUN array column(array tmp, mixed val)    efun;    optflags OPT_TRY_OPTIMIZE;   {    INT32 e;    struct array *a;       DECLARE_CYCLIC();
pike.git/src/builtin.cmod:62:    RETURN a;   }      PIKEFUN multiset(1) mkmultiset(array(1=mixed) a)    efun;    optflags OPT_TRY_OPTIMIZE;   {    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;   }