anon/tests
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
anon
2024-07-22 19:39:19 +02:00
parent 9365299408
commit a6b8b2e922
1 changed files with 10 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Misc./rasterpython_eremias++/token_list.tcl Normal file
View File

@ -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