/*--------------------------------------------------------------------
 * FICHERO:  IndEscPa.c
 * OBJETIVO: Definir la funcin Ind_EscribePagina()
 * AUTOR:    Pedro Reina
 * FECHA:    M.1.8.1995
 *------------------------------------------------------------------*/

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

#include "Indice.h"

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

/*--------------------------------------------------------------------
 * FUNCION:  Ind_EscribePagina()
 * OBJETIVO: Escribir en el fichero la pgina en memoria
 * ENTRADAS: El ndice y la posicin relativa en el fichero de la pgina
 * SALIDAS:  Lgica, que indica si se ha podido escribir
 * EJEMPLO:  Ind_EscribePagina ( Agenda, 2048 )
 * NOTA:     La pgina debe existir ya en el fichero
 *------------------------------------------------------------------*/
logico Ind_EscribePagina (Indice, Posicion)
indice Indice;
entero Posicion;
  {
  Fch_Coloca (Ind_Fichero(Indice),0);  /* Exigencia del QL */
  Fch_Coloca (Ind_Fichero(Indice),Posicion);
  return ( Fch_EscribeOcteto (Ind_Fichero(Indice),Ind_Pagina(Indice),
                              IND_PAGINA) );
  }