![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to filemode.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / emacs / src|
Return to filemode.c CVS log | Up to [Apple XNU] / GNUtools / emacs / src |
1.1 root 1: /* Examine the result of stat and make a string describing file modes.
2: Copyright (C) 1985 Free Software Foundation, Inc.
3:
4: This program is free software; you can redistribute it and/or modify
5: it under the terms of the GNU General Public License as published by
6: the Free Software Foundation; either version 1, or (at your option)
7: any later version.
8:
9: This program is distributed in the hope that it will be useful,
10: but WITHOUT ANY WARRANTY; without even the implied warranty of
11: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12: GNU General Public License for more details.
13:
14: You should have received a copy of the GNU General Public License
15: along with this program; if not, write to the Free Software
16: Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
17:
18: In other words, you are welcome to use, share and improve this program.
19: You are forbidden to forbid anyone else to use, share and improve
20: what you give them. Help stamp out software-hoarding! */
21:
22:
23: #include <sys/types.h>
24: #include <sys/stat.h>
25: #include "filetypes.h"
26:
27: /* filemodestring - set file attribute data
28:
29: *** WARNING! FILE STRUCTURE DEPENDENT ***
30:
31: Filemodestring converts the data in the st_mode field of file status
32: block `s' to a 10 character attribute string, which it stores in
33: the block that `a' points to.
34: This attribute string is modelled after the string produced by the Berkeley ls.
35:
36: As usual under Unix, the elements of the string are numbered
37: from 0. Their meanings are:
38:
39: 0 File type. 'd' for directory, 'c' for character
40: special, 'b' for block special, 'm' for multiplex,
41: 'l' for symbolic link, 's' for socket, 'p' for fifo,
42: '-' for any other file type
43:
44: 1 'r' if the owner may read, '-' otherwise.
45:
46: 2 'w' if the owner may write, '-' otherwise.
47:
48: 3 'x' if the owner may execute, 's' if the file is
49: set-user-id, '-' otherwise.
50: 'S' if the file is set-user-id, but the execute
51: bit isn't set. (sys v `feature' which helps to
52: catch screw case.)
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:
70: */
71:
72: #define VOID void
73:
74: static char ftypelet ();
75: static VOID rwx (), setst ();
76:
77: VOID
78: filemodestring (s,a)
79: struct stat *s;
80: char *a;
81: {
82: a[0] = ftypelet (s);
83: /* Aren't there symbolic names for these byte-fields? */
84: rwx ((s->st_mode & 0700) << 0, &(a[1]));
85: rwx ((s->st_mode & 0070) << 3, &(a[4]));
86: rwx ((s->st_mode & 0007) << 6, &(a[7]));
87: setst (s->st_mode, a);
88: }
89:
90: /* ftypelet - file type letter
91:
92: *** WARNING! FILE STRUCTURE DEPENDENT ***
93:
94: Ftypelet accepts a file status block and returns a character
95: code describing the type of the file. 'd' is returned for
96: directories, 'b' for block special files, 'c' for character
97: special files, 'm' for multiplexor files, 'l' for symbolic link,
98: 's' for socket, 'p' for fifo, '-' for any other file type
99: */
100:
101: static char
102: ftypelet(s)
103: struct stat *s;
104: {
105: switch (s->st_mode & S_IFMT)
106: {
107: default:
108: return '-';
109: case S_IFDIR:
110: return 'd';
111: #ifdef S_IFLNK
112: case S_IFLNK:
113: return 'l';
114: #endif
115: #ifdef S_IFCHR
116: case S_IFCHR:
117: return 'c';
118: #endif
119: #ifdef S_IFBLK
120: case S_IFBLK:
121: return 'b';
122: #endif
123: #ifdef S_IFMPC
124: /* These do not seem to exist */
125: case S_IFMPC:
126: case S_IFMPB:
127: return 'm';
128: #endif
129: #ifdef S_IFSOCK
130: case S_IFSOCK:
131: return 's';
132: #endif
133: #ifdef S_IFIFO
134: #if S_IFIFO != S_IFSOCK
135: case S_IFIFO:
136: return 'p';
137: #endif
138: #endif
139: #ifdef S_IFNWK /* hp-ux hack */
140: case S_IFNWK:
141: return 'n';
142: #endif
143: }
144: }
145:
146:
147: /* rwx - look at read, write, and execute bits and set character
148: flags accordingly
149:
150: *** WARNING! FILE STRUCTURE DEPENDENT ***
151:
152: */
153:
154: static VOID
155: rwx (bits, chars)
156: unsigned short bits;
157: char chars[];
158: {
159: chars[0] = (bits & S_IREAD) ? 'r' : '-';
160: chars[1] = (bits & S_IWRITE) ? 'w' : '-';
161: chars[2] = (bits & S_IEXEC) ? 'x' : '-';
162: }
163:
164:
165: /* setst - set s & t flags in a file attributes string */
166: /* *** WARNING! FILE STRUCTURE DEPENDENT *** */
167: static VOID
168: setst (bits, chars)
169: unsigned short bits;
170: char chars[];
171: {
172: #ifdef S_ISUID
173: if (bits & S_ISUID)
174: {
175: if (chars[3] != 'x')
176: /* Screw case: set-uid, but not executable. */
177: chars[3] = 'S';
178: else
179: chars[3] = 's';
180: }
181: #endif
182: #ifdef S_ISGID
183: if (bits & S_ISGID)
184: {
185: if (chars[6] != 'x')
186: /* Screw case: set-gid, but not executable. */
187: chars[6] = 'S';
188: else
189: chars[6] = 's';
190: }
191: #endif
192: #ifdef S_ISVTX
193: if (bits & S_ISVTX)
194: chars[9] = 't';
195: #endif
196: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.