~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to pstack/filemode.c

  • Committer: brian
  • Date: 2008-06-25 05:29:13 UTC
  • Revision ID: brian@localhost.localdomain-20080625052913-6upwo0jsrl4lnapl
clean slate

Show diffs side-by-side

added added

removed removed

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