diff options
| author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1999-09-16 09:40:33 +0000 |
|---|---|---|
| committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 1999-09-16 09:40:33 +0000 |
| commit | 9e3d9a2a009d2a0281802a84e1c5cc1c887edc71 (patch) | |
| tree | ea994af7deeef43977f60a9ab26131e8cd90a9a0 /sample | |
| parent | 69a3aaf154948d653fa3653cd2b3c3b3af979769 (diff) | |
1.4.1
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@527 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'sample')
| -rw-r--r-- | sample/README | 6 | ||||
| -rw-r--r-- | sample/cal.rb | 4 |
2 files changed, 3 insertions, 7 deletions
diff --git a/sample/README b/sample/README index 1bdc85f32b..82db05eec9 100644 --- a/sample/README +++ b/sample/README @@ -22,8 +22,8 @@ from.rb scan mail spool fullpath.rb convert ls -lR to fullpath format getopts.test test fot getopt.rb goodfriday.rb print various christian calendar event. -inf-ruby.el program to run ruby under emacs io.rb io test +irb.rb interactive ruby less.rb front end for less list.rb stupid object sample list2.rb stupid object sample @@ -38,15 +38,11 @@ occur.rb count word occurrence (Ruby) occur2.rb count word occurrence - another style philos.rb famous dining philosophers pi.rb calculate PI -rbc.rb interactive ruby, to be removed by irb rcs.awk random character stereogram (AWK) rcs.rb random character stereogram (Ruby) rcs.dat data for random character stereogram rd2html.rb rd (Ruby Document) to HTML translator regx.rb regular expression tester -ruby-mode.el ruby mode for emacs -rubydb2x.el ruby debugger support for emacs 19.2x or before -rubydb3x.el ruby debugger support for emacs 19.3x or later sieve.rb sieve of Eratosthenes svr.rb socket server test.rb test suite used by `make test' diff --git a/sample/cal.rb b/sample/cal.rb index cf82c6421c..8eea4abfdb 100644 --- a/sample/cal.rb +++ b/sample/cal.rb @@ -1,7 +1,7 @@ #! /usr/local/bin/ruby # cal.rb: Written by Tadayoshi Funaba 1998, 1999 -# $Id: cal.rb,v 1.5 1999/08/04 14:54:18 tadf Exp $ +# $Id: cal.rb,v 1.6 1999/09/15 05:35:25 tadf Exp $ require 'date2' @@ -39,7 +39,7 @@ def cal(m, y, sg) for d in 1..31 break if jd = Date.exist?(y, m, d, sg) end - fst = cur = Date.new(jd, sg) + fst = cur = Date.new1(jd, sg) ti = Date::MONTHNAMES[m] ti << ' ' << y.to_s unless $yr mo = ti.center((($w + 1) * 7) - 1) << "\n" |