42 DWORD flags = GetFileAttributes(file);
44 if (flags == 0xffffffff)
46 if (ERROR_FILE_NOT_FOUND == GetLastError())
62 if (flags|FILE_ATTRIBUTE_DIRECTORY)
65 return (flags|FILE_ATTRIBUTE_READONLY) != 0;
76 if (ReadFile(fd, buffer, n, &howmany,
NULL))
84 static char lbuffer[1024];
92 if (GetCurrentDirectory(maxlength, buffer) >=0)
99 fprintf(stderr,
"waitpid not yet implemented\n");
105 fprintf(stderr,
" FORK NOT YET IMPLEMENTED\n");
109 static int sockets_initialised =0;
113 WORD wVersionRequested;
117 if (sockets_initialised)
120 wVersionRequested = MAKEWORD( 2, 0 );
122 err = WSAStartup( wVersionRequested, &wsaData );
125 printf(
"Socket Initialisation failed\n");
129 sockets_initialised=1;
int unix_access(const char *file, int mode)
int unix_waitpid(int pid, int *statusp, int flags)
void err(const char *message, LISP x) EST_NORETURN
int socket_initialise(void)
int unix_read(HANDLE fd, char *buffer, int n)
char * unix_getcwd(char *buffer, int maxlength)