|
a/tcsq.tcl |
|
b/tcsq.tcl |
|
... |
|
... |
24 |
# The SQLDBTYPE environment variable determines the database type:
|
24 |
# The SQLDBTYPE environment variable determines the database type:
|
25 |
# MYSQL -> MYSQL
|
25 |
# MYSQL -> MYSQL
|
26 |
# MSQL -> MSQL
|
26 |
# MSQL -> MSQL
|
27 |
# INFORMIX -> INFORMIX
|
27 |
# INFORMIX -> INFORMIX
|
28 |
# ODBC -> Unix odbc
|
28 |
# ODBC -> Unix odbc
|
|
|
29 |
# SQLITE3 -> SQLITE3
|
29 |
#
|
30 |
#
|
30 |
# Big and maybe temporary restriction: we only support the use of exactly
|
31 |
# Big and maybe temporary restriction: we only support the use of exactly
|
31 |
# one database type at a time (you can access several databases on
|
32 |
# one database type at a time (you can access several databases on
|
32 |
# several hosts simultaneously, but they must all be of the same kind).
|
33 |
# several hosts simultaneously, but they must all be of the same kind).
|
33 |
#
|
34 |
#
|
|
... |
|
... |
111 |
"MSQL" {
|
112 |
"MSQL" {
|
112 |
catch {package require MSQLtcsq}
|
113 |
catch {package require MSQLtcsq}
|
113 |
}
|
114 |
}
|
114 |
"ODBC" {
|
115 |
"ODBC" {
|
115 |
catch {package require ODBCtcsq}
|
116 |
catch {package require ODBCtcsq}
|
|
|
117 |
}
|
|
|
118 |
"SQLITE3" {
|
|
|
119 |
catch {package require SQLITE3tcsq}
|
116 |
}
|
120 |
}
|
117 |
}
|
121 |
}
|
118 |
|
122 |
|
119 |
# if maxlen not set by sqlscreens, set it to a very high value
|
123 |
# if maxlen not set by sqlscreens, set it to a very high value
|
120 |
if {![info exists sqlsc_def_maxlen]} {
|
124 |
if {![info exists sqlsc_def_maxlen]} {
|