Added 'Misc./rasterpython_eremias++/token_list.tcl'

2024-07-22 19:39:19 +02:00
parent 9365299408
commit a6b8b2e922
1 changed files with 10 additions and 0 deletions
--- a/Misc./rasterpython_eremias++/token_list.tcl
+++ b/Misc./rasterpython_eremias++/token_list.tcl
@ -0,0 +1,10 @@
+source debug/instructions.tcl
+
+proc make_token_list {is} {
+    puts -nonewline "%token"
+    foreach i $is {
+        puts -nonewline [format " I%s" [string toupper [lindex $i 0]]]
+    }
+}
+
+make_token_list $instructions