"

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

	instanceVariableNames:''

	classVariableNames:'HostName DomainName CurrentDirectory'

	poolDictionaries:''

	category:'OS-Windows'

!

Object subclass:#FileStatusInfo

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

		alternativeName recordFormatNumeric recordFormat recordAttributes

		fixedHeaderSize recordSize'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

Object subclass:#OSProcessStatus

	instanceVariableNames:'pid status code core'

	classVariableNames:''

	poolDictionaries:''

	privateIn:Win32OperatingSystem

!

!Win32OperatingSystem primitiveDefinitions!

%{

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

/*

 * 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

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

/*

 * 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

/*

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

%{

/*

 * 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

 * Win32OperatingSystem>>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)

#else

# define __wait wait

#endif /* WANT_SYSTEM */

/*

 * some systems do not have realpath();

 * the alternative of reading from a 'pwp'-pipe

 * is way too slow. Here is a realpath for the rest of us.

 * define WANT_REALPATH in the xxxIntern-file to get it.

 */

#if defined(HAS_REALPATH)

# undef WANT_REALPATH

#endif

#if !defined(HAS_GETWD) && !defined(HAS_GETCWD)

# undef WANT_REALPATH

#endif

#if defined(WANT_REALPATH)

# ifndef NULL

#  define NULL (char *)0

# endif

# define MAX_READLINKS 32

# ifndef MAXPATHLEN

#  define MAXPATHLEN     1024

# endif

static

char *realpath(path, resolved_path)

char *path;

char resolved_path [];

{

	char copy_path[MAXPATHLEN];

	char link_path[MAXPATHLEN];

	char *new_path = resolved_path;

	char *max_path;

	int readlinks = 0;

	int n;

	/* Make a copy of the source path since we may need to modify it. */

	strcpy(copy_path, path);

	path = copy_path;

	max_path = copy_path + MAXPATHLEN - 2;

	/* If it's a relative pathname use getwd for starters. */

	if (*path != '/') {

#ifdef HAS_GETCWD

		new_path = getcwd(new_path, MAXPATHLEN - 1);

#else

		new_path = getwd(new_path);

#endif

		if (new_path == NULL) 

		    return(NULL);

		new_path += strlen(new_path);

		if (new_path[-1] != '/')

			*new_path++ = '/';

	}

	else {

		*new_path++ = '/';

		path++;

	}

	/* Expand each slash-separated pathname component. */

	while (*path != '\0') {

		/* Ignore stray "/". */

		if (*path == '/') {

			path++;

			continue;

		}

		if (*path == '.') {

			/* Ignore ".". */

			if (path[1] == '\0' || path[1] == '/') {

				path++;

				continue;

			}

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

				if (path[2] == '\0' || path[2] == '/') {

					path += 2;

					/* Ignore ".." at root. */

					if (new_path == resolved_path + 1)

						continue;

					/* Handle ".." by backing up. */

					while ((--new_path)[-1] != '/')

						;

					continue;

				}

			}

		}

		/* Safely copy the next pathname component. */

		while (*path != '\0' && *path != '/') {

			if (path > max_path) {

				errno = ENAMETOOLONG;

				return NULL;

			}

			*new_path++ = *path++;

		}

#ifdef S_IFLNK

		/* Protect against infinite loops. */

		if (readlinks++ > MAX_READLINKS) {

			errno = ELOOP;

			return NULL;

		}

		/* See if latest pathname component is a symlink. */

		*new_path = '\0';

		n = readlink(resolved_path, link_path, MAXPATHLEN - 1);

		if (n < 0) {

			/* EINVAL means the file exists but isn't a symlink. */

			if (errno != EINVAL)

				return NULL;

		}

		else {

			/* Note: readlink doesn't add the null byte. */

			link_path[n] = '\0';

			if (*link_path == '/')

				/* Start over for an absolute symlink. */

				new_path = resolved_path;

			else

				/* Otherwise back up over this component. */

				while (*(--new_path) != '/')

					;

			/* Safe sex check. */

			if (strlen(path) + n >= MAXPATHLEN) {

				errno = ENAMETOOLONG;

				return NULL;

			}

			/* Insert symlink contents into path. */

			strcat(link_path, path);

			strcpy(copy_path, link_path);

			path = copy_path;

		}

#endif /* S_IFLNK */

		*new_path++ = '/';

	}

	/* Delete trailing slash but don't whomp a lone slash. */

	if (new_path != resolved_path + 1 && new_path[-1] == '/')

		new_path--;

	/* Make sure it's null terminated. */

	*new_path = '\0';

	return resolved_path;

}

# define HAS_REALPATH

#endif /* WANT_REALPATH && not HAS_REALPATH */

%}

! !

!Win32OperatingSystem 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.

"

!

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

    [see also:]

	OSProcessStatus

	Filename Date Time

	ExternalStream FileStream PipeStream Socket

"

!

examples

"

  various queries

								[exBegin]

    Transcript 

	showCR:'hello ' , (Win32OperatingSystem getLoginName)

								[exEnd]

								[exBegin]

    Win32OperatingSystem isUNIXlike ifTrue:[

	Transcript showCR:'this is some UNIX-like OS'

    ] ifFalse:[

	Transcript showCR:'this OS is not UNIX-like'

    ]

								[exEnd]