BGI/soap_src/soap_builder/inistrlib.c

   1
   2 /*-------------------------------------------------------------------------*/
   3 /**
   4   @file         strlib.c
   5   @author       N. Devillard
   6   @date         Jan 2001
   7   @version      $Revision: 1.8 $
   8   @brief        Various string handling routines to complement the C lib.
   9
  10   This modules adds a few complementary string routines usually missing
  11   in the standard C library.
  12 */
  13 /*--------------------------------------------------------------------------*/
  14
  15 /*
  16         $Id: strlib.c,v 1.8 2002/12/12 10:29:16 ndevilla Exp $
  17         $Author: ndevilla $
  18         $Date: 2002/12/12 10:29:16 $
  19         $Revision: 1.8 $
  20 */
  21
  22 /*---------------------------------------------------------------------------
  23                                                                 Includes
  24  ---------------------------------------------------------------------------*/
  25
  26 #include <string.h>
  27 #include <ctype.h>
  28 #include <stdlib.h>
  29
  30 #include "inistrlib.h"
  31
  32 /*---------------------------------------------------------------------------
  33                                                             Defines
  34  ---------------------------------------------------------------------------*/
  35 #define ASCIILINESZ     1024
  36
  37 /*---------------------------------------------------------------------------
  38                                                         Function codes
  39  ---------------------------------------------------------------------------*/
  40
  41
  42 /*-------------------------------------------------------------------------*/
  43 /**
  44   @brief        Convert a string to lowercase.
  45   @param        s       String to convert.
  46   @return       ptr to statically allocated string.
  47
  48   This function returns a pointer to a statically allocated string
  49   containing a lowercased version of the input string. Do not free
  50   or modify the returned string! Since the returned string is statically
  51   allocated, it will be modified at each function call (not re-entrant).
  52  */
  53 /*--------------------------------------------------------------------------*/
  54
  55 char * inistrlwc(char * s)
  56 {
  57     static char l[ASCIILINESZ+1];
  58     int i ;
  59
  60     if (s==NULL) return NULL ;
  61     memset(l, 0, ASCIILINESZ+1);
  62     i=0 ;
  63     while (s[i] && i<ASCIILINESZ) {
  64         l[i] = (char)tolower((int)s[i]);
  65         i++ ;
  66     }
  67     l[ASCIILINESZ]=(char)0;
  68     return l ;
  69 }
  70
  71
  72
  73 /*-------------------------------------------------------------------------*/
  74 /**
  75   @brief        Convert a string to uppercase.
  76   @param        s       String to convert.
  77   @return       ptr to statically allocated string.
  78
  79   This function returns a pointer to a statically allocated string
  80   containing an uppercased version of the input string. Do not free
  81   or modify the returned string! Since the returned string is statically
  82   allocated, it will be modified at each function call (not re-entrant).
  83  */
  84 /*--------------------------------------------------------------------------*/
  85
  86 char * inistrupc(char * s)
  87 {
  88     static char l[ASCIILINESZ+1];
  89     int i ;
  90
  91     if (s==NULL) return NULL ;
  92     memset(l, 0, ASCIILINESZ+1);
  93     i=0 ;
  94     while (s[i] && i<ASCIILINESZ) {
  95         l[i] = (char)toupper((int)s[i]);
  96         i++ ;
  97     }
  98     l[ASCIILINESZ]=(char)0;
  99     return l ;
 100 }
 101
 102
 103
 104 /*-------------------------------------------------------------------------*/
 105 /**
 106   @brief        Skip blanks until the first non-blank character.
 107   @param        s       String to parse.
 108   @return       Pointer to char inside given string.
 109
 110   This function returns a pointer to the first non-blank character in the
 111   given string.
 112  */
 113 /*--------------------------------------------------------------------------*/
 114
 115 char * inistrskp(char * s)
 116 {
 117     char * skip = s;
 118         if (s==NULL) return NULL ;
 119     while (isspace((int)*skip) && *skip) skip++;
 120     return skip ;
 121 }
 122
 123
 124
 125 /*-------------------------------------------------------------------------*/
 126 /**
 127   @brief        Remove blanks at the end of a string.
 128   @param        s       String to parse.
 129   @return       ptr to statically allocated string.
 130
 131   This function returns a pointer to a statically allocated string,
 132   which is identical to the input string, except that all blank
 133   characters at the end of the string have been removed.
 134   Do not free or modify the returned string! Since the returned string
 135   is statically allocated, it will be modified at each function call
 136   (not re-entrant).
 137  */
 138 /*--------------------------------------------------------------------------*/
 139
 140 char * inistrcrop(char * s)
 141 {
 142     static char l[ASCIILINESZ+1];
 143         char * last ;
 144
 145     if (s==NULL) return NULL ;
 146     memset(l, 0, ASCIILINESZ+1);
 147         strcpy(l, s);
 148         last = l + strlen(l);
 149         while (last > l) {
 150                 if (!isspace((int)*(last-1)))
 151                         break ;
 152                 last -- ;
 153         }
 154         *last = (char)0;
 155     return l ;
 156 }
 157
 158
 159
 160 /*-------------------------------------------------------------------------*/
 161 /**
 162   @brief        Remove blanks at the beginning and the end of a string.
 163   @param        s       String to parse.
 164   @return       ptr to statically allocated string.
 165
 166   This function returns a pointer to a statically allocated string,
 167   which is identical to the input string, except that all blank
 168   characters at the end and the beg. of the string have been removed.
 169   Do not free or modify the returned string! Since the returned string
 170   is statically allocated, it will be modified at each function call
 171   (not re-entrant).
 172  */
 173 /*--------------------------------------------------------------------------*/
 174 char * inistrstrip(char * s)
 175 {
 176     static char l[ASCIILINESZ+1];
 177         char * last ;
 178
 179     if (s==NULL) return NULL ;
 180
 181         while (isspace((int)*s) && *s) s++;
 182
 183         memset(l, 0, ASCIILINESZ+1);
 184         strcpy(l, s);
 185         last = l + strlen(l);
 186         while (last > l) {
 187                 if (!isspace((int)*(last-1)))
 188                         break ;
 189                 last -- ;
 190         }
 191         *last = (char)0;
 192
 193         return (char*)l ;
 194 }
 195
 196 /*-------------------------------------------------------------------------*/
 197 /**
 198   @brief    Duplicate a string by allocating memory and copy the contents.
 199   @param    s   String to duplicate.
 200   @return   ptr to dynamically allocated string.
 201
 202   This function returns a pointer to a dynamically allocated string,
 203   which is identical to the input string.
 204   Free the returned string when it is no longer used.
 205  */
 206 /*--------------------------------------------------------------------------*/
 207 char *inistrdup(const char *s) {
 208
 209         int l;
 210         char *dup;
 211
 212         l = (int)strlen(s) + 1;
 213
 214         dup = malloc(l);
 215         if (dup == NULL) {
 216                 return NULL;
 217         }
 218
 219         memcpy(dup, s, l);
 220
 221         return dup;
 222
 223 }
 224
 225
 226