projects
/
yaz-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
CQL: accept relations "within", "encloses"
[yaz-moved-to-github.git]
/
src
/
csvtodiag.tcl
diff --git
a/src/csvtodiag.tcl
b/src/csvtodiag.tcl
index
e5d6a3f
..
24fa7a8
100644
(file)
--- a/
src/csvtodiag.tcl
+++ b/
src/csvtodiag.tcl
@@
-1,8
+1,7
@@
# This file is part of the YAZ toolkit
# This file is part of the YAZ toolkit
-# Copyright (c) Index Data 1996-2005
+# Copyright (c) Index Data 1996-2013
# See the file LICENSE for details.
#
# 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
#
# Converts a CSV file with diagnostics to C+H file for easy
# maintenance
@@
-17,10
+16,17
@@
proc csvtodiag {ifiles name alias} {
set cfile [open [lindex $ifiles 1] w]
set hfile [open [lindex $ifiles 2] w]
set lineno 0
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 $preamble
+ puts $cfile "\#ifdef HAVE_CONFIG_H"
+ puts $cfile "\#include <config.h>"
+ puts $cfile "\#endif"
+
puts $cfile "
#include \"diag-entry.h\"
puts $cfile "
#include \"diag-entry.h\"
+\#include \"[lindex $ifiles 2]\"
struct yaz_diag_entry yaz_diag_${name}_tab\[\] = \{
"
puts $hfile $preamble
struct yaz_diag_entry yaz_diag_${name}_tab\[\] = \{
"
puts $hfile $preamble