Updated FSF street address and preparations for a release candidate.
[gnupg.git] / util / fileutil.c
1 /* fileutil.c -  file utilities
2  *      Copyright (C) 1998, 2003 Free Software Foundation, Inc.
3  *
4  * This file is part of GnuPG.
5  *
6  * GnuPG is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * GnuPG is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
19  * USA.
20  */
21
22 #include <config.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <stdarg.h>
26 #include <string.h>
27 #include <assert.h>
28 #include <unistd.h>
29 #include "util.h"
30 #include "memory.h"
31 #include "ttyio.h"
32
33
34 /***************
35  * Extract from a given path the filename component.
36  *
37  */
38 char *
39 make_basename(const char *filepath, const char *inputpath)
40 {
41 #ifdef __riscos__
42     return riscos_make_basename(filepath, inputpath);
43 #endif
44
45     char *p;
46
47     if ( !(p=strrchr(filepath, DIRSEP_C)) )
48 #ifdef HAVE_DRIVE_LETTERS
49         if ( !(p=strrchr(filepath, '\\')) )
50             if ( !(p=strrchr(filepath, ':')) )
51 #endif
52               {
53                 return m_strdup(filepath);
54               }
55
56     return m_strdup(p+1);
57 }
58
59
60
61 /***************
62  * Extract from a given filename the path prepended to it.
63  * If their isn't a path prepended to the filename, a dot
64  * is returned ('.').
65  *
66  */
67 char *
68 make_dirname(const char *filepath)
69 {
70     char *dirname;
71     int  dirname_length;
72     char *p;
73
74     if ( !(p=strrchr(filepath, DIRSEP_C)) )
75 #ifdef HAVE_DRIVE_LETTERS
76         if ( !(p=strrchr(filepath, '\\')) )
77             if ( !(p=strrchr(filepath, ':')) )
78 #endif
79               {
80                 return m_strdup(EXTSEP_S);
81               }
82
83     dirname_length = p-filepath;
84     dirname = m_alloc(dirname_length+1);
85     strncpy(dirname, filepath, dirname_length);
86     dirname[dirname_length] = 0;
87
88     return dirname;
89 }
90
91
92
93 /*
94   Construct a filename from the NULL terminated list of parts.  Tilde
95   expansion is done here.  Note that FIRST_PART must never be NULL and
96   that this function is guaranteed to return an allocated string.  */
97 char *
98 make_filename( const char *first_part, ... )
99 {
100     va_list arg_ptr ;
101     size_t n;
102     const char *s;
103     char *name, *home, *p;
104
105     va_start( arg_ptr, first_part ) ;
106     n = strlen(first_part)+1;
107     while( (s=va_arg(arg_ptr, const char *)) )
108         n += strlen(s) + 1;
109     va_end(arg_ptr);
110
111     home = NULL;
112 #ifndef __riscos__
113     if( *first_part == '~' && first_part[1] == DIRSEP_C
114                            && (home = getenv("HOME")) && *home )
115         n += strlen(home);
116 #endif
117     name = m_alloc(n);
118     p = home ? stpcpy(stpcpy(name,home), first_part+1)
119              : stpcpy(name, first_part);
120     va_start( arg_ptr, first_part ) ;
121     while( (s=va_arg(arg_ptr, const char *)) )
122         p = stpcpy(stpcpy(p, DIRSEP_S), s);
123     va_end(arg_ptr);
124
125 #ifndef __riscos__
126     return name;
127 #else /* __riscos__ */
128     p = riscos_gstrans(name);
129     m_free(name);
130     return p;
131 #endif /* __riscos__ */
132 }
133
134
135 int
136 compare_filenames( const char *a, const char *b )
137 {
138     /* ? check whether this is an absolute filename and
139      * resolve symlinks?
140      */
141 #ifndef __riscos__
142 #ifdef HAVE_DRIVE_LETTERS
143     return ascii_strcasecmp(a,b);
144 #else
145     return strcmp(a,b);
146 #endif
147 #else /* __riscos__ */
148     int c = 0;
149     char *abuf, *bbuf;
150
151     abuf = riscos_gstrans(a);
152     bbuf = riscos_gstrans(b);
153
154     c = ascii_strcasecmp (abuf, bbuf);
155
156     m_free(abuf);
157     m_free(bbuf);
158
159     return c;
160 #endif /* __riscos__ */
161 }
162
163
164 /****************
165  * A simple function to decide whether the filename is stdout
166  * or a real filename.
167  */
168 const char *
169 print_fname_stdout( const char *s )
170 {
171     if( !s || (*s == '-' && !s[1]) )
172         return "[stdout]";
173     return s;
174 }
175
176
177 const char *
178 print_fname_stdin( const char *s )
179 {
180     if( !s || (*s == '-' && !s[1]) )
181         return "[stdin]";
182     return s;
183 }
184
185 /****************
186  * Check if the file is compressed.
187  **/
188 int
189 is_file_compressed( const char *s, int *ret_rc )
190 {
191     IOBUF a;
192     byte buf[4];
193     int i, rc = 0;
194
195     struct magic_compress_s {
196         size_t len;
197         byte magic[4];
198     } magic[] = {
199         { 3, { 0x42, 0x5a, 0x68, 0x00 } }, /* bzip2 */
200         { 3, { 0x1f, 0x8b, 0x08, 0x00 } }, /* gzip */
201         { 4, { 0x50, 0x4b, 0x03, 0x04 } }, /* (pk)zip */
202     };
203     
204     if ( iobuf_is_pipe_filename (s) || !ret_rc )
205         return 0; /* We can't check stdin or no file was given */
206
207     a = iobuf_open( s );
208     if ( a == NULL ) {
209         *ret_rc = G10ERR_OPEN_FILE;
210         return 0;
211     }
212
213     if ( iobuf_get_filelength( a ) < 4 ) {
214         *ret_rc = 0;
215         goto leave;
216     }
217
218     if ( iobuf_read( a, buf, 4 ) == -1 ) {
219         *ret_rc = G10ERR_READ_FILE;
220         goto leave;
221     }
222
223     for ( i = 0; i < DIM( magic ); i++ ) {
224         if ( !memcmp( buf, magic[i].magic, magic[i].len ) ) {
225             *ret_rc = 0;
226             rc = 1;
227             break;
228         }
229     }
230
231 leave:    
232     iobuf_close( a );
233     return rc;
234 }