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
49const 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
78const 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
97char* 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