Evaluated proc char c {if [catch {regsub -all {\\*} [decode $::alphabet([string toupper $c])] " "} err] {return [join [string repeat "{ } " 5] \n]} {return $err}}
This commit is contained in:
parent
ec2b6f7167
commit
49d7825eb5
1
procs/BOGERED
Normal file
1
procs/BOGERED
Normal file
@ -0,0 +1 @@
|
|||||||
|
c {if [catch {regsub -all {\\*} [decode $::alphabet([string toupper $c])] " "} err] {return [join [string repeat "{ } " 5] \n]} {return $err}}
|
Loading…
x
Reference in New Issue
Block a user