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

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

#include "Lista.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Lis_Agrega()
 * OBJETIVO: Aadir un elemento a una lista
 * ENTRADAS: La lista y el contenido del nuevo elemento
 * SALIDAS:  Una lista nueva o la antigua si no ha sido 
 *           posible realizar el agregado
 * EJEMPLO:  Lis_Agrega (Agenda,Nombre)
 * NOTA:     El elemento agregado se coloca el primero 
 *           de la lista
 *------------------------------------------------------------------*/
lista Lis_Agrega (L,C)
lista   L;
memoria C;
  {
  lista Nuevo, Respuesta;

  if ( Nuevo = Lis_Crea() )
    {
    Lis_PonContenido (Nuevo,C);
    Lis_PonSiguiente (Nuevo,L);
    Respuesta = Nuevo;
    }
  else { Respuesta = L; }

  return ( Respuesta );
  }