2 # ldaperr.tcl: scan ldap.h for error return codes for initializing
6 proc genstrings {path} {
8 while {[gets $fp line] != -1 &&
9 ![string match "#define LDAP_SUCCESS*" $line]} { }
10 puts "/* This file automatically generated, hand edit at your own risk! */"
11 puts -nonewline "char *ldaptclerrorcode\[\] = {
13 while {[gets $fp line] != -1} {
15 if {[clength $line] == 0 || [ctype space $line]} continue
16 if {[string match *typedef* $line]} break
17 if {![string match #define* $line]} continue
18 if {![string match "#define LDAP_*" $line]} continue
19 if {[string match "*LDAP_RANGE*" $line]} continue
20 if {[string match "*LDAP_API_RESULT*" $line]} continue
21 if {[string match {*\\} $line]} {
22 append line [gets $fp]
24 lassign $line define macro value
25 set ldap_errcode($macro) $value
28 foreach i [array names ldap_errcode] {
29 set value $ldap_errcode($i)
30 #puts stderr "checking $value"
31 if [regexp {^[A-Z_]} $value] {
32 if [info exists ldap_errcode($value)] {
33 set value $ldap_errcode($value)
34 set ldap_errcode($i) $value
37 set ldap_errname($value) $i
40 foreach value [lsort -integer [array names ldap_errname]] {
42 while {$lasterr < $value} {
43 puts -nonewline ",\n\tNULL"
46 puts -nonewline ",\n\t\"$ldap_errname($value)\""
49 puts "#define LDAPTCL_MAXERR\t$value"
53 if !$tcl_interactive {
54 genstrings [lindex $argv 0]