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.99 2002/11/27 09:56:10 grubba Exp $ + || $Id: builtin.cmod,v 1.100 2002/11/28 23:45:38 marcus 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:936:    {    INT_TYPE res = (t == findstring("array"));    pop_n_elems(args);    push_int(res);    }       PIKEFUN string _sprintf(int c, mapping|void opts)    {    pop_n_elems(args);    +  if (c != 'O') { +  push_undefined (); +  return; +  } +     push_text("backtrace_frame(");    if (THIS->pc) {    if (!THIS->filename) {    THIS->filename = get_line(THIS->pc, THIS->prog, &THIS->lineno);    }    THIS->pc = NULL;    }    if (THIS->prog) {    free_program(THIS->prog);    THIS->prog = NULL;
pike.git/src/builtin.cmod:2186:    PIKEFUN void create(array a, int d)    {    if(THIS->arg) free_array(THIS->arg);    add_ref(THIS->arg=a);    THIS->depth=d;    }       PIKEFUN string _sprintf(int mode, mapping flags)    {    pop_n_elems(args); +  if (mode != 'O') { +  push_undefined (); +  return; +  }    push_text("%O%*'[*]'n");    if(THIS->arg)    ref_push_array(THIS->arg);    else    push_int(0);    push_int(THIS->depth*3);    f_sprintf(3);    }   }