From a4e311dc4018388fe102a20e57318aff084fbb460b5458afb841f6ceb546e741 Mon Sep 17 00:00:00 2001
From: Sergey Matveev <stargrave@stargrave.org>
Date: Sun, 13 Apr 2025 15:14:39 +0300
Subject: [PATCH] Read Tcl code from stdin

---
 tcl/keks.tcl       | 3 ++-
 tcl/mk-fuzz-inputs | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/tcl/keks.tcl b/tcl/keks.tcl
index 5f661d3..cad23e7 100755
--- 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 fb749fe..54667e5 100755
--- 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
-- 
2.48.1