X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=util%2Fyaz-asncomp;h=e155e5b2e44f2a5cc4ea987a31c903a4a83d0994;hb=3dfa732aa036db355ccfc199a419c0ed90772a37;hp=e0a86b123a71b2e26c12fbaae8e2f2900733d1ad;hpb=d940392c53c32ccf76fb287cc5b997b9e921a431;p=yaz-moved-to-github.git diff --git a/util/yaz-asncomp b/util/yaz-asncomp index e0a86b1..e155e5b 100755 --- a/util/yaz-asncomp +++ b/util/yaz-asncomp @@ -1,7 +1,7 @@ #!/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. # @@ -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 "\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\}" @@ -732,7 +732,7 @@ proc asnOf {name tag implicit tagtype isset} { } 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]] @@ -847,7 +847,7 @@ proc asnChoice {name tag implicit tagtype} { } 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);" @@ -1092,6 +1092,11 @@ proc asnModules {} { puts $file(outc) "" puts $file(outc) " ${greeting} ${yc_version}" puts $file(outc) "*/" + + puts $file(outc) "\#if HAVE_CONFIG_H" + puts $file(outc) "\#include " + puts $file(outc) "\#endif" + puts $file(outc) {} puts $file(outh) "/** \\file $inf(h-file)" @@ -1217,11 +1222,11 @@ proc asnBasicEXTERNAL {} { } proc asnBasicINTEGER {} { - return {odr_integer {int}} + return {odr_integer {Odr_int}} } proc asnBasicENUMERATED {} { - return {odr_enum {int}} + return {odr_enum {Odr_int}} } proc asnBasicNULL {} { @@ -1229,7 +1234,7 @@ proc asnBasicNULL {} { } proc asnBasicBOOLEAN {} { - return {odr_bool {bool_t}} + return {odr_bool {Odr_bool}} } proc asnBasicOCTET {} {