"

 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.

"

"{ 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 primitiveDefinitions!

%{

# ifndef DO_WRAP_CALLS

#  define STX_C_CALL0(__nm__, __f__)                                    __f__((__a1__))

#  define STX_C_CALL1(__nm__, __f__, __a1__)                            __f__((__a1__))

#  define STX_C_CALL2(__nm__, __f__, __a1__, __a2__)                    __f__((__a1__), (__a2__))

#  define STX_C_CALL3(__nm__, __f__, __a1__, __a2__, __a3__)            __f__((__a1__), (__a2__), (__a3__))

#  define STX_API_CALL0(__nm__, __f__)                                  __f__((__a1__))

#  define STX_API_CALL1(__nm__, __f__, __a1__)                          __f__((__a1__))

#  define STX_API_CALL2(__nm__, __f__, __a1__, __a2__)                  __f__((__a1__), (__a2__))

#  define STX_API_CALL3(__nm__, __f__, __a1__, __a2__, __a3__)          __f__((__a1__), (__a2__), (__a3__))

#  define STX_API_CALL4(__nm__, __f__, __a1__, __a2__, __a3__, __a4__)  __f__((__a1__), (__a2__), (__a3__), (__a4__))

# else

#  define STX_C_CALL0(__nm__, __f__)                                    __STX_C_CALL0(__nm__, (void*)__f__)

#  define STX_C_CALL1(__nm__, __f__, __a1__)                            __STX_C_CALL1(__nm__, (void*)__f__, (void*)(__a1__))

#  define STX_C_CALL2(__nm__, __f__, __a1__, __a2__)                    __STX_C_CALL2(__nm__, (void*)__f__, (void*)(__a1__), (void*)(__a2__))

#  define STX_C_CALL3(__nm__, __f__, __a1__, __a2__, __a3__)            __STX_C_CALL3(__nm__, (void*)__f__, (void*)(__a1__), (void*)(__a2__), (void*)(__a3__))

#  define STX_API_CALL0(__nm__, __f__)                                  __STX_API_CALL0(__nm__, (void*)__f__)

#  define STX_API_CALL1(__nm__, __f__, __a1__)                          __STX_API_CALL1(__nm__, (void*)__f__, (void*)(__a1__))

#  define STX_API_CALL2(__nm__, __f__, __a1__, __a2__)                  __STX_API_CALL2(__nm__, (void*)__f__, (void*)(__a1__), (void*)(__a2__))

#  define STX_API_CALL3(__nm__, __f__, __a1__, __a2__, __a3__)          __STX_API_CALL3(__nm__, (void*)__f__, (void*)(__a1__), (void*)(__a2__), (void*)(__a3__))

#  define STX_API_CALL4(__nm__, __f__, __a1__, __a2__, __a3__, __a4__)  __STX_API_CALL4(__nm__, (void*)__f__, (void*)(__a1__), (void*)(__a2__), (void*)(__a3__), (void*)(__a4__))

# endif

# 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

/*# define PROCESSDEBUGWIN32     /* */

/*# define PROCESS1DEBUGWIN32    /* */

/*# define PROCESS2DEBUGWIN32    /* */

/* # 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

# define NO_GETADAPTERSINFO

# include <stdarg.h> /* */

# include <windows.h>

# ifndef NO_GETADAPTERSINFO

#  include <iphlpapi.h> /* req'd for GetAdaptersInfo */

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

/* 

 * 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

/*

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

%{

static int __isWinNT = 0;

#define __wait wait

%}

! !

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

        Claus Gittinger (initial version & cleanup)

        Manfred Dierolf (many features)

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