version 0.65v0_65

https://cache.ruby-lang.org/pub/ruby/1.0/ruby-0.65.tar.gz

Wed Feb  1 19:48:24 1995  Yukihiro Matsumoto  (matz@ix-02)

	* string.c(str_replace): 置き換える文字列の長さが等しい時メモリコ
	  ピーをしない．

	* string.c(rindex): バグ修正．

Mon Jan 30 11:23:05 1995  Yukihiro Matsumoto  (matz@ix-02)

	* parse.y(value_expr): ifのチェックを追加．

	* gc.c(gc_mark): free cellの扱いにバグ．

	* parse.y: 文法の変更(よりシンプルに)．例外を減らした．

Thu Jan 26 00:52:55 1995  Yukihiro Matsumoto  (matz@dyna)

	* parse.y: 引数として連想配列を置くことができるように．この場合，
	  連想配列リテラルが最終引数となる．

	* parse.y: 配列参照の`[]'内が空でもよいことにした．

Tue Jan 24 14:45:15 1995  Yukihiro Matsumoto  (matz@ix-02)

	* class.c(rb_include_module): `-v'を指定した時にはincludeしたモジュー
	  ルとクラス定数が衝突していないかチェックする．

Mon Jan 23 10:42:09 1995  Yukihiro Matsumoto  (matz@ix-02)

	* parse.y(rb_class2name): メタクラスに関するbug fix.

	* dict.c: Dict[..]で辞書の生成が出来るように．

	* array.c: Array[..]で配列の生成が出来るように．

	* parse.y: 辞書の表現として{a,b,..}という形式も許すように．

Fri Jan 20 10:28:38 1995  Yukihiro Matsumoto  (matz@ix-02)

	* re.c(Regexp.quote): 正規表現をエスケープするメソッド．

	* 無駄なrb_intern()を減らした．

	* parse.y: `!', `!=', `!~'を特殊演算子にする．よってこれらは再定義
	  できなくなった．

Wed Jan 18 13:20:41 1995  Yukihiro Matsumoto  (matz@ix-02)

	* parse.y: 文法の整理(unless,untilをなくした)．

Tue Jan 17 11:11:27 1995  Yukihiro Matsumoto  (matz@ix-02)

	* eval.c: defでメソッド再定義時にはスーパークラスのメソッドの可視
	  性を継承する．最初の定義の時は今までと同じデフォルト(トップレベ
	  ルで関数的，クラス定義内で通常メソッド)．

	* object.c(Class::new): オブジェクトの生成時に関数的メ
	  ソッドinit_objectが必ず呼ばれるように変更．

	* eval.c: 未定義のメソッドに対してunknownメソッドが呼ばれるように
	  なった．エラー表示が今までと同じになるようにenvを調節している．

Fri Jan 13 14:40:30 1995  Yukihiro Matsumoto  (matz@ix-02)

	* gc.c: gcを若干書き換えて整理した．が，あまり変化はなかったようだ．

	* parse.y(yylex): symbolを\symから:symに変更した．

Thu Jan 12 01:39:28 1995  Yukihiro Matsumoto  (matz@dyna)

	* eval.c: 新規関数 rb_eval_string()．

	* gc.c: gc_mark()を一部非再帰化．

	* variable.c(rb_ivar_{get,set}): インスタンス変数のアクセス周りで
	  チェックが足りなかった．

	* variable.c: クラス定数とインスタンス変数でハッシュテーブルを共有
	  するようにした．

	* ruby.h: iv_tblをRBasicからRObjectとRClassへ移動した．これにより，
	  ObjectとClass,Moduleしかインスタンス変数を持てなくなる．が，メモ
	  リ効率は若干向上する．

1 files changed, 201 insertions, 0 deletions

