git.zerfleddert.de Git - micropolis/blame_incremental - src/tcl/tclunix.h

/*
 * tclUnix.h --
 *
 *	This file reads in UNIX-related header files and sets up
 *	UNIX-related macros for Tcl's UNIX core.  It should be the
 *	only file that contains #ifdefs to handle different flavors
 *	of UNIX.  This file sets up the union of all UNIX-related
 *	things needed by any of the Tcl core files.  This file
 *	depends on configuration #defines in tclConfig.h
 *
 *	The material in this file was originally contributed by
 *	Karl Lehenbauer, Mark Diekhans and Peter da Silva.
 *
 * Copyright 1991 Regents of the University of California
 * Permission to use, copy, modify, and distribute this
 * software and its documentation for any purpose and without
 * fee is hereby granted, provided that this copyright
 * notice appears in all copies.  The University of California
 * makes no representations about the suitability of this
 * software for any purpose.  It is provided "as is" without
 * express or implied warranty.
 *
 * $Header: /user6/ouster/tcl/RCS/tclUnix.h,v 1.26 92/08/03 08:27:43 ouster Exp $ SPRITE (Berkeley)
 */

#ifndef _TCLUNIX
#define _TCLUNIX

/*
 * The following #defines are used to distinguish between different
 * UNIX systems.  These #defines are normally set by the "config" script
 * based on information it gets by looking in the include and library
 * areas.  The defaults below are for BSD-based systems like SunOS
 * or Ultrix.
 *
 * TCL_GETTOD -			1 means there exists a library procedure
 *				"gettimeofday" (e.g. BSD systems).  0 means
 *				have to use "times" instead.
 * TCL_GETWD -			1 means there exists a library procedure
 *				"getwd" (e.g. BSD systems).  0 means
 *				have to use "getcwd" instead.
 * TCL_SYS_ERRLIST -		1 means that the array sys_errlist is
 *				defined as part of the C library.
 * TCL_SYS_TIME_H -		1 means there exists an include file
 *				<sys/time.h> (e.g. BSD derivatives).
 * TCL_SYS_WAIT_H -		1 means there exists an include file
 *				<sys/wait.h> that defines constants related
 *				to the results of "wait".
 * TCL_UNION_WAIT -		1 means that the "wait" system call returns
 *				a structure of type "union wait" (e.g. BSD
 *				systems).  0 means "wait" returns an int
 *				(e.g. System V and POSIX).
 * TCL_PID_T -			1 means that <sys/types> defines the type
 *				pid_t.  0 means that it doesn't.
 * TCL_UID_T -			1 means that <sys/types> defines the type
 *				uid_t.  0 means that it doesn't.
 */

#define TCL_GETTOD 1
#define TCL_GETWD 0
#define TCL_SYS_ERRLIST 1
#define TCL_SYS_TIME_H 1
#define TCL_SYS_WAIT_H 1
#define TCL_UNION_WAIT 0

#ifdef IS_LINUX

#define TCL_PID_T 1
#define TCL_UID_T 1

#else

#define TCL_PID_T 0
#define TCL_UID_T 0

#endif

#include <errno.h>
#include <fcntl.h>
#include <limits.h>
#include <pwd.h>
#include <signal.h>
#include <sys/param.h>
#include <sys/types.h>
#include <dirent.h>
#include <sys/file.h>
#include <sys/stat.h>
#if TCL_SYS_TIME_H
#   include <sys/time.h>
#else
#   include <time.h>
#endif
#if TCL_SYS_WAIT_H
#   include <sys/wait.h>
#endif

/*
 * Not all systems declare the errno variable in errno.h. so this
 * file does it explicitly.  The list of system error messages also
 * isn't generally declared in a header file anywhere.
 */

extern int errno;
//extern int sys_nerr;
//#ifndef IS_LINUX
//extern char *sys_errlist[];
//#endif

/*
 * The type of the status returned by wait varies from UNIX system
 * to UNIX system.  The macro below defines it:
 */

#if TCL_UNION_WAIT
#   define WAIT_STATUS_TYPE union wait
#else
#   define WAIT_STATUS_TYPE int
#endif

/*
 * Supply definitions for macros to query wait status, if not already
 * defined in header files above.
 */

#ifndef WIFEXITED
#   define WIFEXITED(stat)  (((*((int *) &(stat))) & 0xff) == 0)
#endif

