Remove deprecated functions yaz_uri_val ..
[yaz-moved-to-github.git] / src / oidtoc.tcl
1 # This file is part of the YAZ toolkit
2 # Copyright (c) Index Data 2006-2013
3 # See the file LICENSE for details.
4 #
5 #
6 # Converts a CSV file with Object identifiers to C
7
8 proc readoids {input} {
9     set csv [open $input r]
10     set lineno 0 
11
12     while {1} {
13         incr lineno
14         set cnt [gets $csv line]
15         if {$cnt < 0} {
16             break
17         }
18         if {![string compare [string index $line 0] \"]} {
19             continue
20         }
21         set tokens [string map {, { }} $line]
22         if {[llength $tokens] != 3} {
23             puts "$input:$lineno: Bad line '$line'"
24             exit 1
25         }
26         lappend oids $tokens
27     }
28     close $csv
29     if {![info exists oids]} {
30         puts "$input:0 No OIDS"
31         exit 1
32     }
33     return $oids
34 }
35
36 proc constant_var {oid} {
37     set lname [string tolower [lindex $oid 2]]
38     set lname [string map {- _ . _ { } _ ( {} ) {}} $lname]
39     set prefix [string tolower [lindex $oid 0]]
40         
41     return yaz_oid_${prefix}_${lname}
42 }
43
44 proc oid_to_xml {srcdir input xname} {
45     set oids [readoids "${input}"]
46     set xfile [open "${xname}" w]
47
48     puts $xfile "<!-- Generated by oidtoc.tcl from $input -->"
49     puts $xfile {<informaltable id="standard-oids">}
50     puts $xfile {<tgroup cols="3">}
51     puts $xfile {<colspec colwidth="3*" colname="name"></colspec>}
52     puts $xfile {<colspec colwidth="2*" colname="class"></colspec>}
53     puts $xfile {<colspec colwidth="4*" colname="oid"></colspec>}
54     puts $xfile {<thead>}
55     puts $xfile {<row>}
56     puts $xfile {<entry>Name</entry>}
57     puts $xfile {<entry>Class</entry>}
58     puts $xfile {<entry>Constant / OID</entry>}
59     puts $xfile {</row>}
60     puts $xfile {</thead>}
61     puts $xfile {<tbody>}
62
63     foreach oid $oids {
64         puts $xfile {<row>}
65
66         puts $xfile {<entry morerows="1">}
67         puts $xfile [lindex $oid 2]
68         puts $xfile {</entry>}
69
70
71         puts $xfile {<entry morerows="1">}
72         puts $xfile [lindex $oid 0]
73         puts $xfile {</entry>}
74
75         puts $xfile {<entry><literal>}
76         set v [constant_var $oid]
77         puts $xfile $v
78         puts $xfile {</literal></entry>}
79
80
81         puts $xfile {</row>}
82         puts $xfile {<row>}
83
84         puts $xfile {<entry namest="oid">}
85         puts $xfile [lindex $oid 1]
86         puts $xfile {</entry>}
87
88         puts $xfile {</row>}
89     }
90
91     puts $xfile {</tbody>}
92     puts $xfile {</tgroup>}
93
94     puts $xfile {</informaltable>}
95     close $xfile
96 }
97
98 proc oid_to_c {srcdir input cname hname} {
99     set oids [readoids "${input}"]
100
101     set cfile [open "${srcdir}/${cname}" w]
102     set hfile [open "${srcdir}/../include/yaz/${hname}" w]
103
104     puts $cfile "/** \\file $cname"
105     puts $hfile "/** \\file $hname"
106     set preamble "    \\brief Standard Object Identifiers: Generated from $input */"
107     puts $cfile $preamble
108     puts $hfile $preamble
109     puts $hfile "\#ifndef OID_STD_H"
110     puts $hfile "\#define OID_STD_H"
111
112     puts $cfile "\#if HAVE_CONFIG_H"
113     puts $cfile "\#include <config.h>"
114     puts $cfile "\#endif"
115
116     puts $cfile "\#include <yaz/oid_db.h>"
117     puts $cfile ""
118     # To avoid LNK4049
119     puts $hfile "\#ifdef YAZ_DLL"
120     puts $hfile "\#define OID_EXPORT YAZ_EXPORT"
121     puts $hfile "\#else"
122     puts $hfile "\#define OID_EXPORT YAZ_IMPORT"
123     puts $hfile "\#endif"
124
125     puts $hfile "YAZ_BEGIN_CDECL"
126     foreach oid $oids {
127
128         set v [constant_var $oid]
129         
130         puts -nonewline $cfile "YAZ_EXPORT const Odr_oid $v\[\] = \{"
131         puts -nonewline $cfile [string map {. ,} [lindex $oid 1]]
132         puts $cfile ",-1\};"
133
134         puts $hfile "OID_EXPORT extern const Odr_oid $v\[\];"
135     }
136
137     puts $cfile "YAZ_EXPORT struct yaz_oid_entry yaz_oid_standard_entries\[\] ="
138     puts $cfile "\{"
139     foreach oid $oids {
140         set v [constant_var $oid]
141         
142         puts -nonewline $cfile "\t\{CLASS_[lindex $oid 0], "
143         puts -nonewline $cfile "$v, "
144         puts -nonewline $cfile \"[lindex $oid 2]\"
145         puts $cfile "\},"
146     }
147
148     puts $cfile "\t\{CLASS_NOP, 0, 0\}"
149     puts $cfile "\};"
150
151     puts $hfile "OID_EXPORT extern struct yaz_oid_entry yaz_oid_standard_entries\[\];"
152     puts $hfile "YAZ_END_CDECL"
153     puts $hfile "\#endif"
154     close $cfile
155     close $hfile
156 }
157
158 if {[llength $argv] == 4} {
159     oid_to_c [lindex $argv 0] [lindex $argv 1] [lindex $argv 2] [lindex $argv 3]
160 } elseif {[llength $argv] == 3} {
161     oid_to_xml [lindex $argv 0] [lindex $argv 1] [lindex $argv 2]
162 } else {
163     puts "oidtoc.tcl srcdir csv cfile hfile"
164     exit 1
165 }