Generate built-in OIDs from oid.csv.

[yaz-moved-to-github.git] / src / oidtoc.tcl

diff --git a/src/oidtoc.tcl b/src/oidtoc.tcl
new file mode 100644 (file)
index 0000000..7809f3f
--- /dev/null
+++ b/src/oidtoc.tcl
@@ -0,0 +1,82 @@
+# This file is part of the YAZ toolkit
+# Copyright (c) Index Data 2006-2007
+# See the file LICENSE for details.
+#
+# $Id: oidtoc.tcl,v 1.1 2007-04-16 21:53:09 adam Exp $
+#
+# Converts a CSV file with Object identifiers to C
+
+proc readoids {input} {
+    set csv [open $input r]
+    set lineno 0 
+
+    while {1} {
+       incr lineno
+       set cnt [gets $csv line]
+       if {$cnt < 0} {
+           break
+       }
+       if {![string compare [string index $line 0] \"]} {
+           continue
+       }
+       set tokens [string map {, { }} $line]
+       if {[llength $tokens] != 3} {
+           puts "$input:$lineno: Bad line '$line'"
+           exit 1
+       }
+       lappend oids $tokens
+    }
+    close $csv
+    if {![info exists oids]} {
+       puts "$input:0 No OIDS"
+       exit 1
+    }
+    return $oids
+}
+
+proc oid_to_c {input cfile hfile} {
+    set oids [readoids $input]
+
+    set cfile [open $cfile w]
+    set hfile [open $hfile w]
+
+    puts $cfile "\#include <yaz/oid_db.h>"
+    puts $cfile ""
+    foreach oid $oids {
+       set lname [string tolower [lindex $oid 2]]
+       set lname [string map {- _ . _ { } _ ( {} ) {}} $lname]
+       set prefix [string tolower [lindex $oid 0]]
+       
+       puts -nonewline $cfile "const int yaz_oid_${prefix}_${lname}\[\] = \{"
+       puts -nonewline $cfile [string map {. ,} [lindex $oid 1]]
+       puts $cfile ",-1\};"
+
+       puts $hfile "extern const int yaz_oid_${prefix}_${lname}\[\];"
+    }
+
+    puts $cfile "struct yaz_oid_entry yaz_oid_standard_entries\[\] ="
+    puts $cfile "\{"
+    foreach oid $oids {
+       set lname [string tolower [lindex $oid 2]]
+       set lname [string map {- _ . _ { } _ ( {} ) {}} $lname]
+       set prefix [string tolower [lindex $oid 0]]
+       
+       puts -nonewline $cfile "\t\{CLASS_[lindex $oid 0], "
+       puts -nonewline $cfile "yaz_oid_${prefix}_${lname}, "
+       puts -nonewline $cfile \"[lindex $oid 2]\"
+       puts $cfile "\},"
+    }
+
+    puts $cfile "\t\{CLASS_NOP, 0, 0\}"
+    puts $cfile "\};"
+
+    puts $hfile "extern struct yaz_oid_entry yaz_oid_standard_entries\[\];"
+    close $cfile
+    close $hfile
+}
+
+if {[llength $argv] != 3} {
+    puts "oidtoc.tcl csv cfile hfile"
+    exit 1
+}
+oid_to_c [lindex $argv 0] [lindex $argv 1] [lindex $argv 2]
\ No newline at end of file