pike.git/
src/
builtin.cmod
Branch:
Tag:
Non-build tags
All tags
No tags
2000-05-25
2000-05-25 22:30:02 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
b8c5b28e407485c96fd8f9c273dda58f1e2b1f95 (
31
lines) (+
31
/-
0
)
[
Show
|
Annotate
]
Branch:
7.9
some more functions moved
Rev: src/builtin.cmod:1.5
Rev: src/builtin_functions.c:1.279
20:
#include "cyclic.h" #include "bignum.h" #include "main.h"
+
#include "operators.h"
PIKEFUN array column(array tmp, mixed val)
145:
RETURN !!low_get_storage(p2,p); }
+
PIKEFUN string program_defined(program p)
+
errname Program.defined;
+
optflags OPT_TRY_OPTIMIZE;
+
{
+
if(p && p->num_linenumbers)
+
{
+
char *tmp;
+
INT32 line;
+
if((tmp=get_line(p->program, p, &line)))
+
{
+
struct pike_string *tmp2;
+
tmp2=make_shared_string(tmp);
+
pop_n_elems(args);
+
+
push_string(tmp2);
+
if(line > 1)
+
{
+
push_constant_text(":");
+
push_int(line);
+
f_add(3);
+
}
+
return;
+
}
+
}
+
+
pop_n_elems(args);
+
push_int(0);
+
}
+
PIKEFUN int string_width(string s) errname String.width; optflags OPT_TRY_OPTIMIZE;