#ifndef WEXITSTATUS
#   define WEXITSTATUS(stat) (((*((int *) &(stat))) >> 8) & 0xff)
#endif

#ifndef WIFSIGNALED
#   define WIFSIGNALED(stat) (((*((int *) &(stat)))) && ((*((int *) &(stat))) == ((*((int *) &(stat))) & 0x00ff)))
#endif

#ifndef WTERMSIG
#   define WTERMSIG(stat)    ((*((int *) &(stat))) & 0x7f)
#endif

#ifndef WIFSTOPPED
#   define WIFSTOPPED(stat)  (((*((int *) &(stat))) & 0xff) == 0177)
#endif

#ifndef WSTOPSIG
#   define WSTOPSIG(stat)    (((*((int *) &(stat))) >> 8) & 0xff)
#endif

/*
 * Supply macros for seek offsets, if they're not already provided by
 * an include file.
 */

#ifndef SEEK_SET
#   define SEEK_SET 0
#endif

#ifndef SEEK_CUR
#   define SEEK_CUR 1
#endif

#ifndef SEEK_END
#   define SEEK_END 2
#endif

/*
 * The stuff below is needed by the "time" command.  If this
 * system has no gettimeofday call, then must use times and the
 * CLK_TCK #define (from sys/param.h) to compute elapsed time.
 * Unfortunately, some systems only have HZ and no CLK_TCK, and
 * some might not even have HZ.
 */

#if ! TCL_GETTOD
#   include <sys/times.h>
#   include <sys/param.h>
#   ifndef CLK_TCK
#       ifdef HZ
#           define CLK_TCK HZ
#       else
#           define CLK_TCK 60
#       endif
#   endif
#endif

/*
 * Define access mode constants if they aren't already defined.
 */

#ifndef F_OK
#    define F_OK 00
#endif
#ifndef X_OK
#    define X_OK 01
#endif
#ifndef W_OK
#    define W_OK 02
#endif
#ifndef R_OK
#    define R_OK 04
#endif

/*
 * On systems without symbolic links (i.e. S_IFLNK isn't defined)
 * define "lstat" to use "stat" instead.
 */

#ifndef S_IFLNK
#   define lstat stat
#endif

/*
 * Define macros to query file type bits, if they're not already
 * defined.
 */

#ifndef S_ISREG
#   ifdef S_IFREG
#       define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)
#   else
#       define S_ISREG(m) 0
#   endif
# endif
#ifndef S_ISDIR
#   ifdef S_IFDIR
#       define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
#   else
#       define S_ISDIR(m) 0
#   endif
# endif
#ifndef S_ISCHR
#   ifdef S_IFCHR
#       define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR)
#   else
#       define S_ISCHR(m) 0
#   endif
# endif
#ifndef S_ISBLK
#   ifdef S_IFBLK
#       define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK)
#   else
#       define S_ISBLK(m) 0
#   endif
# endif
#ifndef S_ISFIFO
#   ifdef S_IFIFO
#       define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO)
#   else
#       define S_ISFIFO(m) 0
#   endif
# endif
#ifndef S_ISLNK
#   ifdef S_IFLNK
#       define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK)
#   else
#       define S_ISLNK(m) 0
#   endif
# endif
#ifndef S_ISSOCK
#   ifdef S_IFSOCK
#       define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK)
#   else
#       define S_ISSOCK(m) 0
#   endif
# endif

/*
 * Make sure that MAXPATHLEN is defined.
 */

#ifndef MAXPATHLEN
#   ifdef PATH_MAX
#       define MAXPATHLEN PATH_MAX
#   else
#       define MAXPATHLEN 2048
#   endif
#endif

/*
 * Define pid_t and uid_t if they're not already defined.
 */

#if ! TCL_PID_T
#   define pid_t int
#endif
#if ! TCL_UID_T
#   define uid_t int
#endif

/*
 * Variables provided by the C library:
 */

extern char **environ;

/*
 * Library procedures used by Tcl but not declared in a header file:
 */

