openldap/servers/slapd/back-perl/perl_back.h

/* $OpenLDAP$ */
#ifndef PERL_BACK_H
#define PERL_BACK_H 1

LDAP_BEGIN_DECL

/*
 * From Apache mod_perl: test for Perl version.
 */

#if defined(pTHX_) || (PERL_REVISION > 5 || (PERL_REVISION == 5 && PERL_VERSION >= 6))
#define PERL_IS_5_6
#endif

#define EVAL_BUF_SIZE 500

extern ldap_pvt_thread_mutex_t  perl_interpreter_mutex;

#ifdef PERL_IS_5_6
/* We should be using the PL_errgv, I think */
/* All the old style variables are prefixed with PL_ now */
# define errgv	PL_errgv
# define na	PL_na
#endif

#ifdef HAVE_WIN32_ASPERL
/* pTHX is needed often now */
# define PERL_INTERPRETER			my_perl
# define PERL_BACK_XS_INIT_PARAMS		pTHX
# define PERL_BACK_BOOT_DYNALOADER_PARAMS	pTHX, CV *cv
#else
# define PERL_INTERPRETER			perl_interpreter
# define PERL_BACK_XS_INIT_PARAMS		void
# define PERL_BACK_BOOT_DYNALOADER_PARAMS	CV *cv
#endif

extern PerlInterpreter *PERL_INTERPRETER;


typedef struct perl_backend_instance {
	char	*pb_module_name;
	SV	*pb_obj_ref;
	int	pb_filter_search_results;
} PerlBackend;

LDAP_END_DECL

#include "external.h"

#endif
Add OpenLDAP RCSid to *.[ch] in clients, libraries, and servers. Replace old Id as needed (back-tcl). Leave updating of contribWare to contributors (for now). 1999-09-09 03:06:24 +08:00			`/* $OpenLDAP$ */`
Initial version of the experimental 'back-perl' John's still working on the 'perl-test' (the perl backend test module). 1999-01-14 14:33:09 +08:00			`#ifndef PERL_BACK_H`
			`#define PERL_BACK_H 1`

			`LDAP_BEGIN_DECL`

			`/*`
ITS#2356 - support Perl newer than 5.6 2003-03-13 09:58:26 +08:00			`* From Apache mod_perl: test for Perl version.`
Initial version of the experimental 'back-perl' John's still working on the 'perl-test' (the perl backend test module). 1999-01-14 14:33:09 +08:00			`*/`
ITS#2356 - support Perl newer than 5.6 2003-03-13 09:58:26 +08:00
Fix version check in previous 2003-03-13 10:01:14 +08:00			`#if defined(pTHX_) \|\| (PERL_REVISION > 5 \|\| (PERL_REVISION == 5 && PERL_VERSION >= 6))`
ITS#1659 2002-04-16 11:47:39 +08:00			`#define PERL_IS_5_6`
			`#endif`

Initial version of the experimental 'back-perl' John's still working on the 'perl-test' (the perl backend test module). 1999-01-14 14:33:09 +08:00			`#define EVAL_BUF_SIZE 500`

Use -lldap_r instead of -lldap -lthread. Likely broke things for non-posix threadings.... Update -lldap_r implementation to: remove attribute support hide thread detachment provide concurrency accessors provide initialization function fix gethostby{addr,name}_r codes (not coverred by HAVE_REENTRANT_FUNCTIONS) Update servers/libraries to use ldap_pvt_thread_ calls. Cleanup server codes (no #ifdef HAVE_PTHREAD_THIS or _THATs)! Removed -llthread 1999-01-28 12:34:55 +08:00			`extern ldap_pvt_thread_mutex_t perl_interpreter_mutex;`
Initial version of the experimental 'back-perl' John's still working on the 'perl-test' (the perl backend test module). 1999-01-14 14:33:09 +08:00
ITS#2356 - support Perl newer than 5.6 2003-03-13 09:58:26 +08:00			`#ifdef PERL_IS_5_6`
ITS#1646 2002-04-16 12:25:44 +08:00			`/* We should be using the PL_errgv, I think */`
			`/* All the old style variables are prefixed with PL_ now */`
			`# define errgv PL_errgv`
			`# define na PL_na`
			`#endif`

ITS#2356 - support Perl newer than 5.6 2003-03-13 09:58:26 +08:00			`#ifdef HAVE_WIN32_ASPERL`
ITS#1646 2002-04-16 12:25:44 +08:00			`/* pTHX is needed often now */`
			`# define PERL_INTERPRETER my_perl`
			`# define PERL_BACK_XS_INIT_PARAMS pTHX`
			`# define PERL_BACK_BOOT_DYNALOADER_PARAMS pTHX, CV *cv`
			`#else`
			`# define PERL_INTERPRETER perl_interpreter`
			`# define PERL_BACK_XS_INIT_PARAMS void`
			`# define PERL_BACK_BOOT_DYNALOADER_PARAMS CV *cv`
			`#endif`

			`extern PerlInterpreter *PERL_INTERPRETER;`


Initial version of the experimental 'back-perl' John's still working on the 'perl-test' (the perl backend test module). 1999-01-14 14:33:09 +08:00			`typedef struct perl_backend_instance {`
ITS#1659 2002-04-16 11:47:39 +08:00			`char *pb_module_name;`
			`SV *pb_obj_ref;`
			`int pb_filter_search_results;`
Initial version of the experimental 'back-perl' John's still working on the 'perl-test' (the perl backend test module). 1999-01-14 14:33:09 +08:00			`} PerlBackend;`

			`LDAP_END_DECL`

New Frontend->Backend Interface Separates per backend type from per backend database initialization and startup. Also supports per type / per backend shutdown. New frontend startup/shutdown routines are also provided: slap_init() slap_startup() slap_shutdown() slap_destroy() New frontend->backend startup/shutdown is managed by: backend_init() backend_startup() backend_shutdown backend_destroy backend_init() now calls bi_init() to initial all function pointers for the backend (excepting bi_init() which is now the only hardcoded entry point). New entry points are detailed in slap.h struct backend_info. backend_info is a per database type structure. Besides the new startup/shutdown entry points, the new interface also supports per backend type configuration options. One could have: backend bdb2 (new Berkeley DB 2 backend) bdb2_home /directory database bdb2 ... * This code is fairly experimental * * Much cleanup and testing is still needed * see slap.h for details on struct backend_db and backend_info. 1999-02-05 17:03:47 +08:00			`#include "external.h"`

Initial version of the experimental 'back-perl' John's still working on the 'perl-test' (the perl backend test module). 1999-01-14 14:33:09 +08:00			`#endif`