initial commit

1 files changed, 20 insertions, 0 deletions

diff --git a/ldap/generics.lisp b/ldap/generics.lisp
new file mode 100644
index 0000000..e3b0956
--- /dev/null
+++ b/ldap/generics.lisp
@@ -0,0 +1,20 @@
+;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+(declaim (optimize (speed 0) (safety 3) (debug 3)))
+
+(in-package #:ldapadmin)
+
+;; ========================================================================== ;;
+
+(defgeneric disconnect (ldap)
+  (:documentation ""))
+
+(defgeneric get-ldap-users (ldap search-base)
+  (:documentation "Calls `with-ldap-iterate' to iterate over all LDAP
+users returned with the search `search-base', wrapping each entry in
+an `ldap-user' object. Returns a list of these objects. `ldap' is a
+free variable that must be present for `with-ldap-iterate'."))
+
+(defgeneric get-ldap-user (ldap cn)
+  (:documentation "Calls `with-ldap-users' with a search filter and
+returns the first entry."))
+