"

 COPYRIGHT (c) 1988 by Claus Gittinger

 COPYRIGHT (c) 1998-2004 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic' }"

AbstractOperatingSystem subclass:#Win32OperatingSystem

	instanceVariableNames:''

	classVariableNames:'HostName DomainName CurrentDirectory'

	poolDictionaries:''

	category:'OS-Windows'

!

Object subclass:#FileStatusInfo

	instanceVariableNames:'type mode uid gid size id accessed modified created statusChanged

		path fullName alternativeName'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Object subclass:#OSProcessStatus

	instanceVariableNames:'pid status code core'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Object subclass:#RegistryEntry

	instanceVariableNames:'path handle'

	classVariableNames:'Lobby HKEY_CLASSES_ROOT HKEY_CURRENT_USER HKEY_LOCAL_MACHINE

		HKEY_USERS HKEY_PERFORMANCE_DATA HKEY_CURRENT_CONFIG

		HKEY_DYN_DATA'

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

OSFileHandle subclass:#Win32FILEHandle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

OSFileHandle subclass:#Win32Handle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Win32OperatingSystem::Win32Handle subclass:#Win32ProcessHandle

	instanceVariableNames:'pid'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Win32OperatingSystem::Win32Handle subclass:#Win32SocketHandle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

!Win32OperatingSystem primitiveDefinitions!

