Move args functionality to keks.tcl itself

diff --git a/tcl/args b/tcl/args
deleted file mode 100755 (executable)
index 816ca38..0000000
--- a/tcl/args
+++ /dev/null
@@ -1,6 +0,0 @@
-#!/usr/bin/env tclsh
-
-source [file join [file dirname $::argv0] keks.tcl]
-namespace import KEKS::*
-eval [lindex $::argv 0]
-puts [binary encode hex $::KEKS::buf]

diff --git a/tcl/keks.tcl b/tcl/keks.tcl
old mode 100644 (file)
new mode 100755 (executable)
index 2416517..aa15b61
--- a/tcl/keks.tcl
+++ b/tcl/keks.tcl
@@ -1,3 +1,4 @@
+#!/usr/bin/env tclsh
 # TclKEKS -- Tcl KEKS encoder implementation
 # Copyright (C) 2024-2025 Sergey Matveev <stargrave@stargrave.org>
 #
@@ -299,3 +300,10 @@ namespace export TAI64 UTCFromISO
 namespace export LIST MAP SET LenFirstSort BLOB
 
 }
+
+if {[info exists argv0] && ([file tail [info script]] eq [file tail $argv0])} {
+    namespace import KEKS::*
+    set buf ""
+    eval [lindex $::argv 0]
+    puts [binary encode hex $buf]
+}

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