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

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

#include "Lista.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Lis_Crea()
 * OBJETIVO: Crear una lista y darle valores iniciales seguros
 * ENTRADAS: Ninguna
 * SALIDAS:  Una lista nueva o NIL si no hay memoria 
 *           para crearla
 * EJEMPLO:  Lis_Crea()
 *------------------------------------------------------------------*/
lista Lis_Crea()
  {
  lista Nuevo;

  Nuevo = (lista) Mem_Crea (sizeof(Lis_st));

  if ( Nuevo )
    {
    Lis_PonContenido (Nuevo,NIL);
    Lis_PonSiguiente (Nuevo,NIL);
    }

  return ( Nuevo );
  }