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

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

#include "Cadena.h"

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

/*--------------------------------------------------------------Olimpo
 * FUNCION:  Cad_PrimerUtil()
 * OBJETIVO: Decir la posicin del primer carcter de una
 *           cadena que no sea ni blanco, ni tabulador, ni 
 *           retorno de carro ni nueva lnea
 * ENTRADAS: La cadena
 * SALIDA:   La posicin que ocupa el primer carcter til, o 0
 * NOTA:     Se empieza a contar en 1
 * EJEMPLO:  Cad_PrimerUtil ( "   Ahora" )
 *------------------------------------------------------------------*/
contador Cad_PrimerUtil (Cadena)
cadena Cadena;
  {
  contador i, Respuesta;
  logico   Inutil;
  char     c;

  Inutil = SI;

  for ( i=0 ; Cadena[i] && Inutil ; i++ )
    {
    c = Cadena[i];
    if (  (c!=' ') && (c!='\t') && (c!='\r') && (c!='\n') ) { Inutil = NO; }
    }

  if ( Inutil ) { Respuesta = 0; }
  else          { Respuesta = i; }

  return (Respuesta);
  }