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

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

#include "Cadena.h"
#include <ctype.h>      /*  isspace()  */

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Cad_RecortaFinal()
 * OBJETIVO: Quitar de una cadena el espacio en blanco final
 * ENTRADAS: Una cadena
 * SALIDAS:  La cadena se modifica y se devuelve
 * EJEMPLO:  Cad_RecortaFinal ("Esto es todo.     ")
 *------------------------------------------------------------------*/
cadena Cad_RecortaFinal (Cadena)
cadena Cadena;
  {
  contador i;

  for ( i=Cad_Longitud(Cadena)-1 ; 
        isspace (Cadena[i]) && i>=0 ; 
        i-- )
    { Cadena[i] = NULO; }

  return ( Cadena );
  }
