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 *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]
  23         }
  24         lassign $line define macro value
  25         set ldap_errcode($macro) $value
  26     }
  27     #parray ldap_errcode
  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
  35             }
  36         }
  37         set ldap_errname($value) $i
  38     }
  39     set lasterr 0
  40     foreach value [lsort -integer [array names ldap_errname]] {
  41         incr lasterr
  42         while {$lasterr < $value} {
  43             puts -nonewline ",\n\tNULL"
  44             incr lasterr
  45         }
  46         puts -nonewline ",\n\t\"$ldap_errname($value)\""
  47     }
  48     puts "\n};"
  49     puts "#define LDAPTCL_MAXERR\t$value"
  50 }
  51
  52 #cmdtrace on
  53 if !$tcl_interactive {
  54     genstrings [lindex $argv 0]
  55 }