/*--------------------------------------------------------------------
 * FICHERO:  LisAnFin.c
 * OBJETIVO: Definir la funcin Lis_AnotaFin()
 * AUTOR:    Pedro Reina
 * FECHA:    J.13.7.1995
 *------------------------------------------------------------------*/

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

#include "Lista.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Lis_AnotaFin()
 * OBJETIVO: Anotar un elemento en una lista: si la lista no 
 *           tena contenido, el elemento se coloca como 
 *           contenido; si la lista ya tena contenido, se crea 
 *           un nodo nuevo, se pone el elemento como contenido
 *           y se aade a la lista, colocndose en ltimo lugar
 * ENTRADAS: La lista y el contenido del nuevo elemento
 * SALIDAS:  Una lista nueva o la antigua si no ha sido 
 *           posible realizar la anotacin
 * EJEMPLO:  Lis_AnotaFin (Agenda,Nombre)
 *------------------------------------------------------------------*/
lista Lis_AnotaFin (L,C)
lista   L;
memoria C;
  {
  lista Respuesta;

  if ( Lis_Contenido(L) )
    { Respuesta = Lis_AgregaFin (L,C); }
  
  else
    {
    Lis_PonContenido (L,C);
    Respuesta = L;
    }

  return ( Respuesta );
  }