The R Project SVN R

Rev

Rev 38842 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
38673 ripley 1 
#include <Rinternals.h>
38854 ripley 2 
#include <Rembedded.h>
17021 duncan 3 
 
4 
int
5 
main(int argc, char *argv[])
6 
{
7 
    SEXP e, val;
8 
    int errorOccurred;
29329 ripley 9 
    argv[0] = "R";
17021 duncan 10 
    Rf_initEmbeddedR(argc, argv);
11 
 
38673 ripley 12 
    PROTECT(e = lang2(install("sqrt"), mkString("")));
17021 duncan 13 
    val = R_tryEval(e, NULL, &errorOccurred);
14 
    if(errorOccurred) {
15 
	fprintf(stderr, "Caught an error calling sqrt(). Try again with a different argument.\n");fflush(stderr);
16 
    }
38673 ripley 17 
    SETCAR(CDR(e), ScalarInteger(9));
17021 duncan 18 
    val = R_tryEval(e, NULL, &errorOccurred);
19 
    if(errorOccurred) {
20 
	fprintf(stderr, "Caught another error calling sqrt()\n");fflush(stderr);
21 
    } else {
22 
	Rf_PrintValue(val);
23 
    }
24 
 
25 
    UNPROTECT(1);
26 
 
27 
    return(0);
28 
}
29