simplify package.list.txt: Casing variants no longer needed

This commit is contained in:
jan.nijtmans
2025-11-21 11:06:07 +00:00
parent 94eefdb178
commit ff414ae156
2 changed files with 7 additions and 17 deletions
+2 -14
View File
@@ -1,35 +1,23 @@
# This file contains the mapping of directory names to package names for
# documentation purposes. Each non-blank non-comment line is a two-element
# list that says a possible name of directory (multiple lines may be needed
# because of capitalization issues) and the documentation name of the package
# to match. Pseudo-numeric suffixes are interpreted as version numbers.
# list that says a possible name of directory and the documentation name of the
# package to match. Pseudo-numeric suffixes are interpreted as version numbers.
# [incr Tcl]
itcl {[incr Tcl]}
Itcl {[incr Tcl]}
# SQLite
Sqlite SQLite3
sqlite SQLite3
Sqlite3 SQLite3
sqlite3 SQLite3
# Thread
Thread Thread
thread Thread
# Tcl Database Connectivity
tdbc TDBC
Tdbc TDBC
TDBC TDBC
# Drivers for TDBC
Tdbcmysql tdbc::mysql
tdbcmysql tdbc::mysql
Tdbcodbc tdbc::odbc
tdbcodbc tdbc::odbc
Tdbcpostgres tdbc::postgres
tdbcpostgres tdbc::postgres
Tdbcsqlite3 tdbc::sqlite3
tdbcsqlite3 tdbc::sqlite3
Tdbcsqlite tdbc::sqlite3
tdbcsqlite tdbc::sqlite3
+5 -3
View File
@@ -538,8 +538,8 @@ array set remap_link_target {
Tcl_Obj Tcl_NewObj
Tcl_ObjType Tcl_RegisterObjType
Tcl_OpenFileChannelProc Tcl_FSOpenFileChannel
errorinfo env
errorcode env
errorinfo env
errorcode env
tcl_pkgpath env
Tcl_Command Tcl_CreateObjCommand
Tcl_CmdProc Tcl_CreateObjCommand
@@ -714,7 +714,9 @@ try {
if {[string trim $line] eq ""} continue
if {[string match #* $line]} continue
lassign $line dir name
lappend packageDirNameMap $dir $name
dict append packageDirNameMap [string tolower $dir] $name
dict append packageDirNameMap [string toupper $dir] $name
dict append packageDirNameMap [string totitle $dir] $name
}
} finally {
close $f