updated RISC OS stuff
[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 #ifndef __riscos__
103     char *name, *home, *p;
104 #else
105     char *name, *p;
106 #endif
107
108     va_start( arg_ptr, first_part ) ;
109     n = strlen(first_part)+1;
110     while( (s=va_arg(arg_ptr, const char *)) )
111         n += strlen(s) + 1;
112     va_end(arg_ptr);
113
114 #ifndef __riscos__
115     home = NULL;
116     if( *first_part == '~' && first_part[1] == DIRSEP_C
117                            && (home = getenv("HOME")) && *home )
118         n += strlen(home);
119     name = m_alloc(n);
120     p = home ? stpcpy(stpcpy(name,home), first_part+1)
121              : stpcpy(name, first_part);
122 #else /* __riscos__ */
123     name = m_alloc(n);
124     p = stpcpy(name, first_part);
125 #endif /* __riscos__ */
126     va_start( arg_ptr, first_part ) ;
127     while( (s=va_arg(arg_ptr, const char *)) )
128         p = stpcpy(stpcpy(p, DIRSEP_S), s);
129     va_end(arg_ptr);
130
131 #ifndef __riscos__
132     return name;
133 #else /* __riscos__ */
134     p = gstrans(name);
135     m_free(name);
136     return p;
137 #endif /* __riscos__ */
138 }
139
140
141 int
142 compare_filenames( const char *a, const char *b )
143 {
144     /* ? check whether this is an absolute filename and
145      * resolve symlinks?
146      */
147 #ifndef __riscos__
148   #ifdef HAVE_DRIVE_LETTERS
149     return ascii_strcasecmp(a,b);
150   #else
151     return strcmp(a,b);
152   #endif
153 #else /* __riscos__ */
154     int c = 0;
155     char *abuf, *bbuf;
156
157     abuf = gstrans(a);
158     bbuf = gstrans(b);
159
160     c = strcasecmp (abuf, bbuf);
161
162     m_free(abuf);
163     m_free(bbuf);
164
165     return c;
166 #endif /* __riscos__ */
167 }
168
169
170 /****************
171  * A simple function to decide whether the filename is stdout
172  * or a real filename.
173  */
174 const char *
175 print_fname_stdout( const char *s )
176 {
177     if( !s || (*s == '-' && !s[1]) )
178         return "[stdout]";
179     return s;
180 }
181
182
183 const char *
184 print_fname_stdin( const char *s )
185 {
186     if( !s || (*s == '-' && !s[1]) )
187         return "[stdin]";
188     return s;
189 }
190
191 /****************
192  * Check if the file is compressed.
193  **/
194 int
195 is_file_compressed( const char *s, int *ret_rc )
196 {
197     IOBUF a;
198     byte buf[4];
199     int i, rc = 0;
200
201     struct magic_compress_s {
202         size_t len;
203         byte magic[4];
204     } magic[] = {
205         { 3, { 0x42, 0x5a, 0x68, 0x00 } }, /* bzip2 */
206         { 3, { 0x1f, 0x8b, 0x08, 0x00 } }, /* gzip */
207         { 4, { 0x50, 0x4b, 0x03, 0x04 } }, /* (pk)zip */
208     };
209     
210     if ( !s || *s == '-' || !ret_rc )
211         return 0; /* We can't check stdin or no file was given */
212
213     a = iobuf_open( s );
214     if ( a == NULL ) {
215         *ret_rc = G10ERR_OPEN_FILE;
216         return 0;
217     }
218
219     if ( iobuf_get_filelength( a ) < 4 ) {
220         *ret_rc = 0;
221         goto leave;
222     }
223
224     if ( iobuf_read( a, buf, 4 ) == -1 ) {
225         *ret_rc = G10ERR_READ_FILE;
226         goto leave;
227     }
228
229     for ( i = 0; i < DIM( magic ); i++ ) {
230         if ( !memcmp( buf, magic[i].magic, magic[i].len ) ) {
231             *ret_rc = 0;
232             rc = 1;
233             break;
234         }
235     }
236
237 leave:    
238     iobuf_close( a );
239     return rc;
240 }
241
242