← Back to branch summary

~noskcaj/ubuntu/saucy/xinetd/2.3.15

« back to all changes in this revision

Viewing changes to libs/src/str/strutil.c

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Seyrat
  • Date: 2004-04-18 13:33:57 UTC
  • Revision ID: james.westby@ubuntu.com-20040418133357-czeqeju37433xvdd
Tags: upstream-2.3.13
Import upstream version 2.3.13

Show diffs side-by-side

added added

removed removed

Lines of Context:
libs/src/str/strutil.c
 
1
/*
 
2
 * (c) Copyright 1992, 1993 by Panagiotis Tsirigotis
 
3
 * All rights reserved.  The file named COPYRIGHT specifies the terms 
 
4
 * and conditions for redistribution.
 
5
 */
 
6
 
 
7
#include "config.h"
 
8
#include <string.h>
 
9
#include <ctype.h>
 
10
 
 
11
#ifndef NULL
 
12
#define NULL                            0
 
13
#endif
 
14
 
 
15
#define TRIVIAL_STR_FIND 1
 
16
 
 
17
#ifndef TRIVIAL_STR_FIND
 
18
 
 
19
#define LOWER_CASE( c )                                 ( (c) + 'a' - 'A' )
 
20
 
 
21
/*
 
22
 * look for an instance of sstr in str
 
23
 * Returns a pointer to the beginning of sstr in str.
 
24
 * It ignores the case of the alphabetic characters
 
25
 */
 
26
char *str_casefind( register char *str, char *sstr )
 
27
{
 
28
        register int ssfc = *sstr++ ;           /* sub-string first char */
 
29
 
 
30
        if ( ssfc == 0 )
 
31
                return( str ) ;
 
32
 
 
33
        if ( isalpha( ssfc ) && isupper( ssfc ) )
 
34
                ssfc = LOWER_CASE( ssfc ) ;
 
35
 
 
36
        while ( *str )
 
37
        {
 
38
                char *current = str ;
 
39
                register int strc = *str++ ;
 
40
                char *sp ;                                                      /* string pointer */
 
41
                char *ssp ;                                                     /* sub-string pointer */
 
42
 
 
43
                if ( isalpha( strc ) && isupper( strc ) )
 
44
                        strc = LOWER_CASE( strc ) ;
 
45
                if ( strc != ssfc )
 
46
                        continue ;
 
47
                
 
48
                for ( sp = str, ssp = sstr ;; sp++, ssp++ )
 
49
                {
 
50
                        register int sc = *sp ;                         /* string char */
 
51
                        register int ssc = *ssp ;                       /* substring char */
 
52
 
 
53
                        /*
 
54
                         * End-of-substring means we got a match
 
55
                         */
 
56
                        if ( ssc == 0 )
 
57
                                return( current ) ;
 
58
 
 
59
                        /*
 
60
                         * Convert to lower case if alphanumeric
 
61
                         */
 
62
                        if ( isalpha( sc ) && isupper( sc ) )
 
63
                                sc = LOWER_CASE( sc ) ;
 
64
                        if ( isalpha( ssc ) && isupper( ssc ) )
 
65
                                ssc = LOWER_CASE( ssc ) ;
 
66
                        if ( sc != ssc )
 
67
                                break ;
 
68
                }
 
69
        }
 
70
 
 
71
        return( 0 ) ;
 
72
}
 
73
 
 
74
 
 
75
#else           /* defined( TRIVIAL_STR_FIND ) */
 
76
 
 
77
/*
 
78
 * look for an instance of s2 in s1
 
79
 * Returns a pointer to the beginning of s2 in s1.
 
80
 * It ignores the case of the alphabetic characters
 
81
 */
 
82
char *str_casefind( char *s1, const char *s2 )
 
83
{
 
84
   unsigned int i ;
 
85
   unsigned long l1 = strlen( s1 ) ;
 
86
   unsigned long l2 = strlen( s2 ) ;
 
87
   
 
88
   if ( l2 > l1 )
 
89
      return( NULL ) ;
 
90
 
 
91
   for ( i = 0 ; i < l1 - l2 + 1 ; i++ )
 
92
      if ( strncasecmp( &s1[ i ], s2, l2 ) == 0 )
 
93
         return( (char *) &s1[ i ] ) ;
 
94
   return( NULL ) ;
 
95
}
 
96
 
 
97
#endif  /* TRIVIAL_STR_FIND */
 
98
 
 
99
 
 
100
/*
 
101
 * Fill string s with character c
 
102
 */
 
103
void str_fill( char *s, char c )
 
104
{
 
105
        while ( *s ) *s++ = c ;
 
106
}
 
107