]> git.sur5r.net Git - openldap/blob - contrib/ldaptcl/ldaperr.tcl
In entry_decode, must null-terminate a_nvals array
[openldap] / contrib / ldaptcl / ldaperr.tcl
1 #
2 # ldaperr.tcl: scan ldap.h for error return codes for initializing
3 # errorCode table.
4 #
5
6 proc genstrings {path} {
7     set fp [open $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\[\] = {
12         NULL"
13     while {[gets $fp line] != -1} {
14         if {[clength $line] == 0 || [ctype space $line]} continue
15         if {[string match *typedef* $line]} break
16         if {![string match #define* $line]} continue
17         if {![string match "#define LDAP_*" $line]} continue
18         if {[string match "*LDAP_RANGE*" $line]} continue
19         if {[string match "*LDAP_API_RESULT*" $line]} continue
20         if {[string match {*\\} $line]} {
21             append line [gets $fp]
22         }
23         lassign $line define macro value
24         set ldap_errcode($macro) $value
25     }
26     #parray ldap_errcode
27     foreach i [array names ldap_errcode] {
28         set value $ldap_errcode($i)
29         #puts stderr "checking $value"
30         if [regexp {^[A-Z_]} $value] {
31             if [info exists ldap_errcode($value)] {
32                 set value $ldap_errcode($value)
33                 set ldap_errcode($i) $value
34             }
35         }
36         set ldap_errname($value) $i
37     }
38     set lasterr 0
39     foreach value [lsort -integer [array names ldap_errname]] {
40         incr lasterr
41         while {$lasterr < $value} {
42             puts -nonewline ",\n\tNULL"
43             incr lasterr
44         }
45         puts -nonewline ",\n\t\"$ldap_errname($value)\""
46     }
47     puts "\n};"
48     puts "#define LDAPTCL_MAXERR\t$value"
49 }
50
51 #cmdtrace on
52 if !$tcl_interactive {
53     genstrings [lindex $argv 0]
54 }