cc65/src/common/fname.c

/*****************************************************************************/
/*                                                                           */
/*                                  fname.c                                  */
/*                                                                           */
/*                       File name handling utilities                        */
/*                                                                           */
/*                                                                           */
/*                                                                           */
/* (C) 2000-2003 Ullrich von Bassewitz                                       */
/*               Roemerstrasse 52                                            */
/*               D-70794 Filderstadt                                         */
/* EMail:        uz@cc65.org                                                 */
/*                                                                           */
/*                                                                           */
/* This software is provided 'as-is', without any expressed or implied       */
/* warranty.  In no event will the authors be held liable for any damages    */
/* arising from the use of this software.                                    */
/*                                                                           */
/* Permission is granted to anyone to use this software for any purpose,     */
/* including commercial applications, and to alter it and redistribute it    */
/* freely, subject to the following restrictions:                            */
/*                                                                           */
/* 1. The origin of this software must not be misrepresented; you must not   */
/*    claim that you wrote the original software. If you use this software   */
/*    in a product, an acknowledgment in the product documentation would be  */
/*    appreciated but is not required.                                       */
/* 2. Altered source versions must be plainly marked as such, and must not   */
/*    be misrepresented as being the original software.                      */
/* 3. This notice may not be removed or altered from any source              */
/*    distribution.                                                          */
/*                                                                           */
/*****************************************************************************/



#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

#if defined(_MSC_VER)
#  include <process.h>
#else
#  include <unistd.h>
#endif

#include "xmalloc.h"
#include "fname.h"



/*****************************************************************************/
/*                                   Code                                    */
/*****************************************************************************/



const char* FindExt (const char* Name)
/* Return a pointer to the file extension in Name or NULL if there is none */
{
    const char* S;

    /* Get the length of the name */
    unsigned Len = strlen (Name);
    if (Len < 2) {
        return 0;
    }

    /* Get a pointer to the last character */
    S = Name + Len - 1;

    /* Search for the dot, beware of subdirectories */
    while (S >= Name && *S != '.' && *S != '\\' && *S != '/') {
        --S;
    }

    /* Did we find an extension? */
    if (*S == '.') {
        return S;
    } else {
        return 0;
    }
}



const char* FindName (const char* Path)
/* Return a pointer to the file name in Path. If there is no path leading to
** the file, the function returns Path as name.
*/
{
    /* Get the length of the name */
    int Len = strlen (Path);

    /* Search for the path separator */
    while (Len > 0 && Path[Len-1] != '\\' && Path[Len-1] != '/') {
        --Len;
    }

    /* Return the name or path */
    return Path + Len;
}

char *GetFileDirectory (const char* File)
/* Return a copy of the path part of a File, or NULL if there is none. */
{
    char *Out, *P;

    if (File == NULL) {
        return NULL;
    }

    Out = xmalloc (strlen (File) + 1);
    strcpy(Out, File);

    P = (char *)FindName (Out);
    if (P == Out) {
        /* This is a simple filename. */
        xfree (Out);
        return NULL;
    }
    *P = '\0';

    return Out;
}

char* MakeFilename (const char* Origin, const char* Ext)
/* Make a new file name from Origin and Ext. If Origin has an extension, it
** is removed and Ext is appended. If Origin has no extension, Ext is simply
** appended. The result is placed in a malloc'ed buffer and returned.
** The function may be used to create "foo.o" from "foo.s".
*/
{
    char* Out;
    const char* P = FindExt (Origin);
    if (P == 0) {
        /* No dot, add the extension */
        Out = xmalloc (strlen (Origin) + strlen (Ext) + 1);
        strcpy (Out, Origin);
        strcat (Out, Ext);
    } else {
        Out = xmalloc (P - Origin + strlen (Ext) + 1);
        memcpy (Out, Origin, P - Origin);
        strcpy (Out + (P - Origin), Ext);
    }
    return Out;
}



char* MakeTmpFilename (const char *Directory, const char *Origin, const char* Ext)
/* Make a new temporary file name from Origin and Ext.
** The result is placed in a malloc'ed buffer and returned.
*/
{
    char* Out;
    size_t Len = 0;
    static unsigned int Counter = 0;

    /* Allocate enough for the directory, ... */
    if (Directory != NULL) {
      Len = strlen (Directory);
    }

    /* ... plus the the original name, the maximum length of the PID, the
     * maximum length of the counter, the extension, and the terminator.
     */
    Len += strlen (Origin) + (strlen (".2147483648") * 2) + strlen (Ext) + 1;
    Out = xmalloc (Len);

    snprintf (Out, Len, "%s%s.%u%u%s", (Directory != NULL ? Directory : ""),
                                     FindName(Origin), getpid(), Counter, Ext);
    Counter++;

    return Out;
}