Read Tcl code from stdin

diff --git a/tcl/keks.tcl b/tcl/keks.tcl
index 5f661d39a574fcaaff4b59c0959067db24d72dc9e0648928312ec5e8b9ad52f1..cad23e764e0cfd17530bbea826f87baf955af0de3a01ccee778d59c147ceb313 100755 (executable)
--- a/tcl/keks.tcl
+++ b/tcl/keks.tcl
@@ -308,6 +308,7 @@ package provide KEKS $KEKS::version
 if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} {
     namespace import KEKS::*
     set buf ""
-    eval [lindex $::argv 0]
+    set in [read stdin]
+    eval $in
     puts [binary encode hex $buf]
 }

diff --git a/tcl/mk-fuzz-inputs b/tcl/mk-fuzz-inputs
index fb749fe578633a925628eaea0a1501b8ebbf7b194efc1025bfbd62f3b48f00a5..54667e58cc22c99962c40b812c2f7daba4ea1b726874ec73724f39f3533b8891 100755 (executable)
--- a/tcl/mk-fuzz-inputs
+++ b/tcl/mk-fuzz-inputs
@@ -1,7 +1,7 @@
 #!/bin/sh -e
 
 dump() {
-    keks.tcl "$1" | xxd -r -p
+    echo "$@" | keks.tcl | xxd -r -p
 }
 
 dump 'BIN ""' >bin-empty