"

 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

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

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

# endif

#  endif

# endif

# ifndef _SYS_FILE_H_INCLUDED_

#  define _SYS_FILE_H_INCLUDED_

# endif

# endif

# endif

# endif

# endif

# endif

# endif

/* 

 * posix systems should define these ... 

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

 */

#  endif

# endif

# ifndef MAXPATHLEN

#   else

#   endif

#  endif

# endif

/*

 * sigaction dummies (you won't believe these call themself ``POSIX'' systems ...)

 */

/*

 * 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

/*

 * 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

#endif

%}

! !

!OpenVMSOperatingSystem primitiveVariables!

%{

#ifdef __VMS__

static struct procInfo *procInfoHead = (struct procInfo *)0;

static struct procInfo *procInfoFree = (struct procInfo *)0;

static unsigned char procEventFlag = 1;

#endif

%}

! !

!OpenVMSOperatingSystem primitiveFunctions!

%{

#ifdef __VMS__

/* #define TRACE_STAT_CALLS /* */

/* #define TRACE_ACCESS_CALLS /* */

/*

 * a stat which retries with appended '.DIR' in case of

 * failure.

 * This allows to stat a directory.

 */

int

__vms_stat__(path, buffP)

    char *path;

    struct stat *buffP;

{

	int ret;

	int retry = 0;

	char t[MAXPATHLEN+1+5+2];

# ifdef TRACE_STAT_CALLS

	printf("===> stat('%s')\n", path);

# endif

	do {

	    ret = stat(path, buffP);

	} while ((ret < 0) && (errno == EINTR));

	if (ret < 0) {

	    /*

	     * try with appended ';0';

	     * but only, if it has no version

	     */

	    if (strchr(path, ';') == NULL) {

		strncpy(t, path, MAXPATHLEN);

		t[MAXPATHLEN] = '\0';

		strcat(t, ";0");

# ifdef TRACE_STAT_CALLS

		printf("===> stat('%s') - retry\n", t);

# endif

		do {

		    ret = stat(t, buffP);

		} while ((ret < 0) && (errno == EINTR));

		if (ret >= 0) 

		    return ret;

	    }

	    /*

	     * try with appended '.DIR';

	     * but only, if it has no extension.

	     */

	    if (strchr(path, '.') == NULL) {

		strncpy(t, path, MAXPATHLEN);

		t[MAXPATHLEN] = '\0';

		strcat(t, ".DIR;0");

		retry = 1;

	    } else {

		/*

		 * try with appended 'DIR';

		 * but only, if it ends with '.'.

		 */

		if (path[strlen(path)-1] == '.') {

		    strncpy(t, path, MAXPATHLEN);

		    t[MAXPATHLEN] = '\0';

		    strcat(t, "DIR;0");

		    retry = 1;

		}

	    }

	    if (retry) {

# ifdef TRACE_STAT_CALLS

		printf("===> stat('%s') - retry\n", t);

# endif

		do {

		    ret = stat(t, buffP);

		} while ((ret < 0) && (errno == EINTR));

	    }

	}

	return ret;

}

# define stat(__path__, __buffP__)      __vms_stat__(__path__, __buffP__)

/*

 * same for access

 */

int 

__vms_access__(path, mode)

    char *path;

    int mode;

{

	int ret;

	int retry = 0;

	char t[MAXPATHLEN+1+5];

	do {

	    ret = access(path, mode);

	} while ((ret < 0) && (errno == EINTR));

	if (ret < 0) {

	    /*

	     * try with appended '.DIR';

	     * but only, if it has no extension.

	     */

	    if (strchr(path, '.') == NULL) {

		strncpy(t, path, MAXPATHLEN);

		t[MAXPATHLEN] = '\0';

		strcat(t, ".DIR");

		retry = 1;

	    } else {

		if (path[strlen(path)-1] == '.') {

		    strncpy(t, path, MAXPATHLEN);

		    t[MAXPATHLEN] = '\0';

		    strcat(t, "DIR");

		    retry = 1;

		}

	    }

	    if (retry) {

		do {

		    ret = access(t, mode);

		} while ((ret < 0) && (errno == EINTR));

	    }

	}

	return ret;

}

# define access(__path__, __mode__)     __vms_access__(__path__, __mode__)

/* #define WAITDEBUG /* */

/* #define PROCESSDEBUG /* */