kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

changes from personal modifies -- matz

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1084 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
matz 2000-12-28 05:00:47 +00:00
parent ceec42bf8c
commit 08ec02b92b
13 changed files with 100 additions and 85 deletions
Download patch file Download diff file Expand all files Collapse all files

16
ext/tk/sample/tkbiff.rb
View file

@ -38,11 +38,11 @@ class Mail
def initialize(f)
@header = {}
@body = []
while f.gets()
$_.chop!
next if /^From / # skip From-line
break if /^$/ # end of header
if /^(\S+):\s*(.*)/
while line = f.gets()
line.chop!
next if /^From / =~ line # skip From-line
break if /^$/ =~ line # end of header
if /^(\S+):\s*(.*)/ =~ line
@header[attr = $1.capitalize] = $2
elsif attr
sub(/^\s*/, '')
@ -50,10 +50,10 @@ class Mail
end
end
return if ! $_
return unless $_
while f.gets()
break if /^From /
while line = f.gets()
break if /^From / =~ line
@body.push($_)
end
end

14
ext/tk/sample/tkfrom.rb
View file

@ -20,11 +20,11 @@ class Mail
def initialize(f)
@header = {}
@body = []
while f.gets()
while line = f.gets()
$_.chop!
next if /^From / # skip From-line
break if /^$/ # end of header
if /^(\S+):\s*(.*)/
next if /^From / =~ line # skip From-line
break if /^$/ =~ line # end of header
if /^(\S+):\s*(.*)/ =~ line
@header[attr = $1.capitalize] = $2
elsif attr
sub(/^\s*/, '')
@ -32,10 +32,10 @@ class Mail
end
end
return if ! $_
return unless $_
while f.gets()
break if /^From /
while line = f.gets()
break if /^From / =~ line
@body.push($_)
end
end