"

 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.

"

"{ Package: 'stx:libbasic' }"

AbstractOperatingSystem subclass:#UnixOperatingSystem

	instanceVariableNames:''

	classVariableNames:'HostName DomainName SlowFork ForkFailed CurrentDirectory'

	poolDictionaries:''

	category:'OS-Unix'

!

Object subclass:#FileStatusInfo

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

	classVariableNames:''

	poolDictionaries:''

	privateIn:UnixOperatingSystem

!

Object subclass:#OSProcessStatus

	instanceVariableNames:'pid status code core'

	classVariableNames:''

	poolDictionaries:''

	privateIn:UnixOperatingSystem

!

!UnixOperatingSystem primitiveDefinitions!

%{

#if defined(_AIX)

# ifndef WANT_REALPATH

#  define WANT_REALPATH

# endif

# ifndef WANT_SYSTEM

#  define WANT_SYSTEM

# endif

#endif

#ifdef LINUX

# define __xxUSE_GNU      /* new */

# undef HAS_UTS_DOMAINNAME

# ifndef _STDIO_H_INCLUDED_

#  include <stdio.h>

#  define _STDIO_H_INCLUDED_

# endif

# ifndef _SYS_TYPES_H_INCLUDED_

#  include <sys/types.h>

#  define _SYS_TYPES_H_INCLUDED_

# endif

  /* use inline string macros */

# define __STRINGDEFS__

# include "linuxIntern.h"

# ifndef WANT_SYSTEM

#  define WANT_SYSTEM

# endif

# define WANT_SHM

# define HAS_SETENV

# define HAS_UNSETENV

# include <time.h>

#endif

#ifdef IRIX5

# define WANT_SYSTEM

#endif

#ifdef ultrix

# define WANT_SYSTEM

#endif

#ifdef hpux

# define WANT_SYSTEM

#endif

#ifdef solaris

# define WANT_SYSTEM

#endif

#if defined(SYSV4) && defined(i386) /* e.g. unixware */

# define WANT_SYSTEM

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

 */ 

#ifdef WANT_REALPATH

# ifndef NO_SYS_PARAM_H

#  include <sys/param.h>

#  define _SYS_PARAM_H_INCLUDED_

# endif

# include <errno.h>

# define _ERRNO_H_INCLUDED_

# include <sys/stat.h>

# define _SYS_STAT_H_INCLUDED_

#endif /* WANT_REALPATH */

#ifdef WANT_SHM

extern int shmctl(), shmget(), shmdt();

extern char * shmat();

# include <sys/types.h>

# define _SYS_TYPES_H_INCLUDED_

# include <sys/ipc.h>

# define _SYS_IPC_H_INCLUDED_

# include <sys/shm.h>

# define _SYS_SHM_H_INCLUDED_

#endif /* WANT_SHM */

#ifdef IRIX5

# include <sys/syssgi.h>

#endif

#ifdef transputer

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

#else /* not transputer */

# ifndef _SIGNAL_H_INCLUDED_

#  include <signal.h>

#  define _SIGNAL_H_INCLUDED_

# endif

# ifdef SYSV

#  ifndef _SYS_TYPES_H_INCLUDED_

#   include <sys/types.h>

#   define _SYS_TYPES_H_INCLUDED_

#  endif

#  ifndef _SYS_PARAM_H_INCLUDED_

#   ifndef NO_SYS_PARAM_H

#    include <sys/param.h>

#    define _SYS_PARAM_H_INCLUDED_

#   endif

#  endif

#  ifndef _SYS_TIMES_H_INCLUDED_

#   include <sys/times.h>

#   define _SYS_TIMES_H_INCLUDED_

#  endif

#  ifndef _SYS_FILE_H_INCLUDED_

#   include <sys/file.h>

#   define _SYS_FILE_H_INCLUDED_

#  endif

#  if ! defined(sco3_2)

#   ifndef _UNISTD_H_INCLUDED_

#    include <unistd.h>

#    define _UNISTD_H_INCLUDED_

#   endif

#  endif

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

#   ifndef _SYS_TIME_H_INCLUDED_

#    include <sys/time.h>

#    define _SYS_TIME_H_INCLUDED_

#   endif

#  endif

#  if !defined(isc3_2)

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

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

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

#   else

#    ifndef _TIME_H_INCLUDED_

#     include <time.h>

#     define _TIME_H_INCLUDED_

#    endif

#   endif

#  endif

#  if defined(isc3_2)

#   include <sys/bsdtypes.h>

#  endif

# else /* not SYSV */

#  ifndef _SYS_TIME_H_INCLUDED_

#   include <sys/time.h>

#   define _SYS_TIME_H_INCLUDED_

#  endif

#  ifndef _SYS_TYPES_H_INCLUDED_

#   include <sys/types.h>

#   define _SYS_TYPES_H_INCLUDED_

#  endif

# endif /* not SYSV */

# ifdef aix

#  ifndef _TIME_H_INCLUDED_

#   include <time.h>

#   define _TIME_H_INCLUDED_

#  endif

#  ifndef _SYS_SELECT_H_INCLUDED_

#   include <sys/select.h>

#   define _SYS_SELECT_H_INCLUDED_

#  endif

# endif /* aix */

# ifndef _STDIO_H_INCLUDED_

#  include <stdio.h>

#  define _STDIO_H_INCLUDED_

# endif

# ifndef _PWD_H_INCLUDED_

#  include <pwd.h>

#  define _PWD_H_INCLUDED_

# endif

# ifndef NO_GRP_H

#  ifndef _GRP_H_INCLUDED_

#   include <grp.h>

#   define _GRP_H_INCLUDED_

#  endif

# endif

# ifndef _SYS_STAT_H_INCLUDED_

#  include <sys/stat.h>

#  define _SYS_STAT_H_INCLUDED_

# endif

# ifndef _SYS_FILE_H_INCLUDED_

#  include <sys/file.h>

#  define _SYS_FILE_H_INCLUDED_

# endif

# ifndef _ERRNO_H_INCLUDED_

#  include <errno.h>

#  define _ERRNO_H_INCLUDED_

# endif

# ifndef _FCNTL_H_INCLUDED_

#  include <fcntl.h>

#  define _FCNTL_H_INCLUDED_

# endif

# ifndef _IOCTL_H_INCLUDED_

#  include <sys/ioctl.h>

#  define _IOCTL_H_INCLUDED_

# endif

# if defined(LINUX)

#  define HAS_LOCALECONV

# endif

# 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

# ifndef MAXPATHLEN

#  ifndef NO_SYS_PARAM_H

#   include <sys/param.h>

#  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

# if defined(HAS_UNAME)

#  include <sys/utsname.h>

# endif

# if defined(SYSV4)

#  include <stropts.h>

# endif

# ifndef aix

#  include <sys/termios.h>

# endif

/*

 * NeXT has no pid_t

 * and no sigemptyset

 */

# ifdef NEXT3

   typedef int pid_t;

#  define sigemptyset(set)      ((*(set) = 0L), 0)

#  define HAS_GETDOMAINNAME

#  define NO_WAITPID

# endif

# ifdef sunos

#  undef NO_WAITPID

#  undef HAS_WAITPID

#  define HAS_WAIT3

#  define HAS_SIGACTION

# endif

/*

 * some (BSD ?) have no timezone global,

 * but provide the info in struct timezone.

 */

# if defined(ultrix) || defined(sunos) || defined(NEXT)

#  define HAS_NO_TIMEZONE

# 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

# ifdef LINUX

#  include <linux/kernel.h>

#  include <linux/sys.h>

# endif

# if defined(HAS_GETSYSINFO)

#  include <sys/sysinfo.h>

#  include <machine/hal_sysinfo.h>

#  include <machine/hal/cpuconf.h>

# endif

# if defined(HAS_SYSCONF)

#  ifndef _UNISTD_H_INCLUDED_

#   include <unistd.h>

#   define _UNISTD_H_INCLUDED_

#  endif

# endif

#endif /* not transputer */

/*

 * 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

#ifdef sunos

# define NO_WAITPID

#endif

#ifdef NEXT

# define NO_WAITPID

#endif

/*

 * not all systems have time_t and off_t

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

 */

#ifdef __osf__

# define TIME_T time_t

# define OFF_T  off_t

#endif

#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

# if defined(HAS_ALTZONE)

#  define TIMEZONE(tmPtr)       ((tmPtr)->tm_isdst == 0 ? timezone : altzone)

# else  /*!HAS_ALTZONE*/

#  define TIMEZONE(tmPtr)       ((tmPtr)->tm_isdst == 0 ? timezone : timezone-3600)

# endif /*!HAS_ALTZONE*/

#endif                                                                                                                                                                                                                                                                                                                                                                                                                               

#ifndef CONST

# ifdef __GNUC__

#  define CONST const

# else

#  define CONST /* nothing */

# endif

#endif

%}

