|
0
|
1 /* filemode.c -- make a string describing file modes
|
|
|
2 Copyright (C) 1985, 1990, 1993 Free Software Foundation, Inc.
|
|
|
3
|
|
|
4 This file is part of XEmacs.
|
|
|
5
|
|
|
6 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
7 under the terms of the GNU General Public License as published by the
|
|
|
8 Free Software Foundation; either version 2, or (at your option) any
|
|
|
9 later version.
|
|
|
10
|
|
|
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
14 for more details.
|
|
|
15
|
|
|
16 You should have received a copy of the GNU General Public License
|
|
|
17 along with XEmacs; see the file COPYING. If not, write to
|
|
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
19 Boston, MA 02111-1307, USA. */
|
|
|
20
|
|
|
21 /* Synched up with: FSF 19.30. */
|
|
|
22
|
|
|
23 #include <config.h>
|
|
|
24 #include "lisp.h"
|
|
|
25
|
|
|
26 #include "sysfile.h"
|
|
|
27
|
|
|
28 static void mode_string (unsigned short mode, char *str);
|
|
|
29 static char ftypelet (mode_t bits);
|
|
|
30 static void rwx (unsigned short bits, char *chars);
|
|
|
31 static void setst (unsigned short bits, char *chars);
|
|
|
32
|
|
1467
|
33 /* declared in "sysfile.h"
|
|
|
34
|
|
|
35 filemodestring - fill in string STR with an ls-style ASCII
|
|
0
|
36 representation of the st_mode field of file stats block STATP.
|
|
|
37 10 characters are stored in STR; no terminating null is added.
|
|
|
38 The characters stored in STR are:
|
|
|
39
|
|
|
40 0 File type. 'd' for directory, 'c' for character
|
|
|
41 special, 'b' for block special, 'm' for multiplex,
|
|
|
42 'l' for symbolic link, 's' for socket, 'p' for fifo,
|
|
|
43 '-' for regular, '?' for any other file type
|
|
|
44
|
|
|
45 1 'r' if the owner may read, '-' otherwise.
|
|
|
46
|
|
|
47 2 'w' if the owner may write, '-' otherwise.
|
|
|
48
|
|
|
49 3 'x' if the owner may execute, 's' if the file is
|
|
|
50 set-user-id, '-' otherwise.
|
|
|
51 'S' if the file is set-user-id, but the execute
|
|
|
52 bit isn't set.
|
|
|
53
|
|
|
54 4 'r' if group members may read, '-' otherwise.
|
|
|
55
|
|
|
56 5 'w' if group members may write, '-' otherwise.
|
|
|
57
|
|
|
58 6 'x' if group members may execute, 's' if the file is
|
|
|
59 set-group-id, '-' otherwise.
|
|
|
60 'S' if it is set-group-id but not executable.
|
|
|
61
|
|
|
62 7 'r' if any user may read, '-' otherwise.
|
|
|
63
|
|
|
64 8 'w' if any user may write, '-' otherwise.
|
|
|
65
|
|
|
66 9 'x' if any user may execute, 't' if the file is "sticky"
|
|
|
67 (will be retained in swap space after execution), '-'
|
|
|
68 otherwise.
|
|
|
69 'T' if the file is sticky but not executable. */
|
|
|
70
|
|
|
71 void
|
|
|
72 filemodestring (struct stat *statp, char *str)
|
|
|
73 {
|
|
|
74 mode_string (statp->st_mode, str);
|
|
|
75 }
|
|
|
76
|
|
|
77 /* Like filemodestring, but only the relevant part of the `struct stat'
|
|
|
78 is given as an argument. */
|
|
|
79
|
|
|
80 static void
|
|
|
81 mode_string (unsigned short mode, char *str)
|
|
|
82 {
|
|
|
83 str[0] = ftypelet (mode);
|
|
404
|
84 rwx ((unsigned short) ((mode & 0700) << 0), &str[1]);
|
|
|
85 rwx ((unsigned short) ((mode & 0070) << 3), &str[4]);
|
|
|
86 rwx ((unsigned short) ((mode & 0007) << 6), &str[7]);
|
|
0
|
87 setst (mode, str);
|
|
|
88 }
|
|
|
89
|
|
|
90 /* Return a character indicating the type of file described by
|
|
|
91 file mode BITS:
|
|
|
92 'd' for directories
|
|
|
93 'b' for block special files
|
|
|
94 'c' for character special files
|
|
|
95 'm' for multiplexor files
|
|
|
96 'l' for symbolic links
|
|
|
97 's' for sockets
|
|
|
98 'p' for fifos
|
|
|
99 '-' for regular files
|
|
|
100 '?' for any other file type. */
|
|
|
101
|
|
|
102 static char
|
|
|
103 ftypelet (mode_t bits)
|
|
|
104 {
|
|
|
105 #ifdef S_ISBLK
|
|
|
106 if (S_ISBLK (bits))
|
|
|
107 return 'b';
|
|
|
108 #endif
|
|
|
109 if (S_ISCHR (bits))
|
|
|
110 return 'c';
|
|
|
111 if (S_ISDIR (bits))
|
|
|
112 return 'd';
|
|
|
113 if (S_ISREG (bits))
|
|
|
114 return '-';
|
|
|
115 #ifdef S_ISFIFO
|
|
|
116 if (S_ISFIFO (bits))
|
|
|
117 return 'p';
|
|
|
118 #endif
|
|
|
119 #ifdef S_ISLNK
|
|
|
120 if (S_ISLNK (bits))
|
|
|
121 return 'l';
|
|
|
122 #endif
|
|
|
123 #ifdef S_ISSOCK
|
|
|
124 if (S_ISSOCK (bits))
|
|
|
125 return 's';
|
|
|
126 #endif
|
|
|
127 #ifdef S_ISMPC
|
|
|
128 if (S_ISMPC (bits))
|
|
|
129 return 'm';
|
|
|
130 #endif
|
|
|
131 #ifdef S_ISNWK
|
|
|
132 if (S_ISNWK (bits))
|
|
|
133 return 'n';
|
|
|
134 #endif
|
|
|
135 return '?';
|
|
|
136 }
|
|
|
137
|
|
|
138 /* Look at read, write, and execute bits in BITS and set
|
|
|
139 flags in CHARS accordingly. */
|
|
|
140
|
|
|
141 static void
|
|
|
142 rwx (unsigned short bits, char *chars)
|
|
|
143 {
|
|
|
144 chars[0] = (bits & S_IRUSR) ? 'r' : '-';
|
|
|
145 chars[1] = (bits & S_IWUSR) ? 'w' : '-';
|
|
|
146 chars[2] = (bits & S_IXUSR) ? 'x' : '-';
|
|
|
147 }
|
|
|
148
|
|
|
149 /* Set the 's' and 't' flags in file attributes string CHARS,
|
|
|
150 according to the file mode BITS. */
|
|
|
151
|
|
|
152 static void
|
|
2286
|
153 setst (
|
|
|
154 #if defined(S_ISUID) || defined(S_ISGID) || defined(S_ISVTX)
|
|
|
155 unsigned short bits, char *chars
|
|
|
156 #else
|
|
|
157 unsigned short UNUSED (bits), char *UNUSED (chars)
|
|
|
158 #endif
|
|
|
159 )
|
|
0
|
160 {
|
|
|
161 #ifdef S_ISUID
|
|
|
162 if (bits & S_ISUID)
|
|
|
163 {
|
|
|
164 if (chars[3] != 'x')
|
|
|
165 /* Set-uid, but not executable by owner. */
|
|
|
166 chars[3] = 'S';
|
|
|
167 else
|
|
|
168 chars[3] = 's';
|
|
|
169 }
|
|
|
170 #endif
|
|
|
171 #ifdef S_ISGID
|
|
|
172 if (bits & S_ISGID)
|
|
|
173 {
|
|
|
174 if (chars[6] != 'x')
|
|
|
175 /* Set-gid, but not executable by group. */
|
|
|
176 chars[6] = 'S';
|
|
|
177 else
|
|
|
178 chars[6] = 's';
|
|
|
179 }
|
|
|
180 #endif
|
|
|
181 #ifdef S_ISVTX
|
|
|
182 if (bits & S_ISVTX)
|
|
|
183 {
|
|
|
184 if (chars[9] != 'x')
|
|
|
185 /* Sticky, but not executable by others. */
|
|
|
186 chars[9] = 'T';
|
|
|
187 else
|
|
|
188 chars[9] = 't';
|
|
|
189 }
|
|
|
190 #endif
|
|
|
191 }
|
