[ruby-dev:10382] Re: date/date2

わたなべです.

Yukihiro Matsumoto <[e-mail]> writes:

:|ところで、biorhythm.rb は、著作権を主張しているプログラムを移植したも
:|のなので、本来はそのことを明示すべきだと思うのですが。世界進出したら、
:|指摘されるかも (見るとすぐ判るし、date.rb もかな)。
:
:そうか、そのこともあるんですね。date.rbはやはり置き換えるか
:な。biorhythm.rbについてはなんらかの表示を考えます。

置き換えた結果 biorhythm.rb は動かなくなりました.
適当に対応してみたけど, こんな感じでいいのかなあ.

-- 
わたなべひろふみ

--- sample/biorhythm.rb.orig	Mon Jul 10 13:52:07 2000
+++ sample/biorhythm.rb	Tue Jul 25 15:42:21 2000
@@ -30,2 +30,3 @@
 require "parsearg.rb"
+require "parsedate.rb"
 
@@ -58,2 +59,10 @@
 
+def parsedate(s)
+  ParseDate::parsedate(s).indexes(0, 1, 2)
+end
+
+def name_of_week(date)
+  %w(Sunday Monday Tuesday Wednesday Thursday Friday Saturday)[(date.jd + 1) % 7]
+end
+
 #
@@ -64,4 +73,4 @@
 if $OPT_D
-  dd = Date.new(Time.now.strftime("%Y%m%d"))
-  bd = Date.new($OPT_D)
+  dd = Date.new(*parsedate(Time.now.strftime("%Y%m%d")))
+  bd = Date.new(*parsedate($OPT_D))
   ausgabeart = "g"
@@ -69,3 +78,3 @@
   if $OPT_birthday
-    bd = Date.new($OPT_birthday)
+    bd = Date.new(*parsedate($OPT_birthday))
   else
@@ -73,3 +82,3 @@
     if (si = STDIN.gets.chop) != ""
-      bd = Date.new(si)
+      bd = Date.new(*parsedate(si))
     end
@@ -82,5 +91,5 @@
   if $OPT_sdate
-    dd = Date.new(Time.now.strftime("%Y%m%d"))
+    dd = Date.new(*parsedate(Time.now.strftime("%Y%m%d")))
   elsif $OPT_date
-    dd = Date.new($OPT_date)
+    dd = Date.new(*parsedate($OPT_date))
   else
@@ -88,3 +97,3 @@
     if (si = STDIN.gets.chop) != ""
-      dd = Date.new(si)
+      dd = Date.new(*parsedate(si))
     end
@@ -92,3 +101,3 @@
   if !dd
-    dd = Date.new(Time.now.strftime("%Y%m%d"))
+    dd = Date.new(*parsedate(Time.now.strftime("%Y%m%d")))
   end
@@ -105,6 +114,6 @@
 if (ausgabeart == "v")
-  printHeader(bd.year, bd.month, bd.day, dd.period - bd.period, bd.name_of_week)
+  printHeader(bd.year, bd.month, bd.day, dd.jd - bd.jd, name_of_week(bd))
   print "\n"
   
-  phys, emot, geist = getPosition(dd.period - bd.period)
+  phys, emot, geist = getPosition(dd.jd - bd.jd)
   printf "Biorhythm:   %04d.%02d.%02d\n", dd.year, dd.month, dd.day
@@ -129,3 +138,3 @@
 
-  printHeader(bd.year, bd.month, bd.day, dd.period - bd.period, bd.name_of_week)
+  printHeader(bd.year, bd.month, bd.day, dd.jd - bd.jd, name_of_week(bd))
   print "                     P=physical, E=emotional, M=mental\n"
@@ -135,3 +144,3 @@
   
-  for z in (dd.period - bd.period)..(dd.period - bd.period + display_period)
+  for z in (dd.jd - bd.jd)..(dd.jd - bd.jd + display_period)
     phys, emot, geist = getPosition(z)