The R Project SVN R

Rev

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

Rev 24735 Rev 25661
Line 49... Line 49...
49 
	errorcall(call, "argument must have positive length")
 49 
	errorcall(call, "argument must have positive length")
50 
 
 50 
 
51 
 
 51 
 
52 
SEXP do_devcontrol(SEXP call, SEXP op, SEXP args, SEXP env)
 52 
SEXP do_devcontrol(SEXP call, SEXP op, SEXP args, SEXP env)
53 
{
 53 
{
- 
 
 54 
    int listFlag;
- 
 
 55
54 
    checkArity(op, args);
 56 
    checkArity(op, args);
- 
 
 57 
    listFlag = asLogical(CAR(args));
- 
 
 58 
    if(listFlag == NA_LOGICAL) errorcall(call, "invalid argument");
- 
 
 59 
    if(listFlag)
- 
 
 60 
	enableDisplayList(CurrentDevice());
- 
 
 61 
    else
55 
    inhibitDisplayList(CurrentDevice());
 62 
	inhibitDisplayList(CurrentDevice());
56 
    return R_NilValue;
 63 
    return ScalarLogical(listFlag);
57 
}
 64 
}
58 
 
 65 
 
59 
SEXP do_devcopy(SEXP call, SEXP op, SEXP args, SEXP env)
 66 
SEXP do_devcopy(SEXP call, SEXP op, SEXP args, SEXP env)
60 
{
 67 
{
61 
    checkArity_length;
 68 
    checkArity_length;