The R Project SVN R

Rev

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

Rev 15350 Rev 15352
Line 223... Line 223...
223 
SEXP RX11_dataentry(SEXP call, SEXP op, SEXP args, SEXP rho)
 223 
SEXP RX11_dataentry(SEXP call, SEXP op, SEXP args, SEXP rho)
224 
{
 224 
{
225 
    SEXP tvec2, tvec, colmodes, indata;
 225 
    SEXP tvec2, tvec, colmodes, indata;
226 
    SEXPTYPE type;
 226 
    SEXPTYPE type;
227 
    int i, j,len, nprotect, tmp;
 227 
    int i, j,len, nprotect, tmp;
228 
    RCNTXT cntxt;
 - 
 
229 
 
 228 
 
230 
    nprotect = 0;/* count the PROTECT()s */
 229 
    nprotect = 0;/* count the PROTECT()s */
231 
 
 230 
 
232 
    PROTECT(indata = VectorToPairList(CAR(args))); nprotect++;
 231 
    PROTECT(indata = VectorToPairList(CAR(args))); nprotect++;
233 
    PROTECT(colmodes = VectorToPairList(CADR(args))); nprotect++;
 232 
    PROTECT(colmodes = VectorToPairList(CADR(args))); nprotect++;
Line 298... Line 297...
298 
    /* start up the window, more initializing in here */
 297 
    /* start up the window, more initializing in here */
299 
    if (initwin())
 298 
    if (initwin())
300 
	errorcall(call, "invalid device");
 299 
	errorcall(call, "invalid device");
301 
 
 300 
 
302 
    /* set up a context which will close the window if there is an error */
 301 
    /* set up a context which will close the window if there is an error */
303 
    begincontext(&cntxt, CTXT_CCODE, R_NilValue, R_NilValue, R_NilValue,
 302 
    begincontext(CTXT_CCODE, R_NilValue, R_NilValue, R_NilValue, R_NilValue);
304 
		 R_NilValue);
 - 
 
305 
    cntxt.cend = &closewin_cend;
 303 
    R_GlobalContext->cend = &closewin_cend;
306 
    cntxt.cenddata = NULL;
 304 
    R_GlobalContext->cenddata = NULL;
307 
 
 305 
 
308 
    highlightrect();
 306 
    highlightrect();
309 
 
 307 
 
310 
    eventloop();
 308 
    eventloop();
311 
 
 309 
 
312 
    endcontext(&cntxt);
 310 
    endcontext();
313 
    closewin();
 311 
    closewin();
314 
 
 312 
 
315 
    /* drop out unused columns */
 313 
    /* drop out unused columns */
316 
    i = 0;
 314 
    i = 0;
317 
    for (tvec = inputlist; tvec != R_NilValue; tvec = CDR(tvec))
 315 
    for (tvec = inputlist; tvec != R_NilValue; tvec = CDR(tvec))