X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=util%2Fyc.tcl;h=b7aca359b07dc7fd412b4cf5cf4b3b8591026126;hb=988421f953de4623a11b90008c52e135631078ba;hp=49627ccae1406434c869f6a3d1523a48ca8ff3b9;hpb=d205d4870b1d64af05e9d6f6a2223086af4cce9e;p=yaz-moved-to-github.git

diff --git a/util/yc.tcl b/util/yc.tcl
index 49627cc..b7aca35 100755
--- a/util/yc.tcl
+++ b/util/yc.tcl
@@ -3,12 +3,17 @@
 exec tclsh "$0" "$@"
 #
 # YC: ASN.1 Compiler for YAZ
-# (c) Index Data 1996-1999
+# (c) Index Data 1996-2000
 # See the file LICENSE for details.
-# Sebastian Hammer, Adam Dickmeiss
 #
 # $Log: yc.tcl,v $
-# Revision 1.4  1999-12-16 23:36:19  adam
+# 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
@@ -266,7 +271,7 @@ proc asnOptional {} {
         return 1
     } elseif {[lex-name-move DEFAULT]} {
 	lex
-	return 1
+	return 0
     }
     return 0
 }
@@ -1122,7 +1127,8 @@ proc asnModules {} {
 	        set file(outp) [open $inf(h-path)/$inf(h-dir)$inf(p-file) w]
             }
 
-	    set md [clock format [clock seconds]]
+	    set md ""
+	    catch {set md [clock format [clock seconds]]}
 	    
 	    puts $file(outc) "/* YC ${yc_version} $md */"
 	    puts $file(outc) "/* Module-C: $inf(module) */"