projects
/
yaz-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
GFS: close connection immediately if EOF is received.
[yaz-moved-to-github.git]
/
util
/
yaz-asncomp
diff --git
a/util/yaz-asncomp
b/util/yaz-asncomp
index
bd757fb
..
e155e5b
100755
(executable)
--- a/
util/yaz-asncomp
+++ b/
util/yaz-asncomp
@@
-1,7
+1,7
@@
#!/usr/bin/tclsh
#
# yaz-comp: ASN.1 Compiler for YAZ
#!/usr/bin/tclsh
#
# yaz-comp: ASN.1 Compiler for YAZ
-# (c) Index Data 1996-2007
+# (c) Index Data 1996-2011
# See the file LICENSE for details.
#
# See the file LICENSE for details.
#
@@
-519,7
+519,7
@@
proc asnSequence {name tag implicit tagtype} {
lappend l "\tif (!odr_sequence_begin (o, p, sizeof(**p), 0))"
lappend l "\t\{"
lappend l "\tif (!odr_sequence_begin (o, p, sizeof(**p), 0))"
lappend l "\t\{"
- lappend l "\t\tif(o->direction == ODR_DECODE)"
+ lappend l "\t\tif (o->direction == ODR_DECODE)"
lappend l "\t\t\t*p = 0;"
lappend l "\t\treturn 0;"
lappend l "\t\}"
lappend l "\t\t\t*p = 0;"
lappend l "\t\treturn 0;"
lappend l "\t\}"
@@
-732,7
+732,7
@@
proc asnOf {name tag implicit tagtype isset} {
}
lappend j "\}"
lappend l "\t\treturn 1;"
}
lappend j "\}"
lappend l "\t\treturn 1;"
- lappend l "\tif(o->direction == ODR_DECODE)"
+ lappend l "\tif (o->direction == ODR_DECODE)"
lappend l "\t\t*p = 0;"
lappend l "\treturn odr_missing(o, opt, name);"
return [list [join $l \n] [join $j \n]]
lappend l "\t\t*p = 0;"
lappend l "\treturn odr_missing(o, opt, name);"
return [list [join $l \n] [join $j \n]]
@@
-847,7
+847,7
@@
proc asnChoice {name tag implicit tagtype} {
}
lappend l "\t\treturn 1;"
}
lappend l "\t\treturn 1;"
- lappend l "\tif(o->direction == ODR_DECODE)"
+ lappend l "\tif (o->direction == ODR_DECODE)"
lappend l "\t\t*p = 0;"
lappend l "\treturn odr_missing(o, opt, name);"
lappend l "\t\t*p = 0;"
lappend l "\treturn odr_missing(o, opt, name);"
@@
-1092,6
+1092,11
@@
proc asnModules {} {
puts $file(outc) ""
puts $file(outc) " ${greeting} ${yc_version}"
puts $file(outc) "*/"
puts $file(outc) ""
puts $file(outc) " ${greeting} ${yc_version}"
puts $file(outc) "*/"
+
+ puts $file(outc) "\#if HAVE_CONFIG_H"
+ puts $file(outc) "\#include <config.h>"
+ puts $file(outc) "\#endif"
+
puts $file(outc) {}
puts $file(outh) "/** \\file $inf(h-file)"
puts $file(outc) {}
puts $file(outh) "/** \\file $inf(h-file)"
@@
-1217,11
+1222,11
@@
proc asnBasicEXTERNAL {} {
}
proc asnBasicINTEGER {} {
}
proc asnBasicINTEGER {} {
- return {odr_integer {odr_int_t}}
+ return {odr_integer {Odr_int}}
}
proc asnBasicENUMERATED {} {
}
proc asnBasicENUMERATED {} {
- return {odr_enum {odr_int_t}}
+ return {odr_enum {Odr_int}}
}
proc asnBasicNULL {} {
}
proc asnBasicNULL {} {
@@
-1229,7
+1234,7
@@
proc asnBasicNULL {} {
}
proc asnBasicBOOLEAN {} {
}
proc asnBasicBOOLEAN {} {
- return {odr_bool {bool_t}}
+ return {odr_bool {Odr_bool}}
}
proc asnBasicOCTET {} {
}
proc asnBasicOCTET {} {