egg-tcls: utillib.tcl annotate

annotate utillib.tcl @ 330:c42c900daf08

utillib: Add more entity conversions.

author	Matti Hamalainen <ccr@tnsp.org>
date	Wed, 10 Jun 2015 19:05:08 +0300
parents	2a85f7dd9733
children	9cecab5a0862

rev	line source
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	1 ##########################################################################
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	2 #
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	3 # TCL functions library by Matti 'ccr' Hamalainen <ccr@tnsp.org>
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	4 # (C) Copyright 2015 Tecnic Software productions (TNSP)
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	5 #
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	6 # This script is freely distributable under GNU GPL (version 2) license.
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	7 #
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	8 ##########################################################################
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	9
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	10 set utl_html_ent_str "-\|-\|'\|'\|—\|-\|&rlm;\|\|—\|-\|–\|--\|‪\|\|‬\|"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	11 append utl_html_ent_str "\|&lrm;\|\|å\|å\|Å\|Å\|é\|é\|:\|:\| \| "
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	12 append utl_html_ent_str "\|”\|\"\|“\|\"\|«\|<<\|»\|>>\|"\|\""
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	13 append utl_html_ent_str "\|ä\|ä\|ö\|ö\|Ä\|Ä\|Ö\|Ö\|&\|&\|<\|<\|>\|>"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	14 append utl_html_ent_str "\|ä\|ä\|å\|ö\|—\|-\|'\|'\|–\|-\|"\|\""
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	15 append utl_html_ent_str "\|\|\|-\|’\|'\|ü\|ü\|Ü\|Ü\|•\|*\|€\|€"
317 994c398cb3fc utillib: Add some entity conversions. Matti Hamalainen <ccr@tnsp.org> parents: 316 diff changeset	16 append utl_html_ent_str "\|”\|\"\|‘\|'\|ä\|ä\|·\|*\|®\|®\|´\|'"
330 c42c900daf08 utillib: Add more entity conversions. Matti Hamalainen <ccr@tnsp.org> parents: 326 diff changeset	17 append utl_html_ent_str "\|ö\|ö\|ö\|ö\|#\|#\|'\|'\|\|\|–\|-\|”\|\""
c42c900daf08 utillib: Add more entity conversions. Matti Hamalainen <ccr@tnsp.org> parents: 326 diff changeset	18 append utl_html_ent_str "\|…\|...\|…\|...\|"\|\""
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	19 set utl_html_ent_list [split [encoding convertfrom "utf-8" $utl_html_ent_str] "\|"]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	20
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	21
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	22 proc utl_convert_html_ent {udata} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	23 global utl_html_ent_list
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	24 return [string map -nocase $utl_html_ent_list [string map $utl_html_ent_list $udata]]
31 1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	25 }
1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	26
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	27
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	28 proc utl_str_split {str maxlen} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	29 set pos 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	30 set len [string length $str]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	31 set ulen 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	32 set ustr ""
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	33 set result {}
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	34 while {$pos < $len} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	35 set end [string wordend $str $pos]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	36 set new [expr $end - $pos + 1]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	37 if {$ulen + $new < $maxlen} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	38 append ustr [string range $str $pos $end]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	39 set ulen [expr $ulen + $new]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	40 } else {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	41 append ustr [string range $str $pos $end]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	42 lappend result $ustr
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	43 set ustr ""
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	44 set ulen 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	45 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	46 set pos [expr $end + 1]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	47 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	48 if {$ustr != ""} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	49 lappend result $ustr
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	50 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	51 return $result
31 1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	52 }
1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	53
1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	54
314 1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	55 proc utl_match_delim_list {ulist ustr} {
1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	56 foreach ukey [split $ulist ";"] {
316 682adbf6f09f urllog: 10L Bugfix. Matti Hamalainen <ccr@tnsp.org> parents: 314 diff changeset	57 if {[string match $ukey $ustr]} {
314 1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	58 return 1
1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	59 }
1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	60 }
1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	61 return 0
1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	62 }
1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	63
1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	64
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	65 ###
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	66 ### SQL database handling
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	67 ###
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	68 proc utl_tdbc_sql_init {ndb_handle db_type db_name db_host db_port db_user db_pass} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	69 upvar $ndb_handle udb_handle
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	70
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	71 if {$db_type == "sqlite"} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	72 if {$db_name == ""} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	73 putlog " SQLite3 database file not set."
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	74 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	75 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	76 if {![file exists $db_name]} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	77 putlog " URLLog SQLite3 database file '$db_name' not found, or not accessible!"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	78 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	79 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	80 package require tdbc::sqlite3 1.0
310 d56509a6f435 utillib: Simplify SQL connection creation. Matti Hamalainen <ccr@tnsp.org> parents: 295 diff changeset	81 if {[catch {set udb_handle [tdbc::sqlite3::connection new $db_name]} db_errmsg]} {
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	82 putlog " Could not open SQLite3 database '$db_name': $db_errmsg"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	83 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	84 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	85 putlog " (Using SQLite3 database $db_name)"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	86 } elseif {$db_type == "postgres" \|\| $db_type == "mysql"} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	87 # Check parameters
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	88 set db_args {}
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	89 if {$db_user != ""} { lappend db_args -user $db_user }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	90 if {$db_pass != ""} { lappend db_args -passwd $db_pass }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	91 if {$db_host != ""} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	92 lappend db_args -host $db_pass
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	93 if {$db_posrt != 0} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	94 lappend db_args -port $db_port
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	95 set db_host "${db_host}:${db_port}"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	96 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	97 } else {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	98 set db_host "localhost"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	99 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	100 if {$db_name == ""} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	101 putlog " Database name not set."
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	102 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	103 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	104 lappend db_args -database $db_name
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	105
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	106 if {$db_type == "postgres"} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	107 package require tdbc::postgres 1.0
310 d56509a6f435 utillib: Simplify SQL connection creation. Matti Hamalainen <ccr@tnsp.org> parents: 295 diff changeset	108 if {[catch {set udb_handle [tdbc::postgres::connection new {*}$db_args]} db_errmsg]} {
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	109 putlog " Could not connect to PostgreSQL database '$db_name @ $db_host': $db_errmsg"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	110 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	111 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	112 putlog " (Using PostgreSQL database $db_name @ $db_host)"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	113 } elseif {$db_type == "mysql"} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	114 package require tdbc::mysql 1.0
310 d56509a6f435 utillib: Simplify SQL connection creation. Matti Hamalainen <ccr@tnsp.org> parents: 295 diff changeset	115 if {[catch {set udb_handle [tdbc::mysql::connection new {*}$db_args]} db_errmsg]} {
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	116 putlog " Could not connect to MySQL database '$db_name @ $db_host': $db_errmsg"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	117 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	118 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	119 putlog " (Using MySQL database $db_name @ $db_host)"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	120 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	121 } else {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	122 putlog " Invalid or unsupported database type: '$db_type'."
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	123 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	124 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	125 return 1
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	126 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	127
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	128
295 141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 290 diff changeset	129 proc utl_escape {str} {
141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 290 diff changeset	130 return [string map {' ''} $str]
141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 290 diff changeset	131 }
141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 290 diff changeset	132
141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 290 diff changeset	133
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	134 ###
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	135 ### Functions for certain scripts
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	136 ###
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	137 proc utl_confirm_yesno { uprompt } {
63 7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	138 puts -nonewline "$uprompt \[y/N\]? "
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	139 flush stdout
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	140 set response [gets stdin]
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	141 if {[string tolower $response] == "y"} {
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	142 return 1
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	143 } else {
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	144 return 0
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	145 }
31 1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	146 }
1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	147
1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	148
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	149 proc utl_drop_table { dbh utable } {
63 7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	150 puts "Dropping current table '$utable'."
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	151 if {[catch {dbh eval "DROP TABLE $utable"} uerrmsg]} {
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	152 puts "Dropping table resulted in error (ignored): $uerrmsg."
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	153 }
31 1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	154 }
1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	155
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	156
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	157 proc utl_create_table { dbh utable usql } {
63 7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	158 puts "Creating new table '$utable'."
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	159 if {[catch {dbh eval "CREATE TABLE $utable ($usql)"} uerrmsg]} {
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	160 puts "Error creating table: $uerrmsg."
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	161 return 0
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	162 }
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	163 return 1
31 1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	164 }
1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	165
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	166
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	167 proc utl_create_table_or_fail { dbh utable usql } {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	168 if {![utl_create_table $dbh $utable $usql]} {
63 7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	169 exit 3
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	170 }
31 1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	171 }

Mercurial > hg > egg-tcls

annotate utillib.tcl @ 330:c42c900daf08