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
Make ssl_check_error static and define ssl_type always.
[yaz-moved-to-github.git]
/
src
/
csvtodiag.tcl
diff --git
a/src/csvtodiag.tcl
b/src/csvtodiag.tcl
index
e5d6a3f
..
3124ba9
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-2007
# 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,13
@@
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 "
#include \"diag-entry.h\"
puts $cfile $preamble
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