X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=src%2Fcsvtodiag.tcl;h=3124ba983398031b4cb56f054a3b35ccc4f12fd1;hp=e5d6a3f3f4ffd4a68c4ab6111e6cf1b0771ea528;hb=df84e4897abc4565fe11adead30b99d9634b41b1;hpb=84d7b06c13daa609e93f353e655c4b02f936d65c diff --git a/src/csvtodiag.tcl b/src/csvtodiag.tcl index e5d6a3f..3124ba9 100644 --- a/src/csvtodiag.tcl +++ b/src/csvtodiag.tcl @@ -1,8 +1,7 @@ # 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: csvtodiag.tcl,v 1.1 2005-04-22 08:27:58 adam Exp $ # # Converts a CSV file with diagnostics to C+H file for easy # maintenance @@ -17,10 +16,13 @@ proc csvtodiag {ifiles name alias} { set cfile [open [lindex $ifiles 1] w] set hfile [open [lindex $ifiles 2] w] set lineno 0 - set preamble "/* Generated automatically by csvtodiag.tcl from [lindex $ifiles 0] */" + puts $cfile "/** \\file [lindex $ifiles 1]" + puts $hfile "/** \\file [lindex $ifiles 2]" + set preamble " \\brief Diagnostics: Generated by csvtodiag.tcl from [lindex $ifiles 0] */" puts $cfile $preamble puts $cfile " #include \"diag-entry.h\" +\#include \"[lindex $ifiles 2]\" struct yaz_diag_entry yaz_diag_${name}_tab\[\] = \{ " puts $hfile $preamble