X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=util%2Fyaz-asncomp;h=d02bd9ddb49c74d4156ac21cbd8e9b7363c673e5;hb=bfef45d6390bfabffc0d5e4dc3cf1aaa877fdef6;hp=bd757fbc2d11d947d6d3fc9da43e55dd365c9f23;hpb=6b76baf0fb5d0d437caedd8076f77f372d775758;p=yaz-moved-to-github.git diff --git a/util/yaz-asncomp b/util/yaz-asncomp index bd757fb..d02bd9d 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-2010 # 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);" @@ -1217,11 +1217,11 @@ proc asnBasicEXTERNAL {} { } proc asnBasicINTEGER {} { - return {odr_integer {odr_int_t}} + return {odr_integer {Odr_int}} } proc asnBasicENUMERATED {} { - return {odr_enum {odr_int_t}} + return {odr_enum {Odr_int}} } proc asnBasicNULL {} { @@ -1229,7 +1229,7 @@ proc asnBasicNULL {} { } proc asnBasicBOOLEAN {} { - return {odr_bool {bool_t}} + return {odr_bool {Odr_bool}} } proc asnBasicOCTET {} {