egg-tcls: utillib.tcl annotate

annotate utillib.tcl @ 326:2a85f7dd9733

utillib: Add entity conversions.

author	Matti Hamalainen <ccr@tnsp.org>
date	Wed, 03 Jun 2015 18:51:06 +0300
parents	a812bd6d752f
children	c42c900daf08

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 "\|”\|\"\|‘\|'\|ä\|ä\|·\|*\|®\|®\|´\|'"
326 2a85f7dd9733 utillib: Add entity conversions. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	17 append utl_html_ent_str "\|ö\|ö\|ö\|ö\|#\|#\|'\|'"
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	18 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	19
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 proc utl_convert_html_ent {udata} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	22 global utl_html_ent_list
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	23 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	24 }
1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	25
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	26
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	27 proc utl_str_split {str maxlen} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	28 set pos 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	29 set len [string length $str]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	30 set ulen 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	31 set ustr ""
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	32 set result {}
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	33 while {$pos < $len} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	34 set end [string wordend $str $pos]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	35 set new [expr $end - $pos + 1]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	36 if {$ulen + $new < $maxlen} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	37 append ustr [string range $str $pos $end]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	38 set ulen [expr $ulen + $new]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	39 } else {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	40 append ustr [string range $str $pos $end]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	41 lappend result $ustr
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	42 set ustr ""
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	43 set ulen 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	44 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	45 set pos [expr $end + 1]
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	46 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	47 if {$ustr != ""} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	48 lappend result $ustr
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	49 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	50 return $result
31 1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	51 }
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
314 1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	54 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	55 foreach ukey [split $ulist ";"] {
316 682adbf6f09f urllog: 10L Bugfix. Matti Hamalainen <ccr@tnsp.org> parents: 314 diff changeset	56 if {[string match $ukey $ustr]} {
314 1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	57 return 1
1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	58 }
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 return 0
1cf897164a25 utillib: Add utl_match_delim_list helper function. Matti Hamalainen <ccr@tnsp.org> parents: 310 diff changeset	61 }
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
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	64 ###
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	65 ### SQL database handling
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	66 ###
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	67 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	68 upvar $ndb_handle udb_handle
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	69
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	70 if {$db_type == "sqlite"} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	71 if {$db_name == ""} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	72 putlog " SQLite3 database file not set."
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	73 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	74 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	75 if {![file exists $db_name]} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	76 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	77 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	78 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	79 package require tdbc::sqlite3 1.0
310 d56509a6f435 utillib: Simplify SQL connection creation. Matti Hamalainen <ccr@tnsp.org> parents: 295 diff changeset	80 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	81 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	82 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	83 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	84 putlog " (Using SQLite3 database $db_name)"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	85 } elseif {$db_type == "postgres" \|\| $db_type == "mysql"} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	86 # Check parameters
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	87 set db_args {}
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	88 if {$db_user != ""} { lappend db_args -user $db_user }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	89 if {$db_pass != ""} { lappend db_args -passwd $db_pass }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	90 if {$db_host != ""} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	91 lappend db_args -host $db_pass
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	92 if {$db_posrt != 0} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	93 lappend db_args -port $db_port
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	94 set db_host "${db_host}:${db_port}"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	95 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	96 } else {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	97 set db_host "localhost"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	98 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	99 if {$db_name == ""} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	100 putlog " Database name not set."
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	101 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	102 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	103 lappend db_args -database $db_name
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	104
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	105 if {$db_type == "postgres"} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	106 package require tdbc::postgres 1.0
310 d56509a6f435 utillib: Simplify SQL connection creation. Matti Hamalainen <ccr@tnsp.org> parents: 295 diff changeset	107 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	108 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	109 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	110 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	111 putlog " (Using PostgreSQL database $db_name @ $db_host)"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	112 } elseif {$db_type == "mysql"} {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	113 package require tdbc::mysql 1.0
310 d56509a6f435 utillib: Simplify SQL connection creation. Matti Hamalainen <ccr@tnsp.org> parents: 295 diff changeset	114 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	115 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	116 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	117 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	118 putlog " (Using MySQL database $db_name @ $db_host)"
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	119 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	120 } else {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	121 putlog " Invalid or unsupported database type: '$db_type'."
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	122 return 0
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	123 }
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	124 return 1
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	125 }
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
295 141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 290 diff changeset	128 proc utl_escape {str} {
141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 290 diff changeset	129 return [string map {' ''} $str]
141bb4a2b76f utillib: utl_escape (which will be deprecated soon). Matti Hamalainen <ccr@tnsp.org> parents: 290 diff changeset	130 }
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
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	133 ###
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	134 ### Functions for certain scripts
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	135 ###
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	136 proc utl_confirm_yesno { uprompt } {
63 7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	137 puts -nonewline "$uprompt \[y/N\]? "
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	138 flush stdout
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	139 set response [gets stdin]
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	140 if {[string tolower $response] == "y"} {
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	141 return 1
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	142 } else {
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	143 return 0
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	144 }
31 1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	145 }
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
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	148 proc utl_drop_table { dbh utable } {
63 7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	149 puts "Dropping current table '$utable'."
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	150 if {[catch {dbh eval "DROP TABLE $utable"} uerrmsg]} {
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	151 puts "Dropping table resulted in error (ignored): $uerrmsg."
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	152 }
31 1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	153 }
1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	154
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	155
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	156 proc utl_create_table { dbh utable usql } {
63 7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	157 puts "Creating new table '$utable'."
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	158 if {[catch {dbh eval "CREATE TABLE $utable ($usql)"} uerrmsg]} {
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	159 puts "Error creating table: $uerrmsg."
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	160 return 0
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	161 }
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	162 return 1
31 1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	163 }
1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	164
290 cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	165
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	166 proc utl_create_table_or_fail { dbh utable usql } {
cad1041b5bc4 Revamp the utility functions library. Matti Hamalainen <ccr@tnsp.org> parents: 262 diff changeset	167 if {![utl_create_table $dbh $utable $usql]} {
63 7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	168 exit 3
7b03971c6d28 Remove tabs and reindent. Matti Hamalainen <ccr@tnsp.org> parents: 38 diff changeset	169 }
31 1ddfada536ff Add utility "library" for database conversion and creation scripts. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	170 }

Mercurial > hg > egg-tcls

annotate utillib.tcl @ 326:2a85f7dd9733