* util.c (string_perm) [S_IFDOOR]: Support Solaris doors.

screen.c (string_file_type) [S_IFDOOR]: Likewise.

src/ChangeLog

@@ -1,3 +1,8 @@
+2002-01-09  Andrew V. Samoilov  <kai@cmail.ru>
+
+	* util.c (string_perm) [S_IFDOOR]: Support Solaris doors.
+	screen.c (string_file_type) [S_IFDOOR]: Likewise.
+
 2001-12-21  Pavel Roskin  <proski@gnu.org>
 
 	* hotlist.c (hotlist_callback): Recognize "delete" key.

src/screen.c

@@ -215,10 +215,16 @@ string_file_type (file_entry *fe, int len)
             buffer [0] = '!';
         else
 	    buffer [0] = '@';
-    } else if (S_ISSOCK (fe->buf.st_mode))
+    } else if (S_ISCHR (fe->buf.st_mode))
-	buffer [0] = '=';
-    else if (S_ISCHR (fe->buf.st_mode))
 	buffer [0] = '-';
+#ifdef S_ISSOCK
+    else if (S_ISSOCK (fe->buf.st_mode))
+	buffer [0] = '=';
+#endif
+#ifdef S_ISDOOR
+    else if (S_ISDOOR (fe->buf.st_mode))
+	buffer [0] = '>';
+#endif
     else if (S_ISBLK (fe->buf.st_mode))
 	buffer [0] = '+';
     else if (S_ISFIFO (fe->buf.st_mode))

src/util.c

@@ -356,6 +356,9 @@ char *string_perm (mode_t mode_bits)
     if (ismode (mode_bits, S_ISVTX)) mode [9] = (mode [9] == 'x') ? 't' : 'T';
     if (ismode (mode_bits, S_IFLNK)) mode [0] = 'l';
     if (ismode (mode_bits, S_IFIFO)) mode [0] = 'p';
+#ifdef	S_IFDOOR
+    if (ismode (mode_bits, S_IFDOOR)) mode [0] = 'D';
+#endif /* S_IFDOOR */
 #endif /* !OS2_NT */
     return mode;
 }