2 /* tcl_back.h - tcl backend header (structs, functions)
4 * Copyright 1999, Ben Collins <bcollins@debian.org>, All rights reserved.
6 * Redistribution and use in source and binary forms are permitted only
7 * as authorized by the OpenLDAP Public License. A copy of this
8 * license is available at http://www.OpenLDAP.org/license.html or
9 * in file LICENSE in the top-level directory of the distribution.
17 #include <ldap_cdefs.h>
20 extern ldap_pvt_thread_mutex_t tcl_interpreter_mutex;
29 extern struct i_info *global_i;
32 struct berval ti_script_path;
34 struct berval ti_bind;
35 struct berval ti_unbind;
36 struct berval ti_search;
37 struct berval ti_compare;
38 struct berval ti_modify;
39 struct berval ti_modrdn;
41 struct berval ti_delete;
42 struct berval ti_abandon;
45 void readtclscript (char *script, Tcl_Interp * my_tcl);
46 char *tcl_clean_entry (Entry * e);
47 struct berval *tcl_merge_bvlist (BerVarray bvlist, struct berval *out);
50 ClientData clientData,
56 int interp_send_results (