! !

!UnixOperatingSystem primitiveFunctions!

%{

/*

 * some systems' system() is broken in that it does not correctly 

 * handle EINTR and returns failure even though it actually succeeded. 

 * (LINUX is one of them)

 * Here is a fixed version. If you encounter EINTR returns from

 * UnixOperatingSystem>>executeCommand, you ought to define WANT_SYSTEM

 * in the xxxIntern.h file to get this fixed version.

 *

 * As an added BONUS, this system() enables interrupts while waiting

 * for the child which enables other threads to continue.

 * (i.e. it is RT safe)

 */

#if defined(WANT_SYSTEM)

/* # define DPRINTF(x)     printf x */

# define DPRINTF(x)     /* nothing */

# ifndef _STDDEF_H_INCLUDED_

#  include <stddef.h>

#  define _STDDEF_H_INCLUDED_

# endif

# ifndef _STDLIB_H_INCLUDED_

#  include <stdlib.h>

#  define _STDLIB_H_INCLUDED_

# endif

# ifndef _UNISTD_H_INCLUDED_

#  include <unistd.h>

#  define _UNISTD_H_INCLUDED_

# endif

# ifndef _SYS_WAIT_H_INCLUDED

#  include <sys/wait.h>

#  define _SYS_WAIT_H_INCLUDED

# endif

# ifndef _SIGNAL_H_INCLUDED_