mention default rootdn of cn=config (ITS#6546)

[openldap] / contrib / ldaptcl / ldaperr.tcl

diff --git a/contrib/ldaptcl/ldaperr.tcl b/contrib/ldaptcl/ldaperr.tcl
index ef77d7f73653330902ae13678debe005afc78bc6..e9f85683ebc3bb627abcdab9537af53677def440 100644 (file)
--- a/contrib/ldaptcl/ldaperr.tcl
+++ b/contrib/ldaptcl/ldaperr.tcl
@@ -11,14 +11,19 @@ proc genstrings {path} {
     puts -nonewline "char *ldaptclerrorcode\[\] = {
        NULL"
     while {[gets $fp line] != -1} {
-       #puts stderr $line
        if {[clength $line] == 0 || [ctype space $line]} continue
-       if {![string match #define* $line]} break
+       if {[string match *typedef* $line]} break
+       if {![string match #define* $line]} continue
        if {![string match "#define LDAP_*" $line]} continue
        if {[string match "*LDAP_RANGE*" $line]} continue
+       if {[string match "*LDAP_API_RESULT*" $line]} continue
+       if {[string match {*\\} $line]} {
+           append line [gets $fp]
+       }
        lassign $line define macro value
        set ldap_errcode($macro) $value
     }
+    #parray ldap_errcode
     foreach i [array names ldap_errcode] {
        set value $ldap_errcode($i)
        #puts stderr "checking $value"