pike.git
/
src
/
builtin.cmod
version
»
Context lines:
10
20
40
80
file
none
3
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; }