[ruby-list:6492] Re: call for scripts

In message <[e-mail]>
[e-mail] (Yukihiro Matsumoto) writes:

> と流れる予定なのですが，クラスを使わない実用プログラミングは，
> 実はもっぱらCプログラマのまつもとや，すぐオブジェクト指向し
> てしまう石塚さんにはなかなか用意できないのでした．あと，二人
> 揃ってGUIは苦手と来てますし．

  こんなんでも良いんでしょうか. signature を付けるのに使ってるスクリプ
  トです.

    * めちゃ単純
    * 定数埋め込みはかっこ悪い
    * フォーマットだって固定
    * エラー処理が何もない

  という問題があります. 使い方は適当なコメントを一行一つ書いたファイル
  を用意して, mksign comment-file とします....標準出力に出ますけど (^^;
  引数を指定しなかった場合デフォルトで $HOME/.comment を参照します.

  コメント中の `\n' は改行してインデントし, `\\' は改行してインデント
  をリセットします.

  # もちろん名前とメールアドレスは出さないでね, っと.
  # << だったら消せってば

======================================================================
  柳川 @ 情報システム学研究科 . 電気通信大学
  [e-mail]                          February 18, 1998
「ごろごろ」
「ここはどこ? 私はだれ? のうみそがカマンベールチーズになってしまう〜」


#!/usr/local/bin/ruby

Comments = File.expand_path("~/.comment")

Comments = ARGV[0] if ARGV.size > 1
inp = File.open(Comments, "r")
com = inp.readlines
inp.close

cur = Time.now
com = com[cur.to_i%com.size].chomp
ch = true
sp = "    "
while ch
  ch = com.sub!(/\\n/, "\n#{sp}")
  re = com.sub!(/\\\\/, "\n")
  if ch and not re
    sp += sp
  else
    sp = "    "
  end
end
date = cur.strftime("%B %d, %Y")
indent = "  "
headline = "柳川 @ 情報システム学研究科 . 電気通信大学"
headline = indent+headline
mailaddr = "[e-mail]"
addrline = indent+mailaddr
addrline += " "*(70-indent.size-date.size-addrline.size)+date
print <<_END_
======================================================================
#{headline}
#{addrline}
#{com}
_END_