Update head to match stable 1.0
[gnupg.git] / util / fileutil.c
1 /* fileutil.c -  file utilities
2  *      Copyright (C) 1998 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19  */
20
21 #include <config.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <stdarg.h>
25 #include <string.h>
26 #include <assert.h>
27 #include <unistd.h>
28 #ifdef __riscos__
29 #include <kernel.h>
30 #include <swis.h>
31 #endif /* __riscos__ */
32 #include "util.h"
33 #include "memory.h"
34 #include "ttyio.h"
35
36
37 /***************
38  * Extract from a given path the filename component.
39  *
40  */
41 char *
42 make_basename(const char *filepath)
43 {
44     char *p;
45
46     if ( !(p=strrchr(filepath, DIRSEP_C)) )
47       #ifdef HAVE_DRIVE_LETTERS
48         if ( !(p=strrchr(filepath, '\\')) )
49             if ( !(p=strrchr(filepath, ':')) )
50       #endif
51               {
52                 return m_strdup(filepath);
53               }
54
55     return m_strdup(p+1);
56 }
57
58
59
60 /***************
61  * Extract from a given filename the path prepended to it.
62  * If their isn't a path prepended to the filename, a dot
63  * is returned ('.').
64  *
65  */
66 char *
67 make_dirname(const char *filepath)
68 {
69     char *dirname;
70     int  dirname_length;
71     char *p;
72
73     if ( !(p=strrchr(filepath, DIRSEP_C)) )
74       #ifdef HAVE_DRIVE_LETTERS
75         if ( !(p=strrchr(filepath, '\\')) )
76             if ( !(p=strrchr(filepath, ':')) )
77       #endif
78               {
79                 return m_strdup(EXTSEP_S);
80               }
81
82     dirname_length = p-filepath;
83     dirname = m_alloc(dirname_length+1);
84     strncpy(dirname, filepath, dirname_length);
85     dirname[dirname_length] = 0;
86
87     return dirname;
88 }
89
90
91
92 /****************
93  * Construct a filename from the NULL terminated list of parts.
94  * Tilde expansion is done here.
95  */
96 char *
97 make_filename( const char *first_part, ... )
98 {
99     va_list arg_ptr ;
100     size_t n;
101     const char *s;
102     char *name, *home, *p;
103
104     va_start( arg_ptr, first_part ) ;
105     n = strlen(first_part)+1;
106     while( (s=va_arg(arg_ptr, const char *)) )
107         n += strlen(s) + 1;
108     va_end(arg_ptr);
109
110 #ifndef __riscos__
111     home = NULL;
112     if( *first_part == '~' && first_part[1] == DIRSEP_C
113                            && (home = getenv("HOME")) && *home )
114         n += strlen(home);
115     name = m_alloc(n);
116     p = home ? stpcpy(stpcpy(name,home), first_part+1)
117              : stpcpy(name, first_part);
118 #else /* __riscos__ */
119     name = m_alloc(n);
120     p = stpcpy(name, first_part);
121 #endif /* __riscos__ */
122     va_start( arg_ptr, first_part ) ;
123     while( (s=va_arg(arg_ptr, const char *)) )
124         p = stpcpy(stpcpy(p, DIRSEP_S), s);
125     va_end(arg_ptr);
126
127 #ifndef __riscos__
128     return name;
129 #else /* __riscos__ */
130     p = gstrans(name);
131     m_free(name);
132     return p;
133 #endif /* __riscos__ */
134 }
135
136
137 int
138 compare_filenames( const char *a, const char *b )
139 {
140     /* ? check whether this is an absolute filename and
141      * resolve symlinks?
142      */
143 #ifndef __riscos__
144   #ifdef HAVE_DRIVE_LETTERS
145     return ascii_strcasecmp(a,b);
146   #else
147     return strcmp(a,b);
148   #endif
149 #else /* __riscos__ */
150     int c = 0;
151     char *abuf, *bbuf;
152
153     abuf = gstrans(a);
154     bbuf = gstrans(b);
155
156     c = strcasecmp (abuf, bbuf);
157
158     m_free(abuf);
159     m_free(bbuf);
160
161     return c;
162 #endif /* __riscos__ */
163 }
164
165
166 /****************
167  * A simple function to decide whether the filename is stdout
168  * or a real filename.
169  */
170 const char *
171 print_fname_stdout( const char *s )
172 {
173     if( !s || (*s == '-' && !s[1]) )
174         return "[stdout]";
175     return s;
176 }
177
178
179 const char *
180 print_fname_stdin( const char *s )
181 {
182     if( !s || (*s == '-' && !s[1]) )
183         return "[stdin]";
184     return s;
185 }
186
187 /****************
188  * Check if the file is compressed.
189  **/
190 int
191 is_file_compressed( const char *s, int *ret_rc )
192 {
193     IOBUF a;
194     byte buf[4];
195     int i, rc = 0;
196
197     struct magic_compress_s {
198         size_t len;
199         byte magic[4];
200     } magic[] = {
201         { 3, { 0x42, 0x5a, 0x68, 0x00 } }, /* bzip2 */
202         { 3, { 0x1f, 0x8b, 0x08, 0x00 } }, /* gzip */
203         { 4, { 0x50, 0x4b, 0x03, 0x04 } }, /* (pk)zip */
204     };
205     
206     if ( !s || *s == '-' || !ret_rc )
207         return 0; /* We can't check stdin or no file was given */
208
209     a = iobuf_open( s );
210     if ( a == NULL ) {
211         *ret_rc = G10ERR_OPEN_FILE;
212         return 0;
213     }
214
215     if ( iobuf_get_filelength( a ) < 4 ) {
216         *ret_rc = 0;
217         goto leave;
218     }
219
220     if ( iobuf_read( a, buf, 4 ) == -1 ) {
221         *ret_rc = G10ERR_READ_FILE;
222         goto leave;
223     }
224
225     for ( i = 0; i < DIM( magic ); i++ ) {
226         if ( !memcmp( buf, magic[i].magic, magic[i].len ) ) {
227             *ret_rc = 0;
228             rc = 1;
229             break;
230         }
231     }
232
233 leave:    
234     iobuf_close( a );
235     return rc;
236 }
237
238