From cbc2686373a5fe81b6b28f845edc323d4cae56e5 Mon Sep 17 00:00:00 2001
From: Wojciech Kosior <kwojtus@protonmail.com>
Date: Tue, 8 Sep 2020 17:27:48 +0200
Subject: modernize the build (test) system

---
 tclasm.tcl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)
 mode change 100644 => 100755 tclasm.tcl

(limited to 'tclasm.tcl')

diff --git a/tclasm.tcl b/tclasm.tcl
old mode 100644
new mode 100755
index cafe99f..5af74c4
--- a/tclasm.tcl
+++ b/tclasm.tcl
@@ -1,5 +1,4 @@
-#!/bin/grep this[ ]script
-# this script is to be sourced, not executed by itself
+#!/usr/bin/tclsh
 
 # procedures starting with "__" are internal and not to be used in asm code;
 # procedures starting with "_" are low-level procedures, that are not meant
@@ -204,3 +203,7 @@ proc _cond_jump {address_part} {
 proc cond_jump {address} {
     _with_im _cond_jump $address
 }
+
+
+# translate instructions in the file given as command line argument
+source [lindex $argv 0]
-- 
cgit v1.2.3