Free IDL_CACHE locks

[openldap] / servers / slapd / back-tcl / tcl_init.c

diff --git a/servers/slapd/back-tcl/tcl_init.c b/servers/slapd/back-tcl/tcl_init.c
index 402676dc09bb6c1f326a1b97e0f8685041fd4126..120f46ffb44450f33aed44972301cfc63cd6fcd6 100644 (file)
--- a/servers/slapd/back-tcl/tcl_init.c
+++ b/servers/slapd/back-tcl/tcl_init.c
@@ -1,5 +1,5 @@
-/*
- * tcl_init.c - tcl backend initialization
+/* $OpenLDAP$ */
+/* tcl_init.c - tcl backend initialization
  *
  * Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
  *
@@ -7,13 +7,6 @@
  * as authorized by the OpenLDAP Public License.  A copy of this
  * license is available at http://www.OpenLDAP.org/license.html or
  * in file LICENSE in the top-level directory of the distribution.
- *
- * $Id: tcl_init.c,v 1.2 1999/02/17 00:55:54 bcollins Exp $
- *
- * $Log: tcl_init.c,v $
- * Revision 1.2  1999/02/17 00:55:54  bcollins
- * Implemented the open, init functions correctly
- *
  */
 
 #include "portable.h"
@@ -27,13 +20,28 @@
 
 ldap_pvt_thread_mutex_t tcl_interpreter_mutex;
 
+#ifdef SLAPD_TCL_DYNAMIC
+
+void back_tcl_LTX_init_module(int argc, char *argv[]) {
+   BackendInfo bi;
+
+   memset( &bi, '\0', sizeof(bi) );
+   bi.bi_type = "tcl";
+   bi.bi_init = tcl_back_initialize;
+
+   backend_add(&bi);
+}
+
+#endif /* SLAPD_TCL_DYNAMIC */
+
 int
-tcl_back_initialize(
-       BackendInfo     *bi
+tcl_back_initialize (
+       BackendInfo * bi
 )
 {
        /* Initialize the global interpreter array */
        global_i = (struct i_info *) ch_malloc (sizeof (struct i_info));
+
        global_i->count = 0;
        global_i->name = "default";
        global_i->next = NULL;
@@ -41,10 +49,10 @@ tcl_back_initialize(
        Tcl_Init (global_i->interp);
 
        /* Initialize the global interpreter lock */
-       ldap_pvt_thread_mutex_init( &tcl_interpreter_mutex );
+       ldap_pvt_thread_mutex_init (&tcl_interpreter_mutex);
 
        bi->bi_open = tcl_back_open;
-       bi->bi_config = NULL;
+       bi->bi_config = 0;
        bi->bi_close = tcl_back_close;
        bi->bi_destroy = tcl_back_destroy;
 
@@ -64,18 +72,22 @@ tcl_back_initialize(
        bi->bi_op_delete = tcl_back_delete;
        bi->bi_op_abandon = tcl_back_abandon;
 
-       bi->bi_acl_group = NULL;
+       bi->bi_chk_referrals = 0;
+
+       bi->bi_connection_init = 0;
+       bi->bi_connection_destroy = 0;
 
        return 0;
 }
 
 int
-tcl_back_open(
-       BackendInfo     *bi
+tcl_back_open (
+       BackendInfo * bi
 )
 {
        /* Initialize the global interpreter array */
        global_i = (struct i_info *) ch_malloc (sizeof (struct i_info));
+
        global_i->count = 0;
        global_i->name = "default";
        global_i->next = NULL;
@@ -83,58 +95,79 @@ tcl_back_open(
        Tcl_Init (global_i->interp);
 
        /* Initialize the global interpreter lock */
-       ldap_pvt_thread_mutex_init( &tcl_interpreter_mutex );
+       ldap_pvt_thread_mutex_init (&tcl_interpreter_mutex);
 
-       return( 0 );
+       return (0);
 }
 
 int
-tcl_back_db_init(
-       Backend *be
+tcl_back_db_init (
+       Backend * be
 )
 {
-       struct tclinfo  *ti;
+       struct tclinfo *ti;
+
+       ti = (struct tclinfo *) ch_calloc (1, sizeof (struct tclinfo));
 
-       ti = (struct tclinfo *) ch_calloc( 1, sizeof(struct tclinfo) );
+       ti->ti_script_path.bv_len = 0;
+       ti->ti_script_path.bv_val = NULL;
 
        /*
         * For some reason this causes problems
         * specifically set to NULL
         */
-       ti->ti_bind = NULL;
-       ti->ti_unbind = NULL;
-       ti->ti_search = NULL;
-       ti->ti_compare = NULL;
-       ti->ti_modify = NULL;
-       ti->ti_modrdn = NULL;
-       ti->ti_add = NULL;
-       ti->ti_delete = NULL;
-       ti->ti_abandon = NULL;
+       ti->ti_bind.bv_len = 0;
+       ti->ti_bind.bv_val = NULL;
+
+       ti->ti_unbind.bv_len = 0;
+       ti->ti_unbind.bv_val = NULL;
+
+       ti->ti_search.bv_len = 0;
+       ti->ti_search.bv_val = NULL;
+
+       ti->ti_compare.bv_len = 0;
+       ti->ti_compare.bv_val = NULL;
+
+       ti->ti_modify.bv_len = 0;
+       ti->ti_modify.bv_val = NULL;
+
+       ti->ti_modrdn.bv_len = 0;
+       ti->ti_modrdn.bv_val = NULL;
+
+       ti->ti_add.bv_len = 0;
+       ti->ti_add.bv_val = NULL;
+
+       ti->ti_delete.bv_len = 0;
+       ti->ti_delete.bv_val = NULL;
+
+       ti->ti_abandon.bv_len = 0;
+       ti->ti_abandon.bv_val = NULL;
 
        be->be_private = ti;
 
        return ti == NULL;
 }
 
-int tcl_back_db_open (
-        BackendDB * bd
+int
+tcl_back_db_open (
+       BackendDB * bd
 )
 {
        struct tclinfo *ti = (struct tclinfo *) bd->be_private;
 
-       if (ti->ti_ii->interp == NULL) { /* we need to make a new one */
+       if (ti->ti_ii->interp == NULL) {        /* we need to make a new one */
                ti->ti_ii->interp = Tcl_CreateInterp ();
-               Tcl_Init (ti->interp);
+               Tcl_Init (ti->ti_ii->interp);
        }
 
        /* raise that count for the interpreter */
        ti->ti_ii->count++;
 
        /* now let's (try to) load the script */
-       readtclscript (ti->script_path, ti->ti_ii->interp);
+       readtclscript (ti->ti_script_path.bv_val, ti->ti_ii->interp);
 
-       /* Intall the debug command */
-       Tcl_CreateCommand( ti->ti_ii->interp, "ldap:debug", &tcl_ldap_debug,
+       /* install the debug command */
+       Tcl_CreateCommand (ti->ti_ii->interp, "ldap:debug", &tcl_ldap_debug,
                NULL, NULL);
 
        return 0;