The R Project SVN R

Rev

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

Rev 61771 Rev 63223
Line 413... Line 413...
413 
	default: /* already checked, but be safe here */
 413 
	default: /* already checked, but be safe here */
414 
	    UNIMPLEMENTED_TYPE("options", args);
 414 
	    UNIMPLEMENTED_TYPE("options", args);
415 
	}
 415 
	}
416 
 
 416 
 
417 
	if (*CHAR(namei)) { /* name = value  ---> assignment */
 417 
	if (*CHAR(namei)) { /* name = value  ---> assignment */
418 
	    tag = install(translateChar(namei));
 418 
	    tag = installTrChar(namei);
419 
	    if (streql(CHAR(namei), "width")) {
 419 
	    if (streql(CHAR(namei), "width")) {
420 
		k = asInteger(argi);
 420 
		k = asInteger(argi);
421 
		if (k < R_MIN_WIDTH_OPT || k > R_MAX_WIDTH_OPT)
 421 
		if (k < R_MIN_WIDTH_OPT || k > R_MAX_WIDTH_OPT)
422 
		    error(_("invalid 'width' parameter, allowed %d...%d"),
 422 
		    error(_("invalid 'width' parameter, allowed %d...%d"),
423 
			  R_MIN_WIDTH_OPT, R_MAX_WIDTH_OPT);
 423 
			  R_MIN_WIDTH_OPT, R_MAX_WIDTH_OPT);