X-Git-Url: http://lists.indexdata.com/cgi-bin?a=blobdiff_plain;f=src%2Foidtoc.tcl;h=314a0d93017d32216f7881be107390e5ba32377a;hb=9c0e939209ea21db376876168faa4e6563d3ac16;hp=2cbe66e750deb8390286a5d8cb7ee5947b83f86a;hpb=7a98e9bfbb9d5fe7d44822a9838e3becbdce9363;p=yaz-moved-to-github.git
diff --git a/src/oidtoc.tcl b/src/oidtoc.tcl
index 2cbe66e..314a0d9 100644
--- a/src/oidtoc.tcl
+++ b/src/oidtoc.tcl
@@ -2,7 +2,6 @@
# Copyright (c) Index Data 2006-2007
# 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
}