summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--sample/pty/shl.rb24
1 files changed, 12 insertions, 12 deletions
diff --git a/sample/pty/shl.rb b/sample/pty/shl.rb
index 2360d8dc4c..980748e8f5 100644
--- a/sample/pty/shl.rb
+++ b/sample/pty/shl.rb
@@ -61,14 +61,11 @@ $reader = Thread.new {
while true
print ">> "
STDOUT.flush
+ n = nil
case gets
when /^c/i
$shells << PTY.spawn("/bin/csh")
- $r_pty,$w_pty = $shells[-1]
- $reader.run
- if writer == 'Exit'
- $shells.pop
- end
+ n = -1
when /^p/i
$shells.each_with_index do |s, i|
if s
@@ -79,15 +76,18 @@ while true
n = $1.to_i
if $shells[n].nil?
print "\##{i} doesn't exist\n"
- else
- $r_pty,$w_pty = $shells[n]
- $reader.run
- if writer == 'Exit' then
- $shells[n] = nil
- $shells.pop until $shells.empty? or $shells[-1]
- end
+ n = nil
end
when /^q/i
exit
end
+ if n
+ $r_pty, $w_pty, pid = $shells[n]
+ $reader.run
+ if writer == 'Exit' then
+ Process.wait(pid)
+ $shells[n] = nil
+ $shells.pop until $shells.empty? or $shells[-1]
+ end
+ end
end