jn
/
punkshell
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

typeo fix for stty call in punk::repl

master
Julian Noble 2 months ago
parent
5ca77dff07
commit
2bc0c74554
1 changed files with 1 additions and 1 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 2
      src/modules/punk/repl-0.1.tm

2
src/modules/punk/repl-0.1.tm
Unescape View File

@ -1387,7 +1387,7 @@ proc repl::repl_handler {inputchan prompt_config} {
set sttycmd [auto_execok stty] set sttycmd [auto_execok stty]
if {$sttycmd ne ""} { if {$sttycmd ne ""} {
#the more parseable: stty -g doesn't give rows/columns #the more parseable: stty -g doesn't give rows/columns
if {![catch {exec {*}$sttycmd -a} result} { if {![catch {exec {*}$sttycmd -a} result]} {
lassign [split $result \n] firstline lassign [split $result \n] firstline
set lineparts [split $firstline {;}] ;#we seem to get segments that look well behaved enough to be treated as tcl lists - review - regex? set lineparts [split $firstline {;}] ;#we seem to get segments that look well behaved enough to be treated as tcl lists - review - regex?
set rowinfo [lsearch $lineparts -index end -inline $lineparts rows] set rowinfo [lsearch $lineparts -index end -inline $lineparts rows]

Write Preview
Loading…
Cancel
Save