ldaperr.tcl 1.33 KB
Newer Older
Randy Kunkee's avatar
Randy Kunkee committed
1
2
3
4
5
6
7
8
9
10
11
12
13
#
# ldaperr.tcl: scan ldap.h for error return codes for initializing
# errorCode table.
#

proc genstrings {path} {
    set fp [open $path]
    while {[gets $fp line] != -1 &&
	![string match "#define LDAP_SUCCESS*" $line]} { }
    puts "/* This file automatically generated, hand edit at your own risk! */"
    puts -nonewline "char *ldaptclerrorcode\[\] = {
	NULL"
    while {[gets $fp line] != -1} {
14
	#puts stderr $line
Randy Kunkee's avatar
Randy Kunkee committed
15
16
17
	if {[clength $line] == 0 || [ctype space $line]} continue
	if {![string match #define* $line]} break
	if {![string match "#define LDAP_*" $line]} continue
18
	if {[string match "*LDAP_RANGE*" $line]} continue
Randy Kunkee's avatar
Randy Kunkee committed
19
	lassign $line define macro value
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
	set ldap_errcode($macro) $value
    }
    foreach i [array names ldap_errcode] {
	set value $ldap_errcode($i)
	#puts stderr "checking $value"
	if [regexp {^[A-Z_]} $value] {
	    if [info exists ldap_errcode($value)] {
		set value $ldap_errcode($value)
		set ldap_errcode($i) $value
	    }
	}
	set ldap_errname($value) $i
    }
    set lasterr 0
    foreach value [lsort -integer [array names ldap_errname]] {
Randy Kunkee's avatar
Randy Kunkee committed
35
36
37
38
39
	incr lasterr
	while {$lasterr < $value} {
	    puts -nonewline ",\n\tNULL"
	    incr lasterr
	}
40
	puts -nonewline ",\n\t\"$ldap_errname($value)\""
Randy Kunkee's avatar
Randy Kunkee committed
41
42
43
44
45
46
47
48
49
    }
    puts "\n};"
    puts "#define LDAPTCL_MAXERR\t$value"
}

#cmdtrace on
if !$tcl_interactive {
    genstrings [lindex $argv 0]
}