The R Project SVN R

Rev

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

Rev 11668 Rev 12976
Line 1... Line 1...
1 
/*
 1 
/*
2 
 *  R : A Computer Langage for Statistical Data Analysis
 2 
 *  R : A Computer Langage for Statistical Data Analysis
3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
 3 
 *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
- 
 
 4 
 *  Copyright (C) 2001        The R Development Core Team
4 
 *
 5 
 *
5 
 *  This program is free software; you can redistribute it and/or modify
 6 
 *  This program is free software; you can redistribute it and/or modify
6 
 *  it under the terms of the GNU General Public License as published by
 7 
 *  it under the terms of the GNU General Public License as published by
7 
 *  the Free Software Foundation; either version 2 of the License, or
 8 
 *  the Free Software Foundation; either version 2 of the License, or
8 
 *  (at your option) any later version.
 9 
 *  (at your option) any later version.
Line 40... Line 41...
40 
SEXP do_parse(SEXP call, SEXP op, SEXP args, SEXP env)
 41 
SEXP do_parse(SEXP call, SEXP op, SEXP args, SEXP env)
41 
{
 42 
{
42 
    SEXP text, prompt, s;
 43 
    SEXP text, prompt, s;
43 
    Rconnection con;
 44 
    Rconnection con;
44 
    Rboolean wasopen;
 45 
    Rboolean wasopen;
45 
    int ifile, num, pstacktop, status;
 46 
    int ifile, num, status;
46 
 
 47 
 
47 
    checkArity(op, args);
 48 
    checkArity(op, args);
48 
    pstacktop = R_PPStackTop;
 - 
 
49 
    R_ParseError = 0;
 49 
    R_ParseError = 0;
50 
    R_ParseCnt = 0;
 50 
    R_ParseCnt = 0;
51 
 
 51 
 
52 
    ifile = asInteger(CAR(args));                       args = CDR(args);
 52 
    ifile = asInteger(CAR(args));                       args = CDR(args);
53 
 
 53