simplify package.list.txt: Casing variants no longer needed
This commit is contained in:
+2
-14
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user