Mercurial > hg > egg-tcls

changeset 34:dccd6c47f9cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use special 'source' statement to include util_convert.tcl from same directory where the script calling it resides.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 06 Sep 2011 18:15:49 +0300
parents 8a6bfcf1f57b
children f4dd229b17d1
files convert_spede_mn_tuksu.tcl convert_urllog_db.tcl create_spede_mn_tuksu.tcl create_urllog_db.tcl
diffstat 4 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/convert_spede_mn_tuksu.tcl	Tue Sep 06 16:33:26 2011 +0300
+++ b/convert_spede_mn_tuksu.tcl	Tue Sep 06 18:15:49 2011 +0300
@@ -6,7 +6,7 @@
 # (C) Copyright 2011 Tecnic Software productions (TNSP)
 #
 package require sqlite3
-source util_convert.tcl
+source [file dirname [info script]]/util_convert.tcl
 
 ### Check commandline arguments
 if {$argc != 3} {
--- a/convert_urllog_db.tcl	Tue Sep 06 16:33:26 2011 +0300
+++ b/convert_urllog_db.tcl	Tue Sep 06 18:15:49 2011 +0300
@@ -6,7 +6,7 @@
 # (C) Copyright 2011 Tecnic Software productions (TNSP)
 #
 package require sqlite3
-source util_convert.tcl
+source [file dirname [info script]]/util_convert.tcl
 
 ### Check commandline arguments
 if {$argc != 2} {
--- a/create_spede_mn_tuksu.tcl	Tue Sep 06 16:33:26 2011 +0300
+++ b/create_spede_mn_tuksu.tcl	Tue Sep 06 18:15:49 2011 +0300
@@ -6,7 +6,7 @@
 # (C) Copyright 2011 Tecnic Software productions (TNSP)
 #
 package require sqlite3
-source util_convert.tcl
+source [file dirname [info script]]/util_convert.tcl
 
 set db_list {spededb tuksudb mndb}
 
--- a/create_urllog_db.tcl	Tue Sep 06 16:33:26 2011 +0300
+++ b/create_urllog_db.tcl	Tue Sep 06 18:15:49 2011 +0300
@@ -5,7 +5,7 @@
 # (C) Copyright 2011 Tecnic Software productions (TNSP)
 #
 package require sqlite3
-source util_convert.tcl
+source [file dirname [info script]]/util_convert.tcl
 
 ### Check commandline arguments
 if {$argc < 1} {