Evaluated proc char c {if [catch {regsub -all {\\*} [decode $::alphabet([string toupper $c])] " "} err] {return [join [string repeat "{ } " 5] \n]} {return $err}}

2020-10-23 15:07:35 +02:00
parent 49d7825eb5
commit 26aecba13b
2 changed files with 2 additions and 0 deletions
--- a/procs/71fafc4e2fc1e47e234762a96b80512b6b5534c2
+++ b/procs/71fafc4e2fc1e47e234762a96b80512b6b5534c2
@ -0,0 +1 @@
+c {if [catch {regsub -all {\\*} [decode $::alphabet([string toupper $c])] " "} err] {return [join [string repeat "{   } " 5] \n]} {return $err}}
				`@ -0,0 +1 @@`
				`c {if [catch {regsub -all {\\*} [decode $::alphabet([string toupper $c])] " "} err] {return [join [string repeat "{ } " 5] \n]} {return $err}}`