X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=src%2Foidtoc.tcl;h=d3bf166905daf2dad65ce831837edc8dfaf81ab8;hb=503a37782cf225167804b55d2bd665a04141d9e4;hp=2cbe66e750deb8390286a5d8cb7ee5947b83f86a;hpb=7a98e9bfbb9d5fe7d44822a9838e3becbdce9363;p=yaz-moved-to-github.git
diff --git a/src/oidtoc.tcl b/src/oidtoc.tcl
index 2cbe66e..d3bf166 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 2006-2013
# 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