forked from KolibriOS/kolibrios
400 lines
11 KiB
C
400 lines
11 KiB
C
|
/****************************************************************************
|
||
|
*
|
||
|
* Open Watcom Project
|
||
|
*
|
||
|
* Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
|
||
|
*
|
||
|
* ========================================================================
|
||
|
*
|
||
|
* This file contains Original Code and/or Modifications of Original
|
||
|
* Code as defined in and that are subject to the Sybase Open Watcom
|
||
|
* Public License version 1.0 (the 'License'). You may not use this file
|
||
|
* except in compliance with the License. BY USING THIS FILE YOU AGREE TO
|
||
|
* ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
|
||
|
* provided with the Original Code and Modifications, and is also
|
||
|
* available at www.sybase.com/developer/opensource.
|
||
|
*
|
||
|
* The Original Code and all software distributed under the License are
|
||
|
* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
|
||
|
* EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
|
||
|
* ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
|
||
|
* MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
|
||
|
* NON-INFRINGEMENT. Please see the License for the specific language
|
||
|
* governing rights and limitations under the License.
|
||
|
*
|
||
|
* ========================================================================
|
||
|
*
|
||
|
* Description: Win32 implementation of open() and sopen().
|
||
|
*
|
||
|
****************************************************************************/
|
||
|
|
||
|
|
||
|
#include "variety.h"
|
||
|
#include "widechar.h"
|
||
|
#include <stdio.h>
|
||
|
#include <stdlib.h>
|
||
|
#include <stdarg.h>
|
||
|
#include <string.h>
|
||
|
#include <errno.h>
|
||
|
#include <io.h>
|
||
|
#include <fcntl.h>
|
||
|
#include <sys/stat.h>
|
||
|
#include <share.h>
|
||
|
#include "liballoc.h"
|
||
|
#include "iomode.h"
|
||
|
#include "fileacc.h"
|
||
|
#include "openmode.h"
|
||
|
#include "rtdata.h"
|
||
|
#include "seterrno.h"
|
||
|
|
||
|
extern unsigned __NFiles;
|
||
|
extern char *__appcwd;
|
||
|
extern int __appcwdlen;
|
||
|
|
||
|
#if (defined(__WINDOWS__) || defined(__NT__))
|
||
|
|
||
|
typedef struct
|
||
|
{ DWORD attr;
|
||
|
DWORD flags;
|
||
|
DWORD cr_time;
|
||
|
DWORD cr_date;
|
||
|
DWORD acc_time;
|
||
|
DWORD acc_date;
|
||
|
DWORD mod_time;
|
||
|
DWORD mod_date;
|
||
|
DWORD size;
|
||
|
DWORD size_high;
|
||
|
} FILEINFO;
|
||
|
|
||
|
int _stdcall get_fileinfo(const char *name,FILEINFO* pinfo);
|
||
|
int _stdcall create_file(const char *name);
|
||
|
|
||
|
|
||
|
typedef struct
|
||
|
{
|
||
|
char *name;
|
||
|
unsigned int offset;
|
||
|
}__file_handle;
|
||
|
|
||
|
|
||
|
char* getfullpath(const char* path)
|
||
|
{
|
||
|
int prev_is_slash=0;
|
||
|
int len=0, depth=0, i;
|
||
|
char* buff;
|
||
|
char c;
|
||
|
|
||
|
if(*path == '/')
|
||
|
{
|
||
|
buff = (char*)lib_malloc(strlen(path)+1);
|
||
|
buff[0] = '\0';
|
||
|
len=0;
|
||
|
}
|
||
|
else
|
||
|
{
|
||
|
len= __appcwdlen;
|
||
|
buff = (char*)lib_malloc(len+strlen(path)+1);
|
||
|
strncpy(buff, __appcwd, __appcwdlen);
|
||
|
|
||
|
prev_is_slash = 1;
|
||
|
buff[len] = 0;
|
||
|
for(i=0; buff[i]; i++)
|
||
|
if(buff[i] == '/' && i < len-1) depth++;
|
||
|
}
|
||
|
|
||
|
while(c=*path++)
|
||
|
{
|
||
|
switch (c)
|
||
|
{
|
||
|
|
||
|
case '.':
|
||
|
if((*path == '.')&&
|
||
|
(*path+1)== '/')
|
||
|
{ if(!depth)
|
||
|
{ free(buff);
|
||
|
return 0;
|
||
|
};
|
||
|
buff[len-1] = 0;
|
||
|
len = strrchr(buff, '/') + 1 - buff;
|
||
|
buff[len] = 0;
|
||
|
depth--;
|
||
|
path +=2;
|
||
|
prev_is_slash = 1;
|
||
|
continue;
|
||
|
}
|
||
|
if(*path == '/')
|
||
|
{
|
||
|
path++;
|
||
|
prev_is_slash = 1;
|
||
|
continue;
|
||
|
}
|
||
|
buff[len++] = c;
|
||
|
continue;
|
||
|
|
||
|
case '/':
|
||
|
prev_is_slash = 1;
|
||
|
buff[len++] = c;
|
||
|
continue;
|
||
|
|
||
|
default:
|
||
|
prev_is_slash = 0;
|
||
|
buff[len++] = c;
|
||
|
continue;
|
||
|
};
|
||
|
};
|
||
|
buff[len]= '\0';
|
||
|
return buff;
|
||
|
};
|
||
|
|
||
|
|
||
|
size_t FileSize(FILE *fp)
|
||
|
{
|
||
|
int hdl;
|
||
|
__file_handle *fh;
|
||
|
FILEINFO info;
|
||
|
|
||
|
hdl = fileno( fp );
|
||
|
// __handle_check( hdl, -1 );
|
||
|
|
||
|
fh = (__file_handle*) __getOSHandle(hdl);
|
||
|
|
||
|
|
||
|
get_fileinfo(fh->name,&info);
|
||
|
|
||
|
return info.size;
|
||
|
|
||
|
}
|
||
|
|
||
|
int access(const char *path, int mode)
|
||
|
{ size_t retval;
|
||
|
FILEINFO info;
|
||
|
char *p;
|
||
|
|
||
|
p = getfullpath(path);
|
||
|
retval=get_fileinfo(p,&info);
|
||
|
free(p);
|
||
|
|
||
|
return retval;
|
||
|
|
||
|
}
|
||
|
|
||
|
static HANDLE __openFileHandle(const CHAR_TYPE *name, int mode)
|
||
|
{
|
||
|
FILEINFO info;
|
||
|
__file_handle *handle;
|
||
|
char *path;
|
||
|
int err;
|
||
|
|
||
|
path = getfullpath(name);
|
||
|
|
||
|
if(err=get_fileinfo(path,&info))
|
||
|
{
|
||
|
// printf("failed getfileinfo %s\n\r", path);
|
||
|
|
||
|
if(mode & O_CREAT)
|
||
|
err=create_file(path);
|
||
|
|
||
|
if(err)
|
||
|
{
|
||
|
lib_free(path);
|
||
|
return (HANDLE)-1;
|
||
|
};
|
||
|
};
|
||
|
|
||
|
if ( !(handle=(__file_handle*)lib_malloc(sizeof( __file_handle) )))
|
||
|
{ lib_free(path);
|
||
|
return (HANDLE)-1;
|
||
|
};
|
||
|
|
||
|
handle->name = path;
|
||
|
handle->offset = 0;
|
||
|
|
||
|
return (HANDLE)handle;
|
||
|
};
|
||
|
|
||
|
|
||
|
static int __F_NAME(_sopen,__wsopen)( const CHAR_TYPE *name, int mode, int share, va_list args )
|
||
|
{
|
||
|
HANDLE handle;
|
||
|
int hid, rwmode;
|
||
|
unsigned iomode_flags;
|
||
|
|
||
|
// First try to get the required slot.
|
||
|
// No point in creating a file only to not use it. JBS 99/10/26
|
||
|
hid = __allocPOSIXHandle( DUMMY_HANDLE );
|
||
|
if( hid == -1 )
|
||
|
{
|
||
|
return( -1 );
|
||
|
}
|
||
|
|
||
|
rwmode = mode;
|
||
|
|
||
|
|
||
|
/*** Open the file ***/
|
||
|
|
||
|
handle = __openFileHandle( name, mode);
|
||
|
|
||
|
if( handle==(HANDLE)-1 )
|
||
|
{
|
||
|
__freePOSIXHandle( hid );
|
||
|
return( -1 ); //error
|
||
|
}
|
||
|
|
||
|
// Now use the slot we got.
|
||
|
__setOSHandle( hid, handle ); // JBS 99/11/01
|
||
|
|
||
|
iomode_flags = 0;
|
||
|
|
||
|
|
||
|
if( rwmode == O_RDWR ) iomode_flags |= _READ | _WRITE;
|
||
|
else if( rwmode == O_RDONLY) iomode_flags |= _READ;
|
||
|
else if( rwmode == O_WRONLY) iomode_flags |= _WRITE;
|
||
|
if( mode & O_APPEND ) iomode_flags |= _APPEND;
|
||
|
if( mode & (O_BINARY|O_TEXT) ) {
|
||
|
if( mode & O_BINARY ) iomode_flags |= _BINARY;
|
||
|
} else {
|
||
|
if( _RWD_fmode == O_BINARY ) iomode_flags |= _BINARY;
|
||
|
}
|
||
|
__SetIOMode( hid, iomode_flags );
|
||
|
return( hid );
|
||
|
}
|
||
|
|
||
|
#elif
|
||
|
static int __F_NAME(_sopen,__wsopen)( const CHAR_TYPE *name, int mode, int share, va_list args )
|
||
|
{
|
||
|
DWORD create_disp, exists_disp;
|
||
|
DWORD perm, fileattr;
|
||
|
DWORD desired_access, share_mode;
|
||
|
SECURITY_ATTRIBUTES security;
|
||
|
HANDLE handle;
|
||
|
int hid, rwmode;
|
||
|
unsigned iomode_flags;
|
||
|
|
||
|
// First try to get the required slot.
|
||
|
// No point in creating a file only to not use it. JBS 99/10/26
|
||
|
hid = __allocPOSIXHandle( DUMMY_HANDLE );
|
||
|
if( hid == -1 ) {
|
||
|
return( -1 );
|
||
|
}
|
||
|
|
||
|
rwmode = mode & OPENMODE_ACCESS_MASK;
|
||
|
__GetNTAccessAttr( rwmode, &desired_access, &perm );
|
||
|
__GetNTShareAttr( share|rwmode, &share_mode );
|
||
|
fileattr = FILE_ATTRIBUTE_NORMAL;
|
||
|
|
||
|
security.nLength = sizeof( SECURITY_ATTRIBUTES );
|
||
|
security.lpSecurityDescriptor = NULL;
|
||
|
security.bInheritHandle = mode&O_NOINHERIT ? FALSE : TRUE;
|
||
|
|
||
|
#ifdef DEFAULT_WINDOWING
|
||
|
#ifdef __WIDECHAR__
|
||
|
if( _WindowsNewWindow != 0 && !_wcsicmp( name, L"con" ) )
|
||
|
#else
|
||
|
if( _WindowsNewWindow != 0 && !stricmp( name, "con" ) )
|
||
|
#endif
|
||
|
{
|
||
|
handle = (HANDLE) __NTGetFakeHandle();
|
||
|
|
||
|
// Now use the slot we got.
|
||
|
__setOSHandle( hid, handle ); // JBS 99/11/01
|
||
|
_WindowsNewWindow( NULL, hid, -1 );
|
||
|
|
||
|
iomode_flags = _ISTTY;
|
||
|
} else {
|
||
|
#endif
|
||
|
if( mode & O_CREAT ) {
|
||
|
perm = va_arg( args, int );
|
||
|
va_end( args );
|
||
|
perm &= ~_RWD_umaskval; /* 05-jan-95 */
|
||
|
if( ( perm & S_IREAD ) && !( perm & S_IWRITE ) ) {
|
||
|
fileattr = FILE_ATTRIBUTE_READONLY;
|
||
|
}
|
||
|
if( mode & O_EXCL ) {
|
||
|
create_disp = CREATE_NEW;
|
||
|
exists_disp = CREATE_NEW;
|
||
|
} else if( mode & O_TRUNC ) {
|
||
|
create_disp = CREATE_ALWAYS;
|
||
|
exists_disp = CREATE_NEW;
|
||
|
} else {
|
||
|
create_disp = OPEN_ALWAYS;
|
||
|
exists_disp = OPEN_EXISTING;
|
||
|
}
|
||
|
} else if( mode & O_TRUNC ) {
|
||
|
exists_disp = TRUNCATE_EXISTING;
|
||
|
} else {
|
||
|
exists_disp = OPEN_EXISTING;
|
||
|
}
|
||
|
|
||
|
/*** Open the file ***/
|
||
|
#ifdef __WIDECHAR__
|
||
|
handle = __lib_CreateFileW( name, desired_access, share_mode,
|
||
|
&security, exists_disp, fileattr,
|
||
|
NULL );
|
||
|
#else
|
||
|
handle = CreateFileA( name, desired_access, share_mode,
|
||
|
&security, exists_disp, fileattr, NULL );
|
||
|
#endif
|
||
|
if( handle==(HANDLE)-1 ) {
|
||
|
if( mode&O_CREAT ) {
|
||
|
#ifdef __WIDECHAR__
|
||
|
handle = __lib_CreateFileW( name, desired_access,
|
||
|
share_mode, NULL, create_disp,
|
||
|
fileattr, NULL );
|
||
|
#else
|
||
|
handle = CreateFileA( name, desired_access,
|
||
|
share_mode, NULL, create_disp,
|
||
|
fileattr, NULL );
|
||
|
#endif
|
||
|
}
|
||
|
if( handle == (HANDLE)-1 ) {
|
||
|
__freePOSIXHandle( hid );
|
||
|
return( __set_errno_nt() );
|
||
|
}
|
||
|
}
|
||
|
|
||
|
// Now use the slot we got.
|
||
|
__setOSHandle( hid, handle ); // JBS 99/11/01
|
||
|
|
||
|
iomode_flags = 0;
|
||
|
|
||
|
if( isatty(hid) ) {
|
||
|
iomode_flags = _ISTTY;
|
||
|
}
|
||
|
#ifdef DEFAULT_WINDOWING
|
||
|
}
|
||
|
#endif
|
||
|
|
||
|
if( rwmode == O_RDWR ) iomode_flags |= _READ | _WRITE;
|
||
|
else if( rwmode == O_RDONLY) iomode_flags |= _READ;
|
||
|
else if( rwmode == O_WRONLY) iomode_flags |= _WRITE;
|
||
|
if( mode & O_APPEND ) iomode_flags |= _APPEND;
|
||
|
if( mode & (O_BINARY|O_TEXT) ) {
|
||
|
if( mode & O_BINARY ) iomode_flags |= _BINARY;
|
||
|
} else {
|
||
|
if( _RWD_fmode == O_BINARY ) iomode_flags |= _BINARY;
|
||
|
}
|
||
|
__SetIOMode( hid, iomode_flags );
|
||
|
return( hid );
|
||
|
}
|
||
|
#endif
|
||
|
|
||
|
_WCRTLINK int __F_NAME(open,_wopen)( const CHAR_TYPE *name, int mode, ... )
|
||
|
{
|
||
|
int permission;
|
||
|
va_list args;
|
||
|
|
||
|
va_start( args, mode );
|
||
|
permission = va_arg( args, int );
|
||
|
va_end( args );
|
||
|
return( __F_NAME(sopen,_wsopen)( name, mode, SH_COMPAT, permission ) );
|
||
|
}
|
||
|
|
||
|
|
||
|
_WCRTLINK int __F_NAME(sopen,_wsopen)( const CHAR_TYPE *name, int mode, int shflag, ... )
|
||
|
{
|
||
|
va_list args;
|
||
|
|
||
|
va_start( args, shflag );
|
||
|
return( __F_NAME(_sopen,__wsopen)( name, mode, shflag, args ) );
|
||
|
}
|