summaryrefslogtreecommitdiff
path: root/trunk/ext/pty/script.rb
diff options
context:
space:
mode:
Diffstat (limited to 'trunk/ext/pty/script.rb')
-rw-r--r--trunk/ext/pty/script.rb37
1 files changed, 37 insertions, 0 deletions
diff --git a/trunk/ext/pty/script.rb b/trunk/ext/pty/script.rb
new file mode 100644
index 0000000000..dbb933171f
--- /dev/null
+++ b/trunk/ext/pty/script.rb
@@ -0,0 +1,37 @@
+require 'pty'
+
+if ARGV.size == 0 then
+ ofile = "typescript"
+else
+ ofile = ARGV[0]
+end
+
+logfile = File.open(ofile,"a")
+
+system "stty -echo raw lnext ^_"
+
+PTY.spawn("/bin/csh") do |r_pty,w_pty,pid|
+
+ Thread.new do
+ while true
+ w_pty.print STDIN.getc.chr
+ w_pty.flush
+ end
+ end
+
+ begin
+ while true
+ c = r_pty.sysread(512)
+ break if c.nil?
+ print c
+ STDOUT.flush
+ logfile.print c
+ end
+ rescue
+ # print $@,':',$!,"\n"
+ logfile.close
+ end
+end
+
+system "stty echo -raw lnext ^v"
+