#include <stdio.h>

/*
 =======================================================================

     ligspc =  sous programme C
                   teste le contenu d'une chaine de caracteres

     parametres =
        e       zlig    = chaine de caracteres a analyser,
        e       llig    = longueur de la chaine de caracteres.

        retourne =
           kerr = 1 si la chaine est uniquement composee d'espaces
                        ou de \n, \t, \r, \v, \f,
                    = 0 sinon.

     generiques =
         err    = erreur
      P...      = pointeur
      S...      = structure
       ...t     = tableau

     auteur = marimai.henaff    iut.orsay
     version 1.3 du 5/5/92

 =======================================================================
*/

int ligspc ( zlig, llig)
int     llig;
char    *zlig;

{

        /* ... variables locales ... */

        int     kerr ;
        int     icar ;
        char    car ;

        /* ... initialisations ...................................... */

        kerr = 0 ;
        icar = 0 ;

        car = zlig[icar] ;

        /* ... debut du traitement .................................. */

        while ( ( isspace ( car)) && (icar < llig) &&
                ( car != '\0')) {
                car= zlig[++icar] ;
        }
        if ( isspace ( car) || ( car == '\0')) {
                kerr = 1 ;
        }

        /* ... fin du traitement .................................... */

        return ( kerr) ;

}