"

 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:'Initialized HostName DomainName CurrentDirectory'

	poolDictionaries:'Win32Constants'

	category:'OS-Windows'

!

ByteArray variableByteSubclass:#DevModeStructure

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

ByteArray variableByteSubclass:#DocInfoStructure

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Object subclass:#FileStatusInfo

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

		sourcePath linkTargetPath fullPathName alternativePathName'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Object subclass:#OSProcessStatus

	instanceVariableNames:'pid status code core'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Object subclass:#PerformanceData

	instanceVariableNames:'objectArray perfTime perfFreq perfTime100nSec'

	classVariableNames:'PerformanceText CounterIndexTextDictionary

		HelpIndexTextDictionary'

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Object subclass:#Abstract

	instanceVariableNames:'lastData lastTimestamp cachedResults'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem::PerformanceData

!

Win32OperatingSystem::PerformanceData::Abstract subclass:#DiskIO

	instanceVariableNames:''

	classVariableNames:'TheOneAndOnlyInstance'

	poolDictionaries:''

	privateIn:Win32OperatingSystem::PerformanceData

!

Win32OperatingSystem::PerformanceData::Abstract subclass:#Global

	instanceVariableNames:''

	classVariableNames:'TheOneAndOnlyInstance'

	poolDictionaries:''

	privateIn:Win32OperatingSystem::PerformanceData

!

Win32OperatingSystem::PerformanceData::Abstract subclass:#Memory

	instanceVariableNames:''

	classVariableNames:'TheOneAndOnlyInstance'

	poolDictionaries:''

	privateIn:Win32OperatingSystem::PerformanceData

!

Win32OperatingSystem::PerformanceData::Abstract subclass:#Network

	instanceVariableNames:''

	classVariableNames:'TheOneAndOnlyInstance'

	poolDictionaries:''

	privateIn:Win32OperatingSystem::PerformanceData

!

Win32OperatingSystem::PerformanceData::Abstract subclass:#Process

	instanceVariableNames:''

	classVariableNames:'TheOneAndOnlyInstance'

	poolDictionaries:''

	privateIn:Win32OperatingSystem::PerformanceData

!

Win32OperatingSystem::PerformanceData::Abstract subclass:#Processor

	instanceVariableNames:''

	classVariableNames:'TheOneAndOnlyInstance'

	poolDictionaries:''

	privateIn:Win32OperatingSystem::PerformanceData

!

ByteArray variableByteSubclass:#PrinterInfo2Structure

	instanceVariableNames:''

	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 HKEY_PERFORMANCE_TEXT HKEY_PERFORMANCE_NLSTEXT'

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

ByteArray variableByteSubclass:#TextMetricsStructure

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

OSHandle subclass:#Win32IOHandle

	instanceVariableNames:''

	classVariableNames:'Lobby'

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Win32Handle subclass:#Win32PrinterHandle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Win32Handle subclass:#Win32ProcessHandle

	instanceVariableNames:'pid'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Win32OperatingSystem::Win32IOHandle subclass:#Win32SerialPortHandle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Win32OperatingSystem::Win32IOHandle subclass:#Win32SocketHandle

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

ByteArray variableByteSubclass:#WinPointStructure

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

!Win32OperatingSystem primitiveDefinitions!

%{

# define WINVER 0x0500   /*required for CoInitializeEx*/

#include "stxOSDefs.h"

# ifdef COMPILE_FOR_WIN95

/*

 * 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

# 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 Class

# undef Context

# undef Time

# undef Date

# undef Set

# undef Signal

# undef Delay

# undef Message

# undef Process

# undef NameSpace

# undef Processor

# include <stdarg.h> /* */

# ifndef WINDOWS_H_INCLUDED

#  define WINDOWS_H_INCLUDED

#  include <windows.h>

# endif

# ifndef TLHELP32_H_INCLUDE

#  define TLHELP32_H_INCLUDE

#  include <TLHELP32.h>         /* to get all processes in system */

#endif

# ifndef NO_GETADAPTERSINFO

#  include <iphlpapi.h>

# endif

# ifndef WINDOWSX_H_INCLUDED

#  define WINDOWSX_H_INCLUDED

#  include <windowsx.h>

# endif

# define _WIN32_DCOM     /*required for CoInitializeEx*/

# include <objbase.h>    //for COM

# include <shlobj.h>

# include <objbase.h>

# include <initguid.h>

# ifndef _STRING_H_INCLUDED_

#  define _STRING_H_INCLUDED_

#  include <string.h>

# 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

# ifndef __DEF_Class

#  define Class __DEF_Class

# 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

# ifdef __DEF_Message

#  define Message __DEF_Message

# endif

# ifdef __DEF_Process

#  define Process __DEF_Process

# endif

# ifdef __DEF_Processor

#  define Processor __DEF_Processor

# endif

# ifdef __DEF_NameSpace

#  define NameSpace __DEF_NameSpace

# 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 xMAXPATHLEN MAXPATH

#  define MAXFILELEN MAXFILE

OBJ _SEND0(OBJ, OBJ, OBJ, inlineCachePtr);

OBJ _SEND1(OBJ, OBJ, OBJ, inlineCachePtr, OBJ);

OBJ _SEND2(OBJ, OBJ, OBJ, inlineCachePtr, OBJ, OBJ);

OBJ _SEND3(OBJ, OBJ, OBJ, inlineCachePtr, OBJ, OBJ, OBJ);

# endif /* BORLANDC */

# ifndef __BORLANDC__

#   define chmod _chmod

# endif /* not BORLANDC */

# ifndef MAXPATHLEN

#  ifdef FILENAME_MAX

#   define xMAXPATHLEN FILENAME_MAX

#  endif

#  ifndef MAXPATHLEN

#   define MAXPATHLEN 1024

#  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

# ifndef __BORLANDC__

#  ifndef COINIT_MULTITHREADED

#   define COINIT_MULTITHREADED 0x0

#  endif

# endif

#define SIGHANDLER_ARG int

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

%}

! !

!Win32OperatingSystem primitiveVariables!

%{

static int coInitialized = 0;

%}

! !

!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;

    int winErrNo;

/* 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);