#if 0
#ifndef _CRAY
extern int	access	   _ANSI_ARGS_((CONST char *path, int mode));
extern int	chdir	   _ANSI_ARGS_((CONST char *path));
extern int	close	   _ANSI_ARGS_((int fd));
extern int	dup2	   _ANSI_ARGS_((int src, int dst));
extern int	execvp	   _ANSI_ARGS_((CONST char *name, char **argv));
extern void	_exit 	   _ANSI_ARGS_((int status));
extern pid_t	fork	   _ANSI_ARGS_((void));
extern uid_t	geteuid	   _ANSI_ARGS_((void));
extern pid_t	getpid	   _ANSI_ARGS_((void));
extern char *	getcwd 	   _ANSI_ARGS_((char *buffer, int size));
extern char *	getwd  	   _ANSI_ARGS_((char *buffer));
extern int	kill	   _ANSI_ARGS_((pid_t pid, int sig));
extern long	lseek	   _ANSI_ARGS_((int fd, int offset, int whence));
extern char *	mktemp	   _ANSI_ARGS_((char *template));
extern int	open	   _ANSI_ARGS_((CONST char *path, int flags, ...));
extern int	pipe	   _ANSI_ARGS_((int *fdPtr));
extern int	read	   _ANSI_ARGS_((int fd, char *buf, int numBytes));
extern int	readlink   _ANSI_ARGS_((CONST char *path, char *buf, int size));
extern int	unlink 	   _ANSI_ARGS_((CONST char *path));
extern int	write	   _ANSI_ARGS_((int fd, char *buf, int numBytes));
#endif /* _CRAY */
#endif

