git.sur5r.net Git - cc65/blob - src/common/fname.c

   1 /*****************************************************************************/
   2 /*                                                                           */
   3 /*                                  fname.c                                  */
   4 /*                                                                           */
   5 /*                       File name handling utilities                        */
   6 /*                                                                           */
   7 /*                                                                           */
   8 /*                                                                           */
   9 /* (C) 2000-2003 Ullrich von Bassewitz                                       */
  10 /*               Römerstrasse 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
 119
 120