src/csvtosrw.tcl

   1 #!/bin/sh
   2 # the next line restats using tclsh \
   3 exec tclsh "$0" "$@"
   4 #
   5 # This file is part of the YAZ toolkit
   6 # Copyright (c) Index Data 1996-2007
   7 # See the file LICENSE for details.
   8 #
   9 # $Id: csvtosrw.tcl,v 1.4 2007-01-03 08:42:15 adam Exp $
  10 #
  11 # Converts a CSV file with SRW diagnostics to C+H file for easy
  12 # maintenance
  13 #
  14 # $Id: csvtosrw.tcl,v 1.4 2007-01-03 08:42:15 adam Exp $
  15
  16 source [lindex $argv 0]/csvtodiag.tcl
  17
  18 csvtodiag [list [lindex $argv 0]/srw.csv diagsrw.c [lindex $argv 0]/../include/yaz/diagsrw.h] srw {}