X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=util%2Fyaz-comp;h=ff5286a75de6bf1f014ffbeb12143ba15239ad28;hp=644b18786748d5a814b4890a8ea89fec67431399;hb=66ebb9d692735cc0b3b903c999dd225af2e2a08c;hpb=712de175de28e9977ead36d1cdd877993b008d09 diff --git a/util/yaz-comp b/util/yaz-comp index 644b187..ff5286a 100755 --- a/util/yaz-comp +++ b/util/yaz-comp @@ -7,7 +7,10 @@ exec tclsh "$0" "$@" # See the file LICENSE for details. # # $Log: yaz-comp,v $ -# Revision 1.2 2001-02-21 13:46:54 adam +# 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 @@ -761,6 +764,7 @@ 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"