Introduce type for BER BOOLEAN/INTEGER .

[yaz-moved-to-github.git] / util / yaz-asncomp

diff --git a/util/yaz-asncomp b/util/yaz-asncomp
index 157246c..fb454a6 100755 (executable)
--- a/util/yaz-asncomp
+++ b/util/yaz-asncomp
@@ -1,13 +1,9 @@
-#!/bin/sh
-# the next line restarts using tclsh \
-exec tclsh "$0" "$@"
+#!/usr/bin/tclsh
 #
 # yaz-comp: ASN.1 Compiler for YAZ
-# (c) Index Data 1996-2004
+# (c) Index Data 1996-2007
 # See the file LICENSE for details.
 #
-# $Id: yaz-asncomp,v 1.5 2006-04-20 08:25:12 adam Exp $
-#
 
 set yc_version 0.4
 
@@ -1221,11 +1217,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 {} {
@@ -1233,7 +1229,7 @@ proc asnBasicNULL {} {
 }
 
 proc asnBasicBOOLEAN {} {
-    return {odr_bool {bool_t}}
+    return {odr_bool {Odr_bool}}
 }
 
 proc asnBasicOCTET {} {