source: trunk/WRF.COMMON/WRFV2/external/io_grib1/trim.c @ 3567

Last change on this file since 3567 was 11, checked in by aslmd, 14 years ago

spiga@svn-planeto:ajoute le modele meso-echelle martien

File size: 517 bytes
Line 
1#include <stdio.h>
2#include <stdlib.h>
3
4char *trim (char *str)
5{
6      char *ibuf, *obuf;
7
8      if (str)
9      {
10            for (ibuf = obuf = str; *ibuf; )
11            {
12                  while (*ibuf && (isspace (*ibuf)))
13                        ibuf++;
14                  if (*ibuf && (obuf != str))
15                        *(obuf++) = ' ';
16                  while (*ibuf && (!isspace (*ibuf)))
17                        *(obuf++) = *(ibuf++);
18            }
19            *obuf = '\0';
20      }
21      return (str);
22}
23
Note: See TracBrowser for help on using the repository browser.