X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=src%2Foidtoc.tcl;h=314a0d93017d32216f7881be107390e5ba32377a;hb=fada8596e6a8574bbe8e95f7d0c7c317c1c04464;hp=c57a56e32db9ea574546c4f97628bd9036c991e0;hpb=38ce2c71a8aa497a5c445dd36d12d0d535dea79a;p=yaz-moved-to-github.git
diff --git a/src/oidtoc.tcl b/src/oidtoc.tcl
index c57a56e..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.6 2007-05-07 13:18:32 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
}
@@ -123,11 +123,11 @@ proc oid_to_c {srcdir input cname hname} {
set v [constant_var $oid]
- puts -nonewline $cfile "YAZ_EXPORT const int $v\[\] = \{"
+ puts -nonewline $cfile "YAZ_EXPORT const Odr_oid $v\[\] = \{"
puts -nonewline $cfile [string map {. ,} [lindex $oid 1]]
puts $cfile ",-1\};"
- puts $hfile "OID_EXPORT extern const int $v\[\];"
+ puts $hfile "OID_EXPORT extern const Odr_oid $v\[\];"
}
puts $cfile "YAZ_EXPORT struct yaz_oid_entry yaz_oid_standard_entries\[\] ="