pike.git
/
src
/
builtin.cmod
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/builtin.cmod:1:
/* -*- c -*-
-
* $Id: builtin.cmod,v 1.
49
2001/06/
28
13
:
16
:
33
grubba
Exp $
+
* $Id: builtin.cmod,v 1.
50
2001/06/
30
02
:
02
:
43
mast
Exp $
*/ #include "global.h" #include "interpret.h" #include "svalue.h" #include "opcodes.h" #include "pike_macros.h" #include "object.h" #include "program.h" #include "array.h"
pike.git/src/builtin.cmod:257:
} \ } case 0: DO_IT (p_wchar0); break; case 1: DO_IT (p_wchar1); break; case 2: DO_IT (p_wchar2); break; #undef DO_IT } RETURN string_slice (s, start, end + 1 - start); }
-
/*! @decl int
program_
implements(program prog, program api)
+
/*! @decl int
Program.
implements(program prog, program api)
*! *! Returns 1 if @[prog] implements @[api]. */ PIKEFUN int program_implements(program prog, program api) errname Program.implements; optflags OPT_TRY_OPTIMIZE; { RETURN implements(prog, api); }
-
/*! @decl int
program_
inherits(program child, program parent)
+
/*! @decl int
Program.
inherits(program child, program parent)
*! *! Returns 1 if @[child] has inherited @[parent]. */ PIKEFUN int program_inherits(program parent, program child) errname Program.inherits; optflags OPT_TRY_OPTIMIZE; { RETURN low_get_storage(parent, child) != -1; }
-
/*! @decl string
program_
defined(program p)
+
/*! @decl string
Program.
defined(program p)
*! *! Returns a string with filename and linenumber describing where *! the program @[p] was defined. *! *! The returned string is of the format @tt{"@i{filename@}:@i{linenumber@}"@}. *! *! If it cannot be determined where the program was defined, @tt{0@} (zero) *! will be returned. */ 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)))
+
if((tmp=get_
program_
line(p, &line)))
{ struct pike_string *tmp2; tmp2=make_shared_string(tmp); pop_n_elems(args); push_string(tmp2);
-
if(line > 1)
+
if(line >
=
1)
{ push_constant_text(":"); push_int(line); f_add(3); } return; } } pop_n_elems(args);