The R Project SVN R

Rev

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

Rev 77226 Rev 77228
Line 287... Line 287...
287 
    SET_TAG(v, install("digits"));
 287 
    SET_TAG(v, install("digits"));
288 
    SETCAR(v, ScalarInteger(7));
 288 
    SETCAR(v, ScalarInteger(7));
289 
    v = CDR(v);
 289 
    v = CDR(v);
290 
 
 290 
 
291 
    SET_TAG(v, install("echo"));
 291 
    SET_TAG(v, install("echo"));
292 
    SETCAR(v, ScalarLogical(!R_Slave));
 292 
    SETCAR(v, ScalarLogical(!R_NoEcho));
293 
    v = CDR(v);
 293 
    v = CDR(v);
294 
 
 294 
 
295 
    SET_TAG(v, install("verbose"));
 295 
    SET_TAG(v, install("verbose"));
296 
    SETCAR(v, ScalarLogical(R_Verbose));
 296 
    SETCAR(v, ScalarLogical(R_Verbose));
297 
    v = CDR(v);
 297 
    v = CDR(v);
Line 647... Line 647...
647 
		    error(_("invalid value for '%s'"), CHAR(namei));
 647 
		    error(_("invalid value for '%s'"), CHAR(namei));
648 
		int k = asLogical(argi);
 648 
		int k = asLogical(argi);
649 
		/* Should be quicker than checking options(echo)
 649 
		/* Should be quicker than checking options(echo)
650 
		   every time R prompts for input:
 650 
		   every time R prompts for input:
651 
		   */
 651 
		   */
652 
		R_Slave = !k;
 652 
		R_NoEcho = !k;
653 
		SET_VECTOR_ELT(value, i, SetOption(tag, ScalarLogical(k)));
 653 
		SET_VECTOR_ELT(value, i, SetOption(tag, ScalarLogical(k)));
654 
	    }
 654 
	    }
655 
	    else if (streql(CHAR(namei), "OutDec")) {
 655 
	    else if (streql(CHAR(namei), "OutDec")) {
656 
		if (TYPEOF(argi) != STRSXP || LENGTH(argi) != 1)
 656 
		if (TYPEOF(argi) != STRSXP || LENGTH(argi) != 1)
657 
		    error(_("invalid value for '%s'"), CHAR(namei));
 657 
		    error(_("invalid value for '%s'"), CHAR(namei));