%{

#include "stxOSDefs.h"

/*

 * ensure that ST/X runs on NT, 95 and 98

 * (however, this disables some Win2K and XP features (sigh)

 */

#ifndef WINVER

# define WINVER 0x0400

#endif

#if WINVER < 0x0400

# define NO_GETADAPTERSINFO

#endif

#define USE_H_ERRNO

# if defined(i386) || defined(__i386__)

#  ifndef _X86_

#   define _X86_

#  endif

# endif

/*

 * notice: although many systems' include files

 * already block against multiple inclusion, some

 * do not. Therefore, this is done here again.

 * (it does not hurt)

 */

# ifndef _SIGNAL_H_INCLUDED_

#  include <signal.h>

#  define _SIGNAL_H_INCLUDED_

# endif

# ifndef _SYS_TYPES_H_INCLUDED_

#  include <sys/types.h>

#  define _SYS_TYPES_H_INCLUDED_

# endif

# ifndef _TIME_H_INCLUDED_

#  include <time.h>

#  define _TIME_H_INCLUDED_

# endif

# ifndef _SYS_TIMEB_H_INCLUDED_

#  include <sys/timeb.h>

#  define _SYS_TIMEB_H_INCLUDED_

# endif

# ifndef _SYS_STAT_H_INCLUDED_

#  include <sys/stat.h>

#  define _SYS_STAT_H_INCLUDED_

# endif

# ifndef _ERRNO_H_INCLUDED_

#  include <errno.h>

#  define _ERRNO_H_INCLUDED_

# endif

# ifndef _STDIO_H_INCLUDED_

#  include <stdio.h>

#  define _STDIO_H_INCLUDED_

# endif

# ifndef _FCNTL_H_INCLUDED_

#  include <fcntl.h>

#  define _FCNTL_H_INCLUDED_

# endif

/* # define PROCESSDEBUGWIN32     /* */

/* # define PROCESS1DEBUGWIN32    /* */

/* # define PROCESS2DEBUGWIN32    /* */

/* # define PROCESSDEBUG_CHILDPROCESSWAIT    /* */

/* # define SELECTDEBUGWIN32     /* */

/* # define SELECT1DEBUGWIN32    /* */

/* # define SELECT2DEBUGWIN32    /* */

/* # define WAITDEBUGWIN32       /* */

/* # define SIGNALDEBUGWIN32     /* */

# undef INT

# undef Array

# undef Number

# undef Method

# undef Point

# undef Rectangle

# undef Block

# undef String

# undef Message

# undef Object

# undef Context

# undef Time

# undef Date

# undef Set

# undef Signal

# undef Delay

# include <stdarg.h> /* */

# ifndef WINDOWS_H_INCLUDED

#  define WINDOWS_H_INCLUDED

#  include <windows.h>

# endif

# ifndef NO_GETADAPTERSINFO

#  include <iphlpapi.h>

# endif

# if !defined(__BORLANDC__)

#  undef stat

#  define stat _stat

#  undef chmod

#  define chmod _chmod

#  undef access

#  define access _access

#  define MAXFILELEN 256

# endif

# ifdef __DEF_Array

#  define Array __DEF_Array

# endif

# ifdef __DEF_Number

#  define Number __DEF_Number

# endif

# ifdef __DEF_Method

#  define Method __DEF_Method

# endif

# ifdef __DEF_Point

#  define Point __DEF_Point

# endif

# ifdef __DEF_Rectangle

#  define Rectangle __DEF_Rectangle

# endif

# ifdef __DEF_Block

#  define Block __DEF_Block

# endif

# ifdef __DEF_String

#  define String __DEF_String

# endif

# ifdef __DEF_Message

#  define Message __DEF_Message

# endif

# ifdef __DEF_Object

#  define Object __DEF_Object

# endif

# ifdef __DEF_Context

#  define Context __DEF_Context

# endif

# ifdef __DEF_Date

#  define Date __DEF_Date

# endif

# ifdef __DEF_Time

#  define Time __DEF_Time

# endif

# ifdef __DEF_Set

#  define Set __DEF_Set

# endif

# ifdef __DEF_Signal

#  define Signal __DEF_Signal

# endif

# ifdef __DEF_Delay

#  define Delay __DEF_Delay

# endif

# define INT int

typedef int (*intf)(int);

BOOL __signalUserInterruptWIN32(DWORD sig);

# if defined (HAS_LOCALECONV)

#  ifndef _LOCALE_H_INCLUDED_

#   include <locale.h>

#   define _LOCALE_H_INCLUDED_

#  endif

# endif

# ifdef __BORLANDC__

#  include <dir.h>

#  define MAXPATHLEN MAXPATH

#  define MAXFILELEN MAXFILE

# endif

# ifndef MAXPATHLEN

#  ifndef MSDOS_LIKE

#   ifndef NO_SYS_PARAM_H

#    include <sys/param.h>

#   endif

#  endif

#  ifndef MAXPATHLEN

#   ifdef FILENAME_MAX  /* i.e. MSDOS_LIKE */

#    define MAXPATHLEN FILENAME_MAX

#   else

#    ifdef MAX_PATH

#     define MAXPATHLEN MAX_PATH

#    else

#     define MAXPATHLEN 1024

#    endif

#   endif

#  endif

# endif

/*

 * sigaction dummies (you won't believe these call themself ``POSIX'' systems ...)

 */

# ifndef SA_RESTART

#  define SA_RESTART    0

# endif

# ifndef SA_SIGINFO

#  define SA_SIGINFO    0

# endif

# if defined(HAS_WAITPID) || defined(HAS_WAIT3)

#  include <sys/wait.h>

# endif

# if defined(HAS_SYSINFO)

#  include <sys/systeminfo.h>

# endif

#define SIGHANDLER_ARG int

#define _HANDLEVal(o)        (HANDLE)(__externalAddressVal(o))

/*

 * not all systems have time_t and off_t

 * explicit add of those we know to have ...

 */

#ifndef TIME_T

# define TIME_T long

#endif

#ifndef OFF_T

# define OFF_T  long

#endif

/*

 * where is the timezone info ?

 */

#if defined(HAS_NO_TIMEZONE)

# if defined(HAS_NO_TM_GMTOFF)

#  define TIMEZONE(tmPtr)       0

# else

#  define TIMEZONE(tmPtr)       ((tmPtr)->tm_gmtoff)

# endif

#else

# ifdef MSDOS_LIKE

#   define TIMEZONE(tmPtr)      0

# else

#  define TIMEZONE(tmPtr)       timezone

# endif

#endif

%}

