luxferre/lttb
1
0
Fork 0
Code Actions Activity

some opts

Browse Source
This commit is contained in:
Luxferre
2026-06-13 17:13:05 +03:00
parent 973b525599
commit cbf4dd4205
2 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
README.md
+1 -1
View File
@@ -24,7 +24,7 @@ See the [manual](lttb-manual.md) for more details on every supported command and
Here are all currently known implementations of LTTB: Here are all currently known implementations of LTTB:
* [Jim Tcl port](./lttb.tcl) (298 SLOC) * [Jim Tcl port](./lttb.tcl) (296 SLOC)
## FAQ ## FAQ
lttb.tcl
+2 -4
View File
@@ -207,12 +207,10 @@ proc lttb_IN {stmt} {
puts -nonewline {? } puts -nonewline {? }
stdout flush stdout flush
set inputbuf [string toupper [string trim [stdin gets]]] set inputbuf [string toupper [string trim [stdin gets]]]
set inputlist [lmap s [split [lttb_stripspace $inputbuf] ,] { set inputlist [split [lttb_stripspace $inputbuf] ,]
lttb_eval $s
}]
loop i 0 $vlen { loop i 0 $vlen {
set vname [string index [lindex $varlist $i] 0] set vname [string index [lindex $varlist $i] 0]
set vars($vname) [lindex $inputlist $i] set vars($vname) [lttb_eval [lindex $inputlist $i]]
} }
} }