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