Free IDL_CACHE locks

[openldap] / servers / slapd / back-tcl / tcl_back.h

diff --git a/servers/slapd/back-tcl/tcl_back.h b/servers/slapd/back-tcl/tcl_back.h
index 60e6cd00dcfa7841f44336b24642258fc2435dd7..9406f27f5ca33423a0e0353219e57791e9a41ba2 100644 (file)
--- a/servers/slapd/back-tcl/tcl_back.h
+++ b/servers/slapd/back-tcl/tcl_back.h
@@ -1,5 +1,5 @@
-/*
- * tcl_back.h - tcl backend header (structs, functions)
+/* $OpenLDAP$ */
+/* tcl_back.h - tcl backend header (structs, functions)
  *
  * Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
  *
@@ -7,10 +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$
- *
- * $Log$
  */
 
 #include <tcl.h>
@@ -21,48 +17,46 @@
 #include <ldap_cdefs.h>
 #include "external.h"
 
-extern ldap_pvt_thread_mutex_t  tcl_interpreter_mutex;
+extern ldap_pvt_thread_mutex_t tcl_interpreter_mutex;
 
 struct i_info {
-    Tcl_Interp *interp;
-    char *name;
-    struct i_info *next;
-    int count;
+       Tcl_Interp *interp;
+       char *name;
+       struct i_info *next;
+       int count;
 };
 
 extern struct i_info *global_i;
 
 struct tclinfo {
-    char *script_path;
-    struct i_info *ti_ii;
-    char *ti_bind;
-    char *ti_unbind;
-    char *ti_search;
-    char *ti_compare;
-    char *ti_modify;
-    char *ti_modrdn;
-    char *ti_add;
-    char *ti_delete;
-    char *ti_abandon;
+       struct berval ti_script_path;
+       struct i_info *ti_ii;
+       struct berval ti_bind;
+       struct berval ti_unbind;
+       struct berval ti_search;
+       struct berval ti_compare;
+       struct berval ti_modify;
+       struct berval ti_modrdn;
+       struct berval ti_add;
+       struct berval ti_delete;
+       struct berval ti_abandon;
 };
 
 void readtclscript (char *script, Tcl_Interp * my_tcl);
-char *tcl_clean_entry (Entry *e);
+char *tcl_clean_entry (Entry * e);
+struct berval *tcl_merge_bvlist (BerVarray bvlist, struct berval *out);
+
 int tcl_ldap_debug (
-    ClientData clientData,
-    Tcl_Interp *interp,
-    int argc,
-    char *argv[]
+       ClientData clientData,
+       Tcl_Interp * interp,
+       int argc,
+       char *argv[]
 );
 
-int interp_send_results(
-    Backend     *be,
-    Connection  *conn,
-    Operation   *op,
-    char        *result,
-    char        **attrs,
-    int         attrsonly
+int interp_send_results (
+       Operation * op,
+       SlapReply * rs,
+       char *result
 );
 
 #endif
-