git.sur5r.net Git - openldap/blob - 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         #puts stderr $line
  15         if {[clength $line] == 0 || [ctype space $line]} continue
  16         if {![string match #define* $line]} break
  17         if {![string match "#define LDAP_*" $line]} continue
  18         if {[string match "*LDAP_RANGE*" $line]} continue
  19         lassign $line define macro value
  20         set ldap_errcode($macro) $value
  21     }
  22     foreach i [array names ldap_errcode] {
  23         set value $ldap_errcode($i)
  24         #puts stderr "checking $value"
  25         if [regexp {^[A-Z_]} $value] {
  26             if [info exists ldap_errcode($value)] {
  27                 set value $ldap_errcode($value)
  28                 set ldap_errcode($i) $value
  29             }
  30         }
  31         set ldap_errname($value) $i
  32     }
  33     set lasterr 0
  34     foreach value [lsort -integer [array names ldap_errname]] {
  35         incr lasterr
  36         while {$lasterr < $value} {
  37             puts -nonewline ",\n\tNULL"
  38             incr lasterr
  39         }
  40         puts -nonewline ",\n\t\"$ldap_errname($value)\""
  41     }
  42     puts "\n};"
  43     puts "#define LDAPTCL_MAXERR\t$value"
  44 }
  45
  46 #cmdtrace on
  47 if !$tcl_interactive {
  48     genstrings [lindex $argv 0]
  49 }