The R Project SVN R

Rev

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

Rev 28888 Rev 32888
Line 183... Line 183...
183 
    int   vis = 0, flag = 2, i = 0, j, ll;
 183 
    int   vis = 0, flag = 2, i = 0, j, ll;
184 
    SEXP  tlist = R_NilValue, tchar, rval;
 184 
    SEXP  tlist = R_NilValue, tchar, rval;
185 
 
 185 
 
186 
    checkArity(op, args);
 186 
    checkArity(op, args);
187 
    if (!isString(CAR(args)))
 187 
    if (!isString(CAR(args)))
188 
	errorcall(call, "character string expected as first argument");
 188 
	errorcall(call, _("character string expected as first argument"));
189 
    if (isInteger(CADR(args)))
 189 
    if (isInteger(CADR(args)))
190 
	flag = INTEGER(CADR(args))[0];
 190 
	flag = INTEGER(CADR(args))[0];
191 
    if (flag >= 20) {
 191 
    if (flag >= 20) {
192 
	vis = -1;
 192 
	vis = -1;
193 
	flag -= 20;
 193 
	flag -= 20;
Line 195... Line 195...
195 
	vis = 0;
 195 
	vis = 0;
196 
	flag -= 10;
 196 
	flag -= 10;
197 
    } else
 197 
    } else
198 
	vis = 1;
 198 
	vis = 1;
199 
    if (!isString(CADDR(args)))
 199 
    if (!isString(CADDR(args)))
200 
	errorcall(call, "character string expected as third argument");
 200 
	errorcall(call, _("character string expected as third argument"));
201 
    if ((CharacterMode != RGui) && (flag == 2))
 201 
    if ((CharacterMode != RGui) && (flag == 2))
202 
	flag = 1;
 202 
	flag = 1;
203 
    if (CharacterMode == RGui) {
 203 
    if (CharacterMode == RGui) {
204 
	SetStdHandle(STD_INPUT_HANDLE, INVALID_HANDLE_VALUE);
 204 
	SetStdHandle(STD_INPUT_HANDLE, INVALID_HANDLE_VALUE);
205 
	SetStdHandle(STD_OUTPUT_HANDLE, INVALID_HANDLE_VALUE);
 205 
	SetStdHandle(STD_OUTPUT_HANDLE, INVALID_HANDLE_VALUE);