Mercurial > hg > egg-tcls

comparison utillib.tcl @ 424:825cac46b1cb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Cosmetic / stray trailing whitespace cleanup.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 08 Jan 2017 03:55:55 +0200
parents 880a07485275
children 84d3d7abeb8a
comparison
equal deleted inserted replaced
423:44c9128097cd 424:825cac46b1cb
25 return [string map -nocase $utl_html_ent_list [string map $utl_html_ent_list $udata]] 25 return [string map -nocase $utl_html_ent_list [string map $utl_html_ent_list $udata]]
26 } 26 }
27 27
28 28
29 proc utl_str_split {str maxlen} { 29 proc utl_str_split {str maxlen} {
30 set pos 0 30 set pos 0
31 set len [string length $str] 31 set len [string length $str]
32 set ulen 0 32 set ulen 0
33 set ustr "" 33 set ustr ""
34 set result {} 34 set result {}
35 while {$pos < $len} { 35 while {$pos < $len} {
74 ### 74 ###
75 ### SQL database handling 75 ### SQL database handling
76 ### 76 ###
77 proc utl_tdbc_sql_init {ndb_handle db_type db_name db_host db_port db_user db_pass} { 77 proc utl_tdbc_sql_init {ndb_handle db_type db_name db_host db_port db_user db_pass} {
78 upvar $ndb_handle udb_handle 78 upvar $ndb_handle udb_handle
79 79
80 if {$db_type == "sqlite"} { 80 if {$db_type == "sqlite"} {
81 if {$db_name == ""} { 81 if {$db_name == ""} {
82 putlog " SQLite3 database file not set." 82 putlog " SQLite3 database file not set."
83 return 0 83 return 0
84 } 84 }