/*--------------------------------------------------------------------
 * FICHERO:  FchNombr.c
 * OBJETIVO: Definir la funcin Fch_Nombre()
 * AUTOR:    Pedro Reina
 * FECHA:    J.25.3.1994
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------------
 * Ficheros de cabecera
 *------------------------------------------------------------------*/

#include "Fichero.h"

/*--------------------------------------------------------------------
 * Definicin de macros constantes
 *------------------------------------------------------------------*/

#ifdef OLIMPO_PC
#define FCH_SEPARADOR   "."
#endif

#ifdef OLIMPO_QL
#define FCH_SEPARADOR   "_"
#endif

/*--------------------------------------------------------------------
 * Definicin de funciones
 *------------------------------------------------------------------*/

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Fch_Nombre()
 * OBJETIVO: Formar el nombre completo de un fichero uniendo 
 *           el nombre, el separador y la extensin
 * ENTRADAS: El nombre y la extensin
 * SALIDAS:  La cadena con el nombre completo
 * NOTA:     La cadena devuelta hay que destruirla cuando no
 *           sea necesaria
 * EJEMPLO:  Fch_Nombre ( "Datos", "txt" )
 *------------------------------------------------------------------*/
cadena Fch_Nombre ( Nombre, Extension )
cadena Nombre, Extension;
  {
  cadena Respuesta;

  if ( Extension[0] )
    { Respuesta = Cad_Une (Nombre,FCH_SEPARADOR,Extension,CAD_FIN); }
  else
    { Respuesta = Cad_Duplica (Nombre); }

  return ( Respuesta );
  }