Imported Upstream version 4.88upstream/4.88

1 files changed, 302 insertions, 0 deletions

diff --git a/dialects/aix/dmnt.c b/dialects/aix/dmnt.c
new file mode 100644
index 0000000..ef1d61c
--- /dev/null
+++ b/dialects/aix/dmnt.c
@@ -0,0 +1,302 @@
+/*
+ * dmnt.c - AIX mount support functions for lsof
+ */
+
+
+/*
+ * Copyright 1994 Purdue Research Foundation, West Lafayette, Indiana
+ * 47907.  All rights reserved.
+ *
+ * Written by Victor A. Abell
+ *
+ * This software is not subject to any license of the American Telephone
+ * and Telegraph Company or the Regents of the University of California.
+ *
+ * Permission is granted to anyone to use this software for any purpose on
+ * any computer system, and to alter it and redistribute it freely, subject
+ * to the following restrictions:
+ *
+ * 1. Neither the authors nor Purdue University are responsible for any
+ *    consequences of the use of this software.
+ *
+ * 2. The origin of this software must not be misrepresented, either by
+ *    explicit claim or by omission.  Credit to the authors and Purdue
+ *    University must appear in documentation and sources.
+ *
+ * 3. Altered versions must be plainly marked as such, and must not be
+ *    misrepresented as being the original software.
+ *
+ * 4. This notice may not be removed or altered.
+ */
+
+#ifndef lint
+static char copyright[] =
+"@(#) Copyright 1994 Purdue Research Foundation.\nAll rights reserved.\n";
+static char *rcsid = "$Id: dmnt.c,v 1.13 2005/08/08 19:46:38 abe Exp $";
+#endif
+
+
+#include "lsof.h"
+
+
+/*
+ * Local static definitions
+ */
+
+static struct mounts *Lmi = (struct mounts *)NULL;	/* local mount info */
+static int Lmist = 0;					/* Lmi status */
+
+
+/*
+ * readmnt() - read mount table
+ */
+
+struct mounts *
+readmnt()
+{
+	char *dir, *fs, *h, *ln, *ty;
+	char *dn = (char *)NULL;
+	struct mounts *mtp;
+	int nm;
+	struct stat sb;
+	MALLOC_S sz;
+	struct vmount *v;
+	struct vmount *vt = (struct vmount *)NULL;
+
+	if (Lmi || Lmist)
+	    return(Lmi);
+/*
+ * Read the table of vmount structures.
+ */
+	for (sz = sizeof(struct vmount);;) {
+	    if (!(vt = (struct vmount *)malloc(sz))) {
+		(void) fprintf(stderr, "%s: no space for vmount table\n", Pn);
+		return(0);
+	    }
+	    nm = mntctl(MCTL_QUERY, sz, (unsigned char *)vt);
+	    if (nm > 0) {
+		if (vt->vmt_revision != VMT_REVISION) {
+		    (void) fprintf(stderr,
+			"%s: stale file system, rev %d != %d\n",
+			Pn, vt->vmt_revision, VMT_REVISION);
+		    return(0);
+		}
+		break;
+	    }
+	    if (nm == 0) {
+		sz = (unsigned)vt->vmt_revision;
+		(void) free((FREE_P *)vt);
+	    } else {
+		(void) fprintf(stderr, "%s: mntctl error: %s\n",
+		    Pn, strerror(errno));
+		return(0);
+	    }
+	}
+/*
+ * Scan the vmount structures and build Lmi.
+ */
+	for (v = vt; nm--; v = (struct vmount *)((char *)v + v->vmt_length)) {
+	    dir = (char *)vmt2dataptr(v, VMT_STUB);
+	    fs = (char *)vmt2dataptr(v, VMT_OBJECT);
+	    h = (char *)vmt2dataptr(v, VMT_HOST);
+            if (statsafely(dir, &sb)) {
+		if (!Fwarn) {
+
+		/*
+		 * Issue stat() failure warning.
+		 */
+		    switch(v->vmt_gfstype) {
+
+#if	defined(HAS_AFS)
+		    case MNT_AFS:
+			ty = "afs";
+			break;
+#endif	/* defined(HAS_AFS) */
+
+#if	defined(MNT_AIX) && defined(MNT_J2) && MNT_AIX==MNT_J2
+		    case MNT_AIX:
+			ty = "jfs2";
+			break;
+#else	/* !defined(MNT_AIX) || !defined(MNT_J2) || MNT_AIX!=MNT_J2 */
+# if	defined(MNT_AIX)
+		    case MNT_AIX:
+			ty = "oaix";
+			break;
+# endif	/* defined(MNT_AIX) */
+# if	defined(MNT_J2)
+		    case MNT_J2:
+			ty = "jfs2";
+			break;
+# endif	/* defined(MNT_J2) */
+#endif	/* defined(MNT_AIX) && defined(MNT_H2) && MNT_AIX==MNT_J2 */
+
+		    case MNT_CDROM:
+			ty = "cdrom";
+			break;
+		    case MNT_JFS:
+			ty = "jfs";
+			break;
+		    case MNT_NFS:
+			ty = "nfs";
+			break;
+
+#if	defined(MNT_NFS3)
+		    case MNT_NFS3:
+			ty = "nfs3";
+			break;
+#endif	/* defined(MNT_NFS3) */
+
+#if	defined(HASPROCFS)
+		    case MNT_PROCFS:
+			ty = HASPROCFS;
+			break;
+#endif	/* defined(HASPROCFS) */
+
+#if	defined(MNT_SANFS)
+		    case MNT_SANFS:
+			ty = "sanfs";
+			break;
+#endif	/* defined(MNT_SANFS) */
+
+		    default:
+			ty = "unknown";
+		    }
+		    (void) fprintf(stderr,
+			"%s: WARNING: can't stat() %s file system %s\n",
+			Pn, ty, dir);
+		    (void) fprintf(stderr,
+			"      Output information may be incomplete.\n");
+		}
+	    /*
+	     * Assemble alternate device number and mode flags.
+	     */
+		(void) bzero((char *)&sb, sizeof(sb));
+		if (v->vmt_flags & MNT_REMOTE) {
+
+#if	AIXA<2
+		    sb.st_dev = (dev_t)(SDEV_REMOTE | v->vmt_vfsnumber);
+#else	/* AIXA>=2 */
+		    sb.st_dev = (dev_t)(SDEV_REMOTE | (SDEV_REMOTE << 32)
+			      |         v->vmt_vfsnumber);
+#endif	/* AIXA<2 */
+
+		} else {
+
+#if	defined(HAS_AFS)
+		    if (v->vmt_gfstype == MNT_AFS)
+			sb.st_dev = AFSDEV;
+		    else
+#endif	/* defined(HAS_AFS) */
+
+#if	AIXA>=2 && defined(HASPROCFS)
+		    if (v->vmt_gfstype == MNT_PROCFS) {
+
+		    /*
+		     * !!!DEBUG!!!   !!!DEBUG!!!   !!!DEBUG!!!   !!!DEBUG!!!
+		     *
+		     * The following *hack* is required to make the vmount
+		     * structure's device number match what stat(2)
+		     * errnoneously returns on ia64 AIX 5L.
+ 		     *
+		     * REMOVE THIS CODE WHEN STAT(2) IS FIXED!!!
+		     */
+			sb.st_dev = (dev_t)(v->vmt_fsid.val[0]
+				  &         0x7fffffffffffffff);
+		    /*
+		     * !!!DEBUG!!!   !!!DEBUG!!!   !!!DEBUG!!!   !!!DEBUG!!!
+ 		     */
+
+		    }
+		    else
+#endif	/* AIXA>=2 && defined(HASPROCFS) */
+
+			sb.st_dev = (dev_t)v->vmt_fsid.val[0];
+		}
+		if (!Fwarn)
+		    (void) fprintf(stderr,
+			"      assuming \"dev=%#lx\" from mount table\n",
+			sb.st_dev);
+		sb.st_mode = S_IFDIR | 0777;
+	    }
+	/*
+	 * Allocate space for the directory (mounted on) and resolve
+	 * any symbolic links.
+	 */
+	    if (dn)
+		(void) free((FREE_P *)dn);
+	    if (!(dn = mkstrcpy(dir, (MALLOC_S *)NULL))) {
+
+no_space_for_mount:
+
+		(void) fprintf(stderr, "%s: no space for mount at %s (%s)\n",
+		    Pn, fs, dir);
+		Exit(1);
+	    }
+	    if (!(ln = Readlink(dn))) {
+		if (!Fwarn) {
+		    (void) fprintf(stderr,
+			"      Output information may be incomplete.\n");
+		}
+		continue;
+	    }
+	    if (ln != dn) {
+		(void) free((FREE_P *)dn);
+		dn = ln;
+	    }
+	    if (*dn != '/')
+		continue;
+	/*
+	 * Allocate a local mounts structure and fill the directory information.
+	 */
+	    if (!(mtp = (struct mounts *)malloc(
+			(MALLOC_S)sizeof(struct mounts))))
+		goto no_space_for_mount;
+	    mtp->dir = dn;
+	    dn = (char *)NULL;
+	    mtp->dev = sb.st_dev;
+	    mtp->inode = (INODETYPE)sb.st_ino;
+	    mtp->mode = sb.st_mode;
+	    mtp->rdev = sb.st_rdev;
+
+#if	defined(HASFSTYPE)
+	    mtp->fstype = sb.st_vfstype;
+#endif	/* defined(HASFSTYPE) */
+
+	    mtp->next = Lmi;
+	/*
+	 * Form the file system (mounted-on) device name.  Resolve any
+	 * symbolic links.  Allocate space for the result and store it in
+	 * the local mounts structure.
+	 */
+	    if (h && (v->vmt_flags & MNT_REMOTE)) {
+		if (!(dn = mkstrcat(h, -1, *h ? ":" : "", 1, fs, -1,
+				    (MALLOC_S *)NULL)))
+		    goto no_space_for_mount;
+	    } else {
+		if (!(dn = mkstrcpy(fs, (MALLOC_S *)NULL)))
+		    goto no_space_for_mount;
+	    }
+	    mtp->fsname = dn;
+	    ln = Readlink(dn);
+	    dn = (char *)NULL;
+	/*
+	 * Stat the file system (mounted-on) device name to get its modes.
+	 * Set the modes to zero if the stat fails.  Add file system
+	 * (mounted-on) device information to the local mountsstructure.
+	 */
+	    if (!ln || statsafely(ln, &sb))
+		sb.st_mode = 0;
+	    mtp->fsnmres = ln;
+	    mtp->fs_mode = sb.st_mode;
+	    Lmi = mtp;
+        }
+/*
+ * Clean up and return local mount info table address.
+ */
+	if (dn)
+	    (void) free((FREE_P *)dn);
+	if (vt)
+	    (void) free((FREE_P *)vt);
+	Lmist = 1;
+	return(Lmi);
+}