"

 COPYRIGHT (c) 1988 by Claus Gittinger

 COPYRIGHT (c) 1998 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.

"

AbstractOperatingSystem subclass:#Win32OperatingSystem

	instanceVariableNames:''

	classVariableNames:'HostName DomainName CurrentDirectory'

	poolDictionaries:''

	category:'OS-Windows'

!

Object subclass:#FileStatusInfo

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

		alternativeName'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Object subclass:#OSProcessStatus

	instanceVariableNames:'pid status code core'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

!Win32OperatingSystem primitiveDefinitions!

%{

# define WRAP_STDIO

# ifndef MSDOS_LIKE

#  define MSDOS_LIKE

# endif

# undef UNIX_LIKE       /* oops - we were too optimistic - no OS */

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

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

/* 

 * posix systems should define these ... 

 * but on some (older) systems, they are not.

 */

# ifndef S_IXUSR

#  ifdef S_IEXEC

#   define S_IXUSR S_IEXEC

#   define S_IXGRP (S_IEXEC>>3)

#   define S_IXOTH (S_IEXEC>>6)

#  endif

# endif

# ifndef S_IXUSR

#  define S_IXUSR 0100

#  define S_IXGRP 0010

#  define S_IXOTH 0001

# endif

# ifndef S_IRUSR

#  define S_IRUSR 0400

#  define S_IRGRP 0040

#  define S_IROTH 0004

# endif

# ifndef S_IWUSR

#  define S_IWUSR 0200

#  define S_IWGRP 0020

#  define S_IWOTH 0002

# 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

/*

 * on some systems errno is a macro ... check for it here

 */

#ifndef errno

 extern errno;

#endif

/*

 * some (old ?) systems do not define this ...

 */

#if !defined(R_OK) && !defined(_AIX)

# define R_OK    4       /* Test for Read permission */ 

# define W_OK    2       /* Test for Write permission */

# define X_OK    1       /* Test for eXecute permission */

# define F_OK    0       /* Test for existence of File */

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

%{

%}

! !

!Win32OperatingSystem class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1988 by Claus Gittinger

 COPYRIGHT (c) 1998 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

"

    NOTICE: this is being developed;

    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:]

    [see also:]

	OSProcessStatus

	Filename Date Time

	ExternalStream FileStream PipeStream Socket

"

!

examples

"

  various queries

								[exBegin]

    Transcript 

	showCR:'hello ' , (OperatingSystem getLoginName)

								[exEnd]

								[exBegin]

    OperatingSystem isUNIXlike ifTrue:[

	Transcript showCR:'this is some UNIX-like OS'

    ] ifFalse:[

	Transcript showCR:'this OS is not UNIX-like'

    ]

								[exEnd]

								[exBegin]

    Transcript 

	showCR:'this machine is called ' , OperatingSystem getHostName

								[exEnd]

								[exBegin]

    Transcript 

	showCR:('this machine is in the '

	       , OperatingSystem getDomainName

	       , ' domain')

								[exEnd]

								[exBegin]

    Transcript 

	showCR:('this machine''s CPU is a '

	       , OperatingSystem getCPUType

	       )

								[exEnd]

								[exBegin]

    Transcript showCR:'executing ls command ...'.

    OperatingSystem executeCommand:'ls'.

    Transcript showCR:'... done.'.

								[exEnd]

  locking a file 

  (should be executed on two running smalltalks - not in two threads):

								[exBegin]

    |f|

    f := 'testFile' asFilename readWriteStream.

    10 timesRepeat:[

	'about to lock ...' printCR.

	[

	  OperatingSystem 

	    lockFD:(f fileDescriptor)

	    shared:false

	    blocking:false

	] whileFalse:[

	    'process ' print. OperatingSystem getProcessId print. ' is waiting' printCR.

	    Delay waitForSeconds:1

	].

	'LOCKED ...' printCR.

	Delay waitForSeconds:10.

	'unlock ...' printCR.

	(OperatingSystem 

	    unlockFD:(f fileDescriptor)) printCR.

	Delay waitForSeconds:3.

    ]

								[exBegin]

"

! !

!Win32OperatingSystem class methodsFor:'initialization'!

initOSType

    "internal - see if running under win-NT

     (as opposed to win-95)"

    OSVERSIONINFO osvi;

    memset(&osvi, 0, sizeof(OSVERSIONINFO));

    osvi.dwOSVersionInfoSize = sizeof (OSVERSIONINFO);

    GetVersionEx (&osvi);

    if (osvi.dwPlatformId == VER_PLATFORM_WIN32_NT) {

	__isWinNT = 1;

    } else {

	__isWinNT = 0;

    }

%}.

!

initialize

    "initialize the class"

    ObjectMemory addDependent:self.

    HostName := nil.

    DomainName := nil.

    LastErrorNumber := nil.

    PipeFailed := false.

    self initOSType

    "Modified: 13.9.1997 / 10:47:32 / cg"

!

update:something with:aParameter from:changedObject

    "catch image restart and flush some cached data"

    something == #earlyRestart ifTrue:[

	"

	 flush cached data

	"

	HostName := nil.

	DomainName := nil.

	LastErrorNumber := nil.

	PipeFailed := false.

	self initOSType

    ]

    "Modified: 22.4.1996 / 13:10:43 / cg"

    "Created: 15.6.1996 / 15:22:37 / cg"

    "Modified: 7.1.1997 / 19:36:11 / stefan"

! !

!Win32OperatingSystem class methodsFor:'OS signal constants'!

sigABRT

    "return the signal number for SIGABRT - 0 if not supported by OS

     (the numeric value is not the same across unix-systems)"

%{  /* NOCONTEXT */

#ifdef SIGABRT

    RETURN ( __MKSMALLINT(SIGABRT) );

#else

    RETURN ( __MKSMALLINT(0) );

#endif

%}

!

sigALRM

    "return the signal number for SIGALRM - 0 if not supported

     (the numeric value is not the same across unix-systems)"

%{  /* NOCONTEXT */

#ifdef SIGALRM

    RETURN ( __MKSMALLINT(SIGALRM) );

#else

    RETURN ( __MKSMALLINT(0) );

#endif

%}

!

sigBREAK

    "return the signal number for SIGBREAK - 0 if not supported.

     This is an MSDOS specific signal"