Mercurial > hg > xemacs-beta

comparison src/eldap.c @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 41dbb7a9d5f2
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
45 45
46 /* Needed by the lrecord definition */ 46 /* Needed by the lrecord definition */
47 Lisp_Object Qldapp; 47 Lisp_Object Qldapp;
48 48
49 /* ldap-open plist keywords */ 49 /* ldap-open plist keywords */
50 extern Lisp_Object Qport, Qauth, Qbinddn, Qpasswd, Qderef, Qtimelimit, 50 static Lisp_Object Qport, Qauth, Qbinddn, Qpasswd, Qderef, Qtimelimit, Qsizelimit;
51 Qsizelimit;
52 /* Search scope limits */ 51 /* Search scope limits */
53 extern Lisp_Object Qbase, Qonelevel, Qsubtree; 52 static Lisp_Object Qbase, Qonelevel, Qsubtree;
54 /* Authentication methods */ 53 /* Authentication methods */
55 extern Lisp_Object Qkrbv41, Qkrbv42; 54 static Lisp_Object Qkrbv41, Qkrbv42;
56 /* Deref policy */ 55 /* Deref policy */
57 extern Lisp_Object Qnever, Qalways, Qfind; 56 static Lisp_Object Qnever, Qalways, Qfind;
58 57
59 /************************************************************************/ 58 /************************************************************************/
60 /* Utility Functions */ 59 /* Utility Functions */
61 /************************************************************************/ 60 /************************************************************************/
62 61
96 XSETLDAP (lisp_ldap, ldap); 95 XSETLDAP (lisp_ldap, ldap);
97 return lisp_ldap; 96 return lisp_ldap;
98 } 97 }
99 98
100 static Lisp_Object 99 static Lisp_Object
101 mark_ldap (Lisp_Object obj, void (*markobj) (Lisp_Object)) 100 mark_ldap (Lisp_Object obj)
102 { 101 {
103 return XLDAP (obj)->host; 102 return XLDAP (obj)->host;
104 } 103 }
105 104
106 static void 105 static void
577 576
578 void 577 void
579 syms_of_eldap (void) 578 syms_of_eldap (void)
580 { 579 {
581 defsymbol (&Qldapp, "ldapp"); 580 defsymbol (&Qldapp, "ldapp");
581 defsymbol (&Qport, "port");
582 defsymbol (&Qauth, "auth");
583 defsymbol (&Qbinddn, "binddn");
584 defsymbol (&Qpasswd, "passwd");
585 defsymbol (&Qderef, "deref");
586 defsymbol (&Qtimelimit, "timelimit");
587 defsymbol (&Qsizelimit, "sizelimit");
588 defsymbol (&Qbase, "base");
589 defsymbol (&Qonelevel, "onelevel");
590 defsymbol (&Qsubtree, "subtree");
591 defsymbol (&Qkrbv41, "krbv41");
592 defsymbol (&Qkrbv42, "krbv42");
593 defsymbol (&Qnever, "never");
594 defsymbol (&Qalways, "always");
595 defsymbol (&Qfind, "find");
596
582 DEFSUBR (Fldapp); 597 DEFSUBR (Fldapp);
583 DEFSUBR (Fldap_host); 598 DEFSUBR (Fldap_host);
584 DEFSUBR (Fldap_status); 599 DEFSUBR (Fldap_status);
585 DEFSUBR (Fldap_open); 600 DEFSUBR (Fldap_open);
586 DEFSUBR (Fldap_close); 601 DEFSUBR (Fldap_close);