pike.git
/
src
/
program.c
version
»
Context lines:
10
20
40
80
file
none
3
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);