#endif /* _TCLUNIX */
Commit	Line	Data
	1	/*
	2	* tclUnix.h --
	3	*
	4	* This file reads in UNIX-related header files and sets up
	5	* UNIX-related macros for Tcl's UNIX core. It should be the
	6	* only file that contains #ifdefs to handle different flavors
	7	* of UNIX. This file sets up the union of all UNIX-related
	8	* things needed by any of the Tcl core files. This file
	9	* depends on configuration #defines in tclConfig.h
	10	*
	11	* The material in this file was originally contributed by
	12	* Karl Lehenbauer, Mark Diekhans and Peter da Silva.
	13	*
	14	* Copyright 1991 Regents of the University of California
	15	* Permission to use, copy, modify, and distribute this
	16	* software and its documentation for any purpose and without
	17	* fee is hereby granted, provided that this copyright
	18	* notice appears in all copies. The University of California
	19	* makes no representations about the suitability of this
	20	* software for any purpose. It is provided "as is" without
	21	* express or implied warranty.
	22	*
	23	* $Header: /user6/ouster/tcl/RCS/tclUnix.h,v 1.26 92/08/03 08:27:43 ouster Exp $ SPRITE (Berkeley)
	24	*/
	25
	26	#ifndef _TCLUNIX
	27	#define _TCLUNIX
	28
	29	/*
	30	* The following #defines are used to distinguish between different
	31	* UNIX systems. These #defines are normally set by the "config" script
	32	* based on information it gets by looking in the include and library
	33	* areas. The defaults below are for BSD-based systems like SunOS
	34	* or Ultrix.
	35	*
	36	* TCL_GETTOD - 1 means there exists a library procedure
	37	* "gettimeofday" (e.g. BSD systems). 0 means
	38	* have to use "times" instead.
	39	* TCL_GETWD - 1 means there exists a library procedure
	40	* "getwd" (e.g. BSD systems). 0 means
	41	* have to use "getcwd" instead.
	42	* TCL_SYS_ERRLIST - 1 means that the array sys_errlist is
	43	* defined as part of the C library.
	44	* TCL_SYS_TIME_H - 1 means there exists an include file
	45	* <sys/time.h> (e.g. BSD derivatives).
	46	* TCL_SYS_WAIT_H - 1 means there exists an include file
	47	* <sys/wait.h> that defines constants related
	48	* to the results of "wait".
	49	* TCL_UNION_WAIT - 1 means that the "wait" system call returns
	50	* a structure of type "union wait" (e.g. BSD
	51	* systems). 0 means "wait" returns an int
	52	* (e.g. System V and POSIX).
	53	* TCL_PID_T - 1 means that <sys/types> defines the type
	54	* pid_t. 0 means that it doesn't.
	55	* TCL_UID_T - 1 means that <sys/types> defines the type
	56	* uid_t. 0 means that it doesn't.
	57	*/
	58
	59	#define TCL_GETTOD 1
	60	#define TCL_GETWD 0
	61	#define TCL_SYS_ERRLIST 1
	62	#define TCL_SYS_TIME_H 1
	63	#define TCL_SYS_WAIT_H 1
	64	#define TCL_UNION_WAIT 0
	65
	66	#ifdef IS_LINUX
	67
	68	#define TCL_PID_T 1
	69	#define TCL_UID_T 1
	70
	71	#else
	72
	73	#define TCL_PID_T 0
	74	#define TCL_UID_T 0
	75
	76	#endif
	77
	78	#include <errno.h>
	79	#include <fcntl.h>
	80	#include <limits.h>
	81	#include <pwd.h>
	82	#include <signal.h>
	83	#include <sys/param.h>
	84	#include <sys/types.h>
	85	#include <dirent.h>
	86	#include <sys/file.h>
	87	#include <sys/stat.h>
	88	#if TCL_SYS_TIME_H
	89	# include <sys/time.h>
	90	#else
	91	# include <time.h>
	92	#endif
	93	#if TCL_SYS_WAIT_H
	94	# include <sys/wait.h>
	95	#endif
	96
	97	/*
	98	* Not all systems declare the errno variable in errno.h. so this
	99	* file does it explicitly. The list of system error messages also
	100	* isn't generally declared in a header file anywhere.
	101	*/
	102
	103	extern int errno;
	104	//extern int sys_nerr;
	105	//#ifndef IS_LINUX
	106	//extern char *sys_errlist[];
	107	//#endif
	108
	109	/*
	110	* The type of the status returned by wait varies from UNIX system
	111	* to UNIX system. The macro below defines it:
	112	*/
	113
	114	#if TCL_UNION_WAIT
	115	# define WAIT_STATUS_TYPE union wait
	116	#else
	117	# define WAIT_STATUS_TYPE int
	118	#endif
	119
	120	/*
	121	* Supply definitions for macros to query wait status, if not already
	122	* defined in header files above.
	123	*/
	124
	125	#ifndef WIFEXITED
	126	# define WIFEXITED(stat) (((((int ) &(stat))) & 0xff) == 0)
	127	#endif
	128
	129	#ifndef WEXITSTATUS
	130	# define WEXITSTATUS(stat) (((((int ) &(stat))) >> 8) & 0xff)
	131	#endif
	132
	133	#ifndef WIFSIGNALED
	134	# define WIFSIGNALED(stat) (((((int ) &(stat)))) && ((((int ) &(stat))) == ((((int ) &(stat))) & 0x00ff)))
	135	#endif
	136
	137	#ifndef WTERMSIG
	138	# define WTERMSIG(stat) ((((int ) &(stat))) & 0x7f)
	139	#endif
	140
	141	#ifndef WIFSTOPPED
	142	# define WIFSTOPPED(stat) (((((int ) &(stat))) & 0xff) == 0177)
	143	#endif
	144
	145	#ifndef WSTOPSIG
	146	# define WSTOPSIG(stat) (((((int ) &(stat))) >> 8) & 0xff)
	147	#endif
	148
	149	/*
	150	* Supply macros for seek offsets, if they're not already provided by
	151	* an include file.
	152	*/
	153
	154	#ifndef SEEK_SET
	155	# define SEEK_SET 0
	156	#endif
	157
	158	#ifndef SEEK_CUR
	159	# define SEEK_CUR 1
	160	#endif
	161
	162	#ifndef SEEK_END
	163	# define SEEK_END 2
	164	#endif
	165
	166	/*
	167	* The stuff below is needed by the "time" command. If this
	168	* system has no gettimeofday call, then must use times and the
	169	* CLK_TCK #define (from sys/param.h) to compute elapsed time.
	170	* Unfortunately, some systems only have HZ and no CLK_TCK, and
	171	* some might not even have HZ.
	172	*/
	173
	174	#if ! TCL_GETTOD
	175	# include <sys/times.h>
	176	# include <sys/param.h>
	177	# ifndef CLK_TCK
	178	# ifdef HZ
	179	# define CLK_TCK HZ
	180	# else
	181	# define CLK_TCK 60
	182	# endif
	183	# endif
	184	#endif
	185
	186	/*
	187	* Define access mode constants if they aren't already defined.
	188	*/
	189
	190	#ifndef F_OK
	191	# define F_OK 00
	192	#endif
	193	#ifndef X_OK
	194	# define X_OK 01
	195	#endif
	196	#ifndef W_OK
	197	# define W_OK 02
	198	#endif
	199	#ifndef R_OK
	200	# define R_OK 04
	201	#endif
	202
	203	/*
	204	* On systems without symbolic links (i.e. S_IFLNK isn't defined)
	205	* define "lstat" to use "stat" instead.
	206	*/
	207
	208	#ifndef S_IFLNK
	209	# define lstat stat
	210	#endif
	211
	212	/*
	213	* Define macros to query file type bits, if they're not already
	214	* defined.
	215	*/
	216
	217	#ifndef S_ISREG
	218	# ifdef S_IFREG
	219	# define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)
	220	# else
	221	# define S_ISREG(m) 0
	222	# endif
	223	# endif
	224	#ifndef S_ISDIR
	225	# ifdef S_IFDIR
	226	# define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
	227	# else
	228	# define S_ISDIR(m) 0
	229	# endif
	230	# endif
	231	#ifndef S_ISCHR
	232	# ifdef S_IFCHR
	233	# define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR)
	234	# else
	235	# define S_ISCHR(m) 0
	236	# endif
	237	# endif
	238	#ifndef S_ISBLK
	239	# ifdef S_IFBLK
	240	# define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK)
	241	# else
	242	# define S_ISBLK(m) 0
	243	# endif
	244	# endif
	245	#ifndef S_ISFIFO
	246	# ifdef S_IFIFO
	247	# define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO)
	248	# else
	249	# define S_ISFIFO(m) 0
	250	# endif
	251	# endif
	252	#ifndef S_ISLNK
	253	# ifdef S_IFLNK
	254	# define S_ISLNK(m) (((m) & S_IFMT) == S_IFLNK)
	255	# else
	256	# define S_ISLNK(m) 0
	257	# endif
	258	# endif
	259	#ifndef S_ISSOCK
	260	# ifdef S_IFSOCK
	261	# define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK)
	262	# else
	263	# define S_ISSOCK(m) 0
	264	# endif
	265	# endif
	266
	267	/*
	268	* Make sure that MAXPATHLEN is defined.
	269	*/
	270
	271	#ifndef MAXPATHLEN
	272	# ifdef PATH_MAX
	273	# define MAXPATHLEN PATH_MAX
	274	# else
	275	# define MAXPATHLEN 2048
	276	# endif
	277	#endif
	278
	279	/*
	280	* Define pid_t and uid_t if they're not already defined.
	281	*/
	282
	283	#if ! TCL_PID_T
	284	# define pid_t int
	285	#endif
	286	#if ! TCL_UID_T
	287	# define uid_t int
	288	#endif
	289
	290	/*
	291	* Variables provided by the C library:
	292	*/
	293
	294	extern char **environ;
	295
	296	/*
	297	* Library procedures used by Tcl but not declared in a header file:
	298	*/
	299
	300	#if 0
	301	#ifndef _CRAY
	302	extern int access _ANSI_ARGS_((CONST char *path, int mode));
	303	extern int chdir _ANSI_ARGS_((CONST char *path));
	304	extern int close _ANSI_ARGS_((int fd));
	305	extern int dup2 _ANSI_ARGS_((int src, int dst));
	306	extern int execvp _ANSI_ARGS_((CONST char name, char *argv));
	307	extern void _exit _ANSI_ARGS_((int status));
	308	extern pid_t fork _ANSI_ARGS_((void));
	309	extern uid_t geteuid _ANSI_ARGS_((void));
	310	extern pid_t getpid _ANSI_ARGS_((void));
	311	extern char * getcwd _ANSI_ARGS_((char *buffer, int size));
	312	extern char * getwd _ANSI_ARGS_((char *buffer));
	313	extern int kill _ANSI_ARGS_((pid_t pid, int sig));
	314	extern long lseek _ANSI_ARGS_((int fd, int offset, int whence));
	315	extern char * mktemp _ANSI_ARGS_((char *template));
	316	extern int open _ANSI_ARGS_((CONST char *path, int flags, ...));
	317	extern int pipe _ANSI_ARGS_((int *fdPtr));
	318	extern int read _ANSI_ARGS_((int fd, char *buf, int numBytes));
	319	extern int readlink _ANSI_ARGS_((CONST char path, char buf, int size));
	320	extern int unlink _ANSI_ARGS_((CONST char *path));
	321	extern int write _ANSI_ARGS_((int fd, char *buf, int numBytes));
	322	#endif /* _CRAY */
	323	#endif
	324
	325	#endif /* _TCLUNIX */