From: Jim Meyering <jim@meyering.net>
Date: Sat, 5 Oct 1996 20:15:06 +0000 (+0000)
Subject: (ftypelet): Add support for Cray's migrated dmf files.
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=235ac3a0754648d3c7710883258027798b610555;p=pspp

(ftypelet): Add support for Cray's migrated dmf files.
From Johan Danielsson.
---

diff --git a/lib/filemode.c b/lib/filemode.c
index 8ed730c6fd..91373de34b 100644
--- a/lib/filemode.c
+++ b/lib/filemode.c
@@ -198,6 +198,17 @@ ftypelet (bits)
   if (S_ISNWK (bits))
     return 'n';
 #endif
+
+#ifdef S_ISOFD
+  /* Cray migrated dmf file.  */
+  if (S_ISOFD (bits))
+    return 'M';
+#endif
+#ifdef S_ISOFL
+  /* Cray migrated dmf file.  */
+  if (S_ISOFL (bits))
+    return 'M';
+#endif
   return '?';
 }