/*--------------------------------------------------------------------
 * FICHERO:  FchExist.c
 * OBJETIVO: Definir la funcin Fch_Existe()
 * AUTOR:    Pedro Reina
 * FECHA:    D.23.4.1995
 *------------------------------------------------------------------*/

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

#include "Fichero.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Fch_Existe()
 * OBJETIVO: Informar si un fichero existe
 * ENTRADAS: El nombre del fichero
 * SALIDAS:  Lgica
 * EJEMPLO:  Fch_Existe ( "Datos.dat" )
 * ALGORITMO:
 *      Se intenta abrir el fichero para lectura
 *      Si se puede, es que existe, y se cierra
 *      Si no se puede, no existe
 *------------------------------------------------------------------*/
logico Fch_Existe (Nombre)
cadena Nombre;
  {
  logico  Respuesta;
  fichero Fichero;

  if ( Fichero = Fch_Abre (Nombre,"r") )
    {
    Respuesta = SI;
    Fch_Cierra (Fichero);
    }
  else
    { Respuesta = NO; }

  return ( Respuesta );
  }
