/*--------------------------------------------------------------------
 * FICHERO:  FchEscrL.c
 * OBJETIVO: Definir la funcin Fch_EscribeLinea()
 * AUTOR:    Pedro Reina
 * FECHA:    V.14.7.1995
 *------------------------------------------------------------------*/

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

#include "Fichero.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Fch_EscribeLinea()
 * OBJETIVO: Escribir una lnea en un fichero (es decir,
 *           se pone '\n')
 * ENTRADAS: El fichero y una cadena
 * SALIDAS:  Lgica, que indica si todo ha ido bien
 * EJEMPLO:  Fch_EscribeLinea ( Salida, Linea )
 *------------------------------------------------------------------*/
logico Fch_EscribeLinea (Fichero, Cadena)
fichero Fichero;
cadena  Cadena;
  {
  int    Estado;
  logico Respuesta;
  cadena Mensaje;

  Respuesta = SI;

  Estado = fprintf ( Fch_Manejador(Fichero), "%s\n", Cadena );
  if ( Estado == EOF )
    {
    Mensaje = Cad_Une ("Error escribiendo en \"", Fch_NombreReal(Fichero),
                       "\"", CAD_FIN);
    Usr_Avisa (Mensaje);
    Cad_Destruye (Mensaje);
    Respuesta = NO;
    }

  return ( Respuesta );
  }
