"

 COPYRIGHT (c) 1988 by Claus Gittinger

	      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.

"

Object subclass:#OperatingSystem

       instanceVariableNames:''

       classVariableNames:'HostName LastErrorNumber LastExecStatus OSSignals

			   SlowFork ForkFailed'

       poolDictionaries:''

       category:'System-Support'

!

OperatingSystem comment:'

COPYRIGHT (c) 1988 by Claus Gittinger

	     All Rights Reserved

'!

!OperatingSystem primitiveDefinitions!

%{

#ifdef transputer

# define unlink(f)      ((remove(f) == 0) ? 0 : -1)

#else

# include <signal.h>

# ifdef SYSV

#  include <sys/types.h>

#  include <sys/param.h>

#  include <sys/times.h>

#  if ! defined(sco3_2)

#   include <unistd.h>

#  endif

#  if defined(isc3_2) || defined(sco3_2)

#   include <sys/time.h>

#  endif

#  if !defined(isc3_2)

#   if defined(PCS) && defined(mips)

#    include "/usr/include/bsd/sys/time.h"

#    include "/usr/include/sys/time.h"

#   else

#    include <time.h>

#   endif

#  endif

#  if defined(isc3_2)

#   include <sys/bsdtypes.h>

#  endif

# else /* not SYSV */

#  include <sys/time.h>

#  include <sys/types.h>

# endif

# ifdef aix

#  include <time.h>

#  include <sys/select.h>

# endif

# include <pwd.h>

# include <grp.h>

# include <sys/stat.h>

# include <errno.h>

/* 

 * 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

# ifndef MAXPATHLEN

#  include <sys/param.h>

#  ifndef MAXPATHLEN

#   define MAXPATHLEN 1024

#  endif

# endif

# if defined(HAS_UNAME)

#  include <sys/utsname.h>

# endif

# include <stdio.h>

# include <fcntl.h>

#endif /* ! transputer */

/*

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

 */

#ifndef errno

 extern errno;

#endif

/*

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

 */

#ifndef R_OK

# 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

%}

! !

!OperatingSystem class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1988 by Claus Gittinger

	      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.

"

!

version

"

"

!

documentation

"

    this class gives access to some 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 dfferent ...

    Currently, there is only this class available - once more than

    Unix is supported, the corresponding class will be bound to the

    global variable OperatingSystem.

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

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

     able to get down to a select or fork system call easily.

     You decide - portability vs. functionality)

    Class variables:

	HostName        <String>        remembered hostname

	LastErrorNumber <Integer>       the last value of errno

	LastExecStatus  <Integer>       the returned exec status after

					the last call of system

	OSSignals       <Array>         Array of signals to be raised for corresponding

					OperatingSystem signals.

	ForkFailed      <Boolean>       set if a fork (or popen) has failed;

					ST/X will avoid doing more forks/popens

					if this flag is set, for a slightly

					smoother operation.

	SlowFork      <Boolean>         if set, fork and popen are avoided;

"

! !

!OperatingSystem class methodsFor:'initialization'!

initialize

    "initialize the class"

    ObjectMemory addDependent:self

!

update:something

    something == #earlyRestart ifTrue:[

	"

	 flush cached data

	"

	HostName := nil.

	LastErrorNumber := nil.

	LastExecStatus := nil

    ]

! !

!OperatingSystem class methodsFor:'misc'!

slowFork:aBoolean

    SlowFork := aBoolean

!

exit

    "shutdown smalltalk immediately - 

     return 'good'-status (0) to parent unix process."

%{  /* NOCONTEXT */

    __mainExit(0);

%}

    "OperatingSystem exit - dont evaluate this"

!

exit:exitCode

    "shutdown smalltalk immediately -

     returning an exit-code to the parent unix process."

%{  /* NOCONTEXT */

    int code = 1;

    if (__isSmallInteger(exitCode)) {

	code = _intVal(exitCode);

    }

    __mainExit(code);

%}

    "OperatingSystem exit:1 - dont evaluate this"

! 

exitWithCoreDump

    "shutdown smalltalk immediately - dumping core.

     This always returns 'bad'-status to the parent unix process.

     Notice, that no cleanup is performed at all - you may have to

     manually remove any tempfiles.

     Use this only for debugging ST/X itself"

%{  /* NOCONTEXT */

    abort();

%}

    "OperatingSystem exitWithCoreDump - dont evaluate this"

! !

!OperatingSystem class methodsFor:'os queries'!

getEnvironment:aStringOrSymbol

    "get an environment string"

%{  /* NOCONTEXT */

    char *env;

    if (__isString(aStringOrSymbol) || __isSymbol(aStringOrSymbol)) {

	env =  (char *)getenv(_stringVal(aStringOrSymbol));

	if (env) {

	    RETURN ( _MKSTRING(env COMMA_CON) );

	}

    }

%}

