nasmlib/filename.c

   1 /* ----------------------------------------------------------------------- *
   2  *
   3  *   Copyright 1996-2016 The NASM Authors - All Rights Reserved
   4  *   See the file AUTHORS included with the NASM distribution for
   5  *   the specific copyright holders.
   6  *
   7  *   Redistribution and use in source and binary forms, with or without
   8  *   modification, are permitted provided that the following
   9  *   conditions are met:
  10  *
  11  *   * Redistributions of source code must retain the above copyright
  12  *     notice, this list of conditions and the following disclaimer.
  13  *   * Redistributions in binary form must reproduce the above
  14  *     copyright notice, this list of conditions and the following
  15  *     disclaimer in the documentation and/or other materials provided
  16  *     with the distribution.
  17  *
  18  *     THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND
  19  *     CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
  20  *     INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  21  *     MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  22  *     DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
  23  *     CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  24  *     SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  25  *     NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
  26  *     LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  27  *     HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  28  *     CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
  29  *     OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE,
  30  *     EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  31  *
  32  * ----------------------------------------------------------------------- */
  33
  34 /*
  35  * nasmlib.c    library routines for the Netwide Assembler
  36  */
  37
  38 #include "compiler.h"
  39 #include "nasmlib.h"
  40
  41 void standard_extension(char *inname, char *outname, char *extension)
  42 {
  43     char *p, *q;
  44
  45     if (*outname)               /* file name already exists, */
  46         return;                 /* so do nothing */
  47     q = inname;
  48     p = outname;
  49     while (*q)
  50         *p++ = *q++;            /* copy, and find end of string */
  51     *p = '\0';                  /* terminate it */
  52     while (p > outname && *--p != '.') ;        /* find final period (or whatever) */
  53     if (*p != '.')
  54         while (*p)
  55             p++;                /* go back to end if none found */
  56     if (!strcmp(p, extension)) {        /* is the extension already there? */
  57         if (*extension)
  58             nasm_error(ERR_WARNING | ERR_NOFILE,
  59                        "file name already ends in `%s': "
  60                        "output will be in `nasm.out'", extension);
  61         else
  62             nasm_error(ERR_WARNING | ERR_NOFILE,
  63                        "file name already has no extension: "
  64                        "output will be in `nasm.out'");
  65         strcpy(outname, "nasm.out");
  66     } else
  67         strcpy(p, extension);
  68 }