pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:1:   /* -*- c -*-   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: builtin.cmod,v 1.145 2003/12/08 11:13:12 nilsson Exp $ + || $Id: builtin.cmod,v 1.146 2004/02/10 22:26:45 mast Exp $   */      #include "global.h"   #include "interpret.h"   #include "svalue.h"   #include "pike_macros.h"   #include "object.h"   #include "program.h"   #include "array.h"   #include "pike_error.h"
pike.git/src/builtin.cmod:1233:    */    PIKEFUN int(0..1) _is_type(string t)    {    INT_TYPE res = (t == findstring("array"));    pop_n_elems(args);    push_int(res);    }       static void fill_in_file_and_line()    { -  struct pike_string *file; +  struct pike_string *file = NULL;    assert (THIS->lineno == -1);       if (THIS->pc && THIS->prog) {    file = low_get_line(THIS->pc, THIS->prog, &THIS->lineno);    THIS->pc = NULL;    }    else if (THIS->fun.type == PIKE_T_FUNCTION)    file = low_get_function_line (THIS->fun.u.object, THIS->fun.subtype,    &THIS->lineno);    else if (THIS->prog)    file = low_get_program_line (THIS->prog, &THIS->lineno);    -  +  if (file) {    if (!THIS->filename) THIS->filename = file;    else free_string (file); -  +  }       if (THIS->prog) {    free_program(THIS->prog);    THIS->prog = NULL;    }    }       /*! @decl string _sprintf(int c, mapping|void opts)    */    PIKEFUN string _sprintf(int c, mapping|void opts)