fix WIN32 warnings
[openssl.git] / crypto / conf / conf_api.c
index 8b6bc9accb1692749464168ae9ff73050d3bdb92..f5fcbb9f6b15d973837987130362f58c9d0154c2 100644 (file)
 
 /* Part of the code in here was originally in conf.c, which is now removed */
 
+#ifndef CONF_DEBUG
+# undef NDEBUG /* avoid conflicting definitions */
+# define NDEBUG
+#endif
+
+#include <assert.h>
+#include <stdlib.h>
+#include <string.h>
 #include <openssl/conf.h>
 #include <openssl/conf_api.h>
+#include "e_os.h"
 
-static void value_free_hash(CONF_VALUE *a, LHASH *conf);
-static void value_free_stack(CONF_VALUE *a,LHASH *conf);
-static unsigned long hash(CONF_VALUE *v);
-static int cmp_conf(CONF_VALUE *a,CONF_VALUE *b);
+static void value_free_hash_doall_arg(CONF_VALUE *a,
+                                     LHASH_OF(CONF_VALUE) *conf);
+static void value_free_stack_doall(CONF_VALUE *a);
+static IMPLEMENT_LHASH_DOALL_ARG_FN(value_free_hash, CONF_VALUE,
+                                   LHASH_OF(CONF_VALUE))
+static IMPLEMENT_LHASH_DOALL_FN(value_free_stack, CONF_VALUE)
 
 /* Up until OpenSSL 0.9.5a, this was get_section */
-CONF_VALUE *_CONF_get_section(CONF *conf, char *section)
+CONF_VALUE *_CONF_get_section(const CONF *conf, const char *section)
        {
        CONF_VALUE *v,vv;
 
        if ((conf == NULL) || (section == NULL)) return(NULL);
        vv.name=NULL;
-       vv.section=section;
-       v=(CONF_VALUE *)lh_retrieve(conf->data,&vv);
+       vv.section=(char *)section;
+       v=lh_CONF_VALUE_retrieve(conf->data,&vv);
        return(v);
        }
 
 /* Up until OpenSSL 0.9.5a, this was CONF_get_section */
-STACK_OF(CONF_VALUE) *_CONF_get_section_values(CONF *conf, char *section)
+STACK_OF(CONF_VALUE) *_CONF_get_section_values(const CONF *conf,
+                                              const char *section)
        {
        CONF_VALUE *v;
 
@@ -103,10 +115,10 @@ int _CONF_add_string(CONF *conf, CONF_VALUE *section, CONF_VALUE *value)
                return 0;
                }
 
-       v = (CONF_VALUE *)lh_insert(conf->data, value);
+       v = lh_CONF_VALUE_insert(conf->data, value);
        if (v != NULL)
                {
-               sk_CONF_VALUE_delete_ptr(ts,v);
+               (void)sk_CONF_VALUE_delete_ptr(ts,v);
                OPENSSL_free(v->name);
                OPENSSL_free(v->value);
                OPENSSL_free(v);
@@ -114,7 +126,7 @@ int _CONF_add_string(CONF *conf, CONF_VALUE *section, CONF_VALUE *value)
        return 1;
        }
 
-char *_CONF_get_string(CONF *conf, char *section, char *name)
+char *_CONF_get_string(const CONF *conf, const char *section, const char *name)
        {
        CONF_VALUE *v,vv;
        char *p;
@@ -124,28 +136,31 @@ char *_CONF_get_string(CONF *conf, char *section, char *name)
                {
                if (section != NULL)
                        {
-                       vv.name=name;
-                       vv.section=section;
-                       v=(CONF_VALUE *)lh_retrieve(conf->data,&vv);
+                       vv.name=(char *)name;
+                       vv.section=(char *)section;
+                       v=lh_CONF_VALUE_retrieve(conf->data,&vv);
                        if (v != NULL) return(v->value);
                        if (strcmp(section,"ENV") == 0)
                                {
-                               p=Getenv(name);
+                               p=getenv(name);
                                if (p != NULL) return(p);
                                }
                        }
                vv.section="default";
-               vv.name=name;
-               v=(CONF_VALUE *)lh_retrieve(conf->data,&vv);
+               vv.name=(char *)name;
+               v=lh_CONF_VALUE_retrieve(conf->data,&vv);
                if (v != NULL)
                        return(v->value);
                else
                        return(NULL);
                }
        else
-               return(Getenv(name));
+               return(getenv(name));
        }
 
+#if 0 /* There's no way to provide error checking with this function, so
+        force implementors of the higher levels to get a string and read
+        the number themselves. */
 long _CONF_get_number(CONF *conf, char *section, char *name)
        {
        char *str;
@@ -162,6 +177,35 @@ long _CONF_get_number(CONF *conf, char *section, char *name)
                str++;
                }
        }
+#endif
+
+static unsigned long conf_value_hash(const CONF_VALUE *v)
+       {
+       return (lh_strhash(v->section)<<2)^lh_strhash(v->name);
+       }
+static IMPLEMENT_LHASH_HASH_FN(conf_value, CONF_VALUE)
+
+static int conf_value_cmp(const CONF_VALUE *a, const CONF_VALUE *b)
+       {
+       int i;
+
+       if (a->section != b->section)
+               {
+               i=strcmp(a->section,b->section);
+               if (i) return(i);
+               }
+
+       if ((a->name != NULL) && (b->name != NULL))
+               {
+               i=strcmp(a->name,b->name);
+               return(i);
+               }
+       else if (a->name == b->name)
+               return(0);
+       else
+               return((a->name == NULL)?-1:1);
+       }
+static IMPLEMENT_LHASH_COMP_FN(conf_value, CONF_VALUE)
 
 int _CONF_new_data(CONF *conf)
        {
@@ -170,7 +214,7 @@ int _CONF_new_data(CONF *conf)
                return 0;
                }
        if (conf->data == NULL)
