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 31... Line 31...
31 
  PROTECT(arg = NEW_CHARACTER(1));
 31 
  PROTECT(arg = NEW_CHARACTER(1));
32 
  SET_STRING_ELT(arg, 0, COPY_TO_USER_STRING("error.R"));
 32 
  SET_STRING_ELT(arg, 0, COPY_TO_USER_STRING("error.R"));
33 
  SETCAR(e, fun);
 33 
  SETCAR(e, fun);
34 
  SETCAR(CDR(e), arg);
 34 
  SETCAR(CDR(e), arg);
35
35
36 
  Test_tryEval(e, &errorOccurred);
 36 
  R_tryEval(e, R_GlobalEnv, &errorOccurred);
37 
 
 37 
 
38 
  UNPROTECT(2);
 38 
  UNPROTECT(2);
39 
 
 39 
 
40 
    fun = Rf_findFun(Rf_install("foo"),  R_GlobalEnv);
 40 
    fun = Rf_findFun(Rf_install("foo"),  R_GlobalEnv);
41 
    PROTECT(fun);
 41 
    PROTECT(fun);
42 
    PROTECT(arg = NEW_INTEGER(10));
 42 
    PROTECT(arg = NEW_INTEGER(10));
43 
    e = allocVector(LANGSXP, 1);
 43 
    e = allocVector(LANGSXP, 1);
44 
    PROTECT(e);
 44 
    PROTECT(e);
45 
    SETCAR(e, fun);
 45 
    SETCAR(e, fun);
46 
 
 46 
 
47 
    Test_tryEval(e, &errorOccurred);
 47 
    R_tryEval(e, R_GlobalEnv, &errorOccurred);
48 
 
 48 
 
49 
    fprintf(stderr, "Trying again (yes it will fail also!)\n");fflush(stderr);
 49 
    fprintf(stderr, "Trying again (yes it will fail also!)\n");fflush(stderr);
50 
 
 50 
 
51 
    Test_tryEval(e, &errorOccurred);
 51 
    R_tryEval(e, R_GlobalEnv, &errorOccurred);
52 
    UNPROTECT(2);
 52 
    UNPROTECT(2);
53 
 
 53 
 
54 
    R_CleanUp(SA_NOSAVE, 0, FALSE);
 54 
    R_CleanUp(SA_NOSAVE, 0, FALSE);
55 
 
 55 
 
56 
  return(0);
 56 
  return(0);