| d5190b | 1997-02-10 | Fredrik Hübinette (Hubbe) | | inherit Array
inherit Stdio
inherit String
inherit Process
|
| c2a406 | 1997-02-06 | Fredrik Hübinette (Hubbe) | |
#define error(X) throw( ({ (X), backtrace()[0..sizeof(backtrace())-2] }) )
|
| c2dc68 | 1997-02-11 | Fredrik Hübinette (Hubbe) | | inherit Regexp : regexp
|
| c2a406 | 1997-02-06 | Fredrik Hübinette (Hubbe) | |
varargs int member_array(mixed needle,mixed *haystack,int start)
{
return search(haystack,needle,start)
}
object previous_object()
{
int e
mixed **trace
object o,ret
trace=backtrace()
o=function_object(trace[-2][2])
for(e=sizeof(trace)-3
{
if(!trace[e][2]) continue
ret=function_object(trace[e][2])
if(o!=ret) return ret
}
return 0
}
function this_function()
{
return backtrace()[-2][2]
}
function get_function(object o, string a)
{
mixed ret
ret=o[a]
return functionp(ret) ? ret : 0
}
string *map_regexp(string *s, string reg)
{
regexp::create(reg)
s=filter(s,regexp::match)
regexp::create()
return s
}
constant PI = 3.1415926535897932384626433832795080
|
| d888c5 | 1997-03-04 | Fredrik Hübinette (Hubbe) | | function all_efuns = all_constants
function explode = `/
function filter_array = filter
function map_array = map
function implode = `*
function m_indices = indices
function m_sizeof = sizeof
function m_values = values
function strstr = search
function sum = `+
function add_efun = add_constant
function l_sizeof = sizeof
function listp = multisetp
function mklist = mkmultiset
function aggregate_list = aggregate_multiset
|
| c2a406 | 1997-02-06 | Fredrik Hübinette (Hubbe) | | #if efun(gethostname)
|
| d888c5 | 1997-03-04 | Fredrik Hübinette (Hubbe) | | function query_host_name=gethostname
|
| c2a406 | 1997-02-06 | Fredrik Hübinette (Hubbe) | | #endif
|