pike.git / src / program.c

version» Context lines:

pike.git/src/program.c:1:   /*   || 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: program.c,v 1.565 2004/06/30 00:16:27 nilsson Exp $ + || $Id: program.c,v 1.566 2004/08/13 12:13:01 grubba Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.565 2004/06/30 00:16:27 nilsson Exp $"); + RCSID("$Id: program.c,v 1.566 2004/08/13 12:13:01 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "lex.h"   #include "pike_macros.h"   #include "fsort.h"   #include "pike_error.h"
pike.git/src/program.c:5226:    * program examination functions available from Pike.    */      struct array *program_indices(struct program *p)   {    int e;    int n = 0;    struct array *res;    for (e = p->num_identifier_references; e--; ) {    struct identifier *id; -  if (p->identifier_references[e].id_flags & ID_HIDDEN) { +  if (p->identifier_references[e].id_flags & +  (ID_HIDDEN|ID_STATIC|ID_PRIVATE)) {    continue;    }    id = ID_FROM_INT(p, e);    if (IDENTIFIER_IS_CONSTANT(id->identifier_flags)) {    if (id->func.offset >= 0) {    struct program *p2 = PROG_FROM_INT(p, e);    struct svalue *val = &p2->constants[id->func.offset].sval;    if ((val->type != T_PROGRAM) ||    !(val->u.program->flags & PROGRAM_USES_PARENT)) {    ref_push_string(ID_FROM_INT(p, e)->name);
pike.git/src/program.c:5260:    return(res);   }      struct array *program_values(struct program *p)   {    int e;    int n = 0;    struct array *res;    for(e = p->num_identifier_references; e--; ) {    struct identifier *id; -  if (p->identifier_references[e].id_flags & ID_HIDDEN) { +  if (p->identifier_references[e].id_flags & +  (ID_HIDDEN|ID_STATIC|ID_PRIVATE)) {    continue;    }    id = ID_FROM_INT(p, e);    if (IDENTIFIER_IS_CONSTANT(id->identifier_flags)) {    if (id->func.offset >= 0) {    struct program *p2 = PROG_FROM_INT(p, e);    struct svalue *val = &p2->constants[id->func.offset].sval;    if ((val->type != T_PROGRAM) ||    !(val->u.program->flags & PROGRAM_USES_PARENT)) {    push_svalue(val);