misc/file.c

   1 /************************************************************************
   2  * FILE.C     Copyright (C) 1993 John Burton
   3  *
   4  * File I/O routines for the Linux Wine Project.
   5  *
   6  * WARNING : Many options of OpenFile are not yet implemeted.
   7  *
   8  * NOV 93 Erik Bos (erik@(trashcan.)hacktic.nl
   9  *              - removed ParseDosFileName, and DosDrive structures.
  10  *              - structures dynamically configured at runtime.
  11  *              - _lopen modified to use GetUnixFileName.
  12  *
  13  * DEC 93 Erik Bos (erik@(trashcan.)hacktic.nl)
  14  *              - Existing functions modified to use dosfs functions.
  15  *              - Added _llseek, _lcreate, GetDriveType, GetTempDrive,
  16  *                GetWindowsDirectory, GetSystemDirectory, GetTempFileName.
  17  *
  18  ************************************************************************/
  19
  20 #define DEBUG_FILE
  21
  22 #include <windows.h>
  23 #include <stdio.h>
  24 #include <fcntl.h>
  25 #include <limits.h>
  26 #include "prototypes.h"
  27
  28 char WindowsDirectory[256], SystemDirectory[256], TempDirectory[256];
  29
  30
  31 /***************************************************************************
  32  _lopen
  33
  34  Emulate the _lopen windows call
  35  ***************************************************************************/
  36 WORD KERNEL__lopen (LPSTR lpPathName, WORD iReadWrite)
  37 {
  38   int  handle;
  39   char *UnixFileName;
  40
  41 #ifdef DEBUG_FILE
  42   fprintf (stderr, "_lopen: open %s\n", lpPathName);
  43 #endif
  44
  45   if ((UnixFileName = GetUnixFileName(lpPathName)) == NULL)
  46         return HFILE_ERROR;
  47
  48   handle =  open (UnixFileName, iReadWrite);
  49
  50 #ifdef DEBUG_FILE
  51   fprintf (stderr, "_lopen: open: %s (handle %d)\n", UnixFileName, handle);
  52 #endif
  53
  54   if (handle == -1)
  55         return HFILE_ERROR;
  56   else
  57         return handle;
  58 }
  59
  60 /***************************************************************************
  61  _lread
  62  ***************************************************************************/
  63 WORD KERNEL__lread (WORD hFile, LPSTR lpBuffer, WORD wBytes)
  64 {
  65   int result;
  66
  67 #ifdef DEBUG_FILE
  68   fprintf(stderr, "_lread: handle %d, buffer = %ld, length = %d\n",
  69                         hFile, lpBuffer, wBytes);
  70 #endif
  71
  72   result = read (hFile, lpBuffer, wBytes);
  73
  74   if (result == -1)
  75         return HFILE_ERROR;
  76   else
  77         return result;
  78 }
  79
  80 /****************************************************************************
  81  _lwrite
  82 ****************************************************************************/
  83 WORD KERNEL__lwrite (WORD hFile, LPSTR lpBuffer, WORD wBytes)
  84 {
  85         int result;
  86
  87 #ifdef DEBUG_FILE
  88   fprintf(stderr, "_lwrite: handle %d, buffer = %ld, length = %d\n",
  89                         hFile, lpBuffer, wBytes);
  90 #endif
  91         result = write (hFile, lpBuffer, wBytes);
  92
  93         if (result == -1)
  94                 return HFILE_ERROR;
  95         else
  96                 return result;
  97 }
  98
  99 /***************************************************************************
 100  _lclose
 101  ***************************************************************************/
 102 WORD KERNEL__lclose (WORD hFile)
 103 {
 104 #ifdef DEBUG_FILE
 105   fprintf(stderr, "_lclose: handle %d\n", hFile);
 106 #endif
 107
 108   close (hFile);
 109 }
 110
 111 /**************************************************************************
 112  OpenFile
 113
 114  Warning:  This is nearly totally untested.  It compiles, that's it...
 115                                             -SL 9/13/93
 116  **************************************************************************/
 117 WORD KERNEL_OpenFile (LPSTR lpFileName, LPOFSTRUCT ofs, WORD wStyle)
 118 {
 119   int base,flags;
 120
 121 #ifdef DEBUG_FILE
 122   fprintf(stderr,"Openfile(%s,<struct>,%d) ",lpFileName,wStyle);
 123 #endif
 124
 125   base=wStyle&0xF;
 126   flags=wStyle&0xFFF0;
 127
 128   flags&=0xFF0F;  /* strip SHARE bits for now */
 129   flags&=0xD7FF;  /* strip PROMPT & CANCEL bits for now */
 130   flags&=0x7FFF;  /* strip REOPEN bit for now */
 131   flags&=0xFBFF;  /* strib VERIFY bit for now */
 132
 133   if(flags&OF_CREATE) { base |=O_CREAT; flags &=0xEFFF; }
 134
 135   fprintf(stderr,"now %d,%d\n",base,flags);
 136
 137   if(flags&(OF_DELETE|OF_EXIST))
 138     {
 139       fprintf(stderr,"Unsupported OpenFile option\n");
 140       return -1;
 141     }
 142   else
 143     {
 144       return KERNEL__lopen (lpFileName, wStyle);
 145    }
 146 }
 147
 148 /**************************************************************************
 149  SetHandleCount
 150
 151  Changes the number of file handles available to the application.  Since
 152  Linux isn't limited to 20 files, this one's easy. - SL
 153  **************************************************************************/
 154
 155 WORD SetHandleCount (WORD wNumber)
 156 {
 157   printf("SetHandleCount(%d)\n",wNumber);
 158   return((wNumber<OPEN_MAX) ? wNumber : OPEN_MAX);
 159 }
 160
 161 /***************************************************************************
 162  _llseek
 163  ***************************************************************************/
 164 LONG KERNEL__llseek (WORD hFile, LONG lOffset, int nOrigin)
 165 {
 166         int origin;
 167
 168 #ifdef DEBUG_FILE
 169   fprintf(stderr, "_llseek: handle %d, offset %ld, origin %d\n", hFile, lOffset, nOrigin);
 170 #endif
 171
 172         switch (nOrigin) {
 173                 case 1: origin = SEEK_CUR;
 174                         break;
 175                 case 2: origin = SEEK_END;
 176                         break;
 177                 default: origin = SEEK_SET;
 178                         break;
 179                 }
 180
 181         return ( lseek(hFile, lOffset, origin) );
 182 }
 183
 184 /***************************************************************************
 185  _lcreate
 186  ***************************************************************************/
 187 LONG KERNEL__lcreate (LPSTR lpszFilename, int fnAttribute)
 188 {
 189         int handle;
 190         char *UnixFileName;
 191
 192 #ifdef DEBUG_FILE
 193         fprintf(stderr, "_lcreate: filename %s, attributes %d\n",lpszFilename,
 194                         fnAttribute);
 195 #endif
 196
 197         if ((UnixFileName = GetUnixFileName(lpszFilename)) == NULL)
 198                 return HFILE_ERROR;
 199
 200         handle =  open (UnixFileName, O_CREAT | O_TRUNC | O_WRONLY );
 201
 202         if (handle == -1)
 203                 return HFILE_ERROR;
 204         else
 205                 return handle;
 206 }
 207
 208 /***************************************************************************
 209  GetDriveType
 210  ***************************************************************************/
 211 UINT GetDriveType(int drive)
 212 {
 213
 214 #ifdef DEBUG_FILE
 215         fprintf(stderr,"GetDriveType %c:\n",'A'+drive);
 216 #endif
 217
 218         if (!DOS_ValidDrive(drive))
 219                 return 0;
 220
 221         if (drive == 0 || drive == 1)
 222                 return DRIVE_REMOVABLE;
 223
 224         return DRIVE_REMOTE;
 225 }
 226
 227 /***************************************************************************
 228  GetTempDrive
 229  ***************************************************************************/
 230 BYTE GetTempDrive(BYTE chDriveLetter)
 231 {
 232 #ifdef DEBUG_FILE
 233         fprintf(stderr,"GetTempDrive (%d)\n",chDriveLetter);
 234 #endif
 235         return('C');
 236 }
 237
 238 /***************************************************************************
 239  GetWindowsDirectory
 240  ***************************************************************************/
 241 UINT GetWindowsDirectory(LPSTR lpszSysPath, UINT cbSysPath)
 242 {
 243         if (cbSysPath < strlen(WindowsDirectory))
 244                 *lpszSysPath = 0;
 245         else
 246                 strcpy(lpszSysPath, WindowsDirectory);
 247
 248 #ifdef DEBUG_FILE
 249         fprintf(stderr,"GetWindowsDirectory (%s)\n",lpszSysPath);
 250 #endif
 251
 252         return(strlen(lpszSysPath));
 253 }
 254 /***************************************************************************
 255  GetSystemDirectory
 256  ***************************************************************************/
 257 UINT GetSystemDirectory(LPSTR lpszSysPath, UINT cbSysPath)
 258 {
 259         if (cbSysPath < strlen(SystemDirectory))
 260                 *lpszSysPath = 0;
 261         else
 262                 strcpy(lpszSysPath, SystemDirectory);
 263
 264 #ifdef DEBUG_FILE
 265         fprintf(stderr,"GetSystemDirectory (%s)\n",lpszSysPath);
 266 #endif
 267
 268         return(strlen(lpszSysPath));
 269 }
 270 /***************************************************************************
 271  GetTempFileName
 272  ***************************************************************************/
 273 int GetTempFileName(BYTE bDriveLetter, LPCSTR lpszPrefixString, UINT uUnique, LPSTR lpszTempFileName)
 274 {
 275         int unique;
 276         char tempname[256];
 277
 278         if (uUnique == 0)
 279                 unique = time(NULL)%99999L;
 280         else
 281                 unique = uUnique%99999L;
 282
 283         strcpy(tempname,lpszPrefixString);
 284         tempname[3]='\0';
 285
 286         sprintf(lpszTempFileName,"%s\%s%d.tmp",WindowsDirectory, tempname,
 287                 unique);
 288
 289         ToDos(lpszTempFileName);
 290
 291 #ifdef DEBUG_FILE
 292         fprintf(stderr,"GetTempFilename: %c %s %d => %s\n",bDriveLetter,
 293                 lpszPrefixString,uUnique,lpszTempFileName);
 294 #endif
 295
 296         return unique;
 297 }
 298
 299 /***************************************************************************
 300  SetErrorMode
 301  ***************************************************************************/
 302 WORD SetErrorMode(WORD x)
 303 {
 304         fprintf(stderr,"wine: SetErrorMode %4x (ignored)\n",x);
 305 }