From: WATANABE Hirofumi <watanabe@...>
Date: 1998-06-04T11:30:01+09:00
Subject: [ruby-list:8162] Re: date & calendar

わたなべです.

Yukihiro Matsumoto <matz@netlab.co.jp> writes:

:|さり書いて、あっさり受けいれてもらったのですが、ちょっと悔いているとこ
:|があります。年月日のあとに曜日がきているのですが、これは最後におくべき
:|だったんじゃないかなあ、と思っています。どうしてかというと、 Time クラ
:|スとの関係からそう思うのですが、いまさら変えられないかなあ...。
:
:私は構わないんですけどね．使っている人がいればその人を説得す
:る必要があるでしょう．他の方の意見を待ちます．

ruby 自身があっさり仕様変更されちゃうしね.
最近どうも clipboard の内容を表示するスクリプトが変だと思ったら
  print foo.delete! "\r"
なんてのがあって, そういえばそうだよなと納得.

C のコードをそのまま ruby に置き換えたものだけど,
ついでにつけときます.

#!/usr/local/bin/ruby
require "Win32API"

OpenClipboard = Win32API.new("user32", "OpenClipboard", ['L'], 'L')
CloseClipboard = Win32API.new("user32", "CloseClipboard", [], 'L')
GetClipboardData = Win32API.new("user32", "GetClipboardData", ['L'], 'L')
GlobalLock = Win32API.new("kernel32", "GlobalLock", ['L'], 'P')
GlobalUnlock = Win32API.new("kernel32", "GlobalUnlock", ['L'], 'L')
CF_TEXT = 1
#$stdout.binmode
status = 0

if OpenClipboard.Call(0) != 0
  if (h = GetClipboardData.Call(CF_TEXT)) != 0
    if (p = GlobalLock.Call(h)) != 0
      print p.delete "\r"
      GlobalUnlock.Call(h)
    end
  else
    $stderr.print $0, ": Not TEXT Data.\n"
    status = 1
  end
  CloseClipboard.Call
else
    $stderr.print $0, ": Cannot open Clipboard.\n"
    status = 1
end
exit status