X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;ds=sidebyside;f=src%2Foidtoc.tcl;h=2e72d033a177d3b305b68bdd9f7d599f708f196a;hb=55dd9ff92e47e3e13fb11915bc5e1bdbd15537ab;hp=2cbe66e750deb8390286a5d8cb7ee5947b83f86a;hpb=7a98e9bfbb9d5fe7d44822a9838e3becbdce9363;p=yaz-moved-to-github.git
diff --git a/src/oidtoc.tcl b/src/oidtoc.tcl
index 2cbe66e..2e72d03 100644
--- a/src/oidtoc.tcl
+++ b/src/oidtoc.tcl
@@ -1,8 +1,7 @@
# This file is part of the YAZ toolkit
-# Copyright (c) Index Data 2006-2007
+# Copyright (C) Index Data
# See the file LICENSE for details.
#
-# $Id: oidtoc.tcl,v 1.7 2007-05-08 08:22:36 adam Exp $
#
# Converts a CSV file with Object identifiers to C
@@ -47,19 +46,16 @@ proc oid_to_xml {srcdir input xname} {
set xfile [open "${xname}" w]
puts $xfile ""
- puts $xfile {
}
- puts $xfile {Standard Object Identifiers}
- puts $xfile {}
+ puts $xfile {}
+ puts $xfile {}
puts $xfile {}
puts $xfile {}
- puts $xfile {}
- puts $xfile {}
+ puts $xfile {}
puts $xfile {}
puts $xfile {}
puts $xfile {Name}
puts $xfile {Class}
- puts $xfile {Constant}
- puts $xfile {OID}
+ puts $xfile {Constant / OID}
puts $xfile {
}
puts $xfile {}
puts $xfile {}
@@ -67,12 +63,12 @@ proc oid_to_xml {srcdir input xname} {
foreach oid $oids {
puts $xfile {}
- puts $xfile {}
+ puts $xfile {}
puts $xfile [lindex $oid 2]
puts $xfile {}
- puts $xfile {}
+ puts $xfile {}
puts $xfile [lindex $oid 0]
puts $xfile {}
@@ -81,7 +77,11 @@ proc oid_to_xml {srcdir input xname} {
puts $xfile $v
puts $xfile {}
- puts $xfile {}
+
+ puts $xfile {
}
+ puts $xfile {}
+
+ puts $xfile {}
puts $xfile [lindex $oid 1]
puts $xfile {}
@@ -91,7 +91,7 @@ proc oid_to_xml {srcdir input xname} {
puts $xfile {
}
puts $xfile {}
- puts $xfile {
}
+ puts $xfile {}
close $xfile
}
@@ -109,6 +109,10 @@ proc oid_to_c {srcdir input cname hname} {
puts $hfile "\#ifndef OID_STD_H"
puts $hfile "\#define OID_STD_H"
+ puts $cfile "\#if HAVE_CONFIG_H"
+ puts $cfile "\#include "
+ puts $cfile "\#endif"
+
puts $cfile "\#include "
puts $cfile ""
# To avoid LNK4049