pike.git
/
src
/
program.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/program.c:1:
/*\ ||| This file a part of Pike, and is copyright by Fredrik Hubinette ||| Pike is distributed as GPL (General Public License) ||| See the files COPYING and DISCLAIMER for more information. \*/ /**/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
233
2001
/08/
02
23
:
10
:
40
hubbe
Exp $");
+
RCSID("$Id: program.c,v 1.
234
2004
/08/
13
13
:
05
:
35
grubba
Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h" #include "pike_types.h" #include "stralloc.h" #include "las.h" #include "language.h" #include "lex.h" #include "pike_macros.h" #include "fsort.h"
pike.git/src/program.c:2827:
* 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)) { ref_push_string(ID_FROM_INT(p, e)->name); n++; } } f_aggregate(n); res = sp[-1].u.array;
pike.git/src/program.c:2850:
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)) { struct program *p2 = PROG_FROM_INT(p, e); push_svalue( & p2->constants[id->func.offset].sval); n++; } } f_aggregate(n);