pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:2502:       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) +  flags ID_PROTECTED;    {    pop_n_elems(args);       if (c != 'O') {    push_undefined ();    return;    }       push_static_text("backtrace_frame(");   
pike.git/src/builtin.cmod:2568:    } else {    push_static_text("No args");    }    push_static_text(")");    f_add(5);    }       /*! @decl int(3..) _sizeof()    */    PIKEFUN int(3..) _sizeof() +  flags ID_PROTECTED;    {    if (THIS->args) {    push_int(THIS->args->size + 3);    } else {    push_int(3);    }    }       /*! @decl mixed `[](int index, int|void end_or_none)    *! The BacktraceFrame object can be indexed as an array.    */    PIKEFUN mixed `[](int index, int|void end_or_none) -  +  flags ID_PROTECTED;    {    INT_TYPE end = index;    INT32 numargs = 3;    INT32 i;       if (THIS->args)    numargs += THIS->args->size;       if (!end_or_none) {    if (index < 0)
pike.git/src/builtin.cmod:2648:    UNREACHABLE(break);    }    }    if (end_or_none)    f_aggregate(1 + end - index);    }       /*! @decl mixed `[]=(int index, mixed value)    */    PIKEFUN mixed `[]=(int index, mixed value) +  flags ID_PROTECTED;    {    INT32 numargs = 3;       if (THIS->args)    numargs += THIS->args->size;       if ((index < -numargs) || (index >= numargs))    index_error("pike_frame->`[]=", args, NULL, Pike_sp-args,    "Index %"PRINTPIKEINT"d is out of array range 0..%d,\n",    index, numargs-1);