From: Kurt Zeilenga <kurt@openldap.org>
Date: Wed, 12 Mar 2003 19:35:21 +0000 (+0000)
Subject: Remove ldaptcl from distribution.  It's not actively maintained.
X-Git-Tag: OPENLDAP_REL_ENG_2_1_16~21
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3d7eba1ccef876c7a791fcdfe6883b7fbeba5916;p=thirdparty%2Fopenldap.git

Remove ldaptcl from distribution.  It's not actively maintained.
---

diff --git a/contrib/README b/contrib/README
index 5004d0f01d..4ce69223ae 100644
--- a/contrib/README
+++ b/contrib/README
@@ -15,10 +15,6 @@ Current contributions:
 		LDAP SASL auxprop plugin
 		Contributed by Symas Corp.
 
-	ldaptcl
-		LDAP TCL API
-		Contributed by NeoSoft
-
 Please submit your contributions using the OpenLDAP Issue Tracking
 System <http://www.openldap.org/>.
 
diff --git a/contrib/ldaptcl/ldaperr.tcl b/contrib/ldaptcl/ldaperr.tcl
deleted file mode 100644
index e9f85683eb..0000000000
--- a/contrib/ldaptcl/ldaperr.tcl
+++ /dev/null
@@ -1,54 +0,0 @@
-#
-# 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} {
-	if {[clength $line] == 0 || [ctype space $line]} continue
-	if {[string match *typedef* $line]} break
-	if {![string match #define* $line]} continue
-	if {![string match "#define LDAP_*" $line]} continue
-	if {[string match "*LDAP_RANGE*" $line]} continue
-	if {[string match "*LDAP_API_RESULT*" $line]} continue
-	if {[string match {*\\} $line]} {
-	    append line [gets $fp]
-	}
-	lassign $line define macro value
-	set ldap_errcode($macro) $value
-    }
-    #parray ldap_errcode
-    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]] {
-	incr lasterr
-	while {$lasterr < $value} {
-	    puts -nonewline ",\n\tNULL"
-	    incr lasterr
-	}
-	puts -nonewline ",\n\t\"$ldap_errname($value)\""
-    }
-    puts "\n};"
-    puts "#define LDAPTCL_MAXERR\t$value"
-}
-
-#cmdtrace on
-if !$tcl_interactive {
-    genstrings [lindex $argv 0]
-}