.

    ^ nil

    "

     OperatingSystem getEnvironment:'LANG'

     OperatingSystem getEnvironment:'LOGIN'

     OperatingSystem getEnvironment:'HOME'

     OperatingSystem getEnvironment:'NNTPSERVER'

     OperatingSystem getEnvironment:'MAIL'

    "

!

getProcessId

    "return the (unix-)processId"

%{  /* NOCONTEXT */

    int pid = 0;

#ifndef transputer

    pid = getpid();

#endif

    RETURN ( _MKSMALLINT(pid) );

%}

    "

     OperatingSystem getProcessId

    "

!

getCPUType

    "return a string giving the type of machine we're running on.

     This may normally not be of any interrest to you ..."

    |cpu|

%{  /* NOCONTEXT */

#   ifdef vax

#    define CPU_STRING "vax"

#   endif

#   ifdef mips

#    define CPU_STRING "mips"

#   endif

#   ifdef i386

#    define CPU_STRING "i386"

#   endif

#   ifdef ns32k

#    define CPU_STRING "ns32k"

#   endif

#   ifdef mc68k

#    define CPU_STRING "mc68k"

#   endif

#   ifdef sparc

#    define CPU_STRING "sparc"

#   endif

#   ifdef hppa

#    define CPU_STRING "hppa"

#   endif

#   ifdef rs6000

#    define CPU_STRING "rs6000"

#   endif

#   ifdef alpha

#    define CPU_STRING "alpha"

#   endif

#   ifdef powerPC

#    define CPU_STRING "powerPC"

#   endif

#   ifdef transputer

#    define CPU_STRING "transputer"

#   endif

#   ifndef CPU_STRING

#    define CPU_STRING "unknown"

#   endif

    cpu = _MKSTRING(CPU_STRING COMMA_CON);

#   undef CPU_STRING

%}

.

    ^ cpu

    "

     OperatingSystem getCPUType

    "

    "examples: are we running on a ss-10/solaris ?"

    "

     (OperatingSystem getCPUType = 'sparc') 

     and:[OperatingSystem getOSType = 'solaris']

    "

    "or on a pc/solaris ?"

    "

     (OperatingSystem getCPUType = 'i386')

     and:[OperatingSystem getOSType = 'solaris']

    "

!

getOSType

    "return a string giving the type of OS we're running on.

     This can be used to adapt programs to certain environment

     differences (for example: mail-lock strategy ...)"

    |os|

%{  /* NOCONTEXT */

#   ifdef MSDOS

#    define OS_STRING "msdos"

#   endif

#   ifdef NT

#    define OS_STRING "nt"

#   endif

#   ifdef sinix

#    define OS_STRING "sinix"

#   endif

#   ifdef ultrix

#    define OS_STRING "ultrix"

#   endif

#   ifdef sco

#    define OS_STRING "sco"

#   endif

#   ifdef hpux

#    define OS_STRING "hpux"

#   endif

#   ifdef LINUX

#    define OS_STRING "linux"

#   endif

#   ifdef sunos

#    define OS_STRING "sunos"

#   endif

#   ifdef solaris

#    define OS_STRING "solaris"

#   endif

#   ifdef IRIS

#    define OS_STRING "irix"

#   endif

#   ifdef aix

#    define OS_STRING "aix"

#   endif

    /*

     * no concrete info; become somewhat vague ...

     */

#   ifndef OS_STRING

#    ifdef MACH

#     define OS_STRING "mach"

#    endif

#   endif

#   ifndef OS_STRING

#    ifdef BSD

#     define OS_STRING "bsd"

#    endif

#    ifdef SYSV

#     ifdef SYSV3

#      define OS_STRING "sys5.3"

#     else

#      ifdef SYSV4

#       define OS_STRING "sys5.4"

#      else

#       define OS_STRING "sys5"

#      endif

#     endif

#    endif

#   endif

    /*

     * become very vague ...

     */

#   ifndef OS_STRING

#    ifdef POSIX

#     define OS_STRING "posix"

#    endif

#   endif

#   ifndef OS_STRING

#    ifdef UNIX

#     define OS_STRING "unix"

#    endif

#   endif

#   ifndef OS_STRING

#    define OS_STRING "unknown"

#   endif

    os = _MKSTRING(OS_STRING COMMA_CON);

#   undef OS_STRING

%}

.

    ^ os

    "OperatingSystem getOSType"

!

getSystemType

    "return a string giving the type of system we're running on.

     This is almost the same as getOSType, but the returned string

     is slightly different for some systems (i.e. iris vs. irix).

     Dont depend on this - use getOSType. I dont really see a point

     here ... (except for slight differences between next/mach and other

     machs)"

    |sys|

%{

#   ifdef NEXT

#    define SYS_STRING "next"