1/* filemode.c -- make a string describing file modes
2   Copyright 1985, 1990, 1991, 1994, 1995, 1997, 2003
3   Free Software Foundation, Inc.
4
5   This program is free software; you can redistribute it and/or modify
6   it under the terms of the GNU General Public License as published by
7   the Free Software Foundation; either version 2, or (at your option)
8   any later version.
9
10   This program is distributed in the hope that it will be useful,
11   but WITHOUT ANY WARRANTY; without even the implied warranty of
12   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13   GNU General Public License for more details.
14
15   You should have received a copy of the GNU General Public License
16   along with this program; if not, write to the Free Software
17   Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
18   02111-1307, USA.  */
19
20#include "bfd.h"
21#include "bucomm.h"
22
23static char ftypelet (unsigned long);
24static void setst (unsigned long, char *);
25
26/* filemodestring - fill in string STR with an ls-style ASCII
27   representation of the st_mode field of file stats block STATP.
28   10 characters are stored in STR; no terminating null is added.
29   The characters stored in STR are:
30
31   0	File type.  'd' for directory, 'c' for character
32	special, 'b' for block special, 'm' for multiplex,
33	'l' for symbolic link, 's' for socket, 'p' for fifo,
34	'-' for any other file type
35
36   1	'r' if the owner may read, '-' otherwise.
37
38   2	'w' if the owner may write, '-' otherwise.
39
40   3	'x' if the owner may execute, 's' if the file is
41	set-user-id, '-' otherwise.
42	'S' if the file is set-user-id, but the execute
43	bit isn't set.
44
45   4	'r' if group members may read, '-' otherwise.
46
47   5	'w' if group members may write, '-' otherwise.
48
49   6	'x' if group members may execute, 's' if the file is
50	set-group-id, '-' otherwise.
51	'S' if it is set-group-id but not executable.
52
53   7	'r' if any user may read, '-' otherwise.
54
55   8	'w' if any user may write, '-' otherwise.
56
57   9	'x' if any user may execute, 't' if the file is "sticky"
58	(will be retained in swap space after execution), '-'
59	otherwise.
60	'T' if the file is sticky but not executable.  */
61
62#if 0
63
64/* This is not used; only mode_string is used.  */
65
66void
67filemodestring (struct stat *statp, char *str)
68{
69  mode_string ((unsigned long) statp->st_mode, str);
70}
71
72#endif
73
74/* Get definitions for the file permission bits.  */
75
76#ifndef S_IRWXU
77#define S_IRWXU 0700
78#endif
79#ifndef S_IRUSR
80#define S_IRUSR 0400
81#endif
82#ifndef S_IWUSR
83#define S_IWUSR 0200
84#endif
85#ifndef S_IXUSR
86#define S_IXUSR 0100
87#endif
88
89#ifndef S_IRWXG
90#define S_IRWXG 0070
91#endif
92#ifndef S_IRGRP
93#define S_IRGRP 0040
94#endif
95#ifndef S_IWGRP
96#define S_IWGRP 0020
97#endif
98#ifndef S_IXGRP
99#define S_IXGRP 0010
100#endif
101
102#ifndef S_IRWXO
103#define S_IRWXO 0007
104#endif
105#ifndef S_IROTH
106#define S_IROTH 0004
107#endif
108#ifndef S_IWOTH
109#define S_IWOTH 0002
110#endif
111#ifndef S_IXOTH
112#define S_IXOTH 0001
113#endif
114
115/* Like filemodestring, but only the relevant part of the `struct stat'
116   is given as an argument.  */
117
118void
119mode_string (unsigned long mode, char *str)
120{
121  str[0] = ftypelet ((unsigned long) mode);
122  str[1] = (mode & S_IRUSR) != 0 ? 'r' : '-';
123  str[2] = (mode & S_IWUSR) != 0 ? 'w' : '-';
124  str[3] = (mode & S_IXUSR) != 0 ? 'x' : '-';
125  str[4] = (mode & S_IRGRP) != 0 ? 'r' : '-';
126  str[5] = (mode & S_IWGRP) != 0 ? 'w' : '-';
127  str[6] = (mode & S_IXGRP) != 0 ? 'x' : '-';
128  str[7] = (mode & S_IROTH) != 0 ? 'r' : '-';
129  str[8] = (mode & S_IWOTH) != 0 ? 'w' : '-';
130  str[9] = (mode & S_IXOTH) != 0 ? 'x' : '-';
131  setst ((unsigned long) mode, str);
132}
133
134/* Return a character indicating the type of file described by
135   file mode BITS:
136   'd' for directories
137   'b' for block special files
138   'c' for character special files
139   'm' for multiplexer files
140   'l' for symbolic links
141   's' for sockets
142   'p' for fifos
143   '-' for any other file type.  */
144
145#ifndef S_ISDIR
146#ifdef S_IFDIR
147#define S_ISDIR(i) (((i) & S_IFMT) == S_IFDIR)
148#else /* ! defined (S_IFDIR) */
149#define S_ISDIR(i) (((i) & 0170000) == 040000)
150#endif /* ! defined (S_IFDIR) */
151#endif /* ! defined (S_ISDIR) */
152
153#ifndef S_ISBLK
154#ifdef S_IFBLK
155#define S_ISBLK(i) (((i) & S_IFMT) == S_IFBLK)
156#else /* ! defined (S_IFBLK) */
157#define S_ISBLK(i) 0
158#endif /* ! defined (S_IFBLK) */
159#endif /* ! defined (S_ISBLK) */
160
161#ifndef S_ISCHR
162#ifdef S_IFCHR
163#define S_ISCHR(i) (((i) & S_IFMT) == S_IFCHR)
164#else /* ! defined (S_IFCHR) */
165#define S_ISCHR(i) 0
166#endif /* ! defined (S_IFCHR) */
167#endif /* ! defined (S_ISCHR) */
168
169#ifndef S_ISFIFO
170#ifdef S_IFIFO
171#define S_ISFIFO(i) (((i) & S_IFMT) == S_IFIFO)
172#else /* ! defined (S_IFIFO) */
173#define S_ISFIFO(i) 0
174#endif /* ! defined (S_IFIFO) */
175#endif /* ! defined (S_ISFIFO) */
176
177#ifndef S_ISSOCK
178#ifdef S_IFSOCK
179#define S_ISSOCK(i) (((i) & S_IFMT) == S_IFSOCK)
180#else /* ! defined (S_IFSOCK) */
181#define S_ISSOCK(i) 0
182#endif /* ! defined (S_IFSOCK) */
183#endif /* ! defined (S_ISSOCK) */
184
185#ifndef S_ISLNK
186#ifdef S_IFLNK
187#define S_ISLNK(i) (((i) & S_IFMT) == S_IFLNK)
188#else /* ! defined (S_IFLNK) */
189#define S_ISLNK(i) 0
190#endif /* ! defined (S_IFLNK) */
191#endif /* ! defined (S_ISLNK) */
192
193static char
194ftypelet (unsigned long bits)
195{
196  if (S_ISDIR (bits))
197    return 'd';
198  if (S_ISLNK (bits))
199    return 'l';
200  if (S_ISBLK (bits))
201    return 'b';
202  if (S_ISCHR (bits))
203    return 'c';
204  if (S_ISSOCK (bits))
205    return 's';
206  if (S_ISFIFO (bits))
207    return 'p';
208
209#ifdef S_IFMT
210#ifdef S_IFMPC
211  if ((bits & S_IFMT) == S_IFMPC
212      || (bits & S_IFMT) == S_IFMPB)
213    return 'm';
214#endif
215#ifdef S_IFNWK
216  if ((bits & S_IFMT) == S_IFNWK)
217    return 'n';
218#endif
219#endif
220
221  return '-';
222}
223
224/* Set the 's' and 't' flags in file attributes string CHARS,
225   according to the file mode BITS.  */
226
227static void
228setst (unsigned long bits ATTRIBUTE_UNUSED, char *chars ATTRIBUTE_UNUSED)
229{
230#ifdef S_ISUID
231  if (bits & S_ISUID)
232    {
233      if (chars[3] != 'x')
234	/* Set-uid, but not executable by owner.  */
235	chars[3] = 'S';
236      else
237	chars[3] = 's';
238    }
239#endif
240#ifdef S_ISGID
241  if (bits & S_ISGID)
242    {
243      if (chars[6] != 'x')
244	/* Set-gid, but not executable by group.  */
245	chars[6] = 'S';
246      else
247	chars[6] = 's';
248    }
249#endif
250#ifdef S_ISVTX
251  if (bits & S_ISVTX)
252    {
253      if (chars[9] != 'x')
254	/* Sticky, but not executable by others.  */
255	chars[9] = 'T';
256      else
257	chars[9] = 't';
258    }
259#endif
260}
261