/*--------------------------------------------------------------------
 * FICHERO:  LisTotal.c
 * OBJETIVO: Definir la funcin Lis_Total()
 * AUTOR:    Pedro Reina
 * FECHA:    J.20.4.1995
 *------------------------------------------------------------------*/

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

#include "Lista.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Lis_Total()
 * OBJETIVO: Calcular el nmero de elementos de una lista
 * ENTRADAS: Una lista
 * SALIDAS:  El nmero de elementos
 * EJEMPLO:  Lis_Total (Agenda)
 *------------------------------------------------------------------*/
entero Lis_Total (L)
lista L;
  {
  entero Num=0;

  while ( L )
    {
    Num++;
    L = Lis_Siguiente (L);
    }

  return ( Num );
  }