unmaintained: New home for misfit Factor vocabularies.

[factor-unmaintained.git] / ldap / libldap / libldap.factor

diff --git a/ldap/libldap/libldap.factor b/ldap/libldap/libldap.factor
new file mode 100644 (file)
index 0000000..ee1ad27
--- /dev/null
+++ b/ldap/libldap/libldap.factor
@@ -0,0 +1,150 @@
+! Copyright (C) 2007 Elie CHAFTARI
+! See http://factorcode.org/license.txt for BSD license.
+!
+! Tested with OpenLDAP 2.2.7.0.21 on Mac OS X 10.4.9 PowerPC
+!
+! export LD_LIBRARY_PATH=/opt/local/lib
+
+USING: alien alien.syntax combinators kernel system ;
+
+IN: ldap.libldap
+
+<< "libldap" {
+    { [ win32? ]  [ "libldap.dll" stdcall ] }
+    { [ macosx? ] [ "libldap.dylib" cdecl ] }
+    { [ unix? ]   [ "libldap.so" cdecl ] }
+} cond add-library >>
+ 
+: LDAP_VERSION1     1 ; inline
+: LDAP_VERSION2     2 ; inline 
+: LDAP_VERSION3     3 ; inline
+
+: LDAP_VERSION_MIN  LDAP_VERSION2 ; inline  
+: LDAP_VERSION      LDAP_VERSION2 ; inline
+: LDAP_VERSION_MAX  LDAP_VERSION3 ; inline
+
+: LDAP_PORT         389 ; inline ! ldap:///   default LDAP port
+: LDAPS_PORT        636 ; inline ! ldaps:///  default LDAP over TLS port
+
+: LDAP_SCOPE_BASE         0x0000              ; inline
+: LDAP_SCOPE_BASEOBJECT   LDAP_SCOPE_BASE        ; inline
+: LDAP_SCOPE_ONELEVEL     0x0001              ; inline
+: LDAP_SCOPE_ONE          LDAP_SCOPE_ONELEVEL    ; inline
+: LDAP_SCOPE_SUBTREE      0x0002              ; inline
+: LDAP_SCOPE_SUB          LDAP_SCOPE_SUBTREE     ; inline
+: LDAP_SCOPE_SUBORDINATE  0x0003              ; inline ! OpenLDAP extension
+: LDAP_SCOPE_CHILDREN     LDAP_SCOPE_SUBORDINATE ; inline
+: LDAP_SCOPE_DEFAULT      -1                     ; inline ! OpenLDAP extension
+
+: LDAP_RES_ANY            -1 ; inline
+: LDAP_RES_UNSOLICITED     0 ; inline
+
+! how many messages to retrieve results for
+: LDAP_MSG_ONE             0x00 ; inline
+: LDAP_MSG_ALL             0x01 ; inline
+: LDAP_MSG_RECEIVED        0x02 ; inline
+
+! the possible result types returned
+: LDAP_RES_BIND             0x61 ; inline
+: LDAP_RES_SEARCH_ENTRY     0x64 ; inline
+: LDAP_RES_SEARCH_REFERENCE 0x73 ; inline
+: LDAP_RES_SEARCH_RESULT    0x65 ; inline
+: LDAP_RES_MODIFY           0x67 ; inline
+: LDAP_RES_ADD              0x69 ; inline
+: LDAP_RES_DELETE           0x6b ; inline
+: LDAP_RES_MODDN            0x6d ; inline
+: LDAP_RES_COMPARE          0x6f ; inline
+: LDAP_RES_EXTENDED         0x78 ; inline
+: LDAP_RES_EXTENDED_PARTIAL 0x79 ; inline
+
+: result-types ( -- seq ) {
+    { 0x61  "LDAP_RES_BIND" }
+    { 0x64  "LDAP_RES_SEARCH_ENTRY" }
+    { 0x73  "LDAP_RES_SEARCH_REFERENCE" }
+    { 0x65  "LDAP_RES_SEARCH_RESULT" }
+    { 0x67  "LDAP_RES_MODIFY" }
+    { 0x69  "LDAP_RES_ADD" }
+    { 0x6b  "LDAP_RES_DELETE" }
+    { 0x6d  "LDAP_RES_MODDN" }
+    { 0x6f  "LDAP_RES_COMPARE" }
+    { 0x78  "LDAP_RES_EXTENDED" }
+    { 0x79  "LDAP_RES_EXTENDED_PARTIAL" }
+} ;
+
+: LDAP_OPT_PROTOCOL_VERSION 0x0011 ; inline
+
+C-STRUCT: ldap 
+    { "char" "ld_lberoptions" }
+    { "int" "ld_deref" }
+    { "int" "ld_timelimit" }
+    { "int" "ld_sizelimit" }
+    { "int" "ld_errno" }
+    { "char*" "ld_error" }
+    { "char*" "ld_matched" }
+    { "int" "ld_refhoplimit" }
+    { "ulong" "ld_options" } ;
+
+LIBRARY: libldap
+
+! ===============================================
+! ldap.h
+! ===============================================
+
+! Will be depreciated in a later release (ldap_init() is preferred)
+FUNCTION: void* ldap_open ( char* host, int port ) ;
+
+FUNCTION: void* ldap_init ( char* host, int port ) ;
+
+FUNCTION: int ldap_initialize ( ldap* ld, char* url ) ;
+
+FUNCTION: int ldap_get_option ( void* ld, int option, void* outvalue ) ;
+
+FUNCTION: int ldap_set_option ( void* ld, int option, void* invalue ) ;
+
+FUNCTION: int ldap_simple_bind ( void* ld, char* who, char* passwd ) ;
+
+FUNCTION: int ldap_simple_bind_s ( void* ld, char* who, char* passwd ) ;
+
+FUNCTION: int ldap_unbind_s ( void* ld ) ;
+
+FUNCTION: int ldap_result2error ( void* ld, void* res, int freeit ) ;
+
+FUNCTION: char* ldap_err2string ( int err ) ;
+
+FUNCTION: int ldap_search ( void* ld, char* base, int scope, char* filter, 
+                           char* attrs, int attrsonly ) ;
+
+FUNCTION: int ldap_search_s ( void* ld, char* base, int scope, char* filter,
+                             char* attrs, int attrsonly, void* res ) ;
+
+FUNCTION: int ldap_result ( void* ld, int msgid, int all, void* timeout,
+                            void* result ) ;
+
+FUNCTION: int ldap_parse_result ( void* ld, void* result, int* errcodep,
+                                 char* matcheddnp, char* errmsgp, 
+                                 char* referralsp, void* serverctrlsp, 
+                                 int freeit ) ;
+
+FUNCTION: int ldap_count_messages ( void* ld, void* result ) ;
+
+FUNCTION: void* ldap_first_message ( void* ld, void* result ) ;
+
+FUNCTION: void* ldap_next_message ( void* ld, void* message ) ;
+
+FUNCTION: int ldap_msgtype ( void* msg ) ;
+
+FUNCTION: int ldap_msgid ( void* msg ) ;
+
+FUNCTION: int ldap_count_entries ( void* ld, void* result ) ;
+
+FUNCTION: void* ldap_first_entry ( void* ld, void* result ) ;
+
+FUNCTION: void* ldap_next_entry ( void* ld, void* entry ) ;
+
+FUNCTION: char* ldap_first_attribute ( void* ld, void* entry, void* berptr ) ;
+
+FUNCTION: char* ldap_next_attribute ( void* ld, void* entry, void* ber ) ;
+
+FUNCTION: char** ldap_get_values ( void* ld, void* entry, char* attr ) ;
+
+FUNCTION: char* ldap_get_dn ( void* ld, void* entry ) ;