1 | /*****************************************************************************/ |
2 | /* */ |
3 | /* fname.c */ |
4 | /* */ |
5 | /* File name handling utilities */ |
6 | /* */ |
7 | /* */ |
8 | /* */ |
9 | /* (C) 2000-2003 Ullrich von Bassewitz */ |
10 | /* Roemerstrasse 52 */ |
11 | /* D-70794 Filderstadt */ |
12 | /* EMail: uz@cc65.org */ |
13 | /* */ |
14 | /* */ |
15 | /* This software is provided 'as-is', without any expressed or implied */ |
16 | /* warranty. In no event will the authors be held liable for any damages */ |
17 | /* arising from the use of this software. */ |
18 | /* */ |
19 | /* Permission is granted to anyone to use this software for any purpose, */ |
20 | /* including commercial applications, and to alter it and redistribute it */ |
21 | /* freely, subject to the following restrictions: */ |
22 | /* */ |
23 | /* 1. The origin of this software must not be misrepresented; you must not */ |
24 | /* claim that you wrote the original software. If you use this software */ |
25 | /* in a product, an acknowledgment in the product documentation would be */ |
26 | /* appreciated but is not required. */ |
27 | /* 2. Altered source versions must be plainly marked as such, and must not */ |
28 | /* be misrepresented as being the original software. */ |
29 | /* 3. This notice may not be removed or altered from any source */ |
30 | /* distribution. */ |
31 | /* */ |
32 | /*****************************************************************************/ |
33 | |
34 | |
35 | |
36 | #include <string.h> |
37 | |
38 | #include "xmalloc.h" |
39 | #include "fname.h" |
40 | |
41 | |
42 | |
43 | /*****************************************************************************/ |
44 | /* Code */ |
45 | /*****************************************************************************/ |
46 | |
47 | |
48 | |
49 | const char* FindExt (const char* Name) |
50 | /* Return a pointer to the file extension in Name or NULL if there is none */ |
51 | { |
52 | const char* S; |
53 | |
54 | /* Get the length of the name */ |
55 | unsigned Len = strlen (Name); |
56 | if (Len < 2) { |
57 | return 0; |
58 | } |
59 | |
60 | /* Get a pointer to the last character */ |
61 | S = Name + Len - 1; |
62 | |
63 | /* Search for the dot, beware of subdirectories */ |
64 | while (S >= Name && *S != '.' && *S != '\\' && *S != '/') { |
65 | --S; |
66 | } |
67 | |
68 | /* Did we find an extension? */ |
69 | if (*S == '.') { |
70 | return S; |
71 | } else { |
72 | return 0; |
73 | } |
74 | } |
75 | |
76 | |
77 | |
78 | const char* FindName (const char* Path) |
79 | /* Return a pointer to the file name in Path. If there is no path leading to |
80 | ** the file, the function returns Path as name. |
81 | */ |
82 | { |
83 | /* Get the length of the name */ |
84 | int Len = strlen (Path); |
85 | |
86 | /* Search for the path separator */ |
87 | while (Len > 0 && Path[Len-1] != '\\' && Path[Len-1] != '/') { |
88 | --Len; |
89 | } |
90 | |
91 | /* Return the name or path */ |
92 | return Path + Len; |
93 | } |
94 | |
95 | |
96 | |
97 | char* MakeFilename (const char* Origin, const char* Ext) |
98 | /* Make a new file name from Origin and Ext. If Origin has an extension, it |
99 | ** is removed and Ext is appended. If Origin has no extension, Ext is simply |
100 | ** appended. The result is placed in a malloc'ed buffer and returned. |
101 | ** The function may be used to create "foo.o" from "foo.s". |
102 | */ |
103 | { |
104 | char* Out; |
105 | const char* P = FindExt (Origin); |
106 | if (P == 0) { |
107 | /* No dot, add the extension */ |
108 | Out = xmalloc (strlen (Origin) + strlen (Ext) + 1); |
109 | strcpy (Out, Origin); |
110 | strcat (Out, Ext); |
111 | } else { |
112 | Out = xmalloc (P - Origin + strlen (Ext) + 1); |
113 | memcpy (Out, Origin, P - Origin); |
114 | strcpy (Out + (P - Origin), Ext); |
115 | } |
116 | return Out; |
117 | } |
118 | |