From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 unix/shlib/inode.c | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 unix/shlib/inode.c

(limited to 'unix/shlib/inode.c')

diff --git a/unix/shlib/inode.c b/unix/shlib/inode.c
new file mode 100644
index 00000000..98d2dd86
--- /dev/null
+++ b/unix/shlib/inode.c
@@ -0,0 +1,28 @@
+/* Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
+ */
+
+#include <stdio.h>
+#include <sys/types.h>
+#include <sys/stat.h>
+
+/*
+ * INODE -- Print the inode number and other information for a file or files.
+ */
+main (argc, argv)
+int	argc;
+char	*argv[];
+{
+	struct	stat fi;
+	int	argno;
+	char	*file;
+
+	printf ("IDEVICE    INO   MODE NLK  UID    DEV    SIZE  FILE\n");
+	for (argno=1;  argno < argc;  argno++)
+	    if (stat (file=argv[argno], &fi) == -1)
+		fprintf (stderr, "cannot stat %s\n", file);
+	    else {
+		printf ("%7d%7d%7o%4d%5d%8d%8d  %s\n",
+		    fi.st_dev, fi.st_ino, fi.st_mode, fi.st_nlink,
+		    fi.st_uid, fi.st_rdev, fi.st_size, file);
+	    }
+}
-- 
cgit