The R Project SVN R

Rev

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

Rev 34062 Rev 38671
Line 37... Line 37...
37 
   PROTECT(fun = Rf_findFun(Rf_install("source"), R_GlobalEnv));
 37 
   PROTECT(fun = Rf_findFun(Rf_install("source"), R_GlobalEnv));
38 
   SETCAR(e, fun);
 38 
   SETCAR(e, fun);
39 
   SETCAR(CDR(e), tmp = NEW_CHARACTER(1));
 39 
   SETCAR(CDR(e), tmp = NEW_CHARACTER(1));
40 
   SET_STRING_ELT(tmp, 0, COPY_TO_USER_STRING("foo.R"));
 40 
   SET_STRING_ELT(tmp, 0, COPY_TO_USER_STRING("foo.R"));
41 
 
 41 
 
42 
   Test_tryEval(e, NULL);
 42 
   R_tryEval(e, R_GlobalEnv, NULL);
43 
}
 43 
}
44 
 
 44 
 
45 
/*
45 
/*
46 
  Call the function foo() with 3 arguments, 2 of which
 46 
  Call the function foo() with 3 arguments, 2 of which
47 
  are named.
 47 
  are named.
Line 89... Line 89...
89 
    Rf_PrintValue(e);
 89 
    Rf_PrintValue(e);
90 
    eval(e, R_GlobalEnv);
 90 
    eval(e, R_GlobalEnv);
91 
 
 91 
 
92 
    SETCAR(e, Rf_install("foo"));
 92 
    SETCAR(e, Rf_install("foo"));
93 
    Rf_PrintValue(e);
 93 
    Rf_PrintValue(e);
94 
    Test_tryEval(e, NULL);
 94 
    R_tryEval(e, R_GlobalEnv, NULL);
95 
 
 95 
 
96 
    UNPROTECT(n);
 96 
    UNPROTECT(n);
97 
}
 97 
}
98 
 
 98