"

 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.

"

AbstractOperatingSystem subclass:#OpenVMSOperatingSystem

	instanceVariableNames:''

	classVariableNames:'HostName DomainName SlowFork CurrentDirectory'

	poolDictionaries:''

	category:'OS-OpenVMS'

!

Object subclass:#FileStatusInfo

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

		alternativeName recordFormatNumeric recordFormat recordAttributes

		fixedHeaderSize recordSize'

	classVariableNames:''

	poolDictionaries:''

	privateIn:OpenVMSOperatingSystem

!

Object subclass:#OSProcessStatus

	instanceVariableNames:'pid status code core'

	classVariableNames:''

	poolDictionaries:''

	privateIn:OpenVMSOperatingSystem

!

!OpenVMSOperatingSystem primitiveDefinitions!

%{

#define UNIX_LIKE       /* assumption: a real operatingSystem */

#if defined(MSWINDOWS) || defined(OS2) || defined(MSDOS) || defined(WIN32)

# 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

#endif /* any MS-non-OS */

#if defined(transputer)

# undef MSDOS_LIKE

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

#endif

#if defined(_AIX)

# ifndef WANT_REALPATH

#  define WANT_REALPATH

# endif

# ifndef WANT_SYSTEM

#  define WANT_SYSTEM

# endif

#endif

#ifdef LINUX

  /* use inline string macros */

# define __STRINGDEFS__

# include <linuxIntern.h>

# ifndef WANT_SYSTEM

#  define WANT_SYSTEM

# endif

# define WANT_SHM

#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

#ifdef __VMS__

# undef __new

# undef HAS_WAITPID

# undef HAS_WAIT3

# undef WANT_REALPATH

# undef HAS_USLEEP

# define NO_WAITPID

# define NO_SETITIMER

# define NO_GRP_H

# define HAS_REMOVE

# ifdef __openVMS__

#  ifndef _UNISTD_H_INCLUDED_

#   include <unistd.h>

#   define _UNISTD_H_INCLUDED_

#  endif

# endif

  /*

   * req'd for additional fileInfo

   */

# include <rms.h> /* */

# include <fabdef.h>

  /*

   * req'd for subprocess support

   */

# include <iodef.h>

# include <ssdef.h>

# include <syidef.h>

# include <clidef.h>

# include <stsdef.h>

# include <dvidef.h>

# include <nam.h>

# include <descrip.h>

# include <lib$routines.h>

# include <starlet.h>

# define xxxUSE_SLOW_ALARM

# define USE_AST_TIMER

/* VMS variable length string */

struct Vstring {

  short length;

  char body[NAM$C_MAXRSS+1];

};

/* VMS typeahead-ask struct */

struct typahdask {

    short typcnt;       /* chars in buffer */

    char firstChar;     /* first character */

    char reserve1;      /* secret */

    long reserve2;      /* secret */

};

/* VMS I/O status block */

struct IOSB {

  short status, count;

  long devinfo;

};

/* VMS Item List 3 structure */

struct itm$list3 {

  short buflen;

  short itemcode;

  void *buffer;

  size_t *retlen;

};

/* ST/X maintained per-process information */

struct procInfo {

    long  returnStatus; 

    long  pid;

    char  eventFlag;

    char  finished;

    struct procInfo *nextProc;

};

/*

 * move this to alphaIntern.h ...

 */

# if __VMS_VER < 70000000

#  define NO_PWD

# endif

# define NO_PWD_PASSWD

# define NO_PWD_GECOS

#endif /* __VMS__ */

/*

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

#  ifdef MSDOS_LIKE

#   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

#  else /* not MSDOS_like */

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

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

#  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

# endif /* not MSDOS */

# ifndef _SYS_STAT_H_INCLUDED_

#  include <sys/stat.h>

#  define _SYS_STAT_H_INCLUDED_

# endif

# ifndef _SYS_FILE_H_INCLUDED_

#  ifndef WIN32

#   include <sys/file.h>

#  endif

#  define _SYS_FILE_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

# ifndef _IOCTL_H_INCLUDED_

#  ifndef WIN32

#   include <sys/ioctl.h>

#   define _IOCTL_H_INCLUDED_

#  endif

# endif

# ifdef WIN32

/*#  define PROCESSDEBUGWIN32*/

#  define xxUSE_TimerProc

#  undef INT

#  undef Array

#  undef Number

#  undef Method

#  undef Point

#  undef Rectangle

#  undef Block

#  undef String

#  undef Message

#  undef Object

#  undef Context

/* #  include <windows.h> /* */

#  include <stdarg.h> /* */

#  include <windef.h> /* */

#  include <winbase.h> /* */

#  include <wingdi.h> /* */

#  include <winuser.h> /* */

#  include <winsock.h> /* */

#  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

#  define INT int

#  define stat _stat

#  define WIN32_ERR(x)  ((x) | 0x01000000)      /* tag GetLastError codes */

						/* as opposed to Posix errors */

typedef int (*intf)(int);

BOOL __signalUserInterruptWIN32(DWORD sig);

# endif /* WIN32 */

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

# if defined(HAS_UNAME)

#  include <sys/utsname.h>

# endif

# if defined(SYSV4)

#  include <stropts.h>

# endif

/*

 * NeXT has no pid_t

 * and no sigemptyset