Implemented server main loop and started with import command.
[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 #include <gcrypt.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)
40 {
41     char *p;
42
43     if ( !(p=strrchr(filepath, '/')) )
44       #ifdef HAVE_DRIVE_LETTERS
45         if ( !(p=strrchr(filepath, '\\')) )
46             if ( !(p=strrchr(filepath, ':')) )
47       #endif
48               {
49                 return gcry_xstrdup(filepath);
50               }
51
52     return gcry_xstrdup(p+1);
53 }
54
55
56
57 /***************
58  * Extract from a given filename the path prepended to it.
59  * If their isn't a path prepended to the filename, a dot
60  * is returned ('.').
61  *
62  */
63 char *
64 make_dirname(const char *filepath)
65 {
66     char *dirname;
67     int  dirname_length;
68     char *p;
69
70     if ( !(p=strrchr(filepath, '/')) )
71       #ifdef HAVE_DRIVE_LETTERS
72         if ( !(p=strrchr(filepath, '\\')) )
73             if ( !(p=strrchr(filepath, ':')) )
74       #endif
75               {
76                 return gcry_xstrdup(".");
77               }
78
79     dirname_length = p-filepath;
80     dirname = gcry_xmalloc(dirname_length+1);
81     strncpy(dirname, filepath, dirname_length);
82     dirname[dirname_length] = 0;
83
84     return dirname;
85 }
86
87
88
89 /****************
90  * Construct a filename from the NULL terminated list of parts.
91  * Tilde expansion is done here.
92  */
93 char *
94 make_filename( const char *first_part, ... )
95 {
96     va_list arg_ptr ;
97     size_t n;
98     const char *s;
99     char *name, *home, *p;
100
101     va_start( arg_ptr, first_part ) ;
102     n = strlen(first_part)+1;
103     while( (s=va_arg(arg_ptr, const char *)) )
104         n += strlen(s) + 1;
105     va_end(arg_ptr);
106
107     home = NULL;
108     if( *first_part == '~' && first_part[1] == '/'
109                            && (home = getenv("HOME")) && *home )
110         n += strlen(home);
111
112     name = gcry_xmalloc(n);
113     p = home ? stpcpy(stpcpy(name,home), first_part+1)
114              : stpcpy(name, first_part);
115     va_start( arg_ptr, first_part ) ;
116     while( (s=va_arg(arg_ptr, const char *)) )
117         p = stpcpy(stpcpy(p,"/"), s);
118     va_end(arg_ptr);
119
120     return name;
121 }
122
123
124 int
125 compare_filenames( const char *a, const char *b )
126 {
127     /* ? check whether this is an absolute filename and
128      * resolve symlinks?
129      */
130   #ifdef HAVE_DRIVE_LETTERS
131     return stricmp(a,b);
132   #else
133     return strcmp(a,b);
134   #endif
135 }
136
137
138 /****************
139  * A simple function to decide whether the filename is stdout
140  * or a real filename.
141  */
142 const char *
143 print_fname_stdout( const char *s )
144 {
145     if( !s || (*s == '-' && !s[1]) )
146         return "[stdout]";
147     return s;
148 }
149
150
151 const char *
152 print_fname_stdin( const char *s )
153 {
154     if( !s || (*s == '-' && !s[1]) )
155         return "[stdin]";
156     return s;
157 }
158
159