-               if ((conf->data = lh_new(hash,cmp_conf)) == NULL)
+               if ((conf->data = lh_CONF_VALUE_new()) == NULL)
                        {
                        return 0;
                        }
@@ -181,104 +225,73 @@ void _CONF_free_data(CONF *conf)
        {
        if (conf == NULL || conf->data == NULL) return;
 
-       conf->data->down_load=0; /* evil thing to make sure the 'OPENSSL_free()'
-                                 * works as expected */
-       lh_doall_arg(conf->data,(void (*)())value_free_hash,conf->data);
+       lh_CONF_VALUE_down_load(conf->data)=0; /* evil thing to make
+                                 * sure the 'OPENSSL_free()' works as
+                                 * expected */
+       lh_CONF_VALUE_doall_arg(conf->data,
+                               LHASH_DOALL_ARG_FN(value_free_hash),
+                               LHASH_OF(CONF_VALUE), conf->data);
 
        /* We now have only 'section' entries in the hash table.
         * Due to problems with */
 
-       lh_doall_arg(conf->data,(void (*)())value_free_stack,conf->data);
-       lh_free(conf->data);
+       lh_CONF_VALUE_doall(conf->data, LHASH_DOALL_FN(value_free_stack));
+       lh_CONF_VALUE_free(conf->data);
        }
 
-static void value_free_hash(CONF_VALUE *a, LHASH *conf)
+static void value_free_hash_doall_arg(CONF_VALUE *a, LHASH_OF(CONF_VALUE) *conf)
        {
        if (a->name != NULL)
-               {
-               a=(CONF_VALUE *)lh_delete(conf,a);
-               }
+               (void)lh_CONF_VALUE_delete(conf,a);
        }
 
-static void value_free_stack(CONF_VALUE *a, LHASH *conf)
+static void value_free_stack_doall(CONF_VALUE *a)
        {
        CONF_VALUE *vv;
-       STACK *sk;
+       STACK_OF(CONF_VALUE) *sk;
        int i;
 
        if (a->name != NULL) return;
 
-       sk=(STACK *)a->value;
-       for (i=sk_num(sk)-1; i>=0; i--)
+       sk=(STACK_OF(CONF_VALUE) *)a->value;
+       for (i=sk_CONF_VALUE_num(sk)-1; i>=0; i--)
                {
-               vv=(CONF_VALUE *)sk_value(sk,i);
+               vv=sk_CONF_VALUE_value(sk,i);
                OPENSSL_free(vv->value);
                OPENSSL_free(vv->name);
                OPENSSL_free(vv);
                }
-       if (sk != NULL) sk_free(sk);
+       if (sk != NULL) sk_CONF_VALUE_free(sk);
        OPENSSL_free(a->section);
        OPENSSL_free(a);
        }
 
-static unsigned long hash(CONF_VALUE *v)
-       {
-       return((lh_strhash(v->section)<<2)^lh_strhash(v->name));
-       }
-
-static int cmp_conf(CONF_VALUE *a, CONF_VALUE *b)
-       {
-       int i;
-
-       if (a->section != b->section)
-               {
-               i=strcmp(a->section,b->section);
-               if (i) return(i);
-               }
-
-       if ((a->name != NULL) && (b->name != NULL))
-               {
-               i=strcmp(a->name,b->name);
-               return(i);
-               }
-       else if (a->name == b->name)
-               return(0);
-       else
-               return((a->name == NULL)?-1:1);
-       }
-
 /* Up until OpenSSL 0.9.5a, this was new_section */
-CONF_VALUE *_CONF_new_section(CONF *conf, char *section)
+CONF_VALUE *_CONF_new_section(CONF *conf, const char *section)
        {
-       STACK *sk=NULL;
+       STACK_OF(CONF_VALUE) *sk=NULL;
        int ok=0,i;
        CONF_VALUE *v=NULL,*vv;
 
-       if ((sk=sk_new_null()) == NULL)
+       if ((sk=sk_CONF_VALUE_new_null()) == NULL)
                goto err;
-       if ((v=(CONF_VALUE *)OPENSSL_malloc(sizeof(CONF_VALUE))) == NULL)
+       if ((v=OPENSSL_malloc(sizeof(CONF_VALUE))) == NULL)
                goto err;
        i=strlen(section)+1;
-       if ((v->section=(char *)OPENSSL_malloc(i)) == NULL)
+       if ((v->section=OPENSSL_malloc(i)) == NULL)
                goto err;
 
        memcpy(v->section,section,i);
        v->name=NULL;
        v->value=(char *)sk;
        
-       vv=(CONF_VALUE *)lh_insert(conf->data,v);
-       if (vv != NULL)
-               {
-#if !defined(NO_STDIO) && !defined(WIN16)
-               fprintf(stderr,"internal fault\n");
-#endif
-               abort();
-               }
+       vv=lh_CONF_VALUE_insert(conf->data,v);
+       OPENSSL_assert(vv == NULL);
        ok=1;
 err:
        if (!ok)
                {
-               if (sk != NULL) sk_free(sk);
+               if (sk != NULL) sk_CONF_VALUE_free(sk);
                if (v != NULL) OPENSSL_free(v);
                v=NULL;
                }