The R Project SVN R

Rev

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

Rev 14977 Rev 15322
Line 89... Line 89...
89 
	PrintWarnings();
 89 
	PrintWarnings();
90 
	inError = 1;
 90 
	inError = 1;
91 
    }
 91 
    }
92 
 
 92 
 
93 
 
 93 
 
94 
    if (R_Inputfile != NULL)
 - 
 
95 
	fclose(R_Inputfile);
 - 
 
96 
    R_ResetConsole();
 94 
    R_ResetConsole();
97 
    R_FlushConsole();
 95 
    R_FlushConsole();
98 
    R_ClearerrConsole();
 96 
    R_ClearerrConsole();
99 
    R_ParseError = 0;
 97 
    R_ParseError = 0;
100 
 
 98 
 
Line 128... Line 126...
128 
	PrintWarnings();
 126 
	PrintWarnings();
129 
	inError = 1;
 127 
	inError = 1;
130 
    }
 128 
    }
131 
 
 129 
 
132 
 
 130 
 
133 
    if (R_Inputfile != NULL)
 - 
 
134 
	fclose(R_Inputfile);
 - 
 
135 
    R_ResetConsole();
 131 
    R_ResetConsole();
136 
    R_FlushConsole();
 132 
    R_FlushConsole();
137 
    R_ClearerrConsole();
 133 
    R_ClearerrConsole();
138 
    R_ParseError = 0;
 134 
    R_ParseError = 0;
139 
    R_CleanUp(SA_SAVE, 0, 0);
 135 
    R_CleanUp(SA_SAVE, 0, 0);
Line 425... Line 421...
425 
	    inError = 1;
 421 
	    inError = 1;
426 
	}
 422 
	}
427 
    }
 423 
    }
428 
 
 424 
 
429 
    /* reset some stuff--not sure (all) this belongs here */
 425 
    /* reset some stuff--not sure (all) this belongs here */
430 
    if (R_Inputfile != NULL)
 - 
 
431 
	fclose(R_Inputfile);
 - 
 
432 
    R_ResetConsole();
 426 
    R_ResetConsole();
433 
    R_FlushConsole();
 427 
    R_FlushConsole();
434 
    R_ClearerrConsole();
 428 
    R_ClearerrConsole();
435 
    R_ParseError = 0;
 429 
    R_ParseError = 0;
436 
 
 430