From 6175ca03be6d0d51359f9017123708987d0f5eb7 Mon Sep 17 00:00:00 2001
From: shyouhei <shyouhei@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 15 Aug 2007 23:23:39 +0000
Subject: add tag v1_8_5_91

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_8_5_91@13046 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ruby_1_8_5/ext/pty/expect_sample.rb | 55 +++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 ruby_1_8_5/ext/pty/expect_sample.rb

(limited to 'ruby_1_8_5/ext/pty/expect_sample.rb')

diff --git a/ruby_1_8_5/ext/pty/expect_sample.rb b/ruby_1_8_5/ext/pty/expect_sample.rb
new file mode 100644
index 0000000000..bf8a2352fe
--- /dev/null
+++ b/ruby_1_8_5/ext/pty/expect_sample.rb
@@ -0,0 +1,55 @@
+#
+# sample program of expect.rb
+#
+#  by A. Ito
+#
+#  This program reports the latest version of ruby interpreter
+#  by connecting to ftp server at ruby-lang.org.
+#
+require 'pty'
+require 'expect'
+
+fnames = []
+PTY.spawn("ftp ftp.ruby-lang.org") do |r_f,w_f,pid|
+  w_f.sync = true
+  
+  $expect_verbose = false
+  
+  r_f.expect(/^Name.*: /) do
+    w_f.print "ftp\n"
+  end
+  
+  if !ENV['USER'].nil?
+    username = ENV['USER']
+  elsif !ENV['LOGNAME'].nil?
+    username = ENV['LOGNAME']
+  else
+    username = 'guest'
+  end
+  
+  r_f.expect('word:') do
+    w_f.print username+"@\n"
+  end
+  r_f.expect("> ") do
+    w_f.print "cd pub/ruby\n"
+  end
+  r_f.expect("> ") do
+    w_f.print "dir\n"
+  end
+  
+  r_f.expect("> ") do |output|
+    for x in output[0].split("\n")
+      if x =~ /(ruby.*\.tar\.gz)/ then
+         fnames.push $1
+      end
+    end
+  end
+  begin
+    w_f.print "quit\n"
+  rescue
+  end
+end
+
+print "The latest ruby interpreter is "
+print fnames.sort.pop
+print "\n"
-- 
cgit v1.2.3