Re-implemented the element name encoding as Adams suggestion: <e tag="value"> when...

[yaz-moved-to-github.git] / src / csvtosrw.tcl

diff --git a/src/csvtosrw.tcl b/src/csvtosrw.tcl
old mode 100755 (executable)
new mode 100644 (file)
index 157e231..f101bf1
--- a/src/csvtosrw.tcl
+++ b/src/csvtosrw.tcl
@@ -1,18 +1,14 @@
-#!/bin/sh
-# the next line restats using tclsh \
-exec tclsh "$0" "$@"
+#!/usr/bin/tclsh
 #
 # This file is part of the YAZ toolkit
-# Copyright (c) Index Data 1996-2005
+# Copyright (c) Index Data 1996-2007
 # See the file LICENSE for details.
 #
-# $Id: csvtosrw.tcl,v 1.1 2005-04-22 08:27:58 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 $
 
-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 {}