#ifndef _MACPORT
#define _MACPORT
#ifndef _TCL
#include "tcl.h"
#endif
#include "tclErrno.h"
#include <float.h>
#ifdef THINK_C
# include <pascal.h>
# include <posix.h>
# include <string.h>
# include <fcntl.h>
# include <pwd.h>
# include <sys/param.h>
# include <sys/types.h>
# include <sys/stat.h>
# include <unistd.h>
#elif defined(__MWERKS__)
# include <time.h>
# include <unistd.h>
#define O_RDWR 0x0
#define O_RDONLY 0x1
#define O_WRONLY 0x2
#define O_APPEND 0x0100
#define O_CREAT 0x0200
#define O_EXCL 0x0400
#define O_TRUNC 0x0800
# include <stat.h>
# ifndef S_IFIFO
# define S_IFIFO 0x0100
# endif
# ifndef S_IFBLK
# define S_IFBLK 0x0600
# endif
# ifndef S_ISLNK
# define S_ISLNK(m) (((m)&(S_IFMT)) == (S_IFLNK))
# endif
# ifndef S_ISSOCK
# define S_ISSOCK(m) (((m)&(S_IFMT)) == (S_IFSOCK))
# endif
# ifndef S_IRWXU
# define S_IRWXU 00007
# define S_IRUSR 00004
# define S_IWUSR 00002
# define S_IXUSR 00001
# define S_IRWXG 00007
# define S_IRGRP 00004
# define S_IWGRP 00002
# define S_IXGRP 00001
# define S_IRWXO 00007
# define S_IROTH 00004
# define S_IWOTH 00002
# define S_IXOTH 00001
# endif
# define isatty(arg) 1
# define F_OK 0
# define X_OK 0x01
# define W_OK 0x02
# define R_OK 0x04
#endif
#define WNOHANG 1
#define WIFSTOPPED(stat) (1)
#define WIFSIGNALED(stat) (1)
#define WIFEXITED(stat) (1)
#define WIFSTOPSIG(stat) (1)
#define WIFTERMSIG(stat) (1)
#define WIFEXITSTATUS(stat) (1)
#define WEXITSTATUS(stat) (1)
#define WTERMSIG(status) (1)
#define WSTOPSIG(status) (1)
#ifndef NBBY
# define NBBY 8
#endif
#ifndef geteuid
# define geteuid() 1
#endif
#ifndef getpid
# define getpid() -1
#endif
#define NO_SYS_ERRLIST
#define WAIT_STATUS_TYPE int
#ifndef MAXPATHLEN
# ifdef PATH_MAX
# define MAXPATHLEN PATH_MAX
# else
# define MAXPATHLEN 2048
# endif
#endif
#define TclSetSystemEnv(a,b)
#ifndef SIGQUIT
#define SIGQUIT 300
#endif
#ifndef SIGPIPE
#define SIGPIPE 13
#endif
#ifndef SIGHUP
#define SIGHUP 100
#endif
extern char **environ;
EXTERN int TclMacCreateEnv _ANSI_ARGS_((void));
EXTERN int strncasecmp _ANSI_ARGS_((CONST char *s1,
CONST char *s2, size_t n));
EXTERN struct tm * TclpGetDate _ANSI_ARGS_((const time_t *tp,
int useGMT));
EXTERN size_t TclStrftime _ANSI_ARGS_((char *s, size_t maxsize,
const char *format, const struct tm *t));
#define tzset()
#define TclpGetPid(pid) ((unsigned long) (pid))
#define lstat(path, bufPtr) TclStat(path, bufPtr)
EXTERN FILE * TclMacFOpenHack _ANSI_ARGS_((const char *path,
const char *mode));
#define fopen(path, mode) TclMacFOpenHack(path, mode)
EXTERN int TclMacReadlink _ANSI_ARGS_((char *path, char *buf, int size));
#define readlink(fileName, buffer, size) TclMacReadlink(fileName, buffer, size)
#ifdef TCL_TEST
#define chmod(path, mode) TclMacChmod(path, mode)
EXTERN int TclMacChmod(char *path, int mode);
#endif
#define TclCreateCommandChannel(out, in, err, num, pidPtr) NULL
#define TclClosePipeFile(x)
#ifndef putenv
# define unsetenv TclUnsetEnv
# define putenv Tcl_PutEnv
# define setenv TclSetEnv
void TclSetEnv(CONST char *name, CONST char *value);
int Tcl_PutEnv(CONST char *string);
void TclUnsetEnv(CONST char *name);
#endif
#define TCL_PLATFORM_TRANSLATION TCL_TRANSLATE_CR
#define TCL_SHLIB_EXT ".shlb"
#define TclpFinalize()
EXTERN int TclpSameFile _ANSI_ARGS_((char *file1, char *file2,
struct stat *sourceStatBufPtr,
struct stat *destStatBufPtr)) ;
EXTERN int TclpStat _ANSI_ARGS_ ((CONST char *path, struct stat *buf));
EXTERN int TclpAccess _ANSI_ARGS_ ((CONST char *path, int mode));
#endif