! !

!Win32OperatingSystem primitiveFunctions!

%{

/* isWindows-NT flag:

 *  1 for NT based systemes, such as NT,XP or 2k

 *  0 for w95 based systems, such as w95/w98/ME

 */

static int __isWinNT = 0;

#define __wait wait

static int

_canAccessIOWithoutBlocking (aFD, readMode)

int aFD;

int readMode;

{

    struct timeval tv;

    fd_set         fds;

    int            n;

/* we use the osfhandle insteat of the fd !! WHY ?? (I do not know)

   but otherwise it not works

*/

    int sock = (int) _get_osfhandle (aFD);

    FD_ZERO( & fds );

    FD_SET ( sock, & fds );

    tv.tv_sec  = 0;

    tv.tv_usec = 0;

    if (readMode) {

	n = select (sock + 1, & fds, NULL, NULL, & tv);

    } else {

	n = select (sock + 1, NULL, & fds, NULL, & tv);

    }

    if (n == 0) {

	return (0);

    }

    if (n > 0) {

	return ((FD_ISSET (sock, & fds)) ? 1 : 0);

    }

    switch (WSAGetLastError()) {

	case WSAENOTSOCK:

	    if (readMode) {

		DWORD  w = 0;

		HANDLE h = (HANDLE) _get_osfhandle (aFD);

		if (PeekNamedPipe (h, 0, 0, 0, & w, 0)) {

		    if( !__isWinNT || w > 0 )

			return (1);

		    return (0);

		}

		return (-1);

	    }

	    /* in writeMode we return allways true for none-sockets */

	    return (1);

	case WSAEINPROGRESS:

	case WSAEWOULDBLOCK: return (0);

	default: return (1);

    }

    return (0);

}

#define _canReadWithoutBlocking(fd)     _canAccessIOWithoutBlocking(fd, 1)

#define _canWriteWithoutBlocking(fd)    _canAccessIOWithoutBlocking(fd, 0)

static FARPROC

__get_KERNEL32_functionAddress(functionName)

    char *functionName;

{

    /*

     * Attention: some API calls are not available on old NT4.0/W95/W98

     */

    FARPROC entry = NULL;

    static HINSTANCE handle = NULL;

    if (handle == NULL) {

	handle = LoadLibrary("KERNEL32.DLL");

    }

    entry = GetProcAddress(handle, functionName);

    return entry;

}

static FARPROC

__get_iphlpapi_functionAddress(functionName)

    char *functionName;

{

    /*

     * Attention: some API calls are not available on old NT4.0/W95/W98

     */

    FARPROC entry = NULL;

    static HINSTANCE handle2 = NULL;

    if (handle2 == NULL) {

	handle2 = LoadLibrary("iphlpapi.DLL");

    }

    entry = GetProcAddress(handle2, functionName);

    return entry;

}

%}

! !

!Win32OperatingSystem class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1988 by Claus Gittinger

 COPYRIGHT (c) 1998-2004 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    this class resulted from extracting WIN32 specifics of the old

    OperatingSystemClass into this sub-class.

    You may find some leftover unix stuff, which will go away sooner

    or later.

    this class realizes access to most (all ?) required operating system services;

    some of it is very specific for unix, so do not depend on

    things available here in your applications

    - some may not be found in other OS's or be slightly different ...

    (On the other hand: I do not want to hide all features

     from you - in some situations it MAY be interesting to be

     able to get down to a select or fork system call easily (at least on Unix systems).

     You decide - portability vs. functionality)

    [Class variables:]

	HostName        <String>        remembered hostname

	DomainName      <String>        remembered domainname

	CurrentDirectory <String>       remembered currentDirectories path

    [author:]

	Claus Gittinger (initial version & cleanup)

	Manfred Dierolf (many features)

    [see also:]