From: Randy Kunkee Date: Thu, 2 May 2002 08:12:41 +0000 (+0000) Subject: Import changes from head: generate ldaptclerr.h correctly. X-Git-Tag: OPENLDAP_REL_ENG_2_0_24~26 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6bfb1396a47a658143fd387698598485957f7f49;p=thirdparty%2Fopenldap.git Import changes from head: generate ldaptclerr.h correctly. --- diff --git a/contrib/ldaptcl/ldaperr.tcl b/contrib/ldaptcl/ldaperr.tcl index ef77d7f736..84bba4e440 100644 --- a/contrib/ldaptcl/ldaperr.tcl +++ b/contrib/ldaptcl/ldaperr.tcl @@ -11,14 +11,20 @@ proc genstrings {path} { puts -nonewline "char *ldaptclerrorcode\[\] = { NULL" while {[gets $fp line] != -1} { - #puts stderr $line + 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"