|
1268
|
1 /* extend-fname.c: give a filename a suffix, if necessary. |
|
|
2 |
|
|
3 Copyright (C) 1992, 93 Free Software Foundation, Inc. |
|
|
4 |
|
|
5 This program is free software; you can redistribute it and/or modify |
|
|
6 it under the terms of the GNU General Public License as published by |
|
|
7 the Free Software Foundation; either version 2, or (at your option) |
|
|
8 any later version. |
|
|
9 |
|
|
10 This program is distributed in the hope that it will be useful, |
|
|
11 but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
|
13 GNU General Public License for more details. |
|
|
14 |
|
|
15 You should have received a copy of the GNU General Public License |
|
|
16 along with this program; if not, write to the Free Software |
|
1315
|
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
|
1268
|
18 |
|
|
19 #include <kpathsea/config.h> |
|
|
20 |
|
|
21 |
|
|
22 /* We may or may not return NAME. It's up to the caller not to assume |
|
|
23 the return value is modifiable. */ |
|
|
24 |
|
|
25 string |
|
|
26 extend_filename P2C(const_string, name, const_string, default_suffix) |
|
|
27 { |
|
|
28 string new_s; |
|
|
29 const_string suffix = find_suffix (name); |
|
|
30 |
|
|
31 new_s = suffix == NULL ? concat3 (name, ".", default_suffix) |
|
|
32 : (string) name; |
|
|
33 return new_s; |
|
|
34 } |
