SetExtn.c

Go to the documentation of this file.

/************************************************************************/
/**

   \file       SetExtn.c
   
   \version    V1.21
   \date       07.07.14
   \brief      
   
   \copyright  (c) UCL / Dr. Andrew C. R. Martin 1991-2014
   \author     Dr. Andrew C. R. Martin
   \par
               Institute of Structural & Molecular Biology,
               University College London,
               Gower Street,
               London.
               WC1E 6BT.
   \par
               andrew@bioinf.org.uk
               andrew.martin@ucl.ac.uk
               
**************************************************************************

   This code is NOT IN THE PUBLIC DOMAIN, but it may be copied
   according to the conditions laid out in the accompanying file
   COPYING.DOC.

   The code may be modified as required, but any modifications must be
   documented so that the person responsible can be identified.

   The code may not be sold commercially or included as part of a 
   commercial product except as described in the file COPYING.DOC.

**************************************************************************

   Description:
   ============


**************************************************************************

   Usage:
   ======

**************************************************************************

   Revision History:
   =================
-  V1.1  08.02.91 Added KillLine()
-  V1.2  10.02.91 Added setextn() and index()
-  V1.3  20.03.91 Added Word()
-  V1.4  28.05.92 ANSIed
-  V1.5  22.06.92 Added tab check to Word(). Improved setextn().
                  Added WordN(). Documented other routines.
-  V1.6  27.07.93 Corrected fsscanf() for double precision
-  V1.7  07.10.93 Checks made on case before toupper()/tolower()
                  for SysV compatibility. Also index() becomes
                  chindex()
-  V1.8  18.03.94 getc() -> fgetc()
-  V1.9  11.05.94 Added GetFilestem(), upstrcmp(), upstrncmp() &
                  GetWord()
-  V1.10 24.08.94 Added OpenStdFiles()
-  V1.11 08.03.95 Corrected OpenFile() for non-UNIX
-  V1.12 09.03.95 Added check on non-NULL filename in OpenFile()
-  V1.13 17.07.95 Added countchar()
-  V1.14 18.10.95 Moved YorN() to WindIO.c
-  V1.15 06.11.95 Added StoreString(), InStringList() and FreeStringList()
-  V1.16 22.11.95 Moved ftostr() to generam.c
-  V1.17 15.12.95 Added QueryStrStr()
-  V1.18 18.12.95 OpenStdFiles() treats filename of - as stdin/stdout
-  V1.19 05.02.96 OpenStdFiles() allows NULL pointers instead if filenames
-  V1.20 18.09.96 Added padchar()
-  V2.21 07.07.14 Use bl prefix for functions By: CTP

*************************************************************************/
/* Doxygen
   -------
   #GROUP    General Programming
   #SUBGROUP File IO
   #FUNCTION  blSetExtn()
   Force a filename extension. Modifies the input filename to have the
   specified extension.
*/
/************************************************************************/
/* Includes
*/
#include <string.h>
#include "SysDefs.h"

/************************************************************************/
/* Defines and macros
*/

/************************************************************************/
/* Globals
*/

/************************************************************************/
/* Prototypes
*/


/************************************************************************/
/*>void blSetExtn(char *File, char *Ext)
   -------------------------------------
*//**

   \param[in,out] *File     Filename to be modified
   \param[in]     *Ext      New extension

   Force a filename extension. Modifies the input filename to have the
   specified extension. Note that the string File should be large enough
   to cope with longer extensions, if required. Searches back through the
   string to find a `.' Anything after this is replaced with the 
   specified extension. The search for a `.' stops as soon as a `/',`\',
   or a `:' is found as these indicate a directory. If no `.' is found,
   one is appended to the string and the extension is added.

-  10.02.91 Original
-  28.05.92 ANSIed
-  22.06.92 Improved to work from end of string for Unix filenames, etc.
-  11.03.94 Added check on '\' for MS-DOS
-  07.07.14 Use bl prefix for functions By: CTP
*/
void blSetExtn(char *File, char *Ext)
{
   int   pos,
         InDir    = FALSE;
   
   pos = strlen(File);
   
   while(--pos >= 0 && File[pos] != '.')
   {
      if(File[pos] == ':' || File[pos] == '/' || File[pos] == '\\')
      {
         InDir = TRUE;
         break;
      }
   }
   
   if(pos >= 0 && !InDir)           /* Dot found, change extension      */
   {
      strcpy(File+pos+1, Ext);
      File[pos+1+strlen(Ext)] = '\0';
   }
   else                             /* No dot found, just append ext.   */
   {
      strcat(File,".");
      strcat(File,Ext);
   }
}