X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=src%2Fcsvtosrw.tcl;h=cd0e08a4be6b7fb941643187068d05c203b57914;hp=157e231deed48a51adda1ccefb2b1ab1d40f8169;hb=e4368af2ede9079d33e7a8fd280d29b2bde1d1ad;hpb=84d7b06c13daa609e93f353e655c4b02f936d65c

diff --git a/src/csvtosrw.tcl b/src/csvtosrw.tcl
index 157e231..cd0e08a 100755
--- a/src/csvtosrw.tcl
+++ b/src/csvtosrw.tcl
@@ -3,16 +3,16 @@
 exec tclsh "$0" "$@"
 #
 # This file is part of the YAZ toolkit
-# Copyright (c) Index Data 1996-2005
+# Copyright (c) Index Data 1996-2006
 # See the file LICENSE for details.
 #
-# $Id: csvtosrw.tcl,v 1.1 2005-04-22 08:27:58 adam Exp $
+# $Id: csvtosrw.tcl,v 1.3 2006-05-23 20:43:37 adam Exp $
 #
 # Converts a CSV file with SRW diagnostics to C+H file for easy
 # maintenance
 #
-# $Id: csvtosrw.tcl,v 1.1 2005-04-22 08:27:58 adam Exp $
+# $Id: csvtosrw.tcl,v 1.3 2006-05-23 20:43:37 adam Exp $
 
-source csvtodiag.tcl
+source [lindex $argv 0]/csvtodiag.tcl
 
-csvtodiag {srw.csv diagsrw.c ../include/yaz/diagsrw.h} srw {}
\ No newline at end of file
+csvtodiag [list [lindex $argv 0]/srw.csv diagsrw.c [lindex $argv 0]/../include/yaz/diagsrw.h] srw {}