The R Project SVN R

Rev

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

Rev 42300 Rev 42529
Line 35... Line 35...
35 
#include <direct.h>
 35 
#include <direct.h>
36 
#include <time.h>
 36 
#include <time.h>
37 
#include <windows.h>
 37 
#include <windows.h>
38 
#include "graphapp/ga.h"
 38 
#include "graphapp/ga.h"
39 
#include "rui.h"
 39 
#include "rui.h"
- 
 
 40 
extern __declspec(dllimport) int  GA_isNT;
40 
 
 41 
 
41 
SEXP do_flushconsole(SEXP call, SEXP op, SEXP args, SEXP env)
 42 
SEXP do_flushconsole(SEXP call, SEXP op, SEXP args, SEXP env)
42 
{
 43 
{
43 
    R_FlushConsole();
 44 
    R_FlushConsole();
44 
    return R_NilValue;
 45 
    return R_NilValue;
Line 1312... Line 1313...
1312 
/*
1313 
/*
1313 
   Replacement for MSVCRT's access.
 1314 
   Replacement for MSVCRT's access.
1314 
   Coded looking at tcl's tclWinFile.c
 1315 
   Coded looking at tcl's tclWinFile.c
1315 
*/
 1316 
*/
1316 
 
 1317 
 
1317 
extern int GA_isNT;
 - 
 
1318 
 
 - 
 
1319 
int winAccess(const char *path, int mode)
 1318 
int winAccess(const char *path, int mode)
1320 
{
 1319 
{
1321 
    DWORD attr = GetFileAttributes(path);
 1320 
    DWORD attr = GetFileAttributes(path);
1322
1321
1323 
    if(attr == 0xffffffff) return -1;
 1322 
    if(attr == 0xffffffff) return -1;