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

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

#include "Fichero.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Fch_AbreLeer()
 * OBJETIVO: Abrir un fichero para leerlo
 * ENTRADAS: El nombre del fichero y el modo: texto o binario
 * SALIDAS:  El fichero abierto o NIL si ha habido algn error
 * EJEMPLO:  Fch_AbreLeer ( "Datos.dat", FCH_TEXTO )
 * ALGORITMO:
 *      Se intenta abrir el fichero
 *      Si se puede, se devuelve
 *      Si no se puede, se informa al usuario y se devuelve NIL
 *------------------------------------------------------------------*/
fichero Fch_AbreLeer (Nombre, Modo)
cadena Nombre;
octeto Modo;
  {
  fichero Fichero;
  cadena  Mensaje, IndicadorModo;

  if ( Modo == FCH_TEXTO ) { IndicadorModo = "r"; }
  else                     { IndicadorModo = "rb"; }

  Fichero = Fch_Abre (Nombre,IndicadorModo);
  if ( !Fichero )
    {
    Mensaje = Cad_Une ("El fichero \"",Nombre,"\" no se puede leer",CAD_FIN);
    Usr_Avisa (Mensaje);
    Cad_Destruye (Mensaje);
    }

  return ( Fichero );
  }