ITS#6262

[openldap] / libraries / libldap / string.c

diff --git a/libraries/libldap/string.c b/libraries/libldap/string.c
index a251a660cc304127a882c0977deab806fecca6dd..2f97f853ed471d3a575b1070c06a4ab8b814038d 100644 (file)
--- a/libraries/libldap/string.c
+++ b/libraries/libldap/string.c
@@ -1,26 +1,177 @@
+/* $OpenLDAP$ */
+/* This work is part of OpenLDAP Software <http://www.openldap.org/>.
+ *
+ * Copyright 1998-2010 The OpenLDAP Foundation.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted only as authorized by the OpenLDAP
+ * Public License.
+ *
+ * A copy of this license is available in the file LICENSE in the
+ * top-level directory of the distribution or, alternatively, at
+ * <http://www.OpenLDAP.org/license.html>.
+ */
+
 /*
- * Copyright 1998-1999 The OpenLDAP Foundation, All Rights Reserved.
- * COPYING RESTRICTIONS APPLY, see COPYRIGHT file
+ * Locale-specific 1-byte character versions
+ * See utf-8.c for UTF-8 versions
  */
 
 #include "portable.h"
 
-#include <stdlib.h>
+#include <ac/stdlib.h>
 #include <ac/string.h>
 #include <ac/time.h>
+#include <ac/ctype.h>
 
 #include "ldap-int.h"
 
+
+#if defined ( HAVE_STRSPN )
+#define int_strspn strspn
+#else
+static int int_strspn( const char *str, const char *delim )
+{
+       int pos;
+       const char *p=delim;
+
+       for( pos=0; (*str) ; pos++,str++) {
+               if (*str!=*p) {
+                       for( p=delim; (*p) ; p++ ) {
+                               if (*str==*p) {
+                                       break;
+                               }
+                       }
+               }
+
+               if (*p=='\0') {
+                       return pos;
+               }
+       }
+       return pos;
+}
+#endif
+
+#if defined( HAVE_STRPBRK )
+#define int_strpbrk strpbrk
+#else
+static char *(int_strpbrk)( const char *str, const char *accept )
+{
+       const char *p;
+
+       for( ; (*str) ; str++ ) {
+               for( p=accept; (*p) ; p++) {
+                       if (*str==*p) {
+                               return str;
+                       }
+               }
+       }
+
+       return NULL;
+}
+#endif
+
+char *(ldap_pvt_strtok)( char *str, const char *delim, char **pos )
+{
+       char *p;
+
+       if (pos==NULL) {
+               return NULL;
+       }
+
+       if (str==NULL) {
+               if (*pos==NULL) {
+                       return NULL;
+               }
+
+               str=*pos;
+       }
+
+       /* skip any initial delimiters */
+       str += int_strspn( str, delim );
+       if (*str == '\0') {
+               return NULL;
+       }
+
+       p = int_strpbrk( str, delim );
+       if (p==NULL) {
+               *pos = NULL;
+
+       } else {
+               *p ='\0';
+               *pos = p+1;
+       }
+
+       return str;
+}
+
 char *
-(ldap_pvt_strdup)( const char *s )
+ldap_pvt_str2upper( char *str )
 {
-        char    *p;
-       int     len;
-       len = strlen( s ) + 1;
-        if ( (p = (char *) malloc( len )) == NULL )
-                return( (char *)0 );
+       char    *s;
+
+       /* to upper */
+       if ( str ) {
+               for ( s = str; *s; s++ ) {
+                       *s = TOUPPER( (unsigned char) *s );
+               }
+       }
+
+       return( str );
+}
+
+struct berval *
+ldap_pvt_str2upperbv( char *str, struct berval *bv )
+{
+       char    *s = NULL;
+
+       assert( bv != NULL );
+
+       /* to upper */
+       if ( str ) {
+               for ( s = str; *s; s++ ) {
+                       *s = TOUPPER( (unsigned char) *s );
+               }
+       }
+
+       bv->bv_val = str;
+       bv->bv_len = (ber_len_t)(s - str);
+       
+       return( bv );
+}
+
+char *
+ldap_pvt_str2lower( char *str )
+{
+       char    *s;
+
+       /* to lower */
+       if ( str ) {
+               for ( s = str; *s; s++ ) {
+                       *s = TOLOWER( (unsigned char) *s );
+               }
+       }
+
+       return( str );
+}
+
+struct berval *
+ldap_pvt_str2lowerbv( char *str, struct berval *bv )
+{
+       char    *s = NULL;
+
+       assert( bv != NULL );
+
+       /* to lower */
+       if ( str ) {
+               for ( s = str; *s; s++ ) {
+                       *s = TOLOWER( (unsigned char) *s );
+               }
+       }
 
-        memcpy( p, s, len );
+       bv->bv_val = str;
+       bv->bv_len = (ber_len_t)(s - str);
 
-        return( p );
+       return( bv );
 }