|
1268
|
1 /* make_suffix.c: unconditionally add a filename suffix. |
|
|
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 |
|
|
17 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ |
|
|
18 |
|
|
19 #include <kpathsea/config.h> |
|
|
20 |
|
|
21 |
|
|
22 /* Return a new string: S suffixed with SUFFIX, regardless of what it |
|
|
23 was before. This returns a newly allocated string. */ |
|
|
24 |
|
|
25 string |
|
|
26 make_suffix P2C(const_string, s, const_string, suffix) |
|
|
27 { |
|
|
28 string new_s; |
|
|
29 const_string dot_pos = strrchr (s, '.'); |
|
|
30 const_string slash_pos = strrchr (s, '/'); |
|
|
31 |
|
|
32 if (dot_pos == NULL || dot_pos < slash_pos) |
|
|
33 new_s = concat3 (s, ".", suffix); |
|
|
34 else |
|
|
35 { |
|
|
36 unsigned past_dot_index = dot_pos + 1 - s; |
|
|
37 |
|
|
38 new_s = (string) xmalloc (past_dot_index + strlen (suffix) + 1); |
|
|
39 strncpy (new_s, s, dot_pos + 1 - s); |
|
|
40 strcpy (new_s + past_dot_index, suffix); |
|
|
41 } |
|
|
42 |
|
|
43 return new_s; |
|
|
44 } |
