pike.git / src / builtin.cmod

version» Context lines:

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);