#!/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.
#
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 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\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);"
}
proc asnBasicINTEGER {} {
- return {odr_integer {int}}
+ return {odr_integer {Odr_int}}
}
proc asnBasicENUMERATED {} {
- return {odr_enum {int}}
+ return {odr_enum {Odr_int}}
}
proc asnBasicNULL {} {
}
proc asnBasicBOOLEAN {} {
- return {odr_bool {bool_t}}
+ return {odr_bool {Odr_bool}}
}
proc asnBasicOCTET {} {