Use Log instead of Id

diff --git a/util/yaz-comp b/util/yaz-comp
index ff5286a..31e741b 100755 (executable)
--- a/util/yaz-comp
+++ b/util/yaz-comp
@@ -3,62 +3,10 @@
 exec tclsh "$0" "$@"
 #
 # yaz-comp: ASN.1 Compiler for YAZ
-# (c) Index Data 1996-2000
+# (c) Index Data 1996-2003
 # See the file LICENSE for details.
 #
-# $Log: yaz-comp,v $
-# Revision 1.3  2003-04-14 16:57:58  adam
-# Add include of string.h
-#
-# Revision 1.2  2001/02/21 13:46:54  adam
-# C++ fixes.
-#
-# Revision 1.1  2000/03/02 08:48:20  adam
-# Renamed ASN.1 compiler to yaz-comp (used to be yc.tcl).
-#
-# Revision 1.6  2000/02/10 13:44:02  adam
-# Tcl command clock not used if unavailable (Tcl7.4 and earlier).
-#
-# Revision 1.5  2000/01/15 09:18:42  adam
-# Bug fix: some elements where treated as OPTIONAL when they shouldn't.
-#
-# Revision 1.4  1999/12/16 23:36:19  adam
-# Implemented ILL protocol. Minor updates ASN.1 compiler.
-#
-# Revision 1.3  1999/11/30 13:47:12  adam
-# Improved installation. Moved header files to include/yaz.
-#
-# Revision 1.2  1999/06/09 09:43:11  adam
-# Added option -I and variable h-path to specify path for header files.
-#
-# Revision 1.1  1999/06/08 10:10:16  adam
-# New sub directory zutil. Moved YAZ Compiler to be part of YAZ tree.
-#
-# Revision 1.8  1999/04/20 10:37:04  adam
-# Updated for ODR - added name parameter.
-#
-# Revision 1.7  1998/04/03 14:44:20  adam
-# Small fix.
-#
-# Revision 1.6  1998/04/03 13:21:17  adam
-# Yet another fix.
-#
-# Revision 1.5  1998/04/03 12:48:17  adam
-# Fixed bug: missed handling of constructed tags for CHOICE.
-#
-# Revision 1.4  1998/03/31 15:47:45  adam
-# First compiled ASN.1 code for YAZ.
-#
-# Revision 1.3  1998/03/23 17:13:20  adam
-# Implemented SET OF and ENUM. The Compiler now eats ILL (ISO10161) and
-# LDAP (RFC1777).
-#
-# Revision 1.2  1997/10/07 10:31:01  adam
-# Added facility to specify tag type (CONTEXT, APPLICATION, ...).
-#
-# Revision 1.1.1.1  1996/10/31 14:04:40  adam
-# First version of the compiler for YAZ.
-#
+# $Id: yaz-comp,v 1.4 2003-04-14 17:02:12 adam Exp $
 #
 
 set yc_version 0.3
@@ -764,7 +712,6 @@ proc asnOf {name tag implicit tagtype isset} {
     lappend l "\t\treturn opt && odr_ok(o);"
     if {[string length $tag]} {
         if {$implicit} {
-               lappend l "\t/* ---- IMPLICIT ---- */"
             lappend l "\todr_implicit_settag (o, $tagtype, $tag);"
         } else {
             asnWarning "Constructed SEQUENCE/SET OF not handled"