[micropolis] / 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
6a5fa4e0 MG	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;
f764718e	104	//extern int sys_nerr;
6a5fa4e0 MG	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 */