Initial import of the CDE 2.1.30 sources from the Open Group.

cde/programs/dtksh/ksh93/src/lib/libast/features/fs

@@ -0,0 +1,175 @@
+mac	_STAT_VER,fstat,lstat,stat,_MKNOD_VER,mknod sys/types.h sys/stat.h
+cat{
+	#if defined(__uxp__)
+	#include <sys/types.h>
+	#include <sys/mkdev.h>
+	#endif
+	#ifndef _def_param_lcl
+	#ifndef S_ISUID
+	#if !defined(_AST_H) && !defined(_TM_H)
+	#include <sys/types.h>
+	#endif
+	#if defined(__STDPP__directive) && defined(__STDPP__hide)
+	#if !_mac__MKNOD_VER && !_mac_mknod
+	__STDPP__directive pragma pp:hide mknod
+	#endif
+	#if !_mac__STAT_VER && !_mac_fstat
+	__STDPP__directive pragma pp:hide fstat
+	#endif
+	#if !_mac__STAT_VER && !_mac_lstat
+	__STDPP__directive pragma pp:hide lstat
+	#endif
+	__STDPP__directive pragma pp:hide chmod mkdir mkfifo umask SF_APPEND
+	#else
+	#if !_mac__MKNOD_VER && !_mac_mknod
+	#define mknod ______mknod
+	#endif
+	#if !_mac__STAT_VER && !_mac_fstat
+	#define fstat ______fstat
+	#endif
+	#if !_mac__STAT_VER && !_mac_lstat
+	#define lstat ______lstat
+	#endif
+	#define chmod ______chmod
+	#define mkdir ______mkdir
+	#define mkfifo ______mkfifo
+	#define umask ______umask
+	#undef	SF_APPEND
+	#endif
+	#include <sys/stat.h>
+	#if defined(__STDPP__directive) && defined(__STDPP__hide)
+	#if !_mac__MKNOD_VER && !_mac_mknod
+	__STDPP__directive pragma pp:nohide mknod
+	#endif
+	#if !_mac__STAT_VER && !_mac_fstat
+	__STDPP__directive pragma pp:nohide fstat
+	#endif
+	#if !_mac__STAT_VER && !_mac_lstat
+	__STDPP__directive pragma pp:nohide lstat
+	#endif
+	__STDPP__directive pragma pp:nohide chmod mkdir mkfifo umask SF_APPEND
+	#else
+	#if !_mac__MKNOD_VER && !_mac_mknod
+	#undef	mknod
+	#endif
+	#if !_mac__STAT_VER && !_mac_fstat
+	#undef	fstat
+	#endif
+	#if !_mac__STAT_VER && !_mac_lstat
+	#undef	lstat
+	#endif
+	#undef	chmod
+	#undef	mkdir
+	#undef	mkfifo
+	#undef	umask
+	#undef	SF_APPEND
+	#define SF_APPEND	_SF_APPEND
+	#endif
+	#endif
+	#endif
+	#define FS_default	"ufs"
+}end
+macro{
+	#include <sys/types.h>
+	#include <sys/stat.h>
+	#if defined(__uxp__)
+	#include <sys/mkdev.h>
+	#endif
+	#ifndef major
+	#include <sys/param.h>
+	#ifndef major
+	#include <sys/sysmacros.h>
+	#endif
+	<<"#if defined(__STDPP__directive) && defined(__STDPP__initial)">>
+	<<"__STDPP__directive pragma pp:initial">>
+	<<"#endif">>
+	<<"#ifndef major">>
+	#ifdef major
+	<<"#define major(x)">> major((x))
+	#else
+	<<"#define major(x)">> ((int)(((unsigned)(x)>>8)&0377))
+	#endif
+	<<"#endif">>
+	<<"#ifndef minor">>
+	#ifdef minor
+	<<"#define minor(x)">> minor((x))
+	#else
+	<<"#define minor(x)">> ((int)((x)&0377))
+	#endif
+	<<"#endif">>
+	<<"#ifndef makedev">>
+	#ifdef makedev
+	<<"#define makedev(x,y)">> makedev((x),(y))
+	#else
+	<<"#define makedev(x,y)">> ((dev_t)((((x)&0377)<<8)|((y)&0377)))
+	#endif
+	<<"#endif">>
+	#endif
+	<<"#if defined(__STDPP__directive) && defined(__STDPP__initial)">>
+	<<"__STDPP__directive pragma pp:noinitial">>
+	<<"#endif">>
+}end fail{
+	cat <<!
+	#ifndef major
+	#define major(x)	((int)(((unsigned)(x)>>8)&0377))
+	#endif
+	#ifndef minor
+	#define minor(x)	((int)((x)&0377))
+	#endif
+	#ifndef makedev
+	#define makedev(x,y)	((dev_t)((((x)&0377)<<8)|((y)&0377)))
+	#endif
+	!
+}end
+mem	stat.st_blocks,stat.st_blksize,stat.st_rdev sys/types.h sys/stat.h
+mem	statfs.f_files,statfs.f_bavail sys/types.h - sys/statfs.h - sys/vfs.h - sys/mount.h
+hdr	mntent,mnttab
+lib	getmntent,statfs,statvfs
+sys	mount,statfs,statvfs,vfs
+lib	statfs4 sys/types.h - sys/statfs.h - sys/vfs.h - sys/mount.h compile{
+	int f()
+	{
+		struct statfs fs;
+		return statfs("/",&fs,sizeof(fs),0);
+	}
+}end
+cat{
+	#if _sys_statvfs
+	#include <sys/statvfs.h>
+	#else
+	struct statvfs
+	{
+	unsigned long	f_bsize;	/* fundamental file system block size */
+	unsigned long	f_frsize;	/* fragment size */
+	unsigned long	f_blocks;	/* total # of blocks of f_frsize on fs */
+	unsigned long	f_bfree;	/* total # of free blocks of f_frsize */
+	unsigned long	f_bavail;	/* # of free blocks avail to non-superuser */
+	unsigned long	f_files;	/* total # of file nodes (inodes) */
+	unsigned long	f_ffree;	/* total # of free file nodes */
+	unsigned long	f_favail;	/* # of free nodes avail to non-superuser */
+	unsigned long	f_fsid;		/* file system id (dev for now) */
+	char		f_basetype[16]; /* target fs type name, null-terminated */
+	unsigned long	f_flag;		/* bit-mask of flags */
+	unsigned long	f_namemax;	/* maximum file name length */
+	char		f_fstr[32];	/* filesystem-specific string */
+	unsigned long	f_filler[16];	/* reserved for future expansion */
+	};
+	extern int	fstatvfs(int, struct statvfs*);
+	extern int	statvfs(const char*, struct statvfs*);
+	#endif
+}end
+str	st_fstype sys/types.h sys/stat.h note{ stat.st_fstype is a string }end compile{
+	int f(st){struct stat* st;return st->st_fstype[0];}
+}end
+int	st_fstype sys/types.h sys/stat.h note{ stat.st_fstype is an int }end compile{
+	int f(st){struct stat* st;return st->st_fstype = 1;}
+}end
+int	st_spare1 sys/types.h sys/stat.h note{ stat.st_spare1 is an int }end compile{
+	int f(st){struct stat* st;return st->st_spare1 = 1;}
+}end
+ary	st_spare4 sys/types.h sys/stat.h note{ stat.st_spare4 is an array }end compile{
+	int f(st){struct stat* st;return st->st_spare4[0] = 1;}
+}end
+ary	st_pad4 sys/types.h sys/stat.h note{ stat.st_pad4 is an array }end compile{
+	int f(st){struct stat* st;return st->st_pad4[0] = 1;}
+}end