diff --git a/sample/biorhythm.rb b/sample/biorhythm.rb
new file mode 100644
index 0000000000..eb14ca7365
--- /dev/null
+++ b/sample/biorhythm.rb
@@ -0,0 +1,201 @@
+#!/mp/free/bin/ruby
+#
+#		biorhythm.rb - 
+#			$Release Version: $
+#			$Revision: 1.6 $
+#			$Date: 1994/02/24 10:23:34 $
+#			by Yasuo OHBA(STAFS Development Room)
+#
+# --
+#
+#	
+#
+
+$RCS_ID="$Header: /var/ohba/RCS/biorhythm.rb,v 1.6 1994/02/24 10:23:34 ohba Exp ohba $"
+
+include Math
+load("parsearg.rb")
+
+$wochentag = ["Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday" ]
+monatstag1 = [31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
+monatstag2 = [31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
+
+def usage()
+  print("Usage:\n")
+  print("biorhythm.rb [options]\n")
+  print("  options...\n")
+  print("    -D YYYYMMDD(birthday)     : ���٤� default �ͤ�Ȥ�. \n")
+  print("    --sdate | --date YYYYMMDD : system date �⤷���ϻ��ꤷ�����դ�Ȥ�.\n")
+  print("    --birthday YYYYMMDD       : �������λ���򤹤�.  \n")
+  print("    -v | -g                   : Values or Graph ���. \n")
+  print("    --days DAYS               : ���֤λ���򤹤�(Graph �λ��Τ�ͭ��). \n")
+  print("    --help                    : help\n")
+end
+$USAGE = 'usage'
+
+def leapyear(y)
+  ta = 0
+  if ((y % 4.0) == 0); ta = 1; end
+  if ((y % 100.0) == 0); ta = 0; end
+  if ((y % 400.0) == 0); ta = 1; end
+  return ta
+end
+  
+def bcalc(tt, m, j)
+  ta = 0
+  if (m <= 2)
+    ta = (m - 1) * 31
+  else
+    ta = leapyear(j)
+    ta = ta + ((306 * m - 324) / 10.0).to_i
+  end
+  ta = ta + (j - 1) * 365 + ((j - 1) / 4.0).to_i
+  ta = ta - ((j - 1) / 100) + ((j - 1) / 400.0).to_i
+  ta = ta + tt
+  return ta
+end
+
+def printHeader(tg, mg, jg, gtag, tage)
+  print("\n")
+  print("    Biorhythm\n")
+  print("    =========\n")
+  print("\n")
+  printf("The birthday %04d.%02d.%02d is a %s\n", jg, mg, tg, $wochentag[gtag])
+  printf("Age in days: [%d]\n", tage)
+end
+
+def getPosition(z)
+  pi = 3.14159265
+  $phys = (50.0 * (1.0 + sin((z / 23.0 - (z / 23)) * 360.0 * pi / 180.0))).to_i
+  $emot = (50.0 * (1.0 + sin((z / 28.0 - (z / 28)) * 360.0 * pi / 180.0))).to_i
+  $geist =(50.0 * (1.0 + sin((z / 33.0 - (z / 33)) * 360.0 * pi / 180.0))).to_i
+end
+
+#
+# main program
+#
+parseArgs(0, nil, "vg", "D:", "sdate", "date:", "birthday:", "days:")
+
+printf($stderr, "\n")
+printf($stderr, "Biorhythm (c) 1987-1994 V3.0\n")
+printf($stderr, "\n")
+if ($OPT_D)
+  dtmp = Time.now.strftime("%Y%m%d")
+  jh = dtmp[0,4].to_i
+  mh = dtmp[4,2].to_i
+  th = dtmp[6,2].to_i
+  dtmp = $OPT_D
+  jg = dtmp[0,4].to_i
+  mg = dtmp[4,2].to_i
+  tg = dtmp[6,2].to_i
+  gtag = bcalc(tg, mg, jg) % 7
+  ausgabeart = "g"
+else
+  if ($OPT_birthday)
+    dtmp = $OPT_birthday
+  else
+    printf($stderr, "Birthday 			  (YYYYMMDD) : ")
+    dtmp = $stdin.gets.chop
+  end
+  if (dtmp.length != 8)
+    printf($stderr, "BAD Input Birthday!!\n")
+    exit()
+  end
+  jg = dtmp[0,4].to_i
+  mg = dtmp[4,2].to_i
+  tg = dtmp[6,2].to_i
+  
+  gtag = bcalc(tg, mg, jg) % 7
+  
+  if ($OPT_sdate)
+    dtmp = Time.now.strftime("%Y%m%d")
+  elsif ($OPT_date)
+    dtmp = $OPT_date
+  else
+    printf($stderr, "Date	[<RETURN> for Systemdate] (YYYYMMDD) : ")
+    dtmp = $stdin.gets.chop
+  end
+  if (dtmp.length != 8)
+    dtmp = Time.now.strftime("%Y%m%d")
+  end
+  jh = dtmp[0,4].to_i
+  mh = dtmp[4,2].to_i
+  th = dtmp[6,2].to_i
+  
+  if ($OPT_v)
+    ausgabeart = "v"
+  elsif ($OPT_g)
+    ausgabeart = "g"
+  else
+    printf($stderr, "Values for today or Graph  (v/g) [default g] : ")
+    ausgabeart = $stdin.gets.chop
+  end
+end
+if (ausgabeart == "v")
+  tag = bcalc(tg, mg, jg)
+  tah = bcalc(th, mh, jh)
+  tage = tah - tag
+  printHeader(tg, mg, jg, gtag, tage)
+  print("\n")
+  
+  getPosition(tage)
+  printf("Biorhythm:   %04d.%02d.%02d\n", jh, mh, th)
+  printf("Physical:    %d%%\n", $phys)
+  printf("Emotional:   %d%%\n", $emot)
+  printf("Mental:      %d%%\n", $geist)
+  print("\n")
+else
+  if ($OPT_days)
+    ktage = $OPT_days.to_i
+  else
+    if ($OPT_D)
+      ktage = 9
+    else
+      printf($stderr, "Graph for how many days 	[default 10] : ")
+      ktage = $stdin.gets.chop
+      if (ktage == "")
+	ktage = 9
+      else
+	ktage = ktage.to_i - 1
+      end
+    end
+  end
+  tag = bcalc(tg, mg, jg)
+  tah = bcalc(th, mh, jh)
+  tage = tah - tag
+  printHeader(tg, mg, jg, gtag, tage)
+  print("		      P=physical, E=emotional, M=mental\n")
+  print("             -------------------------+-------------------------\n")
+  print("                     Bad Condition    |    Good Condition\n")
+  print("             -------------------------+-------------------------\n")
+  
+  for z in tage..(tage + ktage)
+    getPosition(z)
+    
+    printf("%04d.%02d.%02d : ", jh, mh, th)
+    p = ($phys / 2.0 + 0.5).to_i
+    e = ($emot / 2.0 + 0.5).to_i
+    g = ($geist / 2.0 + 0.5).to_i
+    graph = "." * 51
+    graph[25] = ?|
+    graph[p] = ?P
+    graph[e] = ?E
+    graph[g] = ?M
+    print(graph, "\n")
+    th = th + 1
+    if (leapyear(jh) == 0)
+      $MONATSTAG = monatstag1
+    else
+      $MONATSTAG = monatstag2
+    end
+    if (th > $MONATSTAG[mh - 1])
+      mh = mh + 1
+      th = 1
+    end
+    if (mh > 12)
+      jh = jh + 1
+      mh = 1
+    end
+  end
+  print("             -------------------------+-------------------------\n\n")
+end