Allow export to work on systems without funopen/fopencookie.
[gnupg.git] / common / miscellaneous.c
1 /* miscellaneous.c - Stuff not fitting elsewhere
2  *      Copyright (C) 2003, 2006 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 <stdlib.h>
24 #include <errno.h>
25
26 #include "util.h"
27 #include "iobuf.h"
28
29
30 /* Decide whether the filename is stdout or a real filename and return
31  * an appropriate string.  */
32 const char *
33 print_fname_stdout (const char *s)
34 {
35     if( !s || (*s == '-' && !s[1]) )
36         return "[stdout]";
37     return s;
38 }
39
40
41 /* Decide whether the filename is stdin or a real filename and return
42  * an appropriate string.  */
43 const char *
44 print_fname_stdin (const char *s)
45 {
46     if( !s || (*s == '-' && !s[1]) )
47         return "[stdin]";
48     return s;
49 }
50
51 /* fixme: Globally replace it by print_sanitized_buffer. */
52 void
53 print_string( FILE *fp, const byte *p, size_t n, int delim )
54 {
55   print_sanitized_buffer (fp, p, n, delim);
56 }
57
58 void
59 print_utf8_string2 ( FILE *fp, const byte *p, size_t n, int delim )
60 {
61   print_sanitized_utf8_buffer (fp, p, n, delim);
62 }
63
64 void
65 print_utf8_string( FILE *fp, const byte *p, size_t n )
66 {
67     print_utf8_string2 (fp, p, n, 0);
68 }
69
70 /* Write LENGTH bytes of BUFFER to FP as a hex encoded string.
71    RESERVED must be 0. */
72 void
73 print_hexstring (FILE *fp, const void *buffer, size_t length, int reserved)
74 {
75 #define tohex(n) ((n) < 10 ? ((n) + '0') : (((n) - 10) + 'A'))
76   const unsigned char *s;
77
78   for (s = buffer; length; s++, length--)
79     {
80       putc ( tohex ((*s>>4)&15), fp);
81       putc ( tohex (*s&15), fp);
82     }
83 #undef tohex
84 }
85
86 char *
87 make_printable_string (const void *p, size_t n, int delim )
88 {
89   return sanitize_buffer (p, n, delim);
90 }
91
92
93
94 /*
95  * Check if the file is compressed.
96  */
97 int
98 is_file_compressed (const char *s, int *ret_rc)
99 {
100     iobuf_t a;
101     byte buf[4];
102     int i, rc = 0;
103     int overflow;
104
105     struct magic_compress_s {
106         size_t len;
107         byte magic[4];
108     } magic[] = {
109         { 3, { 0x42, 0x5a, 0x68, 0x00 } }, /* bzip2 */
110         { 3, { 0x1f, 0x8b, 0x08, 0x00 } }, /* gzip */
111         { 4, { 0x50, 0x4b, 0x03, 0x04 } }, /* (pk)zip */
112     };
113     
114     if ( iobuf_is_pipe_filename (s) || !ret_rc )
115         return 0; /* We can't check stdin or no file was given */
116
117     a = iobuf_open( s );
118     if ( a == NULL ) {
119         *ret_rc = gpg_error_from_syserror ();
120         return 0;
121     }
122
123     if ( iobuf_get_filelength( a, &overflow ) < 4 && !overflow) {
124         *ret_rc = 0;
125         goto leave;
126     }
127
128     if ( iobuf_read( a, buf, 4 ) == -1 ) {
129         *ret_rc = a->error;
130         goto leave;
131     }
132
133     for ( i = 0; i < DIM( magic ); i++ ) {
134         if ( !memcmp( buf, magic[i].magic, magic[i].len ) ) {
135             *ret_rc = 0;
136             rc = 1;
137             break;
138         }
139     }
140
141 leave:    
142     iobuf_close( a );
143     return rc;
144 }
145
146
147 /* Try match against each substring of multistr, delimited by | */
148 int
149 match_multistr (const char *multistr,const char *match)
150 {
151   do
152     {
153       size_t seglen = strcspn (multistr,"|");
154       if (!seglen)
155         break;
156       /* Using the localized strncasecmp! */
157       if (strncasecmp(multistr,match,seglen)==0)
158         return 1;
159       multistr += seglen;
160       if (*multistr == '|')
161         multistr++;
162     }
163   while (*multistr);
164
165   return 0;
166 }
167
168