The R Project SVN R

Rev

Rev 62883 | Rev 65110 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 62883 Rev 63181
Line 39... Line 39...
39 
#define IS_GLOBAL_FRAME(e) (ENVFLAGS(e) & GLOBAL_FRAME_MASK)
 39 
#define IS_GLOBAL_FRAME(e) (ENVFLAGS(e) & GLOBAL_FRAME_MASK)
40 
 
 40 
 
41 
/* based on EncodeEnvironment in  printutils.c */
 41 
/* based on EncodeEnvironment in  printutils.c */
42 
static void PrintEnvironment(SEXP x)
 42 
static void PrintEnvironment(SEXP x)
43 
{
 43 
{
- 
 
 44 
    const void *vmax = vmaxget();
44 
    if (x == R_GlobalEnv)
 45 
    if (x == R_GlobalEnv)
45 
	Rprintf("<R_GlobalEnv>");
 46 
	Rprintf("<R_GlobalEnv>");
46 
    else if (x == R_BaseEnv)
 47 
    else if (x == R_BaseEnv)
47 
	Rprintf("<base>");
 48 
	Rprintf("<base>");
48 
    else if (x == R_EmptyEnv)
 49 
    else if (x == R_EmptyEnv)
Line 52... Line 53...
52 
		translateChar(STRING_ELT(R_PackageEnvName(x), 0)));
 53 
		translateChar(STRING_ELT(R_PackageEnvName(x), 0)));
53 
    else if (R_IsNamespaceEnv(x))
 54 
    else if (R_IsNamespaceEnv(x))
54 
	Rprintf("<namespace:%s>",
 55 
	Rprintf("<namespace:%s>",
55 
		translateChar(STRING_ELT(R_NamespaceEnvSpec(x), 0)));
 56 
		translateChar(STRING_ELT(R_NamespaceEnvSpec(x), 0)));
56 
    else Rprintf("<%p>", (void *)x);
 57 
    else Rprintf("<%p>", (void *)x);
- 
 
 58 
    vmaxset(vmax);
57 
}
 59 
}
58 
 
 60 
 
59 
/* print prefix */
 61 
/* print prefix */
60 
static void pp(int pre) {
 62 
static void pp(int pre) {
61 
    /* this is sort of silly, I know, but it saves at least some output
 63 
    /* this is sort of silly, I know, but it saves at least some output