midore's blog

FRYING DUTCHMAN humanERROR

2011-12-15T09:07:00.001+09:00

# タイトルと記事内容が不一致なのはミスじゃありません。*1

電力不足だから、原発は必要だとか、
放射性物質ってのはもともと自然界に存在していたから大丈夫!だとか
日本の技術力はすごいのだ。原発売って何が悪いかとか。
このように考える方は少なからずいらっしゃるでしょう。

または、
セシウム137 だけじゃない、学問的プロパガンダにも汚染されてしまったのに
その自覚が全くない理系出身の方々や、

内部被曝による健康被害は科学的には立証されていないらしい...
すなわち、人体に影響はなーい。
このようなおとぎ話を「まるで宗教のように信じ込み」
懐疑的視点を持たない己の『非』科学的態度を省みず、
Web を探せばどこにでも転がっているチェルノブイリの汚染地図も、
チェルノブイリ周辺の子供たちのガンはどのようなものかも、
自ら自発的に「調べようとしたことがなく」
内部被曝について検索したこともないことを、
すっかり棚に上げきったあげく...

騒ぎ過ぎ。と言い放つ俺様の方々。

このような人々にとっての『科学的』とは一体何なのでしょうか?

下記のサイトは、福島原発が放出した放射性物質について、
一般市民が科学的に理解する上で欠かせない重要なことを示唆していると思います。
./note008.html

-- その他関連

放射線と健康

 「情報を開示し子供と妊産婦を守れ」チェルノブイリ周辺で甲状腺癌治療に従事した松本市長菅谷昭氏 | SAVE CHILD

被曝と健康被害との関係については、議論の余地があるが、
『法的』な面から捉えた場合は、あまり議論の余地はないのでは?
という東京大学の先生の意見もあります。
事故で放射能汚染があったため、放射線管理区域(一時管理区域)を設定していた実例

この法律が制定された当時の研究者や原発を推進した政治家たちでさえ、
人口的な放射性物質と健康との関係において科学的に未解明なことがあるから
といってそれを「根拠」に法律を「制定しない」という判断は下しませんでした。
なぜでしょう?
法律自体の必要性や、そこに定められた線量は科学的根拠を持ったものか?
や、なぜこの法律の中で飲食や睡眠を禁止しているのかについて、
是非ご一考いただければと思います。

もし仮に、この法律が存在しなかったら....
全国あちこちにある
大学内、企業内、実験所内などの放射線管理区域に日々出入りする人々は
仕事をしながら、無制限に外部被曝、内部被曝してよし、
とされてしまいます。
被曝と健康との関係が立証されようが、されまいが
自らの健康を保護することができない環境下におかれてしまう訳です。
もし、法律がなかったら現実におこっていたことでしょう。
この法律によって命びろいした人や、事故を未然に防止できたケースも
あったであろうと推測できます。

そして、なにより重要なことは、福島原発事故によって、
放射線管理区域に相当する地域になってしまった場所で、
居住する一般市民が存在していることです。

*1
限られた日本人たちの間で蔓延する『空気』とやらを重んじるならば、
『決して』口にしてはいけないであろう詩を素晴らしく歌う Artist 。

YouTube - Broadcast Yourself
http://www.youtube.com/watch?v=ENBV0oUjvs0

# Google 動画検索で FRYING DUTCHMAN humanERROR
# を検索すると Flash なしで聞くことのできるサイトもいくつかありました。

iTunes: MacRuby で重複する曲を削除

2011-11-22T20:38:00.001+09:00

先日
MacRuby で iTunes から重複する曲を削除するものを作りました。
https://gist.github.com/1382271
(OS X 10.7.2 限定)

-- 参考にさせていただいたサイト

# ファイルを移動させる際の条件など大変参考になりましたし、
# MacRuby についての情報もいろいろありました。
iTunesに重複登録されている音楽ファイルを削除する - Watsonのメモ

# iTunes.app に下記のような機能があったことをこれまで知りませんでした。
iTunes ライブラリで重複した項目を検索し、削除する方法

-- 当初、最も悩んだこと

track.delete
を実行するとなぜか MacRuby がクラッシュしました。
MacRuby バージョンは

% macruby -v
MacRuby 0.11 (ruby 1.9.2) [universal-darwin11.0, x86_64]

重複する曲が 20 個以上あるとき
playlist.tracks の曲を each でまわし一定の条件を満たしたタイミングで
track.delete するとクラッシュしました。
こんな感じ。

myplaylist.tracks.each{|x|
  if ...
  # x がなにかの条件をみたしたら
  x.delete
  # この瞬間にクラーッシュ!
}

それで、オブジェクトを探ってみることに...

test.rb

framework "ScriptingBridge"

i = SBApplication.applicationWithBundleIdentifier("com.apple.iTunes")
a = i.sources[0].userPlaylists.find{|x| x.name ==  "ミュージック"}.tracks
p b = a[0]
p c = a[0]
p b.equal?(c)

#=>

% macruby test.rb
false

なんと false がかえってきました。
b, c は object としてはイコールでは『ない』とのこと。
a は１度しか定義していないにもかかわらず...。

例えば、Ruby 1.9 では

a = ["a","b","c"]
b = a[0]
c = a[0]
p b.equal?(c)

#=>

% ruby193 -v aaa.rb
ruby 1.9.3p0 (2011-10-30 revision 33570) [x86_64-darwin11.2.0]
true

true がかえってきます。

MacRuby のこの件について理解できておりませんが、ともかく
この事が原因でクラッシュをひきおこしているのかも? と考え
一意の曲オブジェクトを「確実」に指名する方法をとることにしました。
要は

track.databaseID

を使うことにしました。

こんな感じです。

条件をみたした曲オブジェクトの databaseID を hash に溜め込んでから、
hash を each でまわしつつ
その都度 fileTracks から指定した databaseID に基づいて曲オブジェクトを検索し
検出できたら
.delete
を実行...

      @h.each{|k,v|
        t = @filetracks.find{|x| x.databaseID == k}
        next unless t
        t.delete
      }

このようにしてみたところ .delete を実行しても
クラッシュしなくなりました。
# あくまでも私の環境下においてでは!です。

# ちなみに .fileTracks と .tracks の 2 種類ありますが
# 上記では .fileTracks　を対象にしています。

Tutorial MacRuby

2011-11-12T12:54:00.001+09:00

Tutorial: OS X automation with MacRuby and the Scripting Bridge

One more for the road

以降にある iTunes のサンプルを実行すると

... `<main>': undefined method `playlists' for nil:NilClass (NoMethodError)

playlists がない？
なーんてことはなくて単に日本語システムだからだった。
要素名を日本語に変えればよいのだった。

...
  .find {|s| s.name == "ライブラリ"}
  .playlists.find {|p| p.name == "トップ 25"} #Top 25 Most Played"}
...

この内容を理解する為、基本的な AppleScript を動かす。

 tell application "iTunes"
  repeat with i in playlists
    if name of i is "ミュージック" then
      get tracks
    end if
  end repeat
end tell

AppleScript Editor.app　のイベントログで
playlists の要素や tracks の属性を確認できた。
sources にアクセスしなくても、playlists を獲得できた。

MacRuby でも playlists 要素を目視したい為...

framework "ScriptingBridge"

i = SBApplication.applicationWithBundleIdentifier("com.apple.iTunes")
i.sources.select{|x|
  x.playlists.each{|y|
    puts y.name
    if y.name ==  "トップ 25" # "トップレート", "ミュージック"
      songs = y.tracks.sort{|t1,t2| t2.playedCount <=> t1.playedCount}
      # songs[0..2].map{|t| puts "#{t.artist} - #{t.name} (#{t.playedCount})"}
    end
  }
}

puts y.name でプレイリスト名一覧を確認できた。

ライブラリ
ミュージック
ムービー
テレビ番組
Podcast
iTunes U
ブック
iTunes DJ
90 年代ミュージック
クラシック音楽
トップ 25
トップレート
ミュージックビデオ
最近再生した項目
最近追加した項目
ラジオ

書き換えながらいろいろ試す。

framework "ScriptingBridge"

i = SBApplication.applicationWithBundleIdentifier("com.apple.iTunes")
ary = i.sources.map{|x| x.playlists}.flatten
top25 = ary.find{|i| i.name == "トップ 25"}
songs = top25.tracks.sort{|t1,t2| t2.playedCount <=> t1.playedCount}
songs.find_all{|t| t.rating > 2}.map{|t| puts "#{t.artist} - #{t.name} (#{t.playedCount})"}

Ruby らしい(つもりの)書き方へ。

framework "ScriptingBridge"

class MyiTunes
  def initialize(str)
    exit if (str.empty? or str.nil?)
    @str = str
    # iTunes Object
    i = SBApplication.applicationWithBundleIdentifier("com.apple.iTunes")
    # playlist Object
    @ary = i.sources.map{|x| x.playlists}.flatten
    @songs = @ary.find{|i| i.name == @str}.tracks
  end

  def debug
    @ary.each{|x| puts x.name}
  end

  def view
    print "-- #{@str}\n"
    find_all
    count_sort
    to_s
  end

  private
  def count_sort
    @songs = @songs.sort {|t1,t2| t2.playedCount <=> t1.playedCount}
  end

  def find_all
    @songs = @songs.find_all{|t| t.rating > 60}
  end

  def to_s
    @songs.each_with_index{|x,n|
      break if n > 2
      puts "#{x.artist} - #{x.name} (#{x.playedCount}) [#{x.rating}]"
    }
  end
end

MyiTunes.new("トップ 25").view
# MyiTunes.new("トップ 25").debug

実行結果

-- トップ 25
Glenn Gould - Bach: Goldberg Variations, BWV 988 - Aria (5) [100]
Glenn Gould - Bach: Goldberg Variations, BWV 988 - Var. 7 (5) [60]
Glenn Gould - Bach: Goldberg Variations, BWV 988 - Var. 5 (4) [80]
%

MyiTunes クラスは
"トップ25" から、
星が3つ以上の曲を抽出し、
再生回数順にソートし
3行出力したら終わる。

.rating
に注意を払っていなかった。
puts 表示させてよくみてみると
星が 5つだと 100で、
星が 4つだと 80 で、
星が 3つだと 60 に、
なっていた。
星が3つ以上( > 60 )に変えた。
# t.rating > 60

iTunes.app 環境設定で表示する項目を減らして
MyiTunes.new("トップ 25").debug
を実行すると...正しく捕獲できた。

ライブラリ
ミュージック
ブック
90 年代ミュージック
クラシック音楽
トップ 25
トップレート
ミュージックビデオ
最近再生した項目
最近追加した項目
%

MyiTunes.new("ミュージック")
でも OK だった。

-- 追記
OS X 10.7.2 で自力で MacRuby をインストールしていない為
/System/Library/PrivateFrameworks/MacRuby.framework/Versions/A/usr/bin/macruby
を使った。

最後に、~/Library/Logs/CrashReporter で
MacRuby がクラッシュしていないかみてみたが
大丈夫だった。

[2011-11-12]
最短?

i = SBApplication.applicationWithBundleIdentifier("com.apple.iTunes")
top25 = i.sources.flat_map{|x| x.playlists}.find{|t| t.name == "トップ 25"}
p top25.name
songs = top25.tracks
p songs.size
=>
"トップ 25"
25

[2011-11-22]
続き

Time.parse

2011-11-12T12:52:00.001+09:00

はまった。

>> Time.parse("2011/11/01 am 10:00:00")
=> Thu Nov 10 01:00:00 +0900 2011
>> Time.parse("2011/11/01 am 00:30:00")
ArgumentError: argument out of range
  from /System/Library/Frameworks/Ruby.framework/Versions/1.8/usr/lib/ruby/1.8/time.rb:184:in `local'
  from /System/Library/Frameworks/Ruby.framework/Versions/1.8/usr/lib/ruby/1.8/time.rb:184:in `make_time'
  from /System/Library/Frameworks/Ruby.framework/Versions/1.8/usr/lib/ruby/1.8/time.rb:243:in `parse'
  from (irb):5
>> Time.parse("2011/11/01 am 01:30:00")
=> Tue Nov 01 01:00:00 +0900 2011
>>

parse 様にいわせればユーザが am, pm 言うなんておかしいだろってこと？
そ、そうかも。

# 2011-11-04

OS X 10.7.2: Mobile Processes

2011-11-08T15:48:00.001+09:00

Lion になって新しく登場したプロセスにはどのようなものがあるだろうか?と

$ sudo launchctl list

を眺めつつ
% man xxx
しつつ

ふと

% apropos Mobile

を試してみたら...

mdmclient(1)             - MDM (Mobile Device Management) client
mtmd(8)                  - Mobile Time Machine snapshot daemon
mtmfs(8)                 - Mobile Time Machine file system daemon
special_file_handler(8)  - data provider for special files used by Mobile Documents
ubd(8)                   - ubiquity daemon, part of Mobile Documents
%

Mobile 関連ぽいものがわかった。

#-------------------------
# MDM
#-------------------------
# 1. mdmclient(1) - MDM (Mobile Device Management) client
# 2. mtmd(8) - Mobile Time Machine snapshot daemon
# mtmfs(8) - Mobile Time Machine file system daemon
# 3. special_file_handler(8) - data provider for special files used by Mobile Documents
# 4. ubd(8)
#-------------------------

#-------------------------
# 1. mdmclient
#-------------------------
# man mdclient
# mdmclient -- MDM (Mobile Device Management) client
#
# $ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.mdmclient.daemon.plist
# % launchctl unload -w /System/Library/LaunchAgents/com.apple.mdmclient.agent.plist

#-------------------------
# 2. mtmd, mtmfs
#-------------------------
# $ man mtmd
# $ man mtmfs
# $ man tmutil
#
# $ sudo tmutil disable
# $ sudo tmutil disablelocal
# $ sudo launchctl unload -w System/Library/LaunchDaemons/com.apple.mtmd.plist
# $ sudo launchctl unload -w System/Library/LaunchDaemons/com.apple.mtmfs.plist

#-------------------------
# 3. special_file_handler
#-------------------------
# man special_file_handler
# special_file_handler -- data provider for special files used by Mobile Documents
#
# $ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.ubiquity.special_files.plist

#-------------------------
# 4. ubd
#-------------------------
# man ubd
# ubd -- ubiquity daemon, part of Mobile Documents
# ubd is the ubiquity server process. It is primarily used for "Mobile Documents".
# SEE ALSO
# special_file_handler(8)

# % launchctl unload -w /System/Library/LaunchAgents/com.apple.ubd.plist

#-------------------------
# findmymac
#-------------------------
# /System/Library/PrivateFrameworks/FindMyMac.framework/Resources/FindMyMacMessenger.app/Contents/MacOS/FindMyMacMessenger
#
# $ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.findmymac.plist
# $ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.findmymacmessenger.plist

# % launchctl unload -w /System/Library/LaunchAgents/com.apple.findmymacmessenger.plist

#-------------------------
# awacsd
#-------------------------
# man awacsd
# awacsd -- Apple Wide Area Connectivity Service daemon
# awacsd is an executable invoked by launchd to facilitate connections between devices using Back to My Mac.
#
# $ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.awacsd.plist

#-------------------------
# talagent
#-------------------------
# man talagent
# The talagent tool provides services related to the Transparent App Lifecycle feature.
#
# % launchctl unload -w /System/Library/LaunchAgents/com.apple.talagent.plist
# % launchctl unload -w /System/Library/LaunchAgents/com.apple.TMLaunchAgent.plist

# [WARNING: 要注意]
# 上記に点在するコマンドを実行すると、iPhone, iPod, iPad などのデバイスと
# うまく連携できなくなるかもしれません。
# また、iTunes も起動できなくなるかもしれません。起動できたとしても
# 思い通りに動かなくなるかもしれません。
# iCloud と一切交信できなくてもよい人向け entry なのです。

-- 至らない説明。

$ で始まる行は管理者ユーザ用。
% で始まる行は一般ユーザ。
実行するといずれも、
/var/db/launchd.db/
にキャッシュされる。

/System/Library/LaunchDaemons/
配下には daemon plist が保存されており、
/System/Library/LaunchAgents/
配下には daemon に対する agent plist が保存されている。

特定の daemon を起動時に読み込むか読み込まないかは、
sudo launchctl [load|unload] ...
で制御可能(管理者のみ)。
だが、unload されていない daemon
(イコール load していて sudo launchctl list に表示されるdaemon)
が率いる agent を一般ユーザ側が unload しても反映されない。場合がある。

反映しているかしていないかは
一般ユーザで
% launchctl list
を実行すればわかる。
保存された launchctl を確認したい時は
% cat /var/db/launchd.db/.../.../overrides.plist
で確認できる。

-- 私が実行してみたものはこちら。
github.com/1330318
gist.github.com/1330308

-- その他
anonymous.librariand

$ sudo defaults read /System/Library/LaunchAgents/com.apple.librariand

なんのことやら。

$ man librariand
No manual entry for librariand
$

-- 感想
Apple は Mac OS X を iCloud やデバイス中心の OS にしてしまった。
Mac OS X 10.7 全ユーザが iCloud にログインすることを前提にしている。
iCloud やデバイスと無関係でいたいマシンも
そのようなプロセスと無関係でいられなくなってしまった。
Mac OS X は Snow Leopard 以降、変わってしまった。

textutil

2011-11-08T00:25:00.001+09:00

めったに使わないコマンド textutil
-- rtf file を plain text に変換する方法 --

# /Libray で rtf file をみかけたら適当な名前でホームにコピーする。
% cp /Library/Documentation/AirPort\ Acknowledgements.rtf ~/airport-doc.rtf

# そのファイルの information を表示する。

% textutil -info airport-doc.rtf
File:  airport-doc.rtf
  Type:  rich text format (RTF)
  Size:  43836 bytes
  Length:  39382 characters
  Contents:  Acknowledgments...
%

# ヘルプで確認する。
% textutil -help

...

-convert fmt convert each input file to format (txt, rtf, rtfd,
html, doc, docx, odt, wordml, or webarchive)

# txt に変換。

% textutil  ~/airport-doc.rtf  -convert txt -output ~/000.txt

# txt ファイルを読む。

% more ~/000.txt

org.vim.MacVim

2011-11-08T00:19:00.001+09:00

mymvim.rb
http://midorex.blogspot.com/2011/11/mymvimrb.html
のその後。(いろいろ試してわかったこと)

自分で -g に設定していたものを削除。

% defaults delete -g NSQuitAlwaysKeepsWindows
% defaults delete -g ApplePersistenceIgnoreState

% su admin
$ sudo defaults delete /Library/Preferences/.GlobalPreferences NSQuitAlwaysKeepsWindows
$ sudo defaults delete /Library/Preferences/.GlobalPreferences ApplePersistenceIgnoreState
$

org.vim.MacVim からも追加したものを削除

% defaults delete org.vim.MacVim NSQuitAlwaysKeepsWindows

MacVim の環境設定
[Preference General]
Open untitled window: never
Open files from applications: with a tab for each file
After last window closes: Quit MacVim

% defaults read org.vim.MacVim
{
    MMAutosaveColumns = 150;
    MMAutosaveRows = 45;
    MMCurrentPreferencePane = General;
    MMLastWindowClosedBehavior = 2;
    MMNativeFullScreen = 0;
    MMOpenInCurrentWindow = 1;
    MMTopLeftPoint = "{516, 746}";
    MMUntitledWindow = 0;
    MMUseInlineIm = 0;
    NSNavLastRootDirectory = "~";
    NSNavPanelExpandedSizeForOpenMode = "{585, 418}";
    NSQuotedKeystrokeBinding = "";
    NSRepeatCountBinding = "";
    SUCheckAtStartup = 0;
}

これで、MacVim が起動していない時に、
MacVim 付属の mvim を動かしても shell が終了しないなんてことはなくなった。
mvim の exec は何も悪くなかった!。
せっかく作った mymvim.rb は残念だけど不要だった。

% syslog -w
をみていても変なメッセージはでてこなくなった。

MacVim 起動すると、
~/Library/Saved Application State/org.vim.MacVim.savedState
が生成されるけれど、MacVim を終了すると同時に自動的に消えてなくなってくれるようにもなった!。

感想。
今後 defaults -g に write するのはやめよう。

mymvim.rb

2011-11-04T21:30:00.001+09:00

MacVim 付属のmvim はshell で書かれている。
mvim で存在しないファイルを指定すると新規ファイルを作成する。
Lion で MacVim を起動していない時にうっかり mvim を動かすと
下記のようなエラーが残り shell 終了しない。

... MacVim[451:507] ApplePersistenceIgnoreState: Existing state will not be touched. New state will be written to ....

Ctr + C で終了するはめになる。

defaults write -g ApplePersistenceIgnoreState YES

を実行しているけれど
念のため org.vim.MacVim にも指定。

% defaults write org.vim.MacVim ApplePersistenceIgnoreState YES
% defaults read org.vim.MacVim
{
    ApplePersistenceIgnoreState = YES;
    MMAutosaveColumns = 150;
    MMAutosaveRows = 45;
    MMCurrentPreferencePane = General;
    MMLastWindowClosedBehavior = 1;
    MMNativeFullScreen = 0;
    MMOpenInCurrentWindow = 1;
    MMTopLeftPoint = "{208, 723}";
    MMUntitledWindow = 0;
    MMUseInlineIm = 0;
    NSQuotedKeystrokeBinding = "";
    NSRepeatCountBinding = "";
    SUCheckAtStartup = 0;
}

が...むなしく変化なく shell 終わらず。
そりゃそうかも。
mvim の最後の行あたり exec が怪しいのかも...

それで
Ruby 1.9.3 で mymvim.rb を作るいい口実ができた。
mymvim.rb は
MacVim が起動していなかったら、たぶん?正しく起動し、指定したファイルを開く。
存在しないファイルを指定してしまっても、何もおこらない。
おもったよりも早く動く。

ところが mymvim.rb を実行すると...

% ps aux  |grep task

=>
...(略) grep --color=auto task
...(略) /usr/libexec/taskgated -p -s

必ず /usr/libexec/taskgated　が発生する。
数分すると自動的に消える。これは一体なんなのだろう。
Snow Leopard　の時もあったような気もする...。

taskgated を sudo で kill しつつ
よくよく試してみると mymvim.rb だけでなく
MacVim 付属の mvim を実行したあとにも taskgated が発生していた。
ということは、
どのような方法で MacVim を起動したかってことは関係なくて、
MacVim を起動したこと、そのこと自体が taskgated を引き起こしている
ようだ。

MacVim をインストールしている ~/Application　と
同じ階層にある他の Application を起動してみると...
taskgated が発生した。

dmg をダウンロードしてインストールした
/usr/local/git/bin/git
を動かしてみると、やはり発生した。

% ruby19 -e "puts \"hello\""
hello
%

を実行しただけでも発生した。

しかし Lion にデフォルトで入っていた ruby 1.8 を動かしても発生しなかった。

% ruby  -e "puts \"hello\""
hello
%

/Application にある Safari.app などを起動してみると
taskgated は発生しなかった。

つまり
Apple によって署名されていない Application やプログラムを起動すると
taskgated process が発生するってことかな。?

署名されたソフトウエアと、そうじゃないものの違い....

mymvim.rb

# coding: utf-8
# snapshot MacVim 7.3
# OS X Lion 10.7.2
# ruby 1.9.3p0 (2011-10-30 revision 33570) [x86_64-darwin11.2.0]

module Mymvim
  class Mvim
    def initialize(f)
      @f = f
      @osa = '/usr/bin/osascript'
      macvim = "Tell application \"MacVim\""
      @s1 = "#{macvim} to open (POSIX file \"#{@f}\") as string"
      @s2 = "#{macvim} to activate"
    end
    def base
      run
    end
    def run
      begin
        e = system("#{@osa} -e '#{@s1}' -e '#{@s2}'")
        exit unless e
      ensure
        print "bye\n"
        exit
      end
    end
  end
end

f = ARGV[0]
 unless File.exist?(f)
  print "Not found : #{f}\n"
  exit
end
Mymvim::Mvim.new(f).base

OS X 10.7.2: networksetup

2011-10-22T10:10:00.001+09:00

Lion 10.7.2
優先するネットワークの設定。

# 管理者ユーザでログイン。
# ヘルプをみる。

$ networksetup --help | grep addpreferredwirelessnetworkatindex
networksetup -addpreferredwirelessnetworkatindex <device name> <network> <index> <security type> [password]

# manual で addpreferredwirelessnetworkatindex の詳細をみる。

$ man networksetup
     -addpreferredwirelessnetworkatindex hardwareport network index securitytype [password]
             Add wireless network named <network> to preferred list for <hardwareport> at <index>. Store the optional password in the
             keychain For security type, use OPEN for none, WPA for WPA Personal, WPAE for WPA Enterprise, WPA2 for WPA2 Personal,
             WPA2E for WPA2 Enterprise, WEP for plain WEP, and 8021XWEP for 802.1X WEP.

実行すべきコマンドの雛形は

$ networksetup -addpreferredwirelessnetworkatindex <device name> <network> <index> <security type> [password]

でオプションは

<device name>
en0 とか en1 とか
$ networksetup -listallhardwareports で要確認。
前回
このオプションを間違えていたかも...

<network>
優先的に参加するローカルネットワーク名。

<index>
0 にすると優先順位が 1 番に。
優先順位を 2 番目したければ 1 に。

<security type>
WPA2 Personal で設定しているなら -> 'WPA2'
WPA2 Enterprise -> 'WPA2E'
WPA Personal -> 'WPA'
WPA Enterprise -> 'WPAE'
plain WEP -> 'WEP'
# ノンパスワードでローカルネットワーク解放しているなら
none -> 'OPEN'

[password]
いわずもがな

下記を実行すると...

$ sudo networksetup -addpreferredwirelessnetworkatindex en0 'homearea' 0 'WPA2' 'xxxxxxxxx'
Security type is set to: WPA2 Personal
Added bh to preferred networks list
$

キーチェーンのシステムとログインに Wi-Fi 用鍵が出現。

$ syslog -w をみながら

おもむろに Wi-Fi 電源を On

$ networksetup -setairportpower en0 on

つながりました！

追加された鍵のアクセス制御欄を確認すると

networksetup
AirPort

以前と同様にアクセス制御欄には「システム環境設定」が存在していない。
(GUI から設定した場合は存在する)
若干気になるがうまくいったようなので無視する。

# 実行する前後に注意したこと。

コマンドを実行する前にシステム環境設定ーネットワークを開き
「新しいネットワークに接続するを確認」にチェックが『入っていない』ことを確認。
詳細欄の
「このコンピュータが接続したネットワークを記憶」
「コンピュータとコンピュータネットワークを作成」
「ネットワーク変更」
の３つを On にしておく。

コマンド実行後、
Wi-Fi電源を ON にし優先するローカルネットワークに参加できたことを確認したら、
一旦 Wi-Fi 電源をOFF。
「新しいネットワークに接続するを確認」にチェックを入れて
システム環境設定の鍵をかけ
システム環境設定を終了しキャッシュする。

管理者ユーザからログアウトし一般ユーザでログインしなおす。
メニューバーから Wi-Fi 電源を On にする。
優先するネットワークに参加できることを確認。
一般ユーザのログインキーチェーンには Wi-Fi 用鍵は存在していなくて全然 OK 。

最終確認。

$ networksetup -listpreferredwirelessnetworks en0

を実行すると優先的に参加する無線ローカルネットワーク名が表示される。

# IPv6
OS X 10.7 : IPv6 を切る
$ networksetup -getinfo 'Wi-Fi'
$ sudo networksetup -setv6off 'Wi-Fi'

# DNS
$ networksetup --h | grep dns
networksetup -getdnsservers <networkservice>
networksetup -setdnsservers <networkservice> <dns1> [dns2] [...]

$ networksetup -listnetworkserviceorder
を実行すると <networkservice>　がわかる

# Google DNS
$ sudo networksetup -setdnsservers Wi-Fi '8.8.8.8' '8.8.4.4'

Pu

2011-10-13T13:35:00.001+09:00

私は6月にFukushima Nuclear を書いた。
公開した記事は実際に書いた文章のうちの後半半分だったので、ここに前半部分も公開しておこうと思う。
個人としての私が欠如していると考えた情報とは何だったのか?を記録として残しておきたいから。

2011.06.15 Wed PM 13:39:54

今現在、ホットスポット(日本の法律に照らせば[放射線管理区域]に相当する地域) 発生地域を「予測できない」事を前提に、
福島原発700キロ圏内地域の「全ての住民」が、

「己の居住地域が現在どの程度汚染されているか?管理区域相当になっているだろうか?」

を、正確かつリアルタイムに、知り得る環境にあるだろうか?...。
No だと思う。

なぜなら、文部科学省が公開している放射線測定結果は、即時性に欠けているばかりか、あまりにも測定地点が少ない。驚くほど少ない。測定されていない地域が圧倒的に多いから。(福島県内の学校における情報は十分とは言い難い。)

何キロも離れた隣の町の線量値はわかっても自分の町の数値はわからない。こんなことで「情報公開されている」んだろうか?

「700キロ」圏内の住民は、居住区域がどの程度汚染されているか正確に「リアルタイムに」知る必要に迫られている(命のために)が、現在のような緩慢な測定ではあまりに心もとない。なぜ、防ぐ事ができる将来的健康被害を「防ぐ為の測定」が行われていないか、だ。放射線測定は人の健康を守るため、ではないのだろうか。
測定しない事が、風評被害を発生させる隙を、十二分に与えてしまっている。
# 測定することで住民がパニックになったら困ると公言する役人もいるらしいが、それこそが根拠なき「憶測」で非科学的な最たる「風評」と呼びたい。

ただちに、東京電力、日本政府及び地方自治体及び原子力安全委員会は、
福島原発「700キロ圏内」の全ての公立小学校、及び公共施設で
下記の測定を実施し、
内部被曝を加味した暫定「総実効被曝線量」を、「24時間リアルタイム」に国民に告知すべき、なんじゃなかろうか...。

1, 屋外(地上から歩行可能2,3歳児の身長程度の高さ)、および屋内(木造家屋含む)における放射線線種別測定と総合線量の測定。
2, 道路上、土壌、上下水道中に含まれる「核種」別測定。
3, 空気中に浮遊する放射性物質「核種」別の測定。大気中放射性物質含有量の測定。
# zero ではない「数値」をゼロや未検出にねつ造しないことがもっとも重要。

テレビ、ラジオにおいて、『公共の電波』において、天気予報とともに放射性物質拡散予報が報道されて当然のはずが、実施されていない。
人命にかかわる重要かつ緊急情報を、天気予報とともに報道しない放送局は『公共の電波』を自らの利益追求のみに悪用している、のだと私は解釈している。

[追記：2011.10.13]

# なぜか二つ存在している世田谷区のニュース。
世田谷区の道路で高い放射線量　NHKニュース
http://www3.nhk.or.jp/news/html/20111012/t10013213371000.html
世田谷区の道路で高い放射線量　NHKニュース
http://www3.nhk.or.jp/news/html/20111012/k10013213371000.html

10月12日 18時18分
高い放射線量が検出されたのは、世田谷区弦巻の区道の歩道部分です。世田谷区によりますと、今月３日、区民から「放射線量が高い場所がある」という情報が寄せられたため、区が測定したところ、１時間当たり最大でおよそ２．８マイクロシーベルトと周辺に比べて高い放射線が検出されたということです。このため高圧の洗浄器を使って歩道部分の洗浄を行いましたが、放射線量はあまり下がらず、１時間当たり最大で２．７０７マイクロシーベルトが検出されたということです。原因について世田谷区が専門家に聞いたところ、問題の場所は雨水が集まって放射線量が高くなったことが考えられるということです。この区道は小学校の通学路にもなっていることから、区は、１２日朝からこの場所をコーンで囲って立ち入らないよう呼びかけるとともに今後の除染を検討しています。世田谷区は、ことし７月から８月にかけて区内の小中学校や保育園、それに幼稚園で放射線量を測定しており、その際、高い放射線量は検出されていませんでした。世田谷区は、子どもへの影響を重視し、今月下旬から来月下旬にかけて区内の砂場がある２５８か所の公園について調査することにしています。

東京・世田谷区で検出された１時間当たり２．７マイクロシーベルトという放射線量は、文部科学省が積算の放射線量を計算する際に用いている、１日のうち、屋外で８時間、屋内で１６時間過ごすという条件で計算すると、１日の被ばく量が３８．８８マイクロシーベルト、１年間にすると１４．２ミリシーベルトになります。これは国が避難の目安としている年間の放射線量の２０ミリシーベルトを下回っています。計画的避難区域に指定されている福島県の飯舘村役場では、１２日、移動式のモニタリングポストを使って計測された放射線量が１時間当たり２．１マイクロシーベルトで、世田谷区の値はこれよりもやや高くなっています。首都圏では、比較的高い茨城県の北茨城市で、１２日、０．１４マイクロシーベルトが計測されています。放射線影響研究所の長瀧重信元理事長は「文部科学省などによる上空からの測定では、世田谷区では放射線量の高い場所は確認されなかったので、このような値が出たことに驚いている。ただ、地形や天候の関係で局地的に高い線量になることはあり得ると思う。周辺の土壌や草木などから放射性物質の種類を調べたり、どこから放射線が出ているのか調べて原因を突きとめるとともに、ほかにもこうした場所がないか調査する必要がある」と話しています。

世田谷区環境総合対策室の斉藤洋子室長は「現場は小学校の通学路で、近くには幼稚園や保育園もある。心配する保護者の方がいると思うので、専門家とも相談してできるだけ速やかに除染などの対応をとりたい」と話していました。

上記の文章から、国が避難の目安としている年間20ミリシーベルトなる基準が、いまや当たり前のこととして公然とまかり通っていることがわかる。
2011/03/11 以前の日本は、1ミリシーベルトが基準で、地震以降は20ミリシーベルト。

10月5日被曝限度「1〜20mSv」へ変更提言を批判。20mSv被曝で子供の癌死80倍320人小出裕章（MBS） « 小出裕章 (京大助教) 非公式まとめ

いまとなっては、
住所にたとえるなら「番地」ごとに測定される必要があり、その番地に居住する居住者に測定結果の値を告知する義務を、行政は（法律的に）遂行する必要があると思う。栃木、茨城、群馬、神奈川県、千葉県、埼玉県、東京で、番地ごとの行政による測定が必要なのではないのでしょうか。住民保護の観点から。

国、及び地方自治体は高い放射線量値が検出された時、
居住する居住者全員に対し、
すみやかに避難勧告を告知し、
幼児、児童、妊婦、病人、障害者、20歳未満の子供など
基礎体力の低い者や放射性物質が及ぼす影響に対し「感受性の高い者」を優先的に被曝から保護しなければならないはず。
法律に則って考えれば...
# 自分がどれほどむなしい事を書いているかは自覚している。

現在、強制避難が実施されているのは、福島県の原発から近い地域だけだが、実際にはあちこちにホットスポットが存在している。にもかかわらず、被曝被害から避難するかしないかは、住民自身の「自己判断」と「自己資産」に委ねられている。

台風の場合、避難勧告が発令され、地域住民は銀行から自己資産を引き出す必要なく、家族会議で熟考する必要もなく、躊躇なく危険から避難できる。
一方、放射性物質拡散による被曝避難勧告などは発令されず、情報告知すらない。放射線測定機器購入費も避難に伴う費用も自らが自己資産をはたくしかない。お金を用意できないならば、逃げたくても避難できない。避難者受け入れ支援をする団体も、福島県民だけを対象にした団体が圧倒的に多い。
こうして関東地方において被曝者となった人々が実際何人にのぼるのか、国は把握していない。正確に言うなら把握することを政府自ら自主的に拒否しているに等しい。旧ソビエトと同じく。

これが2011年の日本。

--

平成23年9月30日文部科学省による、プルトニウム、ストロンチウムの核種分析の結果について
http://radioactivity.mext.go.jp/ja/distribution_map_around_FukushimaNPP/0002/5600_0930.pdf

東京などの放射線量を公表　NHKニュース
http://www3.nhk.or.jp/news/html/20111007/k10013095081000.html

市民団体
http://www.radiationdefense.jp/
PDF: 首都圏土壌調査結果リスト

 早川由紀夫の火山ブログ放射能汚染地図（四訂版）

10/13 東京新聞:世田谷区、さらに高い放射線量　地上１ｍ、原因は不明:社会(TOKYO Web)
http://www.tokyo-np.co.jp/s/article/2011101301000297.html

10/13 東京新聞:世田谷で最高２．７マイクロシーベルト　弦巻　小学校の通学路:社会(TOKYO Web)
http://www.tokyo-np.co.jp/s/article/2011101390072238.html

10/12 東京新聞:ストロンチウム検出　市が採取物検査開始:神奈川(TOKYO Web)
http://www.tokyo-np.co.jp/article/kanagawa/20111012/CK2011101202000047.html

10/12 放射性物質：横浜でストロンチウム検出　８０キロ圏外初 - 毎日ｊｐ(毎日新聞)
http://mainichi.jp/select/jiken/news/20111012k0000e040037000c.html

10/07 放射性物質：小中学校５校で線量基準値超え　東京・大田区 - 毎日ｊｐ(毎日新聞)
http://mainichi.jp/select/weathernews/20110311/radioactive/news/20111008k0000m040132000c.html

10/02 福島原発から45キロの地点でプルトニウム検出 - WSJ日本版 - jp.WSJ.com
http://jp.wsj.com/Japan/node_317561

09/29 放射性物質除染：１～５ミリシーベルトでも国負担 - 毎日ｊｐ(毎日新聞)
http://mainichi.jp/select/jiken/news/20110930k0000m010116000c.html

--

【SAVE CHILD】放射能汚染から子供を守ろう

 【汚染マップ】東京都の放射線量と土壌汚染地図（文部科学省10/6発表） | SAVE CHILD

飯舘村などプルトニウム検出　NHKニュース
http://www3.nhk.or.jp/news/html/20110930/t10015963921000.html
# 東京大学大学院は、長崎教授の発言(飛ぶとは思わなかった) をどうとらえているのだろうか?。

プルトニウムは重いので飛ばないと言ったのは誰だったのか

 隠されてきたプルトニウムの大量放出！ | カレイドスコープ

 測ってガイガー！

Ruby 1.8.7

2011-10-08T09:42:00.001+09:00

1.8.7の今後につきまして

(<URL:http://www.ruby-lang.org/en/news/2011/10/06/plans-for-1-8-7/> の翻訳です)
...

今後の予定

2012年6月まで、通常のメンテナンスが続きます。
それ以降、バグフィックスリリースは終了いたします。2013年6月まではセキュリティフィックスは続けますので、それまでは1.8.7をお使いいただけます。
2013年6月より先は、1.8.7はあらゆるサポート対象外になります。

Mac OS X Lion の
/usr/bin/ruby は
ruby 1.8.7 (2010-01-10 patchlevel 249) [universal-darwin11.0]

なので、すぐにでも 1.9 にアップデートして欲しいです。
1日でも早く Lion 標準で 1.9 を使えるようにしてほしいです。
ソフトウェアアップデート経由で 1.9 を提供していただきたい。心から切望。

OS X Lion で似?1.9 をお試ししたい場合

alias 'macruby'=/System/Library/PrivateFrameworks/MacRuby.framework/Versions/A/usr/bin/macruby
alias 'macirb'=/System/Library/PrivateFrameworks/MacRuby.framework/Versions/A/usr/bin/macirb

を ~/.bashrc などなどに追記して

% source ~/.bashrc
% macirb
irb(main):001:0> RUBY_VERSION
=> "1.9.2"
irb(main):002:0>

楽しいAppleScript

2011-10-07T19:39:00.001+09:00

# このタイトルはトーゼン「楽しいRuby」にかぶせています。

makiaea.org | wifi power toggle using applescript in mac os x 10.7 lion
を目にして衝動的に久方ぶりに AppleScript Editor.app を起動してしまいました。
すっかり記憶喪失になっていたので
以前作った github.com/midore/readbook-scpt を開いて書き方を思い出しました。

実は普段は
~/.bashrc に

alias 'wifi'='/usr/sbin/networksetup -setairportpower en0'

を追加していて
$ wifi on
などして使っているんですが...それはそれとして
この主題は面白いです。

その昔、梅棹忠夫氏は
将来は誰でもが気軽にプログラミングする時代がくるんじゃないか、と言ったとか言わなかったとか。
# 原典が何だったか思い出せない。*1
そんなことを心の片隅におきつつ...

# wi-fi.scpt
script wifi

  on my_dialog(title, str, b_str, b_no)
    tell application "Finder"
      activate
      display dialog str buttons b_str default button b_no with title title
      set res to button returned of result
      return res
    end tell
  end my_dialog

  on setpower(onoff)
    return do shell script "networksetup -setairportpower en0" & space & onoff
  end setpower

  on getpower()
    return do shell script "networksetup -getairportpower en0"
  end getpower

  on getinfo(opt)
    return do shell script "/System/Library/PrivateFrameworks/Apple80211.framework/Versions/Current/Resources/airport" & space & opt
  end getinfo

  on endinfo()
    return my_dialog("Wi-Fi Info", getinfo("-I"), {"Done"}, 1)
  end endinfo

end script

on run
  tell wifi
    set v to do shell script "networksetup -version"
    # networksetup, Version 1.8
    # Copyright 2002-2010 Apple Inc. All rights reserved.
    set str to word 5 of getpower()
    if str is "On" then
      set msg to {"Off", "GetInfo", "Cancel"}
    else
      set msg to {"On", "Cancel"}
    end if
    try
      set res to my_dialog("Wi-Fi", v & return & return & "Wi-Fi Power (en0): " & str, msg, 1)
      if res is "GetInfo" then
        return endinfo()
      end if
      setpower(res)
      my_dialog("Wi-Fi", getpower(), {"OK"}, 1)
    on error number -128
      return
    end try
  end tell

end run

きりがないのでここらあたりで完成。

*1
あったあった。
出典『知的生産の技術』岩波新書
P.15

ややさきばしったいいかたになるかもしれないが、わたしは、たとえばコンピューターのプログラムのかきかたなどが、個人としてのもっとも基礎的な技能となる日が、意外にはやくくるのではないかとかんがえている。すでにアメリカでは、初等教育においてコンピューターの言語FORTRANをおしえることがはじまったようだ。

この本の初版は1969年7月21日。
梅棹氏は、プログラミングが「個人としてのもっとも基礎的な技能」になると書かれていますので、私が記憶していたこととは微妙に異なりますな。

それにしても「個人としてのもっとも基礎的な技能」としてのプログラミングとは?

特に言語指定はしないが日本語の読み書き&会話ができることと等しくプログラミングソースを読み書き&実行できる技能、
...と解釈したとして...
では、いま、この日本で、梅棹氏の予想は現実のものとなっているか? というと...幸か不幸か? No かもしれません。
けれどこれまた幸か不幸か?
こんな私でも「易しい」ものを読んだり書いたりできているのだからある意味 Yes なのかもしれません。

これからもっとプログラミングが普及して、梅棹氏の言ったような基礎的な技能となる日はくるんだろうか。もしそんな日がくるならば AppleScript も楽しい言語の１つとして普及してほしいなーと思います。

Steve Jobs 氏を悼み「ヒッピーに捧ぐ」を聞こう。

-- screen shot

dream

2011-10-06T23:26:00.001+09:00

本日(日本時間 2011.10.06) Steve Jobs 氏の訃報。

Steve Jobs 氏と Apple Inc. 社は大人たちを子供にさせました。
誰しもが子供みたいに、内心のワクワクを隠せませんでした。
この感覚は、世界中の User が共有していたようでした。
改めて、おもうに、考えれば考えるほど、とても不思議なことです。
長い夢から無理矢理目覚めさせられたような気もします。

Steve Jobs 氏が生きた時代を共に生きる事ができたラッキーな世代だからこそ
極めて歴史的に特異な現象として受け止め損ねちゃったかもしれません。
恐ろしいことです。

ただ、私にとって確かなことがあります。
地震が起きて真っ暗な気持ちになっている時だって、
ほら Macintosh を触ってみれば心地よい気分がかえってきました。
おそらく私だけじゃない世界中の人々がこの computer から何かを感じ取り、
それで子供のように晴れ晴れとした気持ちやワクワクする気持ちを持つことができたのではないでしょうか。

これから computer はもっと大きな変化を遂げるでしょうが、
私たちの世代は科学者でもない一般人が、
コンピュータ&インターネットと共に生活を始めた最初の世代です。
私は10年以上にわたって Steve Jobs 氏のアイディアの具現を Apple から受け取り、
コンピュータの楽しさを存分に教えてもらいました。
この贈り物は素晴しい Energy です。

Steve Wozniak 氏と Steve Jobs 氏が Apple を創設し
一般人の為にパーソナルコンピュータを作った事で今日があることを改めて思い出したいと思います。
Steve Jobs 氏の夢に感謝し謹んでご冥福をお祈り申し上げます。

# もちろん、ゲイツの Windows が長年市場制覇している訳ですが、
# あらゆる意味で Microsoft は Apple の後を追ってきました。
# いまだにこの事実を知らない方も多いようですが、何年かすれば時間が解決することでしょう。

OS X 10.7.1: XProtect

2011-10-04T18:56:00.000+09:00

Get Safe Downloads List last update time and current version - Mac OS X Hints
http://hints.macworld.com/article.php?story=20110602091032338

を読んで...

現在の様子 Memo

% defaults read /System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/XProtect.meta LastModification
Fri, 23 Sep 2011 18:08:25 GMT
% defaults read /System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/XProtect.meta Version
1003
% cat /System/Library/CoreServices/CoreTypes.bundle/Contents/Resources/XProtect.meta.plist

強制的にアップデートしたい時。

$ sudo /usr/libexec/XProtectUpdater

# XProtect.plist
# XProtect.meta.plist

OS X 10.7.1: mtmfs

2011-09-23T21:02:00.001+09:00

マックがうなり熱くなるので、

$ top
$ sudo lsof -i

知らないものが Listen していた。気持ち悪い。調べてみると

Lion Running Hot: Apple Support Communities
https://discussions.apple.com/message/15700251#15700251

これかも。
/System/Library/CoreServices/backupd.bundle/Contents/Resources/mtmfs

% man mtmfs

...There are no configurations to mtmfs, and users should not run mtmfs manually.

% man mtmd

ふーん。設定ファイルはないよ。ユーザはいじるな、と。

$ cd /System/Library/LaunchDaemons/
$ grep -R mtmfs .
./com.apple.mtmfs.plist:	<string>com.apple.mtmfs</string>
./com.apple.mtmfs.plist:		<key>com.apple.mtmfs</key>
./com.apple.mtmfs.plist:		<string>/System/Library/CoreServices/backupd.bundle/Contents/Resources/mtmfs</string>

$ sudo launchctl list | grep mtmfs
64	-	com.apple.mtmfs

$ more /System/Library/LaunchDaemons/com.apple.mtmfs.plist 
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.mtmfs.plist 
$ sudo lsof -i

消えたわ。
あ、sudo launchctl unload　やってからシステム環境のタイムマシン「切」にした。順序間違えたかも。
というか「切」にしておけばマックが熱くなることもなかったのかな...。わからない。
ちなみに、

% mdutil -s /Users/midore/
/Users/midore:
  No index.

[余談]
いい↓事知りました。

Lion Running Hot: Apple Support Communities
https://discussions.apple.com/message/15791385#15791385

% ps -arcwwwxo "command %cpu %mem" | grep -v grep | head -13

[2011.09.25]
mtmd

【コラム】新・OS X ハッキング! (15) Lion備忘録(8) ～タイムマシンにおねがい～ | パソコン | マイコミジャーナル [SP]
http://journal.mycom.co.jp/column/osxhack/015/index.html

(Mac OS X Tips::Lion)mtmd(Mobile Time Machine Daemon)のCPU使用率が異常に高い時の対応 - jitsu102の日記 [SP]
http://d.hatena.ne.jp/jitsu102/20110912/1315834305

[2011.10.02]
tmutil

Disable Time Machine Local Backups in Mac OS X Lion
http://osxdaily.com/2011/09/28/disable-time-machine-local-backups-in-mac-os-x-lion/

Time Machineのローカルスナップショット機能を無効にする方法
http://veadardiary.blog29.fc2.com/blog-entry-3493.html

[2011.10.11]
記事タイトル変更

OS X 10.7.1: Keychains

2011-09-22T21:12:00.001+09:00

Mac OS X 10.4 の重要なファイルをバックアップおよびリストアする方法
http://support.apple.com/kb/HT2980?viewlocale=ja_JP&locale=ja_JP#key

下記は超我流です。

----------------------------------------
ハードディスクを初期化する前に
~/Library/Keychains をバックアップする。
----------------------------------------
# キーチェーン.app が起動していない事を確認。
# デスクトップに /Volume/backupHDD/ がマウントできているとしたら。

$ cp -a ~/Library/keychains  ~/Volume/backupHDD/your-name-backup-keys

[重要]
キーチェーン"ログイン"パスワードにユーザログインパスワード「以外」のパスワードを設定している場合、バックアップから戻す際にはそのパスワードが必要になる事を心にとめておく。

----------------------------------------
バックアップした Keychains を戻す。
----------------------------------------
[重要]
これから行う作業において事故があった場合に備え予め現在の ~/Library/Keychains をバックアップしておく。この時キーチェーン.app は起動していてはいけない。メニューバーにカギアイコンがあればカギをかけておく。

# 現在のキーチェーンカギ束をバックアップする。
$ cp -a ~/Library/Keychains/  ~/now-backup-keys

外付けディスクなどにバックアップしておいた ~/Volume/backupHDD/your-name-backup-keys フォルダを Home 配下 にコピーする。
マウントしている外付けディスクに存在するバックアップしたカギ束を、直接触ることは厳禁。必ずバックアップの「コピー」を操作対象にする。
<pr>
# バックアップの「コピー」を ~/ 以下におく。
$ cp -a ~/Volume/backupHDD/your-name-backup-keys  ~/backup-keys
$ cd ~/backup-keys

# login.keychain があるはず。ファイル名 login を任意の名前(ここでは my)に変更。
$ mv login.keychain my.keychain

/Applications/Utilities/Keychain Access.app を起動する。
キーチェーンアクセス.app のメニューから「キーチェーンを追加」をクリック。
保存しておいたカギ束のコピー ~/backup-keys/my.keychain を選ぶ。
バックアップした時に使用していたパスワードを尋ねられる。
正しいパスワードを入力するとキーチェーンリストに「ログイン」「システム」と共に「my」が追加されるはず。

キーチェーンリストに追加された"my"キーチェーンは ~/backup-keys　内に存在するカギを参照している。
よって、もし仮に ~/backup-keys　を削除してしまうと実体を失ってしまう。

このような状態を解消するには、
# キーチェーンリスト"ログイン"の鍵がロックされていたらはずす。
"my"に追加された鍵、全てを"ログイン"キーチェーン内にドラッグ&ドロップする。もしくは「新規キーチェーン」を追加しておいてその中にドロップする。
キーチェーン"ログイン"に使用しているパスワードを尋ねられる。
"my"キーチェーン内の鍵を全てドラッグ&ドロップで移動したらメニューファイルーから「キーチェーン”my”を削除」をクリックする。
「参照のみ」「実体と参照」の選択肢から「実体と参照」をクリック。
~/backup-keys フォルダの中身は空になっているはず。

全て終了したらカギをかけキーチェーンアクセス.app を終了しライブラリ内を確認する。

$ ls -la ~/Library/Keychains/

アップルメニューから~~ログイン~~ログアウトし再度ログインしてからキーチェーンアクセス.app を起動し正常にカギが存在していることを確認する。

# キーチェーンを使用している Application を使用してみるなどして、
# 問題ない事を確認し終えたら不要なバックアップを削除する。
$ srm -rf  ~/now-backup-keys/ ~/backup-keys/

OS X 10.7.1: dscl

2011-09-22T20:05:00.001+09:00

最近...

yebo blog: Mac OS X Lionはパスワードクラックが簡単
http://yebo-blog.blogspot.com/2011/09/mac-os-x-lion.html

Change the Password in Mac OS X 10.7 Lion Without Knowing the Current Password
http://osxdaily.com/2011/09/19/change-password-mac-os-x-10-7-lion-without-knowing-current-password/

このような話題を目にしてげげと思っていたところ、

Quick Fix to Prevent dscl Unauthorized Password Changes in OS X Lion
http://osxdaily.com/2011/09/21/quick-fix-to-prevent-dscl-unauthorized-password-changes-in-os-x-lion/

His reasoning is that chmod 100 is too restrictive in that it changes the command to execute only, where as before the root user could read, write, and execute.

# ものすごい意訳。
# 彼の方法(chmod 100)ではとても制限があるので...。root user が~~読み書き~~読み書き実行できるよう。

George Orwell

2011-09-02T19:51:00.001+09:00

『新装版オーウェル評論集2 水晶の精神』| ジョージ•オーウェル | 平凡社ライブラー | 978-4-582-76688-2
# 2009.11.10 初版第一版
# 新装版は全部で4冊の文庫。
本の扉にはこう記されている。

本書は、『水晶の精神ーオーウェル評論集2』（平凡社ライブラリー、1995年）を改題した新装版です。

この夏、福島原発事故を契機に益々顕著になった情報欠如について、これは一体どのような事なのかを探るべく、また、自身のある種の混乱を整頓する必要にもかられ、これら４冊に収められた評論をランダムに読み直してみた。一流のシェフの味、そんな本だった。

信じたくないくらい衝撃的なことは、下記の文章は1945 年に書かれたものなのに、なぜ今の日本について語っているのだろう？ってことだ。要は世界は60年以上前と変わっていないし歴史は繰り返されているし、悪い意味でのナショナリズムは生き続けているばかりか増殖している証拠なのだろうかね。

P.52 - P.53
客観的真実の無視は、世界の一部から遮断することによっていっそう助長される。そのために、現実に何が起こっているかを知ることがいよいよ困難になるからである。非常な重大事についてさえ疑いが持たれる場合がしばしば生じる。たとえば、この戦争から生じた死者の数にしても、百万単位、千万単位でもはっきりつかむことができない。いろんな惨事ー...を聞かされているうちに、一般の人にはその現実感が薄れてしまうのである。事実を確認する方法を持たず、それが実際起こったことかどうかも十分確信が持てず、それぞれの方面からそれぞれまったく違った解釈をいつも与えられる。...(略)ドイツがポーランドに作ったといわれるガス室というのは本当だったのだろうか？

...(略)おそらく真相は発見できるのだろうが、ほとんどの新聞でも事実が非常にゆがめられて報ぜられるのだから、一般読者が嘘を丸呑みにしたり、判断を下しえなかったとしても、しかたがない。実際はどうなのかだれも確信がもてないとなると、いよいよ気違いじみた信念にすがってゆくことになる。なに一つはっきり立証もされなければ否認もされないとなると、明々白々たる事実までがずうずうしく否定される。のみならず、ナショナリストはたえず権力や勝利や敗北や復讐を考えているくせに、しばしば、現実の世界で起こっていることにある程度無関心になる。

〜ナショナリズム覚え書き(1945年)〜より

新聞報道のありさまを嘆きつつ、一般読者が判断を下し得なかったとしてもいた仕方ない、と述べられた上で事実までが否定されている、とある。これでは、まるで今の日本そのものではないか...。

ところでオーウェルが「ナショナリズム」をどう捉えていたのか？について、
この記事を目にしてしまった方に誤解を与えないよう留意することは、引用させてもらった者の最低限の礼儀だと思うので、下記の引用も添える。

P.35-P.36
...現在ではほとんどあらゆる問題についての私たちの考えを左右するほど広まっていながら、まだ名前のついていないひとつの精神的習慣がある。それにもっとも近いものとして私は「ナショナリズム」という言葉を選んでみたが、しかしすぐおわかりになるように、私は必ずしも普通に使われている通りの意味でそれを使っているのではない。...
私が「ナショナリズム」と言う場合に真っ先に考えるものは、人間が昆虫と同じように分類できるものであり、何百万、何千万という人間の集団全体に自信をもって「善」とか「悪」とかのレッテルが貼れるものと思い込んでいる精神習慣である。*1
しかし第二にはーそしてこの方がずっと重要なのだがー自己をひとつの国家その他の単位と一体化して、それを善悪を超越したものと考え、その利益を推進すること以外の義務はいっさい認めないような習慣をさす。
ナショナリズムと愛国心とを混同してはならない。通常どちらも非常に漠然とした意味で使われているので、どんな定義を下しても必ずどこかから文句が出そうだが、しかし両者ははっきり区別しなければならない。というのは、そこには二つの異なった、むしろ正反対の概念が含まれているからである。私が「愛国心」と言う場合、自分では世界中でいちばんよいものだとは信じるが他人にまで押しつけようとは思わない。特定の地域と特定の生活様式に対する献身を意味する。愛国心は軍事的な意味でも文化的な意味でも本来防御的なものである。それに反して、ナショナリズムは権力欲と切り離すことができない。すべてのナショナリストの不断の目標は、より大きな勢力、より大きな威信を獲得すること、といってもそれは自己のためではなく、彼がそこに自己の存在を没入させることを誓った国なり何なりの単位のために獲得することである。

一応、引用しておいたが、今の私にとってオーウェルがナショナリズムをどう捉えていたかは、おおきな問題じゃない。(1年前だったらそうじゃなかったかもしれないが...) 第二次世界大戦終戦時イギリスに住んでいた作家が、新聞や映画を通して肌で感じたこと、その感触が、今の日本の新聞やテレビから受ける印象とまるっきり同じである、ってこと。この事実の方がずっとずっと重い。歴史は繰り返されている。

1945年、生活に追われこの戦争はなんなのかを知らされないまま、帰らない人を待ち続けていた人々と同じように、今、日本でも生活に追われてあの福島の事故で何がどうなったのか？今どうなっているのか？を知らされないまま、テレビや新聞を疑う事もしないで、インターネットで情報を得ようとしない（できない）人たちがいる。
彼らにとっての当たり前は、節電する事であり、物理学的には確かで当たり前だったはずの事が、不確かで曖昧で人によって見解が異なるので誰にもわかんない仕方のない事に成り下がることだ。
今も大気中への放射性物質の拡散は止まっていないし海へも大量に流れており、このような海洋への流出は人類初だというのに。

『この国の「問題点」』| 上杉隆 | 大和書房 | 978-4-479-39211-8
の中で上杉氏は

P.24
ちなみに、東電主催によるマスコミ接待中国ツアーは氷山の一角に過ぎません。東電は毎週のように、記者クラブ幹部を飲食やゴルフでもてなしていたわけです。「原発は安全である」ということをテレビや新聞を使って国民にアピールするためです。また東電が加入している電気事業連合会は、記者クラブメディアの大型スポンサーになっています。その広告費の総額は毎年８００億円以上を計上しています。しかも接待費はこれとは別です。

マスコミの人々が「なぜ？」をなぜ自主的に追求できない単純ルーチンに陥ったままなのか、そのからくりを指摘してくれている。
上杉氏のような人々がインターネットには大勢いることによって、かろうじて1945年のオーウェルの時代よりはましな環境にある、とはいえ、それでも、いざインターネットのない状態におかれたら、一瞬にして情報から遠ざかりまるで原発事故など発生していなかったかのように、放射性物質など飛んでいないのだぞと、集団催眠にかけられたごとく危機感を麻痺させられ、テレビは放射線測定されたかどうかもわからないような福島の野菜をみんなで食べよう!と煽る。
台風情報だけは鬼の首をとったごとく熱心なくせに、放射性物質拡散予想がリアルタイムで報じられたためしがない。

これが先進国だ、情報立国だと声高らかに自称してきた日本のありさま。血税で作られたスーパーコンピューターはなんの役にもたたないほど、それほどお粗末なものだったのだろうか？一体なんの為の誰の為のコンピューターだったのか？。お金をかけて整備されていたはずのスピーディも「より大きな威信を獲得すること」だけが目的のサクラだったのか？。

最後に強く印象に残った箇所も引用する。

P.84
常識的な法則が日常生活や若干の精密科学の場においては、通用するけれども、政治家や歴史家や社会学者からはかまわず無視されるという、分裂症的な思想体系を組み立てるだろう。

P.84
問題についての展望を失わないようにこの評論の冒頭で述べたことをくり返しておこう。すなわち、イギリスにおいての真実の、したがってまた思想の自由の直接の敵は、新聞や映画を牛耳っている者たちと官僚である。
しかし長い目でみれば、知識人たち自身の間における自由への希求の衰えがもっとも深刻な兆候である。

P.93
知的自由の破壊は、ジャーナリスト、社会問題評論家、歴史家、小説家、批評家、詩人から、この順序で活動力をそぐ。

P.98
いまのところ全体主義国家は、必要に迫られて科学者を寛大に扱っている。ナチス•ドイツにおいてさえ、ユダヤ人以外の科学者は比較的好遇(ママ)を受け、ドイツの科学界は全体としてヒトラーになんらの抵抗も示さなかったのである。
...(略)
金で買われた精神は毒された精神であるという事実を克服することはできない。
...(略)
いまのところわれわれにわかっているのは、想像力が、ある種の野生動物と同じように、捕われの状態では繁殖しないだろうということだけである。その事実を否定する作家やジャーナリストは...事実上自らの破滅を要求しているのである。

〜文学の禁圧(1946年)〜より

いずれは、自らの破滅を要求している。オーウェルの鋭いこの指摘が、
日本の新聞社(東京新聞などの心ある一部の報道人を除く)やテレビ局やあらゆる「マス」メディアに携わる人々、
また、立派な肩書きをお持ちになり自分がひとたび何かを発信すればすぐにでも多くの人々に事実が伝わるであろうと自覚のある方々に、
届くことを願う。
...と書きながら矢野顕子さんがカバーした「右手」を思い出す。
〜僕らの右手はどこまであげれば、誰かに届くかって〜
なんとも言いようのない気持ちにもなる。

# キーワード：
# ドイツzdf frontal21 福島原発事故
# などで Google 検索すると海外メディアが伝える福島原発事故に関する動画(日本語字幕付き)がヒットするはずです。

「シュピーゲル」誌(2011年5月23日号) 「原子力国家」日本語訳 | ジャーナリスト上杉隆 -公式ウェブサイト- takashi uesugi - official web site
http://uesugitakashi.com/?p=917

原発Tweets #Genpatsu 紙
http://paper.li/malilin/1302845303#!technology

[2011-09-03] 加筆修正。

抽象化

2011-08-29T12:10:00.000+09:00

“所有”という時代遅れ
http://d.hatena.ne.jp/Chikirin/20100622

人がうすうす意識している「何か」が詳らかにされていて大変面白かった。
漠然とした何かと何かを結びつけはっきりと言語化できる人や抽象化できる人をみると尊敬する。

そこにある言葉に心をよせることができなかったとしてもそんなささいな事などもあまり気にならない。
元来、混沌として漠然としたものが一定の視点から形づくられ名付けられ抽象化されて明快になるプロセスや結果は美しいものなのでしょう。

... プログラミングにも抽象化という概念があってこれと向き合うということは、一体なにが self であるべきか？という問いを丹念に考えることのようでして、ましてや隠蔽というのはさらに高度な技のようで、なぜその必要性があるのかは書いた人にははっきりとしているんだろうけれどもそれを知らない者からするとわかりずらいところがあり、が、そこにこそ隠蔽の意味があったりするわけで ...。

プログラミングの楽しさを味わうことは誰にでもわりとたやすいのだろうけれど、その美に手をのばそうとすることは全くたやすいことじゃない。少なくとも私にとってはとっても難しい。第一に美を求める以前に淡々と理解をすすめていくこと、それが難しい。これまでも何度も挫折してる。半年以上何も書かない読まない(プログラムを)こともある。
ところが不思議なものでふとある時に放り出してあった本を手にとってみると以前とは違う感触を覚えたりして、またぞろなにやら書いたり読んだりするものの、しばらくすると挫折する。これを繰り返している。

そんなわけで美を意識できるような世界からは１００万光年ほど離れたところでうろうろしていて、急ぐ旅じゃなしと寄り道ばかりして、はてな界隈の優秀な方の文章に感心しきってお茶ばかり飲んでる今日このごろ。

これじゃーね。

# 2010-07-01

Steve Jobs 氏辞任報道をみて

2011-08-28T12:58:00.001+09:00

私が初めて自分の為にパソコンを買う時、何を買おうか半年以上悩んだ。
悩んだ末、Windows OS が抱える問題を自分専用のパソコンにまで持ち込むなんて「おかしいだろう」という結論に至った。

ある日曜日、Apple をこよなく愛する店員さんのいるお店でパワーマックとモニターを選び少しだけメモリーを増設してもらい、マックライフがスタートした。
たしかその年のうちに、iMac が登場し Apple 社のイメージは格段に変わった。
iMac の仕掛人がどのような人物なのか知るにつれ、パーソナルコンピュータそのものの新たな扉が開いたような明るい予感がもたらされ、程なくして Apple 社が危機を乗り越えつつあることを Wired かなにかが報じだした。驚き喜んだ私は猫にごちそうした。
# ただ、あとになって当時なぜ IE が入っていたのかを知った時はなんとも複雑な気持ちを覚えたものだった。

そして Mac OS X β が発売された。なにが画期的だったかといえばコマンドが使えるようになった事だった。最初のまったり感はバージョンアップで消えていったし Aqua はそれまでみたどんな GUI　よりもきれいだった。

数年後、ある日ある時電車の中で、ふとある事に気がついてかなり仰天した。
白いイヤホンをしている人があっちにもこっちにも、ほらあそこにもいるではないか！なにごとが起きているのか？にわかに信じられなかった。そそくさと帰宅し調べてみるに、iPod が順調に売れているらしいと分かり時代が変わったことを突如として実感させられた。まさかこんな時代がくるなんて...。よもやテレビコマーシャルで Apple のロゴを目にする日がくるとは...。

今 Apple 製品を様々思い出しながら、かつ、こうして Apple のノートパソコンを使いながら Apple 社に Steve Jobs 氏に心から感謝している。ありがとう。

「放射線の健康への影響」について

2011-07-31T10:59:00.001+09:00

% pwd
/Library/Internet Plug-Ins
% l
(...略)
drw-r--r--   3 root  wheel   102  6 20 14:50 QuickTime Plugin.plugin

このようにしていたにも関わらず Lion のSafari 5.1 で QuitckTime 動画をみることができてしまったわけだが...今回に限っては予想に反し閲覧できてよかったと思ってしまった。もうね Safari plugin のことなんかふっとびました。

# 言い方を変えよう。Mac OS X Lion に Adobe Flash Player プラグイン入れるのやだな。とか思っている方も多いのではないでしょうか。(多くはないか?）
# でも、下記のような埋め込まれたQuickTime動画の場合は、Safari でプラグインオフにしていたとしても否応なく閲覧できちゃう。便利! ですね!?

<a href="http://savechild.net/archives/6135.html">http://savechild.net/archives/6135.html</a>
<blocquote>
2011年7月27日 (水) 衆議院厚生労働委員会「放射線の健康への影響」について
参考人説明より
児玉龍彦(参考人 東京大学先端科学技術研究センター教授 東京大学アイソトープ総合センター長)

以下, 個人メモ。

2011.3.15 AM9:00
東海村 10条通報
東京　 50.5マイクロシーベルトパーアワー

2011.3.21
東京　 0.2マイクロシーベルトパーアワー
枝野幹事長、問題ない。

福島原発の総量。
熱量換算では、広島原爆の29.6個分に相当するものが漏出。
ウラン換算では20個分のものが漏出していると換算される。

原爆による残存料 1年後
1,000分の1
原発からの放射線汚染物残存料
10分の1程度

補償問題と子供を守るための問題は分けてほしい。
緊急避難的除染と恒久的除染をわけろ

内部被曝はパーソナルな問題。
4つの提案。

『7万人の人が自宅を離れてさまよっている時に国会は一体何をやっているのでしょうか。』

OS X 10.7 : IPv6 を切る

2011-07-25T10:13:00.001+09:00

Mac OS X 10.7 では下記に書かれてある通りにIPv6 を切ることはできなくなってしまった。

Configuring IPv6 in Mac OS X v10.6.7 or later
http://support.apple.com/kb/HT4667

基本的にはできなくなったけどコマンドからはできた。

サービス名デバイス名一覧表示(一般ユーザ実行可能)

$ networksetup -listnetworkserviceorder

IPv6の現況
# <networkservice> には -listnetworkserviceorderで表示されたサービス名を使う。

$ networksetup -getinfo <networkservice>

指定したサービスのIPv6 を OFF にする # 管理者ユーザで実行

$ sudo networksetup -setv6off <networkservice>

確認

$ networksetup -getinfo <networkservice>
...
IPv6: Off

システム環境設定->ネットワークから IPv6の構成をみてみると「切る」になっていた。

もしかして、Apple は
『これからはじゃんじゃんIPv6を使いましょう。よって IPv6 「切る」を選択肢から削除しました』
なーんて意図を持ってるのかもしれない。
できればちゃんとした公式ドキュメントが欲しいところ...。

参照

$ networksetup --help | grep 6
networksetup -setv6off <networkservice>
networksetup -setv6automatic <networkservice>
networksetup -setv6manual <networkservice> <networkservice> <address> <prefixlength> <router>
networksetup -create6to4service <newnetworkservicename> 
networksetup -set6to4automatic <networkservice> 
networksetup -set6to4manual <networkservice> <relayaddress>

Mac OS X Lion Install

2011-07-24T16:17:00.001+09:00

Mac OS X Lion クリーンインストール。
# App Store から Installer をダウンロードした『直後』でインストール始める『直前』に
# /Applications にダウンロードされた Installer をバックアップとらないといけない。ここはまる。ここ「はまる」の意。
~~# 詳細は googleへ。~~ 記事末尾参照

PRMA クリアして option を押しながら USB フラッシュメモリーから起動。
ユーティリティ->ディスクユーティリティを使ってパーティションの1つを初期化しインストール。

システム環境とターミナル.appをざっと設定し 3 度目の起動後。
# ソフトウェアアップデートはしていない。
# Wi-Fi (Lion からメニューバーのAirMac は Wi-Fi になった) に繋がることは確認。
# FileVault はオンにしていない。

# lsof
$ sudo lsof -i
$ sudo launchctl list | more

# grep netbios
$ sudo launchctl list | grep netbios

$ pwd
/System/Library/LaunchDaemons
$
$ grep -R netb  .
./com.apple.netbiosd.plist: <string>com.apple.netbiosd</string>
./com.apple.netbiosd.plist:   <string>/usr/sbin/netbiosd</string>
./com.apple.netbiosd.plist:        <string>_netbios</string>
./com.apple.netbiosd.plist:                <string>netbios-ns</string>
./com.apple.netbiosd.plist:                <string>netbios-dgm</string>
$
$ more com.apple.netbiosd.plist

# unload netbiosd
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.netbiosd.plist 
$ sudo lsof -i

# chmod netbiosd
$ which netbiosd
$ sudo chmod a-x /usr/sbin/netbiosd
$ ls -la /usr/sbin/netbiosd 
# chmod smbd
$ sudo chmod a-x /usr/sbin/smbd
$ ls -la /usr/sbin/smbd

# unload blued
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.blued.plist
# unload RemoteDesktop
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.RemoteDesktop.PrivilegeProxy.plist

# halt
# shift key 押しながら起動。
# login as admin user

# moved RemoteManagement agent
$ sudo mv /System/Library/LaunchAgents/com.apple.RemoteDesktop.plist  ~/backup/com.apple.RemoteDesktop.plist
# moved RemoteManagement
$ sudo mv /System/Library/CoreServices/RemoteManagement/  ~/backup/RemoteManagement/

# moved IOBluetooth
$ cd /System/Library/Extensions
$ sudo mv IOBluetoothFamily.kext/  ~/backup/IOBluetoothFamily.kext/
$ sudo mv IOBluetoothHIDDriver.kext/  ~/backup/IOBluetoothHIDDriver.kext/
$ sudo mv AppleBluetoothMultitouch.kext ~/backup/AppleBluetoothMultitouch.kext

# important touch
$ sudo touch /System/Library/Extensions/

# chmod blued
$ which blued
$ sudo chmod a-x /usr/sbin/blued
$ ls -la /usr/sbin/blued 

# reboot
# login as admin user
# system log
$ syslog -w 200 | more

# system error log

$ syslog -k Level Nle error
Jul 24 10:38:59 localhost UserEventAgent[11] <Error>: CaptiveNetworkSupport:CaptiveSCRebuildCache:81 Failed to get service order
--- last message repeated 3 times ---
Jul 24 10:38:59 localhost airportd[21] <Error>: _processDLILEvent: en0 attached (down)
Jul 24 10:39:00 localhost UserEventAgent[11] <Error>: CaptiveNetworkSupport:CaptiveSCRebuildCache:81 Failed to get service order
--- last message repeated 1 time ---
Jul 24 10:39:00 localhost configd[14] <Error>: bootp_session_transmit: bpf_write(en0) failed: Network is down (50)
Jul 24 10:39:00 localhost configd[14] <Error>: DHCP en0: INIT-REBOOT transmit failed
Jul 24 10:39:01 osx mDNSResponder[47] <Error>: mDNSResponder mDNSResponder-320.5 (Jun 16 2011 17:42:39) starting OSXVers 11
Jul 24 10:39:02 osx mDNSResponder[47] <Error>: D2D_IPC: Loaded
Jul 24 10:39:02 osx mDNSResponder[47] <Error>: D2DInitialize succeeded
Jul 24 10:39:02 osx corestoraged[73] <Error>: .... status = "Locked"
Jul 24 10:39:02 osx systemkeychain[33] <Error>: done file: /var/run/systemkeychaincheck.done
Jul 24 10:39:02 osx loginwindow[49] <Error>: Login Window Application Started
Jul 24 10:39:03 osx mds[46] <Error>: (Normal) FMW: FMW 0 0
Jul 24 10:39:05 osx loginwindow[49] <Error>: Login Window Started Security Agent
Jul 24 10:39:05 osx WindowServer[99] <Error>: kCGErrorFailure: Set a breakpoint @ CGErrorBreakpoint() to catch errors as they are logged.
Jul 24 10:39:05 osx loginwindow[49] <Error>: kCGErrorFailure: CGSPackagesGetWorkspaceType: couldn't get workspace type
Jul 24 10:39:05 osx loginwindow[49] <Error>: kCGErrorFailure: Set a breakpoint @ CGErrorBreakpoint() to catch errors as they are logged.
Jul 24 10:39:06 osx SecurityAgent[118] <Error>: Echo enabled
Jul 24 10:39:08 osx SecurityAgent[118] <Error>: kCGErrorFailure: CGSPackagesGetWorkspaceType: couldn't get workspace type
Jul 24 10:39:08 osx SecurityAgent[118] <Error>: kCGErrorFailure: Set a breakpoint @ CGErrorBreakpoint() to catch errors as they are logged.
Jul 24 10:39:18 osx SecurityAgent[118] <Error>: Login Window login proceeding
Jul 24 10:39:18 osx loginwindow[49] <Error>: Login Window - Returned from Security Agent
$_

# :) を検索
$ syslog -k Message Seq ':)'

[2011-07-25]

yebo blog: OS X Lionのディスクを作成する方法
http://yebo-blog.blogspot.com/2011/06/os-x-lion_18.html

http://osxdaily.com/2011/07/08/make-a-bootable-mac-os-x-10-7-lion-installer-from-a-usb-flash-drive/

Install Mac OS X Lion on More Than One Computer
http://osxdaily.com/2011/07/21/install-mac-os-x-lion-multiple-macs/

OS X Lion: About Lion Recovery
http://support.apple.com/kb/HT4718

OS X Lion: About FileVault 2
http://support.apple.com/kb/HT4790

Inside Mac OS X 10.7 Lion: New Wi-Fi Diagnostics tool
http://www.appleinsider.com/articles/11/03/15/inside_mac_os_x_10_7_lion_new_wifi_diagnostics_tool.html

Blogger API Get Request

2011-06-30T06:37:00.001+09:00

Blogger API に対し最初に発行すべき Get Request 先はどこか? についてわかったこと。

gdata-1.1.2 (ruby-lib)を使ってログインしてから

https://www.blogger.com/feeds/default/blogs

に対して Get リクエストすると基本的な情報が返ってきた。
その XML はこのような構成になっており

<xml root>
  <title/>
  <name/>
  <link/>
  <author/>
  <entry>
    <published/>
    <updated/>
    <category/>
    <link/>
  </entry>
</xml root>

こんなような def を用意すると...

def xinfo_link(str)
   # @xr = response.to_xml.root
   # str = "link" or "entry/link"
   @xr.get_elements("#{str}").each{|x|
    m = x.attributes['rel'].to_s.match(/\#(.*?)$/)
    m ? s = m[1] : s = x.attributes['rel']
    print "#{s} => ", x.attributes['href'], "\n"
  }
end

各種 URL を得ることができました。
下記のリンク先(末尾)の内容どおり実際にテンプレート用URLなども用意されておりちょっと驚きました。

また、これまで使用したラベル(category)も全て格納されておりました。
こんなような def を用意すると、

def category
  # @xr = response.to_xml.root
  @xr.get_elements('entry/category').each{|y| print "[", y.attributes['term'], "]\s"}
  print "\n"
end

category 一覧をみることができました。

# Category:
[Music] [get-item-amazon] [OSX] [SnowLeopard] [readbook] [AirMac] [Safari] [Amazon] [Apple] [importdata] [AirPort] [2010-amazon-api-jp] [News] [MacVim] [mdiary]     [mblogger] [Book] [AppleScript] [google] [gem] [essay] [Leopard] [vi] [Blogger] [Perl] [x] [Nuclear] [sleep] [launchd] [Design] [RubyCocoa] [vim] [iTunes] [git]     [RubyUtility] [Ruby] [daybook] [TV] [RubyOSA] [plutil] [macruby]

下記を参考にさせていただきました。

Blogger Developer Group | Google グループ

 Blogger Developers Network: Using OACurl to explore Blogger’s API

I'd Rather Hack: Howto Change Blogger Settings with the GData API

キュレーションの時代

2011-06-27T13:33:00.001+09:00

キュレーションの時代 | 佐々木俊尚 | 筑摩書房 | 978-4-48-006591-9

わたしは twitter も facebook も使っていないが全体として非常に面白く興味をもって読んだ。ただ疑問が残るところがあった。

以下「情報の真贋」について述べられている箇所の引用。

p.204
情報の真贋なんてだれにもみきわめられない

p.205-p.206
考えてもみてください。
すでにある一次情報をもとにしているプログだったら、「その論理展開は変だ」「ロジックが間違ってる」という指摘はできます。たとえば「日本で自殺者が増えているのは、大企業が社員を使い捨てしているからだ」とかいうエントリーがあれば、自殺増加の原因についていろんな議論ができるでしょう。...
(略)...逆に、誰にも検証できないような一次情報が書かれている場合、それってどう判断すればよいのか。
(略)...だから、「真贋をみきわめる」という能力は、そもそもだれにも育まれようがないというのがごく当たり前の結論だったわけです。

p.207
つまり「事実の真贋をみきわめること」は難しいけれども、それにくらべれば「人の信頼度をみきわめること」の方ははるかに容易であるということなのです。

p.242
一次情報を発信することよりも、その情報が持つ意味、その情報が持つ可能性、その情報が持つ「あなただけにとっての価値」、そういうコンテキストを付与できる存在の方が重要性を増してきているということなのです。

下記感想。

第一に、p.242 ここで一次情報を発するよりも重要だとされているコンテキスト(つまりそれは二次情報、三次情報だと受け止めてもいいと思うが)それらが一次情報と「比較され」「重要」だと論じられている点。

コンテキストの重要性は決して一次情報を軽んじている訳では「ない」と理解しているつもりだが...、
例えば、ゴッホの絵よりもゴッホの絵を発掘した人の方が重要なのか？
例えば Google が提供する「サービス」と Google のフィルターを通して出現した「検索結果」を構成する情報、これらはどちらがより重要か？を論じた場合、にわとりが大事か卵が大事かに陥るのでは？情報とはなにかについて考えた方が精神衛生上よいのではないだろうか。

第二に、わたしたちは、例えば Google がなかった頃一次情報に辿りつくことができなかった永遠の漂流者だったんだろうか？
そんなことはないと思う。確かに Google のおかげで飛躍的に楽になったが、Google がない時代でも一次情報が存在している限りは、また探す気力がある限りはどうにか辿り着けていたんじゃないのかな。時間を要する時もあったけど...。

第三に、わたしたちは、果たして「情報の真贋」をみきわめられない存在なのだろうか？
「そもそもだれにも育まれようがない」と結論づけてしまう(p.206)のは過剰なのでは？と思う。
# この件について『CODE 2 』でも語られている思うけれども私は読了できていない。
仮に佐々木氏の言うように、みきわめられないとして、じゃあその者は信頼できる人物(p.207)とやらをみきわめられるんだろうか？
実際、情報の真贋をみきわめるのは難しい時もある。実際、情報ハブ的人物の情報をありがたく享受することも多々ある、けれども真贋をみきわめる能力は育まれないと結論づけてしまうのはそれは何か重要なものを放棄することにならないだろうか？

あえてここでちょっと意地悪な仮定を試みてみよう。
もしも、わたしたち社会を構成する[全員]が氏の述べるような「情報の真贋をみきわめられない」存在であると仮定するならば、重大な矛盾を内包することになる。つまり、一次情報発信者自身も、佐々木氏が述べるキュレーター自身も、情報の真贋がみきわめられない存在だという矛盾に陥ることになってしまう...。

美の構成学

2011-06-27T13:30:00.001+09:00

美の構成学 | 三井秀樹 | 中公新書 | 978-4-12-101296-8

第一章「構成学とデザイン」は
主にバウハウスの歴史について語られ
第二章「構成学と造形」
主に構成学の歴史
第三章「造形の秩序」
黄金比、シンメトリーについて
第四章「くらしの中の構成学」
暮らしの中にある美について
第５章「新しい構成学」では
これからの構成学についてテクノロジーとの関係が述べられている。

p.123
構成学は芸術やデザインの専門家のためにだけあるのではなく、日々の生活に活かしてこそ意味があり、私たち自身がそれぞれ美意識をもち快適な生活を送るための生活美学であると位置づけて欲しい。

p.151
このようにバウハウスで確立した造形の基礎概念を柱とする構成学は、モホリ•ナギからケペッシュの視覚言語論を経て、ネグロポンテのマン•マシン•インターフェイスという人間とコンピュータの情報理論を加えた、つまり視覚の世界から視覚＋情報の情報認知科学の分野へ領域が拡がってきたといえる。

本を読み終えて。
なぜ、アスファルトの色はよりによってこんな灰色なんだろうと、子供の頃真剣に思い悩んでいたことを思い出した。できたてのアスファルトの道は灰色というより黒に近い。けれど時間がたつとともに少しづつ白い絵の具を重ねて塗ったように灰色に近づいていく。そして町中がこの灰色の道におおわれている。
私はこの状態につよい不満を感じていた。なぜもっときれいな色じゃないんだろう。どうせならもっと美しい色にしてくれていたら道を歩くのはもっと楽しいのに。あるいは真っ白だったらどれだけ気持ちいいだろう。ビルや工場もそうだ。なぜ灰色なんだろう。どうせならもっときれいな色にしてくれたら町が明るくなるのに。なぜ大人は灰色が好きなんだ？
子供の私がこの疑問を口に出して大人に聞いてみることはなかった。まともに相手にされることはないだろうと思ったから。
今、私はこの疑問に対する妥当な答えを持ち合わせていない。
なぜ日本の道路でアスファルトが使われ続けているのか歴史的経緯を調べることはできたとしても...
当時の大人たちもこんなこと聞かれたらさぞかし困ったことだろう...。

networksetup createlocation

2011-06-25T12:40:00.001+09:00

[2011-07-25]
追記：OS X Lion から試してみた。結論からいうと、このコマンドを使って「優先するネットワーク」を設定しないほうがいい。と私は思う。
キーチェインのシステムとログインそれぞれに鍵は登録されるものの、その鍵のアクセス制御欄を確認してみると「システム環境設定」が含まれていない。
つまり手動で設定した場合のアクセス制御とは異なる結果が生じてしまう。
また、10.7 でサポートされなくなったオプションもいくつかあるようだ。
----------

コマンドラインから AirMac(AirPort) 設定するメモが出てきた。
7月に OS X Lion になったら試してみようと思う。

下記 Mac OS X 10.6.1 時代の日記より。(2009-09-14)

# --
# help をちゃんと読んでみる
$ /usr/sbin/networksetup -help | more
# 管理者ユーザになる

### 新規ロケーション作成 - デフォルトサービスつき
# Usage: networksetup -createlocation <location name> [populate]

$ sudo networksetup -createlocation test-location populate　
# システム環境設定 - ネットワークから手動で新規ロケーションを作成したのと同じ結果になる.
# populate をつけると利用可能なサービス(Ethrnet, Airport など)がすべて有効な状態で登録される。

### ロケーションの削除
# sudo networksetup -deletelocation <location name>
$ sudo networksetup -deletelocation test-location
# 成功すると、found it!　と表示

### 新規ロケーション作成 - デフォルトサービスなし
$ sudo networksetup -createlocation test-location

### ロケーション一覧をみて新規ロケーションを確認する
$ networksetup -listlocations

### 新しく作ったロケーションへ切替
$ sudo networksetup -switchtolocation test-location

### サービスの作成 - アドレスは自動的に DHCP 参照になる。
# Usage: networksetup -createnetworkservice <newnetworkservicename> <hardwareport>
# <newnetworkservicename> - 自分で自由につける名前.ここでは air2 とした
# <hardwareport> - $ networksetup -listallhardwareports で確認できているもののなかから無線を選ぶ.ここでは AirPort
$ sudo networksetup -createnetworkservice air2 AirPort

# サービスを作成すると途端に AirMac 電源が入り周囲をスキャンしはじめるのですぐ電源を切っておく.
# networksetup -setairportpower <device name> <on off>
$ networksetup -setairportpower AirPort off
or
$ networksetup -setairportpower en0 off

### サービス作成されたことを確認
$ sudo networksetup -listnetworkserviceorder
# <newnetworkservicename> である air2 設定状況表示 - DHCP 参照になっている
$ networksetup -getinfo ai2

### 優先するネットワークの設定
% networksetup -help
# Usage: networksetup -setairportnetwork <network> <device name> [password]
# Set AirPort Network to <network> for <device name>.
# If a password is included, it gets stored in the keychain.

# <device name> -> $ networksetup -listallhardwareports で確認できているもののなかから無線を選ぶ
# <network> -> 参加したい無線LANネットワーク名。SSID ともいう。ここでは homearea 。
# <index> -> 0 を指定すると優先順位が１番になるようだ。末尾にしたい場合は任意の数字
# <security type> -> WEP とか　WPA2 とか選ぶ
# [password]　- パスワードを入力するとキーチェインの「システム」キーチェインに自動的に登録される。はず?

$ sudo networksetup -addpreferredwirelessnetworkatindex AirPort homearea 0 WPA2 password
# =>
# Security type is set to: WPA2 Personal
# Added homeerea to preferred networks list

# 優先するネットワークの設定のためのコマンドは動くもののキーチェインに key が正しく登録されないようだ。
# 結果、無線につながることはなかった。
# システム環境設定ーネットワークを開き手動で優先するネットワークを設定し無事つながった。
# --

Changed Blogger's feed access

2011-06-22T11:01:00.001+09:00

# Blogger API へアクセスする際は https 使用のこと。

Blogger Developers Network: Clarifying recent changes to Blogger’s feed access
Blogger Developers

Developer\'s Guide: Protocol - Blogger APIs - Google Code
Developers Guide

Blogger API - Google Code
Blogger API

# 新しい gdata
gdata-1.1.2.gem - gdata-ruby-util - Version 1.1.2 - Google Data APIs Ruby Utility Library - Google Project Hosting
gdata-ruby-util

Fukushima Nuclear

2011-06-22T10:59:00.004+09:00

いずれにせよ、きっちり、まんべんなく、くまなく測定することで「ただちに、健康に影響はない」と公言した「根拠」を数字で示す義務を負ってしまっている人々が存在していることにかわりなかろう。
そもそも、この公言は「どこの誰の健康」なのかが全く不明だった。
福島県内の60歳以上高齢者の健康なのか生後3ヶ月の赤ちゃんの健康なのか猫の健康なのか、福島|宮城|山形|栃木|茨城|群馬|長野|千葉|埼玉|東京|神奈川　居住者「全員」の健康なのか? はたまた！福島原発で働く人々の健康なのか?
そもそも、この公言は「ただちにではない」「3年5年後将来的にはどうなの?」といった疑問が排除されていた。
排除されて3ヶ月、裏付けとなるはずの測定を実施せず、風下にある住民たちに正確な値(狭いエリアでの)を告知しないまま、晩発性健康被害拡大を確信犯的に放置するならば、それは非人道的で法律にも反した犯罪的行為なのではなかろうか。

全国に54基存在する原発周辺住民の不安感は拭えていなにも関わらず、政府は現在停止中の原発を運転再開するよう自治体に要請した。
今後、巨大地震が発生した場合、たとえ原子炉が運転停止していたとしても、そこに保管されている「莫大な量の」人工毒物、放射性廃棄物が減る訳じゃない。それらが今後、地震や津波をきっかけに大気中に放出されるかもしれないであろうことは、いまや幼稚園児でも予測可能でしょう。
この絶望感は言葉を奪う。
全国54基原発周辺700キロ圏内「全ての公立小学校」で、放射線量および放射性物質の測定が実施され、常時告知され、常時緊急時に備えられるようになっていなければ、安全対策が施されたなどと言えないのでは?つまり、ほぼ日本全国の全ての公立小学校や公共施設において測定が必要なのでは?。

もともと自然界に「存在していない」人工の放射性「物質」に対する免疫性を人間は持っていない。
免疫性がないってことは、つまり、それらは人間や動物にとって毒物。
人間がこの毒物を「体内に」取り込んでしまった場合、この毒性を除去する医療技術は「ほぼ」ない。
だからこそ、下記のような法律が存在し管理区域における飲食や睡眠が禁じられ長時間の滞在が禁止されていたはずなのだと思う。

読んでいただいてありがとう。

--参照
http://ja.wikipedia.org/wiki/放射線管理区域
http://ja.wikipedia.org/wiki/原子力災害対策特別措置法

IAEA報告書(2006)抄訳: チェルノブイリ原発事故による環境への影響とその修復 - ニューメリカルテクノロジーズ株式会社

 4. TokyoHotspot - RadioisotopeWeb

Nucler Safety Research Group

PDF:2006.8.11　プルトニウムという放射能とその被曝の特徴（2006年7月15日)
http://www.rri.kyoto-u.ac.jp/NSRG/kouen/Pu-risk.pdf

PDF:低レベル被ばく影響に関する最近の報告より　　今中　哲二
http://www.rri.kyoto-u.ac.jp/NSRG/seminar/No106/imanaka090306.pdf

小出裕章 (京大助教) 非公式まと

 「さらに7万人が避難すべき」、仏IRSNが福島原発事故の評価を更新　国際ニュース : AFPBB News

Japan Admits 3 Nuclear Meltdowns, More Radiation Leaked into Sea; U.S. Nuclear Waste Poses Deadly Risks

原発の安全性、確認なら再稼働　首相が経産相支持：日本経済新聞

 福井知事、原発再稼働に慎重　「安全対策要請に答えを」：日本経済新聞

 泉田新潟県知事は「論評に値しない」と批判：日本経済新聞

# Weather Japan | Cloud spread Fukushima I power plant radiation
# http://www.weatheronline.co.uk/weather/news/fukushima?LANG=en&VAR=zamg

--書籍
E＝mc２ | デイヴィッド・ボダニス | 早川書房 | 978-4-15-050371-0

MacVim in Dock

2011-06-22T10:59:00.003+09:00

Google ChromeをAppleScriptで操作する - DiaryException
こちらを拝見し

nnoremap u2 <ESC>:<C-u>read !osascript -e 'tell application "Google Chrome" to get copy selection of active tab of window 1' ; pbpaste

を .vimrc に記入したところ、とっても便利になりました。(MacOS X の /usr/bin/vim ver 7.2.108)
# Chrome で閲覧している Webpage 中の文字列を選択し、vim 側で <ESC> u2 すると選択した文字列がコピペされる。

ところが Application MacVim version 7.3 (code.google.com/p/macvim/) で試したみたら文字化けされてペーストされてしまった。

$ man pbpaste

をみてもわからないので...

nnoremap u2  <ESC>:<C-u>read !osascript -e ' tell application "Google Chrome" to (get copy selection of active tab of window 1)' -e 'the clipboard'

/usr/bin/pbpaste　の代わりに StandardEdition の the clipboard を使ってみたら文字化けがなおった。
/usr/bin/vim からもOK。と思ったのもつかのま、今度は改行がおかしくなった。改行が<0d><0d>になっている様子。

# 翌日。
どうにもお手上げなので、元の(pbpaste使用) nnoremap に戻して再度 MacVim から試すと、なんと!文字化けしないし改行もおかしくない。なんの問題もない。
この間、スリープはしたけどログアウトはしていない。
~/.MacOSX/environment.plist , ~/.inputrc は配置していない。.bashrc , .gvimrc は変更していないし .vimrc は件の nnoremap 行以外の行を触っていない。一体なんだったんだろう...。

# さらに後日。
MacVim 付属の mvim 使ってファイルを開いたり、Dock にある MacVim アイコンをクリックし ⌘+O でファイルを開いたり...両方使ってたかも?と気づいてハッとした。
Dock にある MacVim アイコンをクリックし MacVim 起動。 Chrome で文字列を選択しu2 すると、文字化けがみごと再現した。
ターミナルから mvim または /usr/bin/vim 使った場合。 No problem .

一般ユーザーも7月には自分のマシンにインストールできるようになる。価格は$29で、Mac App Storeからのみ購入できる。

Ferericchiはフルスクリーン・アプリ、マルチタッチ、Airdropなどの機能を紹介した。

引用元: Mac OS X Lionの新機能トップ10
http://jp.techcrunch.com/archives/20110606top-10-new-mac-ox-lion-desktop-features/

つまり、件のワンライナーは、ターミナルから mvim を通して MacVim を起動した場合と、/usr/bin/vim で使う場合においては全く問題なし。
ドックにおいたMacVimアイコンをクリックし起動した場合は問題あり、のようだ。
# ちなみに:set fileencoding? を実行すると「いずれの場合」も
# =>
# fileencoding=utf-8
# になっている。

また、ターミナルから

% open -a MacVim testest.txt

した場合も問題なかった。

# さらにさらに後日。
% cat testing.rb

#!/usr/bin/ruby
path = ARGV[0]
exit unless File.exist?(path)
system("/usr/bin/osascript -e 'Tell application \"MacVim\" to open (POSIX file \"#{path}\") as string' -e 'return'")

% ruby testing.rb 001.txt
によって開いたファイルで u2 してみると...問題なかった。

感想。
# Dock から MacVim 起動してはいけないのだろうか?

hash.merge

2011-03-09T00:05:00.001+09:00

Hash の merge

2つのハッシュに同じkey が存在した場合...
merge 元の値は nil じゃない。
merge 対象の値は nil。
これらを merge すると nil ではない merge 元の値は保持されたままになるのだっけ？
なーんて一瞬でも思ったのは大間違いだった。

% irb
>> a = {:a=>'a', :b=>'b'}
=> {:b=>"b", :a=>"a"}
>> b = {:a=>nil, :b=>'c'}
=> {:b=>"c", :a=>nil}
>> a.merge(b)
=> {:a=>nil, :b=>"c"}

nil であろうときっちり上書きされて nil になる。
上書きされたくなければ同じ key を持たない。...というかマージしない...?

about xblogger

2011-03-07T18:44:00.001+09:00

xblogger について。

ターミナル(/Applications/Utilities/Terminal.app/) から
gdata-ruby-util
を使って Blogger に記事をポスト| ゲット | 削除 | アップデートする為のものです。

Mac OS X 上で作りました。使用する Ruby は 10.6 に搭載されているRuby 1.8.7 (/usr/bin/ruby) です。
# Ruby 1.9.2 用は mblogger

『はじめに』

xblogger は utf-8 で保存されたテキストファイルで特定の書式に則ったものだけを対象にしています。ものすごく端折って言うと
--control, --category, --title, --content
が明記されたファイルに記事内容を記入する必要があります。サンプルは xblogger/draft.txt です。

--------------------
0) 準備ー設定
--------------------

gdata-ruby-util からgdata-ruby-util をダウンロードし
xblogger/xblogger-config と xblogger/bin/run.rb を編集してください。

% cd /pathto/download/
% gem unpack gdata-1.1.1.gem
%
% cd xblogger
% vim xblogger-config
% vim bin/run.rb
% chmod +x bin/run.rb

gem を使用したい場合は
% gem install gdata
などして gdata に含まれている README を参照の上 bin/run.rb を書き換えてください。私はこの方法を試していません。

自分の BlogID が不明な場合は下記を試してください。
最初に自分の Blogger Profile Page をみにいきます。その URL に含まれている数字が仮に XXXXX だったとします。

% cd xblogger/bin
% ruby get-blogid.rb XXXXX

を実行。

# xblogger-config の xname は任意の文字列を記入してくださいです。アンダーバーやハイフンは含めない方がよいかもしれません。

--------------------
1) 確認ー投稿前
--------------------

# --doc
# 記事を投稿する前にリクエスト対象となる XML Document を確認します。

サンプル xblogger/draft.txt を test.txt にコピーし編集し保存します。

% cd xblogger
% cp draft.txt test.txt
% vim test.txt
% cat test.txt
--control
yes
--category
test,blogger
--title
TestTitle
--content
test post.
second line.

test.txt を指定。

% cd xblogger/bin
% ./run.rb  --doc ../test.txt
CONTROL: yes
TITLE: TestTitle
CATEGORY: test,blogger
# =====
<entry xmlns='http://www.w3.org/2005/Atom'><title type='text'>TestTitle</title><content type='xhtml'><div xmlns='http://www.w3.org/1999/xhtml'><p>test post.<br/>second line.</p></div></content><app:control xmlns:app='http://www.w3.org/2007/app'><app:draft>yes</app:draft></app:control><category term='test' scheme='http://www.blogger.com/atom/ns#'/><category term='blogger' scheme='http://www.blogger.com/atom/ns#'/></entry>

問題があればエラーになりますがエラーとして認識されない場合もあります。

--------------------
2) 投稿（ポスト）
--------------------

# --post
# Blogger へ記事を投稿します。

さきほどのtest.txt を指定し投稿します。

% ./run.rb  --post ../test.txt
CONTROL: yes
TITLE: TestTitle
CATEGORY: test,blogger
# =====
Post Entry
OK? [y/n]

と尋ねられます。n を選択すると何事もなく終了します。y を選択すると記事を投稿します。投稿に成功すると success message が返ってきます。

この時ファイル test.txt の --control 値が yes になっていたら下書きの記事として投稿します。記事は公開されません。

--control
yes

yes 以外の文字列になっている場合は公開記事として投稿します。記事は公開されます。

--control
ok

記事文章内にリンクを張りたい時は、

--content
あいうえお <a href='http://github.com'>github.com</a> かきくけこ。

のように記入しておくとハイパーリンクになります。html そのままです。
引用の場合は <blockquote>改行+引用文+改行</blockquote>
コードの場合は <pre>改行+コード+改行</pre> で囲むようにしてください。

詳細は % cat xblogger/draft.txt で確認してください。

--------------------
3) 確認ー投稿後
--------------------

# 記事投稿に成功した場合結果ファイルを自動生成します。
# 下書であろうとなかろうと。

xblogger/bin/run.rb は記事を投稿した場合に限って指定したディレクトリに一意のファイルを生成します。
指定したディレクトリとは、xblogger/xblogger-config に自分で入力した任意のパス。
例えば、~/data ディレクトリを指定していた場合、2011/01/01 に投稿した記事は

~/data/2011-01/2011-01-01T00-00-00-xxxxxx.txt

に保存されます。xxxxxx はBlogger が与えた一意の番号です。

生成されたファイルには、Blogger から受け取った情報が保存されています。具体的には edit_id, published date, updated date, url です。
ただし --control によって"下書き"として投稿した場合は --url はありません。

例

% cat ~/data/2011-01/2011-01-01T00-00-00-xxxxxx.txt
--edit_id
xxxxxxxxxx
--published
2011-01-01T00:00:00.001+09:00
--updated
2011-01-01T00:00:00.001+09:00
--date
2011/01/01 Sat AM 00:00:00
--control
ok
--category
test
--title
test
--url
http://midorex.blogspot.com/2011/01/test.html
--content
...略

--------------------
4) 削除
--------------------

# --del, --delete
# Blogger へ投稿した記事を削除します。
# 下書きとして投稿した記事を指定することもできます。

自動生成されたファイルの path を指定したい場合

% run.rb --delete path

edit_id を指定したい場合

% run.rb --del xxxxxxx

--------------------
5) アップデート
--------------------

# --update
# 既に投稿した記事内容を修正します。

自動生成されたファイルの中から修正したい投稿ファイルを編集しファイルを保存します。
保存したファイルのパスを指定します。

% run.rb --update ~/data/2011-01/2011-01-01T00-00-00-xxxxxx.txt

[y/n] を尋ねられます。y を選択するとアップデートを実行します。完了すると success message を表示します。

run.rb --update は指定したファイル内容を読み込みます。この時ファイルに保存されているはずの --edit_id が空欄だったり間違った番号(Blogger が管理していないような番号)であった場合アップデートは成功しません。また、--title --category --content の内容は修正できますがひとたび付与された --url などは変更できません。

余談ですが...
Blogger 記事の URL は
記事タイトルに日本語の文字列が含まれていた場合、その月内で何番目の記事かが考慮された URL となり、日本語が含まれていない場合はスペース等を別の文字に置換した文字列が URLに反映されているようです。

--------------------
6) 記事取得
--------------------

# --get
# 月内に投稿された全ての記事のタイトル, 日付, URL, Category, edit_id などを返します。

--get の後になにもなければ現在の年月を指定したことになります。

% ./run.rb --get

2011年2月を指定したい場合。month は 2桁で指定する必要があります。

% ./run.rb --get 2011-02

--------------------
7) HELP
--------------------

% ./run.rb --h

Customized template.xml

2011-02-23T19:49:00.001+09:00

Blogger template.xml (css) をカスタマイズした際の memo。

1)

.body-fauxcolumn-outer .cap-top {
  position: absolute;
  z-index: 1;
  /* Default */
  /* height: 400px;*/
  height: 5px;
  width: 100%;
  background: $(body.background);
  $(body.background.override)
}

最上部フレーム高さとか。

#navbar-iframe {
...

を追加しないで変更した場合どうなるかは試していない。

2)

.content-inner {
  /* Default */
  /* padding: $(content.padding) $(content.padding.horizontal); */
  padding: 0px 20px;
}

content はブログタイトル, description, 全ての投稿を包括する大枠。

3)

.header-inner .Header .titlewrapper {
  /* Default */
  /* padding: 22px $(header.padding); */
  padding: 5px $(header.padding);
}

ブログタイトル余白。

4)

.main-inner {
  /* Default
  padding-top: $(main.padding.top);
  padding-bottom: $(main.padding.bottom);
  */
  padding-top: 0px;
  padding-bottom: $(main.padding.bottom);
}

main は全投稿記事を包括するパート。(記事フッタ、日付、タイトル含む)
上部余白を減らすとブログタイトルと記事全体の間が狭くなる。

5)

.post-header {
  margin: 0 0 1.5em;
  line-height: 1.6;
  font-size: 90%;
  /* add */
  border-bottom: 1px solid #6ea1bb;
}

投稿タイトルと投稿記事の間の余白。
padding-top: 20px; などの確認を要した。

6)
mobile のあと。
p, pre-code, blockquote 部分。

/*
----------------------------------------------- */

#navbar-iframe {
  height:0px;
  visibility:hidden;
  display:none
}

/* p tag
----------------------------------------------- */
.post-body p {
  margin: 0px;
  padding: 0px;
  font-size: 10.2pt;
  line-height: 1.6em;
  letter-spacing: 2px;
}

/* pre code
----------------------------------------------- */
.post-body pre {
  margin: 7px 0 7px 0px;
  padding: 7px 0 7px 7px;
  color: #6666B3;
  overflow: auto;
  border-bottom: 1px solid #eeeeee;
  border-left: 1px solid #eeeeee;
  background-color: #FCFFFD;
}
.post-body code {
  margin: 0em;
  padding: 0em;
  font-family: Menlo, Monaco, Monospace;
  font-size: 8.7pt;
  line-height: 1.7em;
  letter-spacing: 1.5px;
}

/* brockquote
----------------------------------------------- */
.post-body blockquote {
  margin: 5px 0px 5px 5px;
  padding: 0.8em 0.5em 0.5em 0.8em;
  color: #555;
  background-color: #FBFDFF;
  border-top: 1px solid #dddddd;
  border-right: 1px solid #dddddd;
  border-bottom: 1px solid #dddddd;
  border-left: 1px solid #dddddd;
}
.post-body blockquote p {
  margin: 0px;
  padding: 0px;
  font-family: Optima, Georgia, sans-serif;
  font-size: 9pt;
  line-height: 1.4em;
  letter-spacing: 2px;
  font-style: italic;
}

カラー参照
http://www.w3schools.com/css/css_colornames.asp

UTF8-MAC and Encoding.list

2011-02-16T21:57:00.001+09:00

OSXでのファイル名比較
 OSXのファイル名について教えてもらったこと

を拝見しとっても興味深かったので私も試してみました。

% touch るびー
% mkdir が
% ls -F
test.rb       が/         るびー
% cat -n test.rb
  1 # coding: utf-8
  2
  3 Dir.entries('.').each do |d|
  4   next if d =~ /^\.|rb$/
  5   printf("name=%s, size=%d, encoding=%s\n", d, d.size, d.encoding)
  6   d = d.encode('utf-8', Encoding::UTF8_MAC)
  7   printf("name=%s, size=%d, encoding=%s\n", d, d.size, d.encoding)
  8 end

結果

% ruby192old -v test.rb
ruby 1.9.2p0 (2010-08-18 revision 29036) [x86_64-darwin10.4.0]
name=が, size=2, encoding=UTF-8
test.rb:6:in `block in <main>': uninitialized constant Encoding::UTF8_MAC (NameError)
  from test.rb:3:in `each'
  from test.rb:3:in `<main>'
%
% ruby192 -v test.rb
ruby 1.9.2p136 (2010-12-25 revision 30365) [x86_64-darwin10.6.0]
name=が, size=2, encoding=UTF-8
name=が, size=1, encoding=UTF-8
name=るびー, size=4, encoding=UTF-8
name=るびー, size=3, encoding=UTF-8

1.9.2p136 で動きました。

1.9.2p0 で動かないことも気になるので Encoding.list をみてみます。

% ruby192old -ve "p Encoding.list"
ruby 1.9.2p0 (2010-08-18 revision 29036) [x86_64-darwin10.4.0]
[#<Encoding:ASCII-8BIT>, #<Encoding:UTF-8>, #<Encoding:US-ASCII>]

あれ？なんか少ないような気が...。

% ruby192 -ve "p Encoding.list"
ruby 1.9.2p136 (2010-12-25 revision 30365) [x86_64-darwin10.6.0]
[#<Encoding:ASCII-8BIT>, #<Encoding:UTF-8>, #<Encoding:US-ASCII>, #<Encoding:Big5>, #<Encoding:Big5-HKSCS>, #<Encoding:Big5-UAO>, #<Encoding:CP949>, 

...たくさんあるので以下省略

1.9.2p136 (2010-12-25 revision 30365) の Encoding.list は
1.9.2p0 (2010-08-18 revision 29036)
のそれとは全然違うようです...。

Encoding.list からutf だけをgrep

% cat -n test.rb
  1 # coding: utf-8
  2
  3 a = Encoding.list
  4 p a.map{|x| x.to_s}.grep(/utf/i)

# なぜ map して to_s しているかというと...配列に対して grep かけるにはその配列の要素が String クラスでないとうまくいかない。
# けれどEncoding.list が返した配列、を構成する要素のクラスは Encoding クラスなので String クラスに変える必要があるから。

結果

% ruby192old test.rb
["UTF-8"]

% ruby192 test.rb
["UTF-8", "UTF-16BE", "UTF-16LE", "UTF-32BE", "UTF-32LE", "UTF-7", "UTF8-MAC", "UTF8-DoCoMo", "UTF8-KDDI", "UTF8-SoftBank"]

ruby 1.9.2p136 (2010-12-25 revision 30365) にはいろんな種類の UTF があるけど、
UTF8-MAC は ruby 1.9.2p0 (2010-08-18 revision 29036) にはない?! 。

今度は encode の逆の指定。

  1 # coding: utf-8
  2
  3 str = "が"
  4 p str.size
  5 p str.encode('UTF8-MAC', 'utf-8').size

結果

% ruby192 test.rb
1
2

"が" をutf-8 から UTF8-MAC に変えてみるとsize 1から2に変化しました。

ちょっと rurema で再確認。

% rurema String#encode
...
self を指定したエンコーディングに変換した文字列を作成して返します。引数
を2つ与えた場合、第二引数は変換元のエンコーディングを意味します。さもな
くば self のエンコーディングが使われます
...

最後に iTunes Music Folder の中を検索テスト。
先ずは encode 変換しないでそのまま検索。

% cat -n test.rb
  1 # coding: utf-8
  2 # いかにもそれらしきもの(濁音などを含む)を選んでおく
  3 ary = ["東京スカパラダイスオーケストラ", "Yael Naim", "Yael Naïm"]
  4 dir = '/path/to/itunes/music/'
  5
  6 a = Dir.entries(dir)
  7 a.each{|x|
  8   p x if ary.index(x)
 11 }

結果

% ruby192 test.rb
"Yael Naim"

濁音を含む"東京スカパラダイスオーケストラ" と特別な文字を含む "Yael Naïm" これら2つの folder は存在しているのにヒットしない。

下記に書き換え。

  6 a = Dir.entries(dir)
  7 a.each{|x|
  8   # p x if ary.index(x)
  9   u = x.encode('utf-8', 'UTF8-MAC')
 10   p x if ary.index(u)
 11 }

結果

% ruby192 -v test.rb
ruby 1.9.2p136 (2010-12-25 revision 30365) [x86_64-darwin10.6.0]
"Yael Naim"
"Yael Naïm"
"東京スカパラダイスオーケストラ"

期待どおりにヒットしました!

さらに ascii_only な文字を encode しなくてすむようにこんな風にしてみても

  6 a = Dir.entries(dir)
  7 a.each{|x|
  8   (x.ascii_only?) ? u = x : u = x.encode('utf-8', 'UTF8-MAC')
  9   p x if ary.index(u)
 10 }

同じ結果を得ることができましたー。

[関連記事]
<http://midorex.blogspot.com/2010/02/utf8-mac.html>
<http://midorex.blogspot.com/2010/02/utf8-mac-2.html>

vim noplugins

2011-02-16T20:07:00.001+09:00

半年以上前だしメモを残さなかったので素晴らしく参考になったsiteが正確にはどこだったか分からなくなってしまった。

確かなことは...
kaoriya 様の日本語ヘルプドキュメントと
github.com に公開されていた達人の方々の .vimrc と
Google にて vim noplugins や vim shebang
とか検索した結果のいくつかのサイト

などを参考にさせていただきました。

" --------------------

/usr/bin/vim (OS X に最初から入ってるvim) を起動する際、自動的にロードされてしまう標準プラグインを "ロードしない" ようにした上で実現したいこと...大きくわけて2つ。

mission 1 :)

% vim aaa.rb で新しいファイルを作ると

#!/usr/bin/ruby
# coding: utf-8

この2行が予め記入され、入力するとインデントかかり、class とか def とかそういった文字に色がつく。

インデントかかるっていうのは例えば...

def a [return-key] if [return-key] end

とキーボードを打つと自動的に

  4 def a
  5   if
  6   end

になったり

begin [return-key] a [return-key] rescue

とキーボードをたたくと自動的に

  5 begin
  6   a
  7 rescue

こうなるっ。

mission 2 :)

% vim aaa.txt で開いたテキストファイルを編集する際
# を入力すると以降の文字列（改行まで）は青色になり
-- で始まる行はシアン色?に。
http や https で始まる行もシアンに。
行中にある <http://...> や <https://...> もシアンになるっ。

% cat test.vimrc

set nocompatible
set number
set backspace=indent,eol,start

" -------------------- Status
set laststatus=2
set statusline=%n\:%y%F\ \|%{(&fenc!=''?&fenc:&enc).'\|'.&ff.'\|'}%m%r%=<%-10(%3l,%02c%03V%)>

" -------------------- HighLight
highlight StatusLine term=NONE cterm=NONE ctermfg=gray ctermbg=darkcyan
highlight IncSearch ctermfg=gray ctermbg=cyan
highlight Search ctermfg=yellow ctermbg=darkcyan

highlight LineNr ctermfg=lightcyan ctermbg=NONE
highlight Visual term=NONE cterm=NONE ctermfg=NONE ctermbg=gray
highlight ModeMsg ctermfg=lightcyan ctermbg=NONE

" -------------------- tab
set shiftwidth=2
set tabstop=2
set expandtab
set ts=2 sw=2 expandtab

" -------------------- Plugins
" :help noloadplugins
set noloadplugins

" :help :filetype-off, :filetype-overview
filetype off

" :help :filetype-plugin-off
filetype plugin off

" :help :filetype-indent-on
filetype indent on

" /usr/share/vim/vim72/syntax/syntax.vim
syntax enable
" syntax on

" debag
" set verbose=9
autocmd! filetypedetect
" autocmd! BufWrite

if has("autocmd")
  "echo 'Hello!01'
  augroup MyVim
      autocmd!
      autocmd BufRead,BufNewFile *.txt           setlocal filetype=txt
      autocmd BufRead,BufNewFile *.rb            setlocal filetype=ruby
      autocmd BufRead,BufNewFile *.vimrc         setlocal filetype=vim
      "autocmd BufRead,BufNewFile *.vim           setlocal filetype=vim
      "autocmd BufRead,BufNewFile *.py            setlocal filetype=python
      "autocmd BufRead,BufNewFile *.sh            setlocal filetype=sh
      "autocmd BufRead,BufNewFile *.html          setlocal filetype=html
      autocmd FileType txt  syn match Comment /\#.*/
  augroup content
    autocmd!
    autocmd BufNewFile *.rb
          \ 0put = '#!/usr/bin/ruby'    |
          \ 1put = '# coding: utf-8'   |
    autocmd FileType txt
          \ :highlight MyGroup ctermfg=darkcyan ctermbg=NONE  |
          \ :match MyGroup /^\--.*\|<http.*>\|^http.*/        |
"    autocmd BufNewFile *.py
"        \ 0put = '#!/usr/bin/python'       |
"        \ 1put = '#-*- coding: utf-8 -*-'  |
"        \ $put = '' |
"        \ $put = '' |
  augroup END
endif

" -------------------- Last
" http://github.com/kana/config/
set secure  " must be written at the last.  see :help 'secure'.

テストファイルを指定して vim 起動

vim -i "NONE" -u test.vimrc aaa.rb

vim のコマンド結果

:filetype
# =>
filetype detection:ON  plugin:OFF  indent:ON

:autocmd
# =>
--- Auto-Commands ---
MyVim  BufNewFile
    *.txt     setlocal filetype=txt
    *.rb      setlocal filetype=ruby
    *.vimrc   setlocal filetype=vim
content  BufNewFile
    *.rb      0put = '#!/usr/bin/ruby'      | 1put = '# coding\: utf-8'     |
MyVim  BufRead
    *.txt     setlocal filetype=txt
    *.rb      setlocal filetype=ruby
    *.vimrc   setlocal filetype=vim
filetypeindent  FileType
    *         call s:LoadIndent()
syntaxset  FileType
    *         exe "set syntax=" . expand("<amatch>")
MyVim  FileType
    txt       syn match Comment /\#.*/
content  FileType
    txt       :highlight MyGroup ctermfg=darkcyan ctermbg=NONE  | :match MyGroup /^\--.*\|<http.*>\|^http.*/        |
Syntax
    *         call s:SynSet()
    cpp       if (exists('b:load_doxygen_syntax') && b:load_doxygen_syntax)^I|| (exists('g:load_doxygen_syntax') && g:load_doxygen_syntax)   | runtime! syntax/doxygen
.vim | endif
    c         if (exists('b:load_doxygen_syntax') && b:load_doxygen_syntax)^I|| (exists('g:load_doxygen_syntax') && g:load_doxygen_syntax)   | runtime! syntax/doxygen
.vim | endif
    idl       if (exists('b:load_doxygen_syntax') && b:load_doxygen_syntax)^I|| (exists('g:load_doxygen_syntax') && g:load_doxygen_syntax)   | runtime! syntax/doxygen
.vim | endif
Press ENTER or type command to continue

# 現在の vim バージョン(OS X 10.6.6)
% vim --version
VIM - Vi IMproved 7.2 (2008 Aug 9, compiled Aug 10 2010 22:09:22)
...

[memo]
python のインデントはこのままだとうまくいかない。

[2011-02-19]
'# coding\: utf-8'
になってた。
'# coding: utf-8'
に修正

doc-support-HT3200

2010-10-27T12:08:00.001+09:00

Mac OS X v10.6 Snow Leopard 以降搭載の Macintosh コンピュータで「消去してからインストール」する方法

5, Mac OS X インストール DVD を選択し、その下の矢印をクリックして、インストール DVD からシステムを起動します。
6, Mac OS X Leopard インストーラ画面が表示されたら、「続ける」をクリックします。

ここのstep 5,6 の間、もしくは
step 6から step 11(第 1 段階)の間のどこかでAirMac電源をオフにすべきステップがあるべきなのでは？ははん？
と思った。
# DVDから起動したマシン、そこにOSをインストールする場合。== ネットワークを介してターゲットマシンにインストールするんじゃない場合。

なぜなら
OS をインストールしている間ずっとAirMac電源が入っていて周囲をサーチし続ける必要はあるんだろうか？=> ないだろ
と思うから。

アップル公式ドキュメントにおいてこの件については全く触れられていない。
おそらくそんなこと気にするなってことなんでしょう。
でも少し気になる。
私は今後も自ら手動でメニューバーのAirMacアイコンをクリックし電源をオフにしてからインストールすることだろう。

Install MacRuby

2010-10-27T01:15:00.005+09:00

http://www.macruby.org/

から MacRubyをダウンロードして遊んでみた。

% macruby -v
MacRuby 0.7.1 (ruby 1.9.2) [universal-darwin10.0, x86_64]

サンプルをデスクトップにコピー。

% cp /Developer/Examples/Ruby/MacRuby/Scripts/hello_world.rb ~/Desktop/sample_hello_world.rb

このサンプルと

http://macruby.labs.oreilly.com/ch01.html

に掲載されてる hello_world.rb を見比べつつクラスを作ってみた。

framework 'AppKit'

module Hello3
  module MyWindow
    def window(ary, title, obj)
      @w = NSWindow.alloc.initWithContentRect(ary,
        styleMask:NSTitledWindowMask|NSClosableWindowMask|NSMiniaturizableWindowMask|NSResizableWindowMask,
        backing:NSBackingStoreBuffered,
        defer:false)
      @w.level = 3
      @w.title = title
      @w.delegate = obj
      return @w
    end
  end
  class MyButton
    attr_reader :b
    def initialize(ary, title, obj)
      @b = NSButton.alloc.initWithFrame(ary)
      @b.title = title
      @b.bezelStyle = 4
      @b.target = obj
    end
  end
  class Myapp
    include MyWindow
    attr_reader :app
    def initialize
      @app = NSApplication.sharedApplication
      @app.delegate = self
    end
    def windowWillClose(notification)
      puts "Bye!"
      exit
    end
    def sayHello(sender)
      puts "Hello again, World!"
    end
    def sayBye(sender)
      puts "bye"
      exit
    end
    def setup
      # button
      b1 = MyButton.new([150, 30, 100, 50], "Hello World!", @app.delegate).b
      b1.action = 'sayHello:'
      b2 = MyButton.new([30, 30, 100, 50], "Stop", @app.delegate).b
      b2.action = 'sayBye:'
      # window
      w = window([200, 300, 300, 100], "HelloWorld.app", @app.delegate)
      w.contentView.addSubview(b1)
      w.contentView.addSubview(b2)
      # display
      w.display
      w.orderFrontRegardless
      return @app
    end
  end
  def self.run
    Myapp.new.setup.run
  end
end
Hello3.run

実行

% macruby hello3.rb

Interface Builder.app 起動しなくてすむ。すごい！。快適。

[2010-10-28]

@b1, @b2, @w を b1, b2, w に修正。

全体主義

2010-10-14T21:32:00.001+09:00

『全体主義』 / エンツォ•トラヴェルソ / 平凡社新書 / 9784582855227
の感想。

P.22　

マックス•ヴェーバーが「合法的支配権」(legale Herrschaft)と定義したものの完全な否定に行きつく。言い換えれば＜犯罪国家＞の登場である。
だが、全体主義は、文明のパラダイムとは正反対の退行的非合理主義を、歴史の舞台に立たせたのではない。
それはむしろ、西洋近代のただなかを流れる＜反＝合理主義＞を展開し、その破壊力のすべてを悲劇的なかたちで露にしたのである。

当時のドイツは法治国家だった。選挙だってあったし、人々は今の私たちと同じように迷信ではない「歴史」を知りえた。
人権思想だってとうの昔に誕生していたのだし、地球がだいたい丸いことも人々は知ってた。はず。
けれども、あれよあれよという間に恐ろしい事態が人々を支配してしまった。
その坂を転げ落ちていくような悲惨な出来事に対し、ヴェーバーだけじゃない、カントやヘーゲルも何もかも、
それまでに培われたはずの「合理的」な人類の叡智などなんの役にも立たなかった。
そればかりか、むしろその「合理性」がアダになってしまった。

では、合理性をも利用する全体主義の正体とは何なのか？

P.101 からの引用

カール•ヤスパースは、全体主義を、共産主義やファシズムをはるかに超えた現象として、「どの体制よりも普遍的であり、人類の未来にのしかかる＜文明＞の脅威である」と述べている。

確かに全体主義は時代を超越してる。ようだ。
ある時代では奴隷制、またある時代では魔女狩りや宗教裁判、強制労働、大虐殺。
ある国ではいまだに！言論統制、一党独裁。
各地での焚書も全体主義的現象と呼べるし、日本でも長く続いた江戸時代を全体主義の時代として捉え直すことは十分可能だろう。
徳川による独占支配、五人組による相互監視制、士農工商エタ非人のピラミッド構造、踏み絵、人質を強要し謀反を抑圧する参勤交代...etc.
『一九八四年』は江戸時代の日本において既に実現してたってわけだ。

P.106

ベネデット•クローチェは、
...(略)
その結論に彼はこう書いた。...
決して忘れてはいけない。ギリシャ＝ローマにはじまる文明の凋落という以上に、さらに途方もなく重大な何かが起ることを。...
人類は、自然に対して、人間本性に対して巨大な罪を背負い、あらゆる腐敗の保管者たる思想自体を堕落させて死滅するだろう。

クローチェはいつか死滅するだろうと警告している。

ニ千年以上にわたって、世界各地で発生した(している)あらゆる人権侵害や大規模犯罪は、
封建制だとか植民地主義だとか帝国主義だとか資本主義だとか共産主義だとか
まるでてんでばらばらな呼び方に隠蔽され教えられる羽目に陥っているわけだけども、
結局、みえてくるものは、
その社会が全体主義的かどうか「だけ」なのかもしれない。極論だけど。
# どの程度、その社会が全体主義的か？それは測定できるようなものなのか？は、さておき
# 全体主義的現象に共通する特徴についてはこの本でも言及されてる。
思うに...
全体主義的現象の発生を許してしまう「共通必要条件」のようなものはあるのでしょうか。
また、時として、概念による制度的枠組みなど、特定の恣意が影響力を持ちうるような現実においては、無意味の烙印を押されるに等しくむなしく儚い。
といえなくもないのであれば、制度って何？

ところで、今、「正義について」考えたりディスカッションすることは有意義なのだろうけど、
合理性を善とする西洋哲学が全体主義に対して非力であったと同時に、結果的には理論加担させられた歴史を無視したまま、
あたかも絶対的善や絶対的正義が、独立して是とされるような倫理観が助長されるようであれば、あれば、
仮にだよ！あくまでも仮定として仮にそうであった場合(春樹的method)...
それは、いかに合理性が全体主義に利用できるかのロジックを図らずも暴露し、再正当化してしまう滑稽な議論にもなりかねないかも。
などと思った。

#『これからの「正義」の話をしよう』ISBN 9784152091314

instance_variable

2010-08-07T13:32:00.000+09:00

http://midorex.blogspot.com/2010/07/attraccessor.html
http://midorex.blogspot.com/2010/08/singletonclass.html
http://midorex.blogspot.com/2010/08/selfclass.html
これらに関連して...

class Test
  @x = 'x'
  class << self
    attr_accessor :x
  end
end

class Test1
  def initialize
    self.class.singleton_class.send(:attr_accessor, :x)
    self.class.x = 'x1'
  end
end

t, t1 = Test.new, Test1.new
puts "t = Test.new, t1 = Test1.new"
puts "t.class.x=> #{t.class.x}"
puts "t1.class.x=> #{t1.class.x}"
puts "t.class.instance_variables=> #{t.class.instance_variables}"
puts "t1.class.instance_variables=> #{t1.class.instance_variables}"

結果

t = Test.new, t1 = Test1.new
t.class.x=> x
t1.class.x=> x1
t.class.instance_variables=> [:@x]
t1.class.instance_variables=> [:@x]

以上をふまえて

class Test オブジェクトと
それを new したオブジェクトと
class Test の特異クラスになったオブジェクト
この３つのオブジェクトにそれぞれ @x と attr_accessor, :x を定義してみる練習

  4 class Test
  5   @x = 'x'
  6   class << self
  7     @x = 'singleton-xxx'
  8     attr_accessor :x
  9     self.class.send(:attr_reader, :x)
 10   end
 11   def initialize
 12     @x = 'ini-xyz'
 13   end
 14   attr_accessor :x
 15 end
 16
 17 t  = Test.new
 18 puts "t = Test.new"
 19 puts "t.x=> #{t.x}"
 20 puts "t.instance_variables=> #{t.instance_variables}"
 21 puts "--\n"
 22 puts "t.class.x=> #{t.class.x}"
 23 puts "t.class.instance_variables=> #{t.class.instance_variables}"
 24 puts "--\n"
 25 s = t.class.singleton_class
 26 puts "s = t.class.singleton_class"
 27 puts "s=> #{s}"
 28 puts "s.x =>#{s.x}"
 29 puts "s.instance_variables=> #{s.instance_variables}"

実行結果

t = Test.new
t.x=> ini-xyz
t.instance_variables=> [:@x]
--
t.class.x=> x
t.class.instance_variables=> [:@x]
--
s = t.class.singleton_class
s=> #<Class:Test>
s.x =>singleton-xxx
s.instance_variables=> [:@x]

line5 の @x を外から読めるようにしているのは
line8 attr_accessor :x

同様に
line7 の@x は
line9 の self.class.send(:attr_reader, :x)

line12 の@x は
line14 attr_reader :x

おもしろいことに

  4 class Test
  5   @x = 'x'
  6   class << self
  7     @x = 'singleton-xxx'
  8     attr_accessor :x
  9     # self.class.send(:attr_reader, :x)
 10   end
 11   def initialize
 12     @x = 'ini-xyz'
 13     self.class.class.send(:attr_accessor, :x)
 14   end
 15   attr_accessor :x
 16 end

line9 のかわりに line13 にしても同じ結果を得ることができた。

+++ memo +++

あたりまえだけども
class Test
attr_reader :x
def initialize
@x = 'ini-xyz'
end
end
t = Test.new
t.x
=>'ini-xyz'
こうすると class Test のインスタンスが定義したインスタンス変数に代入された値を得られる。

new した class Test のインスタンスではなくて、
class Test そのものや、class Test の特異クラスにも
それぞれインスタンス変数を定義できるしそれらのアクセサを定義できるということを
『プログラミングRuby1.9 言語編』(ISBN: 978-4-274-068096) P.351 から学ぶことができた。

# P.351 あたりをうろうろしたままぜんぜん先に進んでいない。それにしても暑い。

self.class

2010-08-07T07:44:00.000+09:00

<http://midorex.blogspot.com/2010/08/singletonclass.html> 前回からの続き

class Test
   def initialize(h)
     h.each{|k,v|
       self.class.send(:attr_accessor, k)
       self.send("#{k}=", v)
     }
  end
end

h={:cat=>'cat'}
t = Test.new(h)
t.cat = 'ddd'
p t

これを実行すると
#<Test:0x00000 @cat="ddd">
となる。でもでも :cat を attr_reader にしたかった場合はこのままだとうまくいかない。んで考えてみたこと。

まずは通常の書き方

class Test
  attr_reader :cat, :dog
  def initialize
    @cat = 'meow'
    @dog = 'bowwow'
  end
end

t = Test.new
p t.instance_variables
p t.class.instance_methods[0..2]
p t.cat
t.cat = "cat"

実行結果

[:@cat, :@dog]
[:cat, :dog, :nil?]
"meow"
./draft.rb:15:in `<main>': undefined method `cat=' for #<Test:0x00000 @cat="meow", @dog="bowwow"> (NoMethodError)

最後の行でcat に代入しようとしても attr_reader だから代入できないことを確認。

この結果と同じ結果を導きだすには？

class Test1
  def initialize(h)
    h.each{|k,v|
      self.class.send(:attr_reader, "#{k}")
      self.send("#{k}=", v)
    }
  end
end

h = {:cat=>'meow', :dog=>'bowwow'}
t = Test1.new(h)
p t.instance_variables
p t.class.instance_methods[0..2]
p t.cat
t.cat = "cat"

実行結果

... `block in initialize': undefined method `cat=' for #<Test1:0x00000> (NoMethodError)

self.send("#{k}=", v)　は attr_accessor の時は使えるけど attr_reader の時は使えない。
文字通り reader だから getter であって setter じゃないため instance 変数に"cat"を代入できないためにエラーがかえってきた。
ならば
self.send のかわりに普通に instance_variable_set を使ってみた。

class Test1
  def initialize(h)
    h.each{|k,v|
      instance_variable_set("@#{k}", v)
      self.class.send(:attr_reader, "#{k}")
    }
  end
end

h = {:cat=>'meow', :dog=>'bowwow'}
t = Test1.new(h)
p t.instance_variables
p t.class.instance_methods[0..2]
p t.cat
t.cat = "cat"

実行結果

[:@cat, :@dog]
[:cat, :dog, :nil?]
"meow"
./draft.rb:25:in `<main>': undefined method `cat=' for #<Test:0x00000 @cat="meow", @dog="bowwow"> (NoMethodError)

うまくいった。
instance_variable_set でインスタンス変数に値を代入しておいてその後に、getter を設定した。
self.class.send(:attr_reader, "#{k}")
を削除すると、[通常の書き方]から attr_reader を削除した場合と等しくなる。

# --------------------

次はインスタンス変数を定義しないし attr も必要ない場合。
定義したいのはinstance_method def cat と def dog だけ。

通常の書き方。

class Test
  def initialize
  end
  def cat
    "meow"
  end
  def dog
    "bowwow"
  end
end

t = Test.new
p t.instance_variables
p t.class.instance_methods[0..2]
p t.cat

実行結果

[]
[:cat, :dog, :nil?]
"meow"

上記と同じ結果を導くには？

class Test1
  def initialize(h)
    h.each{|k,v|
      self.class.send(:define_method, k){v}
    }
  end
end

h = {:cat=>'meow', :dog=>'bowwow'}
t = Test1.new(h)
p t.instance_variables
p t.class.instance_methods[0..2]
p t.cat

実行結果

[]
[:cat, :dog, :nil?]
"meow"

まとめ
1, getter setter をinitialize 内で使う
self.class.send(:attr_accessor, k)
self.class.send(:attr_reader, k)
self.class.send(:attr_writer, k)

2, @cat のようなインスタンス変数に値を代入する (k はシンボル)
instance_variable_set("@#{k}", v)
# setter が定義されていることが必要条件
self.send("#{k}=", v)

3, def cat のようなインスタンスメソッドを定義する
self.class.send(:define_method, k){v}

+++ 追記 +++

attr_accessor　は通常はクラス内の def initialize の上とか下に書く。
initialize の中には書かない。つか普通にエラーになる。
ということは、class Test のinstance が保有するメソッドじゃなくて
class Test が知っているメソッドだとわかるわけだけども
p Test.methods
とかやったって表示されない。じゃ一体どこにあるんだ？ということで下記を作ってみた。

  4 module My
  5   def self.search_method(x, key)
  6     ary = x.methods
  7     print "=== OBJECT:#{x} ===\n"
  8     ary.each{|m|
  9       next unless /methods/.match(m.to_s)
 10       next if m == :methods
 11       eval "a = x.send(m)
 12         if a.index(key)
 13           print \"[:#{key}] exist in #{m}\n\"
 14         else
 15           print \"# #{m}\n\"
 16         end"
 17     }
 18   end
 19 end
 20
 21 class Test
 22   def initialize
 23     My::search_method(self.class, :attr)
 24     # My::search_method(self, :nil?)
 25   end
 26 end
 27
 28 Test.new

# 実行結果

=== OBJECT:Test ===
# instance_methods
# public_instance_methods
# protected_instance_methods
# private_instance_methods
# singleton_methods
# protected_methods
[:attr] exist in private_methods
# public_methods

クラスの「private_methods」に属していることがわかった。
結局...
self.class.send(:attr_accessor, k)
self.send("#{k}=", v)

こういう方法でインスタンス変数を定義するってことは、親の遺伝子を子供が外側から操作しているように思えてきてよくないような気もしてきた。

singleton_class

2010-08-01T11:19:00.000+09:00

昨日のその後

% ruby192 -v
ruby 1.9.2dev (2010-07-11 revision 28618) [x86_64-darwin10.4.0]

module My
  def self.detail(s)
    p s
    puts "ParentName: #{s.class.name}"
    puts "Object_id: #{s.object_id}"
    puts "Methods 1to5: #{s.methods[0..4]}"
    begin
      puts "Method_define? Hello: #{s.class.method_defined?(:hello)}"
      puts "Class.Ancestors: #{s.ancestors}"
      puts "Superclass: #{s.superclass}"
      puts "Singleton_class #{s.singleton_class}"
      puts "Singleton_class #{s.singleton_class.object_id}"
    rescue
    end
    puts "\n"
  end
end
class Test1
  @@top = self
  puts "# -- main of class Test1 --"
  My::detail(self)
  class << self
    @@top_self = self
    puts "# -- class << self of class Test1 --"
    My::detail(self)
  end
  def initialize
    puts "# -- def initialize of class Test1 --"
    My::detail(self)
    puts "="*10
    puts "# TEST: @@top.singleton_class.equal?(@@top_self)"
    p @@top.singleton_class.equal?(@@top_self)
    puts "#"*5
    puts "self.class:: #{own1 = self.class}"
    puts "self.class.singleton_class::  #{own2 = self.class.singleton_class}"
    puts "# TEST: @@top.equal?(self.class)"
    p @@top.equal?(own1)
    puts "# TEST: @@top_self.equal?(self.class.singleton_class)"
    p @@top_self.equal?(own2)
  end
  def hello
    return self
  end
end
t = Test1.new.hello

実行結果

# -- main of class Test1 --
Test1
ParentName: Class
Object_id: 2151885720
Methods 1to5: [:allocate, :new, :superclass, :freeze, :===]
Method_define? Hello: false
Class.Ancestors: [Test1, Object, Kernel, BasicObject]
Superclass: Object
Singleton_class #<Class:Test1>
Singleton_class 2151885700

# -- class << self of class Test1 --
#<Class:Test1>
ParentName: Class
Object_id: 2151885700
Methods 1to5: [:nesting, :constants, :allocate, :new, :superclass]
Method_define? Hello: false
Class.Ancestors: [Class, Module, Object, Kernel, BasicObject]
Superclass: #<Class:Object>
Singleton_class #<Class:#<Class:Test1>>
Singleton_class 2151884980

# -- def initialize of class Test1 --
#<Test1:0x00000100864970>
ParentName: Test1
Object_id: 2151883960
Methods 1to5: [:hello, :nil?, :===, :=~, :!~]
Method_define? Hello: true

==========
# TEST: @@top.singleton_class.equal?(@@top_self)
true
#####
self.class:: Test1
self.class.singleton_class::  #<Class:Test1>
# TEST: @@top.equal?(self.class)
true
# TEST: @@top_self.equal?(self.class.singleton_class)
true

# TEST: @@top.singleton_class.equal?(@@top_self)
は一体何をやっているのか？

Test1　直下における self が .singleton_class メソッドを呼び出すと
#<Class:Test1>
が得られる。
その #<Class:Test1>　は、class << self　した self 自身と同等のオブジェクトだろうか？
これを確かめたかった。

結果は ture だった
実際

# -- main of class Test1 --
...略

Singleton_class #<Class:Test1>
Singleton_class 2151885700

# -- class << self of class Test1 --
#<Class:Test1>
ParentName: Class
Object_id: 2151885700

同じobject_id をさしている。

一方
initialize　の中から呼び出した
self.class と
self.class.singleton_class
に関しても　同様に true がかえってきた。

# TEST: @@top.equal?(self.class)
true
# TEST: @@top_self.equal?(self.class.singleton_class)
true

# TEST: detail(self.class) in initialize　もこの(true)結果を裏付けた。

own1 に代入された self.class はTest1 である。
それは class Test1　直下の self と同等。その証拠に同じobject_id を指している。
own2 に代入された self.class.singleton_class は、#<Class:Test1>である。
それは class << self 内の self と同等。同じobject_id を指している。

あらためて...
Test1.new して出来上がったオブジェクトは、class Test1 自身のインスタンスだってことを思い知らされた。
class Test1　直下のself と、Test1.new されインスタンスとして登場した self とはそれぞれ異なるオブジェクト。
その証拠に異なる object_id を持つ。

class Test1
class << self
end
end

この時点で２つのオブジェクト(Test1 と　#<Class:Test1>)にアクセスできる準備ができており
Test1.new することでインスタンスが生成されて３つめのオブジェクトができあがる、と。

attr_accessor

2010-07-31T00:00:00.001+09:00

『プログラミングRuby1.9 言語編』(ISBN: 978-4-274-068096) を読みながら試してみたこと
# P.351 にクラスレベルのアクセサを定義する方法と解説がありました。

class Test
@var = 99
class << self
attr_accessor :var
end
end

puts "Original value = #{Test.var}"
Test.var = "cat"
puts "New value = #{Test.var}"

# 実行結果

Original value = 99
New value = cat

# 少し書き換えself を表示してみると

class Test
  p self
  @var = 99
  class << self
    p self
    attr_accessor :var
  end
end

# 実行結果

Test
#<Class:Test>
Original value = 99
New value = cat

# P.351 には

... 次のように特異クラス内で attr_accessor を呼び出す必要があります。

# とあるのだからして
# <Class:Test> が特異クラスなのだと理解していいのだろうか?
# #<Class:#<MyClass:xxxxx>> のような形式になっていないのが気になる...
# という疑問は一旦おいといて

# で、この class << self を使わないかぎり attr は定義できないのだろうか？
# class << self と書くのとは異なる方法はないのかな？

class Test1
  @var = 89
  self.class.attr_accessor :var
end

実行結果

# =>
./test.rb:30:in `<class:Test1>': private method `attr_accessor' called for Class:Class (NoMethodError)
  from ./test.rb:28:in `<main>'

# エラーだ。
# attr_accessor は <class:Test1> にとって private method だから外から呼べないよと言われてしまった。
# そんなメソッドは知らない、とは言われてない、てことは？

class Test2
  @var = 123
  self.class.send(:attr_accessor, :var)
end

puts "Original value = #{Test2.var}"
Test2.var = "dog"
puts "New value = #{Test2.var}"

# 実行結果

Original value = 123
New value = dog

# やったー
# では、これをinitialize の中でも使えるかな?

class Test3
  def initialize
    @var = "99-dayo"
    self.class.send(:attr_accessor, :var)
  end
end

t = Test3.new
puts "Original value = #{t.var}"
t.var = "apple"
puts "New value = #{t.var}"

# 実行結果

Original value = 99-dayo
New value = apple

# 使えた！ので ...

# @varなど予め定義されたインスタンス変数が不要な場合で(というか用意したハッシュの値を既定値にしたい)
# 尚かつインスタンス変数を定義する時になんら制限をもたせなくてよい条件下。
# ハッシュをうけとった class Test4 が
# 受け取ったハッシュをもとにインスタンス変数とアクセサを定義するには？

class Test4
  def initialize(h)
    @now ||= Time.now
    h.each{|k,v|
      ks = k.downcase.to_sym
      self.class.send(:attr_accessor, ks)
      self.send("#{ks}=", v)
    }
  end
end

h = {"Now"=>"123","Cat"=>"meow", "Dog"=>"bowwow"}
t = Test4.new(h)
p t, t.cat, t.dog

puts "----\n"
print "Instance_variables: #{t.instance_variables}\n"
print "Singleton: #{t.singleton_methods} \n"
print "Singleton_class: #{t.singleton_class}\n"

# 実行結果

#<Test4:0xxxxxx @now="123", @cat="meow", @dog="bowwow">
"meow"
"bowwow"
----
Instance_variables: [:@now, :@cat, :@dog]
Singleton: []
Singleton_class: #<Class:#<Test4:0xxxxxx>>

# あれーTest4 の中に singleton_class が存在しているのはなぜかしら
# self.class してる時点で自動的に特異クラスができあがっているのだろうか。

# 一瞬 object_id 同じなのか!?とぎょっとしたけど
# print "Object_id: #{t.object_id}, #{t.singleton_class.object_id}\n"
# を実行してみたら同じじゃなかった。

+++ memo +++

これ <http://midorex.blogspot.com/2010/05/selfsend2.html> を書いた頃...
ハッシュを受け取ったクラスがインスタンス変数を定義する際、アクセサによる一定の制限があればいいと考えた。
なぜなら Amazon から受け取る値の[全て]が必要ではないだろうと判断したから。

でも、全ての値をinstanceにしてもいっかと考えれば
アクセサによる制限は必要なくなるので上記のように書き換えてもいいのかもしれない..がよくわかっていない...。

<http://github.com/midore/get_item_amzon>

MacRuby0.6

2010-07-08T07:25:00.001+09:00

Could Ruby be Apple’s Language and API Future?

MacRuby is going to become a first-class language at Apple.

ということらしい？MacRuby インストールしてみようかな...

+++ Links +++

MacRuby 0.5 Released: A Significant, Stable Release

MacRuby » Home

MacRuby » MacRuby 0.6

MacRuby » MacRuby 0.5

[MacRuby-devel] MacRuby 0.6 release notes

MacRuby » Download MacRuby

mdiaryについて

2010-07-06T15:30:00.010+09:00

mdiary はメモ帳、日記帳、ToDo管理、Blogに投稿したファイルの管理、本の管理、思いついたことをどんどん書き込んでいくだけの雑記帳 ...etc.　いろいろな用途に利用できます。

[特徴]
1, ファイルタイプ
mdiary が管理する全てのファイルはテキストファイルであることを前提としています。

2, ファイル内の表記について
当初、Blogspot.com に投稿する記事を管理したかった為下記のような項目になっています。

1 --date
2 2010/07/04 Sun PM 12:40:52
3 --control
4 yes
5 --category
6 diary
7 --title
8 NewTitle
9 --content

3, 必要なもの
Mac OS X 10.6.x
Ruby 1.9.x

4, その他
自分が作成した文書(テキストファイル)は、常に統一した文書フォーマットを維持し、尚かつ素早く検索閲覧できるようにするにはどうすべきか？mdiary はこういった自問自答に対する１つの答えだったりしています。
あと、Ruby で遊ぶための口実のようなものが欲しかったというのもあります。口実が目的でもあり Ruby で遊ぶのが目的でもあり、そのあたりは曖昧模糊としています。いわゆる趣味で作ったやつなのです。
[mdiayr の使い方]
# 設定方法などはREADME を読んでください。
0) 新しい entry の作成

% diary -a

を実行するとTerminal.app で新しいWindow が開き vim が起動します。
こんな感じです。

# 設定ファイルを編集すると vim 以外の editor に変えることもできます。
# テキストエディット.app に変更することもできます。(参照:README)

category と content を編集します。
category は,で区切ることができます。
content には test ... と記入。
編集し終えたら editor を終了し exit します。

1) リスト表示

% diary -l
1 [-] [2010/07/03 Sat PM 13:51:10] [NewTitle] (diary,mdiary)
Select [i/e/r]:

entry が1つしかない場合はすぐにオプションを訊ねられます。
entry が複数ある場合は entry 番号を選んだ後にオプション選択となります。
何も選択しないでこのまま終了する場合はリターンキーか CTRL + C で終了します。

i を選択すると　entry ファイルのパスや生成時刻、カテゴリーなどをみることができます。
e を選択すると　先ほどと同じように entry ファイルを開きます。
r を選択すると　選択された entry ファイルは ~/.m_diary/trash に移動し2度とリストに現れなくなります。

2) 日時とタイトルを指定して新しい entry を作る場合

% diary -a 'お菓子ストック' -t '2010/07/30 18:00'

-a でタイトルを指定しています。
-a だけを指定し -t がなかった場合は自動的に現在の日付時刻になります。
-t は '2009/12/01 1:00:00' など過去の日付を指定することもできます。秒数もOKです。

control と content を編集します。
お菓子ストックは重要なので control を「yes」から「must」にしてファイルを保存します。

保存したらexit します。

リストをみます。

% diary -l
1 [+] [2010/07/30 Fri PM 18:00:00] [お菓子ストック] (diary)
2 [-] [2010/07/03 Sat PM 13:51:10] [NewTitle] (diary,mdiary)
Select NO:

controlを yes 「以外」にすると [-] だったところが [+] になります。

3) [+] マークがついた entry の表示

% diary -s +
1 [+] [2010/07/30 Fri PM 18:00:00] [お菓子ストック] (diary)

-s をつけると tilte, category, control を検索し該当する entry を表示します。
-s '7/30'
でも同様の結果を得られます。

お菓子も大事だけど水と缶詰も重要だったことに気づきました。
2つ目のentryを追加します。

% diary -a 水と缶詰のストック -t '2010/07/30 18:00'
2
Same name file is exist.

先ほどと全く同じ時刻を指定しまった為エラーになりました。
時刻を少し変え 18:10 にすると entry を追加できます。

% diary -a 水と缶詰のストック -t '2010/07/30 18:10'

水と缶詰も重要なので
editor でcontrol を「yes」から「must」に変えておきます。

[+] の entry を検索します。

% diary -s +
1 [+] [2010/07/30 Fri PM 18:10:00] [水と缶詰のストック] (diary)
2 [+] [2010/07/30 Fri PM 18:00:00] [お菓子ストック] (diary)

4) 今日の日付を持つ entry の表示

% ./test.rb -today
1 [-] [2010/07/03 Sat PM 13:51:10] [NewTitle] (diary,mdiary)

です。

5) 検索について
-s をつけると category, title, control, date 内を検索します。
-st をつけると content 内を検索します。
-today は今日の日付のentry を検索します。

6) 予定の entry の追加
来月になったら思い出すべき事柄があったとします。
未来の日時を指定して entry を追加します。

% diary -a 'Watch TV' -t '2010/08/19 23:00'

editor で編集します。
プラスマークを検索した時に表示させたいので control を「yes」から「enjoy」にしておきます。
category を TV,music にします。
content に .... 要注意! と記入しファイルを保存し editor を終了します。

リストで来月(現在:2010/07/03) のentry をみるためには -d 2010-08 をつけます。

% diary -d 2010-08 -l
1 [+] [2010/08/19 Thu PM 23:00:00] [Watch TV] (TV,music)
Select [i/e/r]:

-d がない限り、今月の entry 「だけ」を表示します。
# ToDo : 今月の entry しかリストにあらわれないのはやっぱり不便かな...と考え中です。
(コンピュータの日付が8月以降になれば　 % diary -l　と打つと 2010年08月の日付をもつentry があらわれます。)

7) content の検索
content の内容に'要注意'という単語が含まれているentry を表示します。

% diary -d 2010-08 -st '要注意'
1 [+] [2010/08/19 Thu PM 23:00:00] [Watch TV] (TV,music)
Select [i/e/r]:

検索する時も -d で検索する月を指定します。-d がなければ今月の entry 内だけを検索します。
# 私のmdiary を vim で検索してみたところ

% diary -s vim
1 [-] [2010/07/02 Fri PM 22:57:36] [vim-practice-autocommand] (vim)
2 [-] [2010/07/02 Fri AM 10:00:00] [vim-practice-filetype] (vim)
3 [+] [2010/07/01 Thu PM 23:00:00] [safari.scpt] (vim, SnowLeopard)

めんどい時は最初から grep などを使ってください。# え"

+++ memo +++
実際の放送予定
2010/08/19 Thu PM 23:30:00

safari.scpt

2010-07-01T23:00:00.002+09:00

インターネットでなにかをみていると、これは!と思うことがあります。ふとみれば vim が立ち上がっている。今開いているファイルにこのURL をメモしておきたいと思ったらどうしたらいいんだろ...

昔(OS 9 の頃か?)今みているブラウザのURL とタイトルをクリップボードにコピーするAppleScript をどなたかが公開していた思うのですが、それに近いことを vim 内でできないかな？って試みです。

vim から osascript を呼び出せると最近知りましたので使ってみました。

# home に戻ります。
$ cd
# テキストファイルを作ります。
$ vim 01.txt
# .applescript でも .txt でもどっちでもいいみたい。

$ 01.txt

tell application "Safari"
  tell current tab of window 1
    set str to "-- 
" & name & "
" & URL
  end tell
  return str
end tell

# コンパイルしてみます。# この時 Safari が起動します。(起動していなかった場合)
$ osacompile -o ~/01.scpt 01.txt

$ vim memo.txt
# vim で memo などしています。と思いきやインターネットもみているとします。

# !!と思ったら
:r !osascript ~/01.scpt


--
Apple - Support - Discussions - Forum Home
http://discussions.apple.com/index.jspa

# ↑こんな感じに title とulr が書き込まれます。
# でも
# Safari の window を開いない時に誤って :r! osascript ... したとすると
... Can’t make name of «class cTab» of window 1 of application "Safari" ....
# ↑このようになっちゃいます。これを修正しつつあらたまった風情にしてみます。

$ cat 02.applescript

script get_title_url
  to main()
    set n to ASCII character (10)
    tell application "Safari"
      try
        tell current tab of window 1
          set str to "--" & n & name & n & URL & n & "<a href='" & URL & "'>" & name & "</a>"
          if URL is "" then return
          return str
        end tell
      end try
    end tell
  end main
end script

on run
  tell get_title_url
    return main()
  end tell
end run

$ osacompile -o ~/safari.scpt 02.applescript
# test
:r !osascript ~/safari.scpt


--
Mac OS X clipboard sharing - Vim Tips Wiki
http://vim.wikia.com/wiki/VimTip687
<a href='http://vim.wikia.com/wiki/VimTip687'>Mac OS X clipboard sharing - Vim Tips Wiki</a>

# うまくいきました。
# -- INSERT -- で \safari　と打つとタイトルとURL とリンク形式文字列が埋め込まれるようにしてみる?
# inoremap <Leader>safari <ESC>:<C-u>read !osascript ~/safari.scpt<CR>kkkddjjA

osascript から受け取る文字列の行頭には \n が混入されている為（\n--\n になる）受け取った後にvim側で kkkdd とかしてます。osascript 側からこれを制御できればいいけどどうしてもわりませんでした。

+++

もっと他の方法(or 適切なのはこうだよ or coolなのあるよ or ふつうこうだよ or plug-in あるよ)などをご存知の方は教えてくださいませ。どのようなコメントも大歓迎です。

[2010-07-08]
fileencodings=utf-8 以外を設定しているとおかしなことになるかもしれません。アマゾンの本のトップページをsafariで開き、上記の safari.scpt をvim 経由で動かすと下記のようになります。こうならない場合は :set fileencodings? あたりをみてみてください。

# アマゾンの本トップページ
--
Amazon.co.jp: 本 (和書) 
http://www.amazon.co.jp/%E6%9C%AC-%E5%92%8C%E6%9B%B8/b/ref=sa_menu_jb0/377-9481435-0601213?ie=UTF8&node=465392
109 
<a href='http://www.amazon.co.jp/%E6%9C%AC-%E5%92%8C%E6%9B%B8/b/ref=sa_menu_jb0/377-9481435-0601213?ie=UTF8&node=465392'>Amazon.co.jp : 本 (和書)</a>

# 日本語の本を一冊選んだ場合
--
Amazon.co.jp： 床下の小人たち (岩波少年文庫): メアリー ノートン, ダイアナ・スタンレー, Mary Norton, 林 容吉: 本
http://www.amazon.co.jp/%E5%BA%8A%E4%B8%8B%E3%81%AE%E5%B0%8F%E4%BA%BA%E3%81%9F%E3%81%A1-%E5%B2%A9%E6%B3%A2%E5%B0%91%E5%B9%B4%E6%96%87%E5%BA%AB-%E3%83%A1%E3%82%A2%E3%83%AA%E3%83%BC-%E3%83%8E%E3%83%BC%E3%83%88%E3%83%B3/dp/4001140624/ref=pd_ts_zgc_b_526266_1/377-9481435-0601213?_encoding=UTF8&s=books&pf_rd_m=AN1VRQENFRJN5&pf_rd_s=right-4&pf_rd_r=0EK1B90C9XBKZFDFK6AT&pf_rd_t=1401&pf_rd_p=95969149&pf_rd_i=3077031496
<a href='http://www.amazon.co.jp/%E5%BA%8A%E4%B8%8B%E3%81%AE%E5%B0%8F%E4%BA%BA%E3%81%9F%E3%81%A1-%E5%B2%A9%E6%B3%A2%E5%B0%91%E5%B9%B4%E6%96%87%E5%BA%AB-%E3%83%A1%E3%82%A2%E3%83%AA%E3%83%BC-%E3%83%8E%E3%83%BC%E3%83%88%E3%83%B3/dp/4001140624/ref=pd_ts_zgc_b_526266_1/377-9481435-0601213?_encoding=UTF8&s=books&pf_rd_m=AN1VRQENFRJN5&pf_rd_s=right-4&pf_rd_r=0EK1B90C9XBKZFDFK6AT&pf_rd_t=1401&pf_rd_p=95969149&pf_rd_i=3077031496'>Amazon.co.jp： 床下の小人たち (岩波少年文庫): メアリー ノートン, ダイアナ・スタンレー, Mary Norton, 林 容吉: 本</a>

RubyCocoa

2010-06-29T01:41:00.001+09:00

先日<http://ashplanning.blogspot.com/2010/06/google.html>のコメントの中でちゃらんさんに
RubyCocoa 入門を教えていただきました。
こちらを経由し
Programming - RubyCocoa wiki
ここを読みながら遊んでみました。

# サンプル通りに警告音を鳴らす。
% irb
>> require 'osx/cocoa'
=> true
>> names = Dir['/System/Library/Sounds/*.aiff'].grep(/([^\/]+)\.aiff/){ |i| $1 }
=> ["Basso", "Blow", "Bottle", "Frog", "Funk", "Glass", "Hero", "Morse", "Ping", "Pop", "Purr", "Sosumi", "Submarine", "Tink"]
>> OSX::NSSound.soundNamed(names[0]).play
=> true

# OSX::NSSound のpublic メソッドをみてみた。
>> OSX::NSSound.methods
=> ["objc_class_method", "_ns_enable_override?", "kvc_wrapper_writer", "objc_instance_method_type", 
... 略

# OSX::NSSound を管理している OSX モジュールのメソッドをみてみた。
# ものすごい量に驚いてしまった！
>> OSX::methods
=> ["CFRelease", "CGColorSpaceRelease", "CGRectIntersectsRect", "frozen?", "CFNumberGetTypeID", "CGAffineTransformConcat", "launch_data_dict_lookup", "CGPaletteCreateWithByteSamples", "CGPDFDocumentAllowsCopying", "CFLocaleCreateCanonicalLocaleIdentifierFromScriptManagerCodes", "to_a"
... 略

# サンプルにあるテキストクラスの生成
>> str = OSX::NSString.stringWithString 'hello'
=> #<NSCFString "hello">

# 'hello'.methods と同じことをしたつもり
>> str.methods
=> ["upcase!", "to_f", "to_yaml", "lines", "sub", "methods", "send", "replace", "empty?", "squeeze", "crypt", "chr", "gsub!", 
... 略

# RubyのString と同じように扱えるようだ。
>> str.upcase
=> #<NSCFString "HELLO">
>> str.reverse
=> #<NSCFString "olleh">

# class String は OSX::NSCFString 
>> str.class
=> OSX::NSCFString

>> str.object_id
=> 216018122

# OSX::NSCFString を str2 に代入
# さっきの str は OSX::NSString.stringWithString だった。
>> str2 = OSX::NSString
=> OSX::NSString

# メソッドの表示
>> str2.methods
=> ["objc_class_method", "_ns_enable_override?", "kvc_wrapper_writer", "objc_instance_method_type", 
... 略

# send でstringWithStringを設定してみる
>> str2.send(:stringWithString, "hi")
=> #<NSCFString "hi">
# ちょっと感動!

# OSX::NSCFString のクラスは?
>> str2.class
=> Class

あ? Class なんだ。

% irb
>> str = String
=> String
>> str.class
=> Class

これと同等てことかな。

+++ memo +++
% sw_vers
ProductName: Mac OS X
ProductVersion: 10.6.4
BuildVersion: 10F569

% ruby -v
ruby 1.8.7 (2009-06-12 patchlevel 174) [universal-darwin10.0]

Blogger Preview

2010-06-27T00:14:00.000+09:00

デザイン->HTMLの編集画面を表示し
何も編集しないで「プレビュー」をクリックすると
about:blank
になってしまった。まっしろけの画面。はっこれは！？　なぜだろう。

Safari の設定を変えて（ポップアップ開く、サイト固有のハックを無効にしない、Runawy JavaScript タイマーを無効にしない、クッキーを常に受け入れる）みたが、やはり about:blank になった。

編集して保存はできたのでよかった。

launchd.db

2010-06-23T17:01:00.001+09:00

一般ユーザが

% launchctl unload -w /System/Library/LaunchAgents/com.apple.midiserver.plist

を実行したとするとその記録はどこにあるんだろうか？

/private/var/db/launchd.db/com.apple.launchd.peruser.XXX/overrides.plist
だった。(XXX は userid)

% cat /private/var/db/launchd.db/com.apple.launchd.peruser.XXX/overrides.plist

一般ユーザの launchctl list の中には
% launchctl unload してもなぜかエラーがかえってきてしまって unload させることができないような agent がたまにある。
そんな場合 overrides.plist に書きこむと確実に unload させることができる。
# 再度ログインしなおすことが必要

+++

as general user

% launchctl list | grep UI

# unload ScreenReaderUI agent
% launchctl unload -w /System/Library/LaunchAgents/com.apple.ScreenReaderUIServer.plist
# => returned error message

# user's id 
% id
uid=XXX(foo) ...

# change directory
% cd /private/var/db/launchd.db/com.apple.launchd.peruser.XXX

# files
% ls
overrides.plist

# look
% cat overrides.plist

# add element
% vi overrides.plit

# logout and login as general user.
% launchctl list | grep UI

vi -i

2010-06-23T16:35:00.001+09:00

OS X 10.6.4 で

$ su admin-user
$ vi foo.txt

として保存終了しようとすると

E138: Can't write viminfo file /Users/foo/.viminfo!
Press ENTER or type command to continue

と言われるようになってしまった。いつからこうなったのかはよくわからない。

$ vi -i "NONE" foo.txt
-i オプションをつけて起動するとすんなり終了できた。

GoogleCL post file

2010-06-23T16:32:00.001+09:00

GoogleCL から

$ google blogger post --draft --title "test-01" post.txt

で post する場合

Blogger にログインして
設定->フォーマット->改行の変換を[はい]にしておく必要がある。

こうしておかないと改行のない本文になってしまうようだ。

また --title オプションをつけないでファイルの1行目をタイトルにさせた場合、
実際1行目がタイトルになるんだけど本文にも1行目が残ってしまう...ようだ。

googleCL

2010-06-21T19:13:00.004+09:00

Google のコマンドラインツールを使ってみるをよみまして GoogleCL を試してみました。

(~/home 以下にインストールしたので)


% export PATH=$PATH:/Users/foo/path/to/bin

投稿してみました。

% google blogger post --title "try-googleCL-1" "command line posting." --tags="google,blogger"

成功しました。

削除してみました。


% google blogger delete --title "try-googleCL-1"
Are you SURE you want to delete post "try-googleCL-1"? (y/N): y

ほんとに削除していいのですか？と訊ねられて y を入力すると投稿は削除されました。

下書きで投稿するには、--draft をつければいいらしい


% google blogger post --draft --title "test-try-googleCL" "command line posting." --tags="test,blogger"

ファイルを指定してみる


% google blogger post post.txt

refe.rb を読む

2010-06-16T19:00:00.000+09:00

これの続き。

たとえば

$ rurema String

とすると

bitclust の

bitclust/bin/refe.rb String -d db_path

を実行させているってことがわかったので↓
rurema/myrurema/bin/rurema

 92     sh "#{bitclust_path/'bin/refe.rb'}" +
 93           " #{query} -d #{db_path(ver)}", :silent => true

それでふと refe.rb は "String" などの文字列うけとった後どうしているのだろう？と思っておいかけてみた。
(デバッガーみたいなものを使い倒せる人じゃないので　p self;exit を付け足すといった原始的な方法）

bitclust/bin/refe.rb

def _main
  refe = BitClust::Searcher.new

BitClust::Searcher　をnew して、class Searcher の method parse に "String" という引数を渡しているらしきことがわかったので
class Searcher を探す...

% grep Searcher lib/bitclust
class Searcher は searcher.rb　ファイルに納められていることがわかった。

bitclust/lib/bitclust/searcher.rb

 20 module BitClust
 21 
 22   class Searcher

public method parse は80行あたりにあった。

 81     def parse(argv)
 82       @parser.parse! argv

引数としてうけとった argv の中身は
["String", "-d", "/path/to/data/db/1.9.2"]
配列になっていて "/path/to/data/db/1.9.2"　は、myrurema でいうところの db_path がわたされていた。

そして条件分岐した後に
refe_mode_check argv
を実行していた。この時 refe_mode_check に渡している argv には ["String"] がおさめられていた。

refe_mode_check をみてみると、(line 118あたり)
@target_type によって条件分岐していて、@target_type　が :class だった場合とそうでない場合の処理があった。

でも
% rurema String を実行した場合 @target_type は nil になるので case 中の条件のどれにもあてはまらない。
case がおわった後の箇所から実行されることになる。
（line 135 あたり）

       @view = TerminalView.new(compiler,
...略

class TerminalView を new して @view にそれを代入していることがわかった。
それでこのあとの続きはどこにあるのだろうか？
@view には class TerminalView が代入されているだけで、ほかにメソッドが与えられていない。

これまで辿ってきた道を引き返していくほかなさそうだ... 。
最初までもどってみたら続きがあった。

bitclust/bin/refe.rb

def _main
  refe = BitClust::Searcher.new
  refe.parse ARGV
  refe.exec nil, ARGV

要は
1, _main はローカル変数 refe に class Searcher を代入する。
2, class Searcher のパブリックメソッドである parse　を実行し@view にTerminalView.new を代入する。
3, class Searcher のパブリックメソッドである exec を実行。

ということのようだ。

では早速続きにあたる3番目の箇所 class Searcher　の method exec をみてみよう。

 90     def exec(db, argv)
 91       if @listen_url

@listen_url 変数に何か値がはいっていたら　spawn_server を、そうでなければ search_pattern を実行する、と。
% rurema String を実行した時 @listen_url は nil なので
line 94 の search_pattern
が実行される。

def search_pattern みてみよう。

200     def search_pattern(db, argv)
201       db ||= new_database()
202       case @target_type || db
203       when :class
...略
214       else

引数として "String" を渡した時は　@target_type　は nil なので　line 214 以降に移動する。移動すると　argv のサイズによっての条件分岐が始まる。サイズが 1 の場合は

219         when 1
220           find_class_or_method db, argv[0]

find_class_or_method　を実行する...

262     def find_class_or_method(db, pattern)
263       case pattern

pattern の値によって処理を分けている。
pattern には "String"　がおさまっている。
db には#<BitClust::MethodDatabase>
　
"String" という文字列受け取った場合は when /\A[A-Z]/ に該当するのでそれに続く begin以降にジャンプする。

270       when /\A[A-Z]/   # Method name or class name, but class name is better.
271         begin
272           find_class db, pattern

次に探すべきメソッドは find_class 。

find_class

241     def find_class(db, c)
242       @view.show_class db.search_classes(c)
243     end

をーここで @view と出会いました。やっと話がつながった感じがします。
つまり

1, _main はローカル変数 refe に class Searcher を代入する。
2, class Searcher のパブリックメソッドである parse　を実行し@view にTerminalView.new を代入する。
3, class Searcher のパブリックメソッドである exec を実行。

この3番目の処理が ~~line 242~~line 90 にあたると。
2番目の処理で「あらかじめ」Searcher のインスタンス変数である @view に class TerminalView が代入されているからここ（line 242 ）で@view.show_class を使うことができるわけね、と。

一応、確認してみると

def find_class(db, c)
  p @view.class, c ; exit
end

% rurema String
BitClust::TerminalView
"String"

ちゃんと TerminalView　が代入されている。

ではでは
class TerminalView　の methods show_class をみてみよう。

324     def show_class(cs)
325       if cs.size == 1

def show_class は cs をうけとってそのサイズが１だった場合とそうじゃなかった場合とで処理を分岐させている。

% rurema String
の場合、cs は　[#<class String>]

% rurema Hash　
の場合、cs は　[#<class Hash>]
と変化する。@line が false の場合で、csのサイズが１ならば describe_class を実行する。

なので
% rurema String
した時は

line. 329 describe_class cs.first
を実行するのだとわかった。
では def describe_class はどこだろう？ line 411 あたりにあった。

describe_class

411     def describe_class(c)
...略
416       puts "#{c.type} #{c.name}#{c.superclass ? " < #{c.superclass.name}" : ''}"
417       p c.class.name; p c; exit

line. 417 を上のようにしてみると

% rurema String
class String < Object
"BitClust::ClassEntry"
#<class String>

と返ってきたのでローカル変数c には ClassEntry が代入されていてそのクラスは type や name といったメソッドを持っているとわかった。
つづいて

417       unless c.included.empty?
...略
423       unless c.source.strip.empty?

とあって c (すなわち　BitClust::ClassEntry)のincluded が empty じゃなかったら空行を1行出力し
c.included.each ...
を実行し
同様に、c.source.strip.empty?　がempty じゃなかったら空行を1行出力し
@compiler.compile(c.source.strip)
を実行する。
ようだ。

% rurema String
を実行した場合は何行目の処理が実行されるのか？

line 417 のunless c.included.empty?　にキャッチされるとわかった。従ってこの部分

419         c.included.each do |mod|
420           puts "include #{mod.name}"
421         end

を実行していることになる。

変数c には class ClassEntry が代入されているので c.included は、ClassEntryクラスの included メソッド。~~included メソッドはブロックを受け取ることができるのだなぁ、と。~~

では class ClassEntry　がどうなっているかをみてみよう...。 classentry.rb を開いてみると

bitclust/lib/bitclust/classentry.rb

class ClassEntry < Entry

Entry クラスを継承していた。searcher.rb　が使っていた included はどこだろ？継承元の Entry の方なのかな？いや無い。てことは ClassEntry が自分でもっている？ないみたい。

うむむ、どうやら何かにくるまれているようだ...。

hash のキーとしてならあるんだけども...

bitclust/lib/bitclust/classentry.rb

 77       property :included,   '[ClassEntry]'

included のゆくえがわからなくなってしまった。

こういう時は最初に initialize がどうなっているかをみてみよう。

 16   class ClassEntry < Entry
 ... 略 
 36       init_properties

init_properties って何かな？classentry.rb ファイル中にその実態は無いようだ。
継承元のクラスのファイルを開いてみると
% vim entry.rb
init_properties は module_eval によって定義されていた...。

もう一度頭を整理して考えてみよう。呼び出した側は下記のようになっていて
bitclust/lib/bitclust/searcher.rb

419         c.included.each do |mod|
420           puts "include #{mod.name}"
421         end

ClassEntryクラスのパブリックメソッドの中に included という名前のメソッドはない。
classentry.rb ファイル中に included という名前で存在しているのはハッシュのキーのみ。

最終的なところまで近づいてきた感じがしつつもこの先はちょっと難しそうだな。読み解けるかなぁ...
今日はここまで。

install-rurema

2010-06-08T16:00:00.000+09:00

Rubyの新リファレンスマニュアルをコマンドラインから簡単に引くためのツールを書いた

うわっこれいいな。早速 install

http://github.com/yhara/myrurema

README を読むと gem を使ってインストールできるとあったんですが、ちょっと gem 苦手な為 gem を使わないで動せないものかな？と、try してみました。 (OS X 10.6.3)

$ git clone git://github.com/yhara/myrurema  rurema
$ cd rurema/myrurema/bin
$ vim rurema
# shebang を自分の ruby 1.9.2 のパスに修正。#!/usr/bin/env ruby　#  changed
$ pwd
/path/to/rurema/myrurema/bin

# とりあえず

$ ./rurema
Usage: rurema [options]
         --init                       initialize rurema
         --update                     update documents and database
...(略)

# README を読みながら
# Init

$ ./rurema --init --ruremadir=/path/to/rurema/data

# これを実行すると ~/home に.subversion ディレクトリができた。

try

$ ./rurema Array#index
You don't have a database for ruby 1.9.2.
109 Make it now? [y/n]
...略

y としたけど ~/home/.rurema を作っていないのだからアップデートできない。

$ ln -s /path/to/rurema/data ~/.rurema

シンボリックはってみた

# Update

$ ./rurema --update --ruremadir=/path/to/rurema/data

# この時勢いよくファンが回りはじめてちょっと不安になった。$ top してみると ruby(OS X に標準インストールされてる方) 一時的に50% 台になったりしつつも基本的には10% 台で動いてた。ずっとみていたら急に90% 近くなってあ”と思ったとたんに終了してほっとした。

# try

$ pwd
$ /path/to/rurema/myrurema/bin
$ ./rurema Array#index
Array#index
--- index(val)           -> Integer | nil 
--- index {|item| ...}   -> Integer | nil 

指定された val と == で等しい最初の要素の位置を返します。
等しい要素がひとつもなかった時には nil を返します。
...（略）

わい
動かすことができたのでエイリアスにしちゃう。

$ vim ~/.bashrc
# alias 'rurema'='/path/to/myrurema/bin/rurema'

$ source ~/.bashrc
$ rurema String#size
String#size
--- length -> Integer
--- size -> Integer

文字列の文字数を返します。バイト数を知りたいときは bytesize メソッドを使ってください。

@see [[m:String#bytesize]]

コマンドラインからるりまをみることができました。うれしいな。便利だなー。

+++ まとめ +++

# Download rurema 
$ git clone git://github.com/yhara/myrurema rurema
$ cd rurema/myrurema/bin

# shebang を自分がインストールした ruby 1.9.2 のパスに修正。#!/usr/bin/env ruby　#  changed
$ vim rurema

# 確認 & ヘルプ
$ ./rurema

# database directory
$ mkdir /path/to/rurema/data

# リンク作成
$ ln -s /path/to/rurema/data ~/.rurema

# init and update
$ ./rurema --init --rubyver=1.9.2 --ruremadir=/path/to/rurema/data
$ ./rurema --update --rubyver=1.9.2 --ruremadir=/path/to/rurema/data

# みてみる
$ ./rurema String#size

# alias
# $ vim ~/.bashrc 
# $ source ~/.bashrc

参照
http://ja.wikipedia.org/wiki/Subversion
SnowLeopard には標準でSubversion入っていた。知らなかった。

plutil

2010-06-05T12:35:00.000+09:00

無駄な試みかもしれないけれども下記のヘルプをもう2度とみたくないために書いてみる...。

% plutil -h
unrecognized option: -h
plutil: [command_option] [other_options] file...
  (略)

[ -lint: シンタックスエラーがないかどうかみてくれる! ]

% plutil -lint /System/Library/LaunchDaemons/com.apple.mDNSResponder.plist 
/System/Library/LaunchDaemons/com.apple.mDNSResponder.plist: OK

% plutil -lint ~/.MacOSX/environment.plist 
/Users/foo/.MacOSX/environment.plist: OK

-s で silent mode。OK ならば黙っている。

% plutil -lint -s ~/.MacOSX/environment.plist
%

[ -convert: binary を text にしたり逆にbinary にしたり ]

cat とかで読めない plist を読めるようにする為には convert する。
convert したファイルをいきなり上書きするのがいやな時は -o オプションをつける。

binary plist to text plist

% plutil -convert xml1 ~/.MacOSX/environment.plist  -o ~/test-dot-environment.plist
%

失敗すると ... file does not exist or is not readable or is not a regular file　とかなんとか言われる。

成功すると

% more ~/test-dot-environment.plist

読めるようになる。

今つくったファイルをbinary にするテスト
text plist to binary plist

% plutil -convert binary1 ~/test-dot-environment.plist -o ~/test-dot-bin-environment.plist

% more test-dot-bin-environment.plist 
"test-dot-bin-environment.plist" may be a binary file.  See it anyway? 

% defaults read ~/test-dot-bin-environment

-e オプションについてはわからず。

+++ memo +++

defaults コマンドを使うと設定内容を閲覧できる。
こんなかんじで。
% defaults read /Library/Preferences/SystemConfiguration/com.apple.PowerManagement
/Library 配下の plist ファイルを指定する時は必ずフルパスで指定する必要がある。

で、おもむろに
% defaults read com.apple.Finder
などとうってみたりするとすんなり返事をかえしてくれる。
（たとえ cd /Volumes していて ~/home にいなかったとしても）
ログインユーザ所有の plist を指定した場合は admin 所有のplist 等とは異なり
必ずしもフルパスを要求されない。

以前は、こうじゃなかったような気もするんだけど
（つまりユーザplist もフルパスを毎度毎度要求されていたような記憶があるんだけども）
おもいっきり記憶違いかもしれない。とりあえず OS X 10.6.3 では今このようになってる。

install-ruby-1.9.2-preview3

2010-06-02T17:48:00.000+09:00

さっそく

% autoconf
% ./configure --prefix=/Volumes/foo/ruby192 --program-suffix=192 --with-x=no
% make
% make test
% make install

% make test の時

PASS all 932 tests
 ./miniruby -I./lib -I.ext/common -I./- -r./ext/purelib.rb  ./tool/runruby.rb --extout=.ext  -- "./bootstraptest/runner.rb" --ruby="ruby1    92"  ./KNOWNBUGS.rb

Driver is ruby 1.9.2dev (2010-05-31 revision 28117) [x86_64-darwin10.3.0]
Target is ruby 1.9.2dev (2010-05-31 revision 28117) [x86_64-darwin10.3.0]


KNOWNBUGS.rb .
PASS all 1 tests

となりましたが KNOWNBUGS とあったので気にしないで install してみました。

github.com/midore/mblogger
をruby 1.9.2 preview3 でもって「この投稿」を投稿してみました。どうかな？
=> 成功しました。
put はどうかな？
=> OK.

github.com/midore/mdiary
こっちも、検索できなくなったかな？と思ったけどできてるみたい。

github.com/midore/2010-amazon-jp-api
は動かない！と思ったらruby 1.9.2 はとはぜんぜーん関係ない問題でした。ショック。ずっと気づいてなかった。

Mac OS X Security Configuration Guides

2010-06-01T07:15:00.000+09:00

Mac OS X にはファイル共有機能があるので、例えば自宅にある複数のコンピュータ間でデータをやりとりできるし、iTunes 共有機能を使えばメインのコンピュータのiTunes を複数のコンピュータで共有できます。
また、sshd など使えば外出先からでも自宅のコンピュータにアクセスできます。
そういった様々な OS X に付随してるサービス機能をふる活用させている方も世の中にはいらっしゃるのでしょう。

けれども、いまどき自宅コンピュータをサーバ化させたい人のうち Mac OS X を選択する人ってどれだけの割合なのでしょうか？もし仮に私がそういう必要に迫られたとしたら迷わず Ubuntu を使うと思います。

多くの人が、OS X をクライアントとして使用しているにすぎなくて、たまに iPodやiPhoneやiPad と同期させるくらい。
だとするならば...
下記のドキュメントはより多くの Mac OS X Users に読まれるべき文章なんじゃないかと思います。

Mac OS X Security Configuration Guides

ただ、日本語化されていません。
過去の Leopard 時代の文書ですら未だに日本語化されていないようです。

で、英語ですがコマンドに慣れてる人なら最後の index 眺めてみるだけでもポイントを押さえられます。

コマンドを使ったことない方でも、
手始めにターミナル(Applications->Utilities->Terminal.app)のヘルプの中の「UNIX の基礎」に目を通し、興味を持てそうであればUNIX関連の書籍や、コマンドリファレンス的な本やそもそも shell って何？的な本を眺めつつ、簡単なコマンドの練習などしながら、これを機会にコマンドに慣れていけば大丈夫かと思います。

+++ 追記:上記ドキュメントを読む読まない以前の最低限のセキュリティ +++

1, たとえ自宅にたった1台しかコンピュータがない場合でもルータを使用する。
2, 無線ルータの WEP の使用を避ける。
3, ウイルス対策用のアプリケーションを購入する。また、そのアップデートを怠らない。
4, OS X のソフトウエア•アップデートは定期的に必ず行うか自動アップデート（システム環境設定->ソフトウエア•アップデート->アップデートを自動的にダウンロード）にしておく。
5, ファイアウォール機能を有効にする。（システム環境設定->セキュリティ->ファイアウォール）
6, 自分ユーザにファイル共有させる必要がないのであれば FileValut を入にする。
7, システム環境設定->共有　不必要なサービスを起動しない。
8, 必要がないかぎり、システム環境設定->アカウント->ゲストアカウントは無効にしておく。

self.send()[2]

2010-05-20T06:23:00.000+09:00

http://midorex.blogspot.com/2010/05/selfsend.html
の続き。

  class Foo
    ary = [
      "Author", "Binding", "Creator",
      "EAN", "ISBN", "Label",
      "Manufacturer", "NumberOfPages",
      "ProductGroup", "ProductTypeName",
      "PublicationDate", "Publisher", "Studio",
      "Title", "MediumImage", "Price", "Edition",
      "Rank", "DetailPageURL", "Artist",
      "Format", "NumddberOfDiscs", "OriginalReleaseDate",
      "PackageQuantity", "ReleaseDate", "UPC", "RunningTime"
    ].each{|x| attr_accessor x.downcase.to_sym}

    def initialize(h)
      return nil unless h
      set_up(h)
      #@created ||= Time.now.to_s
    end

    def detail
      str = ""
      ins_a.each{|i| str << i.to_s.gsub("@",'').upcase + ":\s" + self[i] + "\n" }
      return str
    end

    def set_up(h)
      h.each{|k,v| 
        begin
          self.send("#{k.downcase.to_sym}=", v)
        rescue NoMethodError
          next # ignore new value.
        end
        }
    end

    # def detail needs [] and ins_a
    alias [] instance_variable_get
    alias ins_a instance_variables

    private :set_up, :[], :ins_a

  end
  h = {'Artist'=>'artist-name','Title'=>'music-title'}
  p Foo.new(h)

% ./test-item.rb
#<Foo:0x000000000 @artist="artist-name", @title="music-title">

h = {'Artist'=>'artist-name','Title'=>'music-title'}
h['noindex'] = 'noindex'
p Foo.new(h)
% ./test-item.rb
#<Foo:0x000000000 @artist="artist-name", @title="music-title">

git => github.com/midore/get_item_amzon

self.send()[1]

2010-05-16T01:08:00.001+09:00

gdata-1.1.1　を読んでいたら gdata-1.1.1/lib/gdata/client/base.rb に

41           self.send("#{key}=", value)

とあった。

それで
クラスを初期化する際 hash をもちいてインスタンス変数を一気に設定したい場合について考えてみた。

1) 最初にgdataでも使われている self.send() を使った場合

  3 class My_1
  4   attr_writer :id, :name
  5   attr_reader :name
  6   def initialize(h={})
  7     h.each{|k,v| self.send("#{k}=", v)}
  8   end
  9 end
 10 
 11 h = {:id=>'123', :name=>'abc'}
 12 p My_1.new(h)

実行結果
#<My_1:0xxxxxxxx @id="123", @name="abc">

ハッシュのキーと値がinstance 変数に設定されていることがわかる。
また attr_writer によって :id と :name 以外のkey を受け付けないよう設定されている。
これを確認する為、
h = {:id=>'123', :name=>'abc', :title=>'ddd'}
に変更し実行してみると
...(NoMethodError)

:title は attr_writer に定義されていないので instance 変数として定義できないことが確認できた。

2) 次に self[]= をつかってinstance 変数を設定するクラスの場合

 15 class My_2
 16   attr_writer :id, :name
 17   attr_reader :name
 18   def initialize(h={})
 19     h.each{|k,v| self[:"@#{k.downcase}"] = v}
 20   end
 21    alias []= instance_variable_set
 22    alias [] instance_variable_get
 23    private :[], :[]=
 24 end
 25 p My_2.new(h)

実行結果

#<My_2:0xxxxxxxx @id="123", @name="abc">

My_1 の場合と全く同じ結果を得ることができる。
では、My_1 の場合と同様に h を変更し
h = {:id=>'123', :name=>'abc', :title=>'ddd'}
として実行してみるとどうなるか？

実行結果

#<My_2:0xxxxxxxx @id="123", @name="abc", @title="ddd">

attr_writer とは無関係になんなく :title が定義されてしまった。
15行目のattr_writer :id, :name は class My_2 においては無意味のようだ。

では、あたかも attr_writer を設定したかのようにさせるにはどうすればいいのだろうか？

 14 class My_2
 15   @@ins_keys = [:id, :name]
 16   @@ins_keys.each{|x| attr_reader x}
 17   def initialize(h={})
 18     h.each{|k,v|
 19       key = k.downcase.to_sym 
 20       self[:"@#{key}"] = v if @@ins_keys.index(key)}
 21   end
 22   alias []= instance_variable_set
 23   alias [] instance_variable_get
 24   private :[], :[]=
 25 end
 26 h = {:id=>'123', :name=>'abc', :title=>'ddd'}
 27 p m = My_2.new(h)
 28 p m.name

実行結果

#<My_2:0xxxxxxxx @id="123", @name="abc">
"abc"

@@ins_keys を定義し19行目に if @@ins_keys.has_key?(k) を追加することで
attr_writer に「似た」役目をはたしてもらうことにした。
attr_reader は16行目にまとめた。
配列の要素を全て attr_reader にした。
配列の要素をチョイスして attr_reader したい場合はさらに2行加える必要あり。

@@ins_keys に登録されていない :title は定義されなくなった。
つまり定義したい instance 以外が定義されるようなことはおこらないという意味で My_1 と同じ結果を得られるようになった。
ただし、My_1 ではerrorが返ってくるが My_2 では error にはならない。
error を返す必要があれば20行目直前に raise unless @@ins_keys.index(key)　などすればいいのかも。

+++ メモ +++

0) self[] を initialize で使用しつつどの key を instance 変数として定義するかをちゃんと制御したい時
attr_writer で設定したつもりになっていてもそれは意味をなさないので、別途式を用意するなどする必要がある。
あるいは最初から My_1 のような方法を採用した方がいいかも。
あるいは通常どおりに def initialize で @id = nil などと定義しておいて instance_variable_defined? を使う。

1) (派手に間違えているかもしれない)書きながら浮かんだイメージ
self.send()
は、一旦廊下に出て attr_writer ドアをノックしてから self 部屋に入るが、
self[]=
は、既にself 部屋の内側に入っていて attr_writer ドアの存在を意識していない。
といったようなイメージ。

2) git にあげてある 2010-amazon-api-jp に、上記の内容を反映する予定は未定。

続き

2010-amazon-api-jp

2010-04-21T19:14:00.000+09:00

SnowLeopard で OpenSSL がバージョンアップしたことに伴い
amazon-jp-api を作り直した。
=>
2010-amazon-jp-api

[参考になったURL]
OpenSSL SHA 256 の使い方はhttp://diaspar.jp/node/239 を参考にしました。

[主な変更点]
1, Mac OS X 10.6.3 で SHA256 を使えるようになったことに伴う変更。
module AmazonAuth　=> 新規に作ったモジュール。認証用。
2, 設定ファイル => ２つのモジュールにわけた。
3, class AwsItem => インスタンス変数の持ち方の変更。
4, class AmazonAccess => アマゾンにアクセスしデータを獲得したのちに AwsData.new(data).add_data でアイテムまで生成していたが、アイテム生成は他のクラスに移動させて、このクラスはアマゾンにアクセスしデータを獲得するだけのクラスに変更した。
5, class AwsDataWriter => 新規に作ったクラス。マーシャルデータを変更するためのクラス。
6, class AwsDataReader => 新規に作ったクラス。マーシャルデータを読み込んで表示させるためのクラス。
7, module AmazonAuth　=> 新規に作ったモジュール。アマゾン認証を行うためのもの。

[変更されていない点]
1, ローカルで使うもの。
2, Ruby 1.9.1 だけで動き Ruby 1.8 系はサポートしていない。
3, マーシャルデータを使用している。
4, 指定したEAN の本やCDのデータをアマゾンから受け取ることができるがアマゾンサーバに対して検索はできない。
5, README に書いたオプション引数はそのまま。

[少しだけ気になっている点]
1, もともとのものは force_encodig を使わないように変更している。今回もこの状態でうまくいったので受け取ったXMLデータが valid? かどうかだけチェックするにとどめ encode 変換は行っていない。このことによってなにか弊害があるのかないのかは謎。
2, timeout を使っている。使わないバージョンも作ってみたがあっさり挫折。
3, exec を使っている。exec を使わないバージョンを考えてみたがわからなくなって中断。
4, send を使っている。最近使い方を覚えたため、使ってみたかったから使っているにすぎない。あえて使う必要はないのかもしれない。

[このブログ内の関連する投稿]
=> http://midorex.blogspot.com/2009/06/amazon-web-with-ruby-191.html
=> http://midorex.blogspot.com/2009/08/amazon-product-advertising-api.html
=> http://midorex.blogspot.com/2009/12/forceencoding.html
=> http://midorex.blogspot.com/2008/12/amazon-aws-with-ruby191.html

[Amazon ラベルをもつ全ての投稿]
Amazon

はじめての send

2010-04-03T23:00:00.000+09:00

ISBN: 978-4048678841 | リファクタリング:Rubyエディション (大型本)

この本、私は対象読者ではなかった。飛ばし読みしていたらあっという間に p.165 までたどり着いてしまった。

そこで目にしたもの
p.165

サンプル
引数をまとめたHash を受け付けて、それらの引数をインスタンス変数に代入する SearchCriteria クラスがあるものとする。

とあり
p.166

Class.send :include, CustomInitilizers

send って何?といろいろ試してみた。

  1 #!/usr/local/bin/ruby191
  2 # coding: utf-8
  3 
  4 module Items
  5   module Setup
  6     def base(h)
  7       h.each{|k,v| self["@#{k}"] = v}
  8     end
  9     alias []= instance_variable_set
 10     alias [] instance_variable_get
 11   end
 12   class Music
 13     def initialize(h)
 14       self.base(h)
 15     end
 16   end
 17   class Book
 18     def initialize(h)
 19       base(h)
 20     end
 21   end
 22   Object.send :include, Setup
 23 end
 24 
 25 h = {:isbn=>'978xxx', :title=>'book-title', :price=>'1000'}
 26 p b = Items::Book.new(h)
 27 h = {:isbn=>'077xxx', :title=>'music-title', :price=>'2000'}
 28 p b = Items::Music.new(h)
 29 p b['@title']

=>
#<Items::Book:0xxxx @isbn="978xxx", @title="book-title", @price="1000">
#<Items::Music:0xxx @isbn="077xxx", @title="music-title", @price="2000">
"music-title"

最近知ったあのaliasを使ってみた。

そして
「プログラミング言語 Ruby」p.285
を読み直した
Book.public_send :include, Setup
にしてもOKだった。

さらに
「Ruby Way」( Second edition)
にて send を探してみたら p.350 にsort_by のカスタムバージョン例の中で send を使う例があった。

self.sort{|x,y| x.send(sym) <=> y.send(sym)

この場合、x はArrayの要素でその要素のひとつひとつには Preson.new() Object　が入っていて、
で、Presonの@name は attre_reader で読み込めるようになっている。ここがミソ。従ってソート対象として:name を指定することができる、と。
attre_writer :name だったらこれは成功しないだろう。
p.350 をジーとみているとうっかり send(@name)なのだと勘違いして理解しそうになるが、
send は「シンボル」を受けつけるのだから、send(@name) ではダメ。

+++ まとめ +++
send or public_send (Ruby 1.9) はシンボルを受けつける

module XXX
  module Setup ... end
  class Book ... end
  class Music ... end
  Object.send :include, Setup
end

Object.send とした場合は module が内包する[全て]のクラスのinclude メソッドに Setup module をおくりつけたことになる、と。
Object.send を Class.send としてみたら
`initialize': undefined method `base'
のエラーになった。

module XXX
  module Setup ... end
  class Book ... end
  class Music ... end
  Book.send :include, Setup
end

とした場合は module XXX が内包するBook クラスに[だけ]Setupをおくったことになる
従ってこの場合

module XXX
  module Setup ... end
  class Book
    include Setup
  end
end

と全くおなじ、と。

$LOAD_PATH.delete(".")

2010-03-21T13:43:00.000+09:00

Rubyist Magazine - Ruby 1.9.2 予告編

将来的に
$LOAD_PATH.delete(".")
と書かなくてよくなる。わーい!

git-clone-port

2010-03-18T22:47:00.000+09:00

memo

github.com で公開されてるプロジェクトを clone したい時
TCP 9418
が出て行くのを許可されてないと clone できない。

The Catcher in the Rye

2010-03-16T18:39:00.000+09:00

もしも君が、ほんとうにこの話を聞きたいんならばだな、まず、僕がどこで生まれたかとか、チャチな幼年時代はどんなだったかとか、そういった<<デーヴィッド•カパーフィールド>>式のくだんないことから聞きたがるかもしれないけどさ、

村上春樹訳　p.5

こうして話を始めるとなると、君はまず最初に、僕がどこで生まれたかとか、どんなみっともない子ども時代を送ったかとか、僕が生まれる前に両親が何をしていたかとか、その手のデイヴィッド•カッパーフィールド的なしょうもないあれこれを知りたがるかもしれない。

2003年春。村上春樹訳の「The Catcher in the Rye」のこの冒頭の１行目を目にした時、この本は私がかつて読んだあの「ライ麦畑でつかまえて」とマルッキリ！違う本だぞと瞬時に認識しました。正直に言うと、みてはいけないものをみてしまった感に襲われました。その日からあっというまに何年か経過してしまいました。

サリンジャーのこの作品についてふれることは私にはちょっとヘビーなので、できれば永久に避けたいと思っていましたが村上春樹訳「The Catcher in the Rye」が手元にあったことで何かが変わりました。

2) 走ることへの衝動
野崎孝訳 p.11

何のために駆けたりなんかしたのか、自分でもよくわかんないーたぶん、なんということもなく、ただ駆けたくて駆けたんだろう。
いやあ、スペンサー先生の家につくが早いか、いきなり僕はベルを鳴らしたね。

村上春樹訳 p.12

なんでわざわざ走らなくちゃならないのか、自分でもそのへんはよくわからないけど、たぶんただ走りたかったんじゃないかな。
やれやれ、やっとの思いでスペンサー先生の家にたどり着くと、僕はすごい勢いで玄関のベルを鳴らした。

この文の前後ははしょりましたが、主人公はまるで10歳くらいの子どものように突然走り出します。冬の寒い日、ふいに何かに背中を押されれたかのようにして、ぶったおれるかと思うくらいの勢いで走り出すわけですが、村上春樹氏の訳はこの年頃のこの感覚をすっかり忘れてしまったか、もともとそれを知らない人(たぶん走るのが好きじゃなかった人)が訳したかのような印象をうけます。

村上春樹氏が書いた小説の中に、貧乏を経験したことのある人間かそうでないかはそれを知っている人間にはすぐわかる(正確にはこのとおりではない)、
といったようなことを主人公に語らせている作品が確かあったと思うのですが...もう子どもじゃないと自覚してるのに、無性に駆け出したくなったことがある人間か、そうでないかは、この訳の違いを読むとわかるような気がします。

3) 会話
野崎孝訳 p.52

「おれにわかるはずないだろ。どいてくれ。おまえ、おれのタオルに坐ってるじゃねえか」と、ストライドレイターは言った。僕は奴の間抜けなタオルの上に坐ってたんだ。

村上春樹訳 p.56

「よくわからねよ、そんなこと。とにかくそこをどいてくれよ。お前な、俺のタオルの上に座ってるんだぜ」とストライドレイターは言った。僕はたしかに彼のくだらないタオルの上に座っていた。

奴の間抜けなタオルがいかに間抜けになるか？はストライドレイターにいかにカッカして言い放ってもらうか、にかかっていると思います。そして奴の間抜けなタオルにはちゃんと間抜けになってもらってコールフィールド的な笑いを読者に受け止めてもらわないと、ここではなにもかもが台無しなんだと思います。
で、野崎孝訳では「...じゃねえか」と「...坐ってたんだ」がその役割を果たしています。

が、村上春樹訳では、「... に座ってるんだぜ」と、...ぜ、が使われていることと、その直前に「とにかく」って単語が加わることでストライドレイターのカッカが薄く間延びしたものになってしまっています。また「僕はたしかに...」と「たしかに」って単語が加わることで、間抜けなタオルの間抜けさは間抜けでもなんでもないただの退屈なタオルになりさがってしまってます。この感覚。
コールフィールド特有の奴に対するワライはすべってませんか？

4) 時間に関するジョーク
野崎孝訳 p.59

...まるでこっちが恩恵を施されてるみたいな感じなんだ。
奴は支度するのに、五時間ばかしかかった。

村上春樹訳 p.64

... 君はきっとアックリーの方がこっちに恩恵を施していると思うだろうよ。
アックリーが出かける支度をするのに、だいたい五時間かかった。

この抜粋された文だけを、今、生まれて初めて目にした方はアックリーが支度をするのに５時間かかったのが、ジョークだなんてピンとこないんだろうけれども、最初からこの作品を読んできている読者にはこれがコールフィールドのジョークだとすぐにわかります。野崎孝訳においては。
村上春樹訳によってこの作品を初めて読んでいる読者が、これがジョークだとすぐにわかるものなのかどうか、私には疑問です。

他にもこれと同じように、実際とは無関係なおおげさな数字が書かれている箇所がいくつかあって、そのたびに読者はちょっとクスッとなります。
野崎孝訳p.312

校長の姿は見えなかったけど、百歳ばかしの年取った女の人が、...

これも同様のパターン。

5) 叫び
野崎孝訳 p.84

「ガッポリ眠れ、低能野郎ども！」

村上春樹訳 p.89

「ぐっすり眠れ、うすのろども！」

おそらく、読者はここで一旦お茶をいれるか一旦本を閉じるか、俺も（or私も）寝るわと電気を消すなどすると思うんだけども
「ああ、ガッポリ寝るわ、豚のようにね」（笑）
などと冗談を言いかえしたくなるのは野崎孝訳であって村上春樹訳を読んでいてもそんな気持ちにはなれそうにありません。私は。

ガッポリってところが、ちょっといいわけです。このちょっとした笑い「クスッ」感がとてつもなく大事なのです。どれだけ大事かというと、なにはともあれ、なにをさしおいても大事、としかいいようがありません。しかもそんな馬鹿げた声が静かな廊下にこだましちゃってたところが尚面白いわけです。

このニュアンスを持つか持たないかが両者の大きな違いのようにも感じます。とらえどころが難しいけども決定的な違い。主人公コールフィールドは始終まともな話ができる人と話をすることに飢えていますが、同じ作品を訳したにもかかわらず、村上氏の訳ではその切実感が薄いのはこのあたりにも秘密があるような気もします。

6) 恩師との会話
野崎孝訳 p.284

「英語はどうだった？英語をしくじったなんて言おうものなら、さっさと出て行ってもらうからな。この若き作文の天才め」

村上春樹訳 p.303

「英語の成績はどうだった？もし君が英語を落としたというのなら、すぐさまこの場を退出していただくことになる。なにしろ君は作文に関しては文句なしのエースだったもんな」

野崎孝訳では、さっさと出て行ってもらうからな... と一瞬すごみをきかした先生が、この...天才め、と言い放つと同時に笑顔になっている様がよく伝わってきます。先生の顔をみながら主人公の顔も少しほほえんでいるのが(視覚的に)よくみえるような気がします。この先生が冗談好きな明るい人間だってことも一瞬に理解できるし、主人公がなぜこの人を訪ねたのかもよくわかります。それで安心して私も主人公が座った椅子の隣にこしかけたい気持ちになります。

しかし村上春樹訳で読むと、この先生、なんともまわりくどい言い方をする人だなって印象を持ちかねません。退場していただく、と品のある言い方で書かれているせいか先生の陽気さが半減してしまってます。読者である私はそこに同席したいなど感じません。
これでは、なぜ主人公がこの人に会いにやってきたのかが読者に伝わりにくいのではなかろうか？と心配になります。

この文によって、読者はなぜ主人公はこの人に会いにやってきたのかを知ることができるので、ここは話の構成上でも重要なんじゃないかと思います。
その後、この恩師の家を出ていくことになる出来事とのギャップを浮き彫りにする上でも大切に感じます。

...

全体を通して、村上春樹訳では重要な何かが「ガッポリ」ぬけおちているように感じます。単語の多さとまるで反比例しているのは興味深いところです。

野崎孝訳ではコールフィールド独特のささやかな笑いや、ちょっとした気の利いた言い回しなんかによって、この少年がどういう人物かってことが読者には手にとるようにわかるようになっていると、私は思うのですが、そのあたりのおもしろみが村上訳からは消えさってしまっているように思います。

たとえば「やれやれ」って言葉を村上春樹氏の小説の中に登場する主人公が口にした時、それはまるで彼によく似合う服のようだから、読んでいてなんのさしさわりも感じないし、むしろほどよく彼の気持ちが伝わってきます。こういう時にこういう感じ方をするのが彼なんだなとぐっと彼に近づきますが、サリンジャーの主人公は「やれやれ」が似合うような主人公じゃないと思うんです。決して。彼はそんなにクールでもないし。

ディケンズの名作をくだらないって言ってのけちゃう少年。しいていえば、夏目漱石なんてくだらない、あたりまえだろって言っている少年と同じなわけです。
日本語の「やれやれ」が持つニュアンスを多少の笑いを含んで言えるような人物が、
「その手のデイヴィッド•カッパーフィールド的なしょうもないあれこれ...」
あるいは
「そういった<<デーヴィッド•カパーフィールド>>式のくだんないこと」
と、斬って捨てるような言い方をするだろうか？と、違和感を感じます。
例えば「そういった<<坊ちゃん>>的なくだらないこと...」
などとは、そういう人は言わない、いや、言えないんじゃないのかな。

だから、そもそも「やれやれ」などとコールフィールドが心の中で口にすることができていたのなら、この小説自体生まれなかったんじゃないの？とも思うのです。「やれやれ」と心の中でつぶやきつつその場をやりすごすことができるかできないか、そのハードルを超えるか超えないかの、違い。そのハードルこそがコールフィールドにとってはとてつもなく巨大で重要で真っ暗な出来事として描かれていると、私は思うので、そこをまるっきり無視しちゃっうのならこの作品の存在自体を否定しかねないのではないか？と考えてしまいます。
実際、野崎孝氏は一度も「やれやれ」なんて使わないで訳を完了させてしまってますしね。ところどころ言葉遣いの古さは否めないけど。

私は作品の主人公とほぼ同年齢に野崎孝氏訳の「ライ麦畑でつかまえて」に巡り会えてよかったと思ってます。大人になってからこの作品を読んだ人の感想をどこかで信用していない悪い癖がついてしまったのは、それはしかたのないことだと言いかねないほど。

NASAが...

2010-03-08T21:13:00.001+09:00

NASAが1000日後にアバターを月に送り込む予定
によると

もしヒューマロイドを月に送り込み、科学者達自身での探索が可能になったら、それは全ての科学者を実際に月に送り込むのと同じくらいの意味があります
。科学者達が彼ら自身で探索し研究の対象となるサンプルを探すことができるのです。遠隔操作はほんの3秒くらいのタイムラグだそうですよ。

だそうだ。

ヒューマロイドがロビイになったりしませんように。
ディヴになったりしませんように。
ハーヴィーになったりしませんように。
どうかロボットデカルトさまになったりしませんように^^;

instance_variable

2010-03-08T16:04:00.000+09:00

http://ujihisa.blogspot.com/2009/12/left-hand-values-in-ruby.htmlを読んで試してみたこと。

  1 #!/usr/local/bin/ruby191
  2 # coding: utf-8
  3 
  4 class Diary
  5   def initialize
  6     @title, @date = nil, nil
  7   end
  8   alias [] instance_variable_get
  9   #alias []= instance_variable_set
 10   def []=(i, v)
 11     instance_variable_set(i, v) if i_defined?(i)
 12   end
 13   def i_defined?(i)
 14     instance_variable_defined?(i)
 15   end
 16 end
 17 
 18 d = Diary.new
 19 d['@title'] = "NewTitle"
 20 d['@date'] = Time.local(2010,02,01)
 21 d['@ddd'] = 'ddd'
 22 p d['@title']
 23 p d
 24 # =>
 25 # "NewTitle"
 26 #<Diary:0xxxx @title="NewTitle", @date=2010-02-01 00:00:00 +0900>

initialize をとりさり i_defined?　もとりさってみる

 29 class Diary
 30   alias [] instance_variable_get # instance_variable_defined?
 31   alias []= instance_variable_set
 32 end
 33 
 34 d = Diary.new
 35 d['@title'] = "NewTitle"
 36 d['@date'] = Time.local(2010,02,01)
 37 p d

% ./try.rb
#<Diary:0xxxx @title="NewTitle", @date=2010-02-01 00:00:00 +0900>

勉強になった。

self.instance_variable_set
にしなくちゃいけないと思っていた。
instance_variable_set
だけで動くなんて知らなかった!

alias [] instance_variable_get
これでinstance の値をとれるなんて！

instance_variable_get
のところを
alias [] instance_variable_defined?
に変えてみたら値をとるかわりに定義されているか否かを true or false で返してくれた!びっくり。

alias [] instance_variable_get
alias []= instance_variable_set
alias [] instance_variable_defined?

のようなことをしてみたくなったが
[] methods
は1度使ってしまったら2個目は使えない。の overwrite されちゃう。あたりまえかも。
1回目の [] と
2回目の [] を
区別させる方法はない? ぽい。

部分変更重要

2010-03-04T19:34:00.000+09:00

入門Git のp.57-58 を読みながら試してみたこと

# 複数のファイルが git diff に表示されていた場合、git add -p する際にファイル名を指定することもできた。
% git add -p filename
% git add -p
してすぐにリターンするとヘルプをみることができた。

思い通りに hunk が分かれていなかった場合は s 選択するとより細かく分割してくれるようだ。今回のコミットに反映したい箇所は y で反映したくない時は n。 q で終了。

% git diff --cached
今からコミットする内容を確認

% git commit -v
変更箇所の詳細内容をみながらコミット文を作成できる。書式ルールは

１行目が要約文
２行目空行
３行目以降に詳細文

これからは要点と合致した commit を心がけようと思った。

UTF8-MAC [2]

2010-02-26T12:57:00.000+09:00

UTF8-MAC みなおし。

要は \\ があればいいんでしょ？とお気楽な発想を展開してみました。
が、以下は非常によろしくないことをしている可能性あり。
あくまでも実験なので試さない方がいいです。おい

macustr.rb

  1 #!/usr/local/bin/ruby19
  2 # coding: utf-8
  3 
  4 exit unless Encoding.default_external.name == 'UTF-8'
  5 
  6 require 'nkf'
  7 def macustr(line)
  8   str = String.new # p str.encoding
  9   line.chars.entries.each{|x| str << "\\" + x}
 10   #line.codepoints.entries.each{|x| str << "\\" + [x].pack("U*")}
 11   mustr = NKF::nkf('--ic=UTF-8 --oc=UTF8-MAC', str)
 12   return mustr
 13 end
 14 
 15 ARGF.each{|line|
 16   exit unless line.encoding.name == "UTF-8"
 17   next unless line.valid_encoding?
 18   mustr = macustr(line.strip)
 19   next unless  mustr.valid_encoding?
 20   sh = system("mkdir #{mustr}")
 21   print "Maked Directory: #{line}" if sh
 22 } 
 23

line 4 : 環境変数LANGが UTF-8 でない場合はおいかえす。
line 16: 読み込んだ文字列が UTF-8 でなければすぐ終了。
line 17: valid でなければ次
line 18: def macustr に一行わたす
line 9 : 冒頭に"\\" を付け加えて一文字ずつ str に追加。最初は line 10 にしたのだが line 9 にしておいた。
line 11: str を UTF8-MAC に変換
line 19: valid でなければ次
line 20: mkdir コマンド
line 21: コマンドが成功したらメッセージ表示

./macustr.rb utf8_text.txt

を実行すると utf8_text.txt を一行ずつ読み込み
同名のDirectory を同じ階層に作成します。
utf8_text.txt は UTF-8 で保存されたテキストファイル。

[2010-02-27]
s/chomp/strip/g

[2010-03-08]
追記
# 失敗例

  1 #!/usr/local/bin/ruby19
  2 # coding: utf-8
  3 # test-encode.rb
  4 
  5 text = 'utf8-text.txt'
  6 # % cat utf8-text.txt 
  7 # and two &three
  8 
  9 File.open(text, "r:utf-8"){|f|
 10   f.each_line{|x|
 11     #  行末\n や行頭\s を削除
 12     line = x.strip
 13     # print out
 14     puts "Line: \"#{line}\"| Encoding: #{line.encoding}| Valid: #{line.valid_encoding?}\n"
 15     puts "# Calling encode\n"
 16     # encode で変換
 17     mustr = line.encode("UTF8-MAC")
 18     # print out
 19     puts "String: \"#{mustr}\"| Encoding: #{mustr.encoding}| Valid: #{mustr.valid_encoding?}\n"
 20     print "# Calling system\n"
 21     # Directory 作成
 22     sh = system("mkdir #{mustr}")
 23     puts "Result: #{sh}\n--\n"
 24   }
 25 }
 26 
 27 =begin
 28 % ./test-encode.rb 
 29 Line: "and two &three"| Encoding: UTF-8| Valid: true
 30 # Calling encode
 31 String: "and two &three"| Encoding: UTF8-MAC| Valid: true
 32 # Calling system
 33 sh: three: command not found
 34 Result: false
 35 
 36 % ls -F
 37 and/            test-encode.rb* two/            utf8-text.txt
 38 =end

17行目

mustr = ine.encode("UTF8-MAC")

を

mustr = line.force_encoding("UTF8-MAC")

にしても同様の結果だし

require 'nkf'
mustr = NKF::nkf('--ic=UTF-8 --oc=UTF8-MAC', line)

としてみても結果は同じ

検索して次を読んでみたけどよくわかってないというか...。
<http://redmine.ruby-lang.org/issues/show/1411>
<http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-dev/40233?help>

+++ 感想 +++

通常 Mac OS X を使用する上で自ら日本語名のフォルダを作る人はあまりいないだろうし、スペースが混入した文字列をわざわざフォルダの名前にする人もあまりいないはずなので、じゃあ一体どういった場面で上のような必要が生じるかというと
ずばり
iTunes のための iTunes による Folder 生成 | File 生成なのかな? と。
2010/03/08 現在ではこれ以外の場面で UTF8-MAC への変換なんて一般的には必要とされてないことなのかもしれません。

ただ、今後 iPad が登場しまた新しくiのつく名前のアプリケーションがでてきたりすると UTF8-MAC への変換に対する需要は増えるかもしれませんね？電子書籍を買って読むための iBooks.app が OS X に搭載される日は案外近い将来かもしれません。
iPad

それで、例えば iBooks.app が生成するであろう著書名のついたファイルにアクセスする際、もしも著書名に\& や\s が含まれていたり日本語だったりしたらRuby からそれらのファイルにアクセスしようとするのはちょっと困難がありそうです。いまの iTunes ファイル群と同様に。
# Ruby からはそういうファイル群にアクセスしないから大丈夫...といった意見の人もいるかもしれません。
# あるいは上に書いた失敗例を[ちゃんとした]成功例にする方法を私が知らないだけのことなのかもしれません。
# macustr.rb は一見成功してるようにみえるけどもちゃんとはしていないだろうし。

はたまた違う観点からみた場合、セキュリティ的にどうなんだろう？って問題も私にはよくわからないけどきっとあるんだろうと思います。そっちが優先された上で現在こうなっているのであればこのままの方がうれしい人も多いのかもしれません?。

ということで、幾日経過後のまとまりのない&とりとめないのない感想でした。

# 私が間違った認識をしている可能性は多分にあります。何かお気付きの方はコメントお願いします。

mdiary 最近の変更点

2010-02-24T10:06:00.000+09:00

  5     def initialize(arg)
  6       @err = false
  7       k, @h = nil, Hash.new
  8       arg.each{|x| m = /^-(.*)/.match(x); (m) ? (k = m[1].to_sym; @h[k] = nil) : @h[k] ||= x}
  9     end

arg は ARGV の値

% .mdiary-run.rb -d 2010-01 -s music

を実行した場合 arg は

arg = ["-d", "2010-01", "-s", "music"]

になる。line 8 はこの配列を

@h = {:d=>"2010-01", :s=>"music"}

のようなハッシュにするためのもの。

arg = ["-d", "2010-01", "-l", "3"] だった場合
@h={:d=>"2010-01", :l=>"3"}

arg = ["-d", "2010-01", "-l"] だった場合
@h={:d=>"2010-01", :l=>nil}
になる。

line 7-8 をくだいて書くと

  1 # arg = ["-d", "2010-01", "-s", "music"]
  2 k, @h = nil, Hash.new
  3 arg.each{|x| 
  4   m = /^-(.*)/.match(x)
  5   if m
  6     k = m[1].to_sym
  7     @h[k] = nil
  8   else
  9     @h[k] ||= x
 10   end
 11 }

line 4: x が '-' で始まっていたら m の値は #<MatchData "-d" 1:"d">
line 5: m の値に何か入っていたら(マッチしたら)
line 6: k に m の1番目のマッチの値を代入。
line 7: ハッシュキーが k で値が nil のペアを @h に格納。
line 8: m の値に何もはいっていなければ(マッチしなかったら)
line 9: @h[k] が nil の場合は x を代入。@h[k] の値が nil でなく何か値が入っていたら何もしない。

+++ memo +++

1) @h[k] ||= x

line 9 の @h[k] ||= x を @h[k] = x　にしてしまうと
あやまって
arg = ["-d", "2010-01", "xxx", "-s", "music"]
が与えられてしまった時
@h = {:d=>"xxx", :s=>"music"}
になってしまう。これでは意図した結果と異なる為 ||= にしている。

2) k = nil

line 2 の k = nil を書き忘れ
line 2 は @h = Hash.new だけだった場合
arg = ["-d", "2010-01", "-s", "music"] を与えると
@h={:d=>nil, nil=>"2010-01", :s=>nil}
になってしまう。
なぜなら...
{}　の外側に k が存在していなければ k は {} の中だけで使える変数となり
m == nil でなければ
k = m[1].to_sym なので k には m[1].to_sym が代入されるが

m == nil だった場合、すなわち else 節においては
k = nil が代入されてしまうから。そして
line 9: @h[k] ||= x
で nil をハッシュキーとしたペア(nil=>"2010-01")を @h に格納することになってしまう。

だから{} の外側の k = nil はとても大切。
外側で定義された k があることによって else 節においても k は m[1].to_sym を保持していてくれる。

[2010-02-26]
~~arg.each{|x| m = /(^-(.*))/.match(x); (m) ? (k = m[2].to_sym; @h[k] = nil) : @h[k] ||= x}~~
arg.each{|x| m = /^-(.*)/.match(x); (m) ? (k = m[1].to_sym; @h[k] = nil) : @h[k] ||= x}

UTF8-MAC

2010-02-22T19:40:00.000+09:00

ここを読んで

私も perl でためしてみました。
% cat test.pl

#!/usr/bin/perl
while(<>) {
    chop;
    print "Making a folder $_...\n";
    mkdir();
}

% cat 02.txt

ABC_a'bc 織田 信長
ABC_e'fg 豊臣 秀吉
ふげふが リファレンス& ドロー

% ./test.pl 02.txt
Making a folder ABC_a'bc 織田信長...
Making a folder ABC_e'fg 豊臣秀吉...
Making a folder ふげふがリファレンス& ドロー...

わざと\s や ' や濁点や & を入れてみましたがちゃんとおかしな名前のフォルダが出来上がりました。

で、Ruby ではどうなのでしょ。
% cat test.rb

#!/path/to/ruby19
# coding: utf-8
ARGF.each{|line|
  system ("mkdir #{line}")
}

% ./test.rb 02.txt

% ./test.rb 02.txt 
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: -c: line 0: unexpected EOF while looking for matching `''
sh: -c: line 1: syntax error: unexpected end of file
sh: ドロー: command not found

こうなるのは予測していたので

http://gihyo.jp/dev/serial/01/ruby/0004?page=2 を読み直し

#!/path/to/ruby19
# coding: utf-8
require 'nkf'
ARGF.each{|line|
  ustr = NKF::nkf('--ic=UTF-8 --oc=UTF8-MAC', line)
  system ("mkdir #{ustr}")
}

nkf を使ってみました。が、最初と同じエラーが現れふげふが/ リファレンス/ の2のフォルダができました。

結果をみると \s のところでパスが区切られてしまったようなので
gustr = ustr.gsub(/\s/, "\\ ")
を挟んでみたものの ”&” でまたパスを区切られてしまいました。結局エラーになりそうな文字(て何?)を全て gsub しないとだめなのかもしれません。いやいやそんなことじゃなく正しい指定(nkf の)さえ分かればいいだけのことなのかもしれません。
あーわからない。

このままで話が終わるのはなんだか後味が悪いので AppleScript で Ruby を呼んでみました。

tell application "Finder"
  activate
  set cf to choose file with prompt "読み込みたいテキストファイル_UTF-8_を選択してください。"
  set dst to choose folder with prompt "保存先フォルダを選択してください。"
  set f to quoted form of POSIX path of cf
  set rubyfile to quoted form of POSIX path of (((folder of file cf) as text) & "ioread.rb")
  # ---------------------------
  try
    set str to do shell script "/usr/bin/ruby" & space & rubyfile & space & f
    set ary to paragraphs of str
    if (count of ary) > 3 then # this line
      return display dialog "体力の限界です。" buttons {"OK"} default button 1 with title "Oh, NO "
    end if
    repeat with fname in ary
      make new folder at (dst) with properties {name:fname}
    end repeat
  on error error_str
    display dialog error_str buttons {"OK"} default button 1 with title "Error"
  end try
end tell
# return AppleScript's version => "2.1.1"

% cat ioread.rb 
#!/usr/bin/ruby
f = ARGV[0]
print nil unless f
ary = IO.readlines(f)
ary.delete("\n")
print ary

% ls -F
ABC_a'bc 織田 信長/                                  ふげふが リファレンス& ドロー/
ABC_e'fg 豊臣 秀吉/

ちゃんとおかしな名前のフォルダができました。
テストなんでフォルダの数は３つまでに制限かけておきました。# this line のところ。

+++ 追記 +++
2010-02-22
しばらくしたら思いつきました。文字ごとに gsub してみようと。

% cat 02.txt

ABC_&a'bc 織田 信長
ABC_e'fg 豊臣 秀吉
ふげふが リファレンス& ドロー

test.rb

  1 #!/path/to/ruby19
  2 # coding: utf-8
  3 
  4 require 'nkf'
  5 def ex(line)
  6   mu = String.new("")
  7   ary = line.each_char{|x|
  8     gx = x.gsub(
  9       /[\s\'\(\)\+\!\&\,\[\]\;]/,
 10       " "=>"\\ ", "'"=>"\\'",
 11       "("=>"\\(", ")"=>"\\)",
 12       "+"=>"\\+", "!"=>"\\!",
 13       "&"=>"\\&", "."=>"\\.",
 14       "ï"=>"\\i", ","=>"\\,",
 15       "["=>"\\[", "]"=>"\\]",
 16       ";"=>"\\;"
 17     ) 
 18     mu << gx
 19   } 
 20   p macustr = NKF::nkf('--ic=UTF-8 --oc=UTF8-MAC', mu)
 21   p macustr.encoding
 22   system ("mkdir #{macustr}")
 23 end
 24 
 25 ARGF.each{|line| ex(line)}

% ./test.rb 02.txt

"ABC_\\&a\\'bc\\ 織田\\ 信長"
#<Encoding:UTF8-MAC>
"ABC_e\\'fg\\ 豊臣\\ 秀吉"
#<Encoding:UTF8-MAC>
"ふげふが\\ リファレンス\\&\\ ドロー"
#<Encoding:UTF8-MAC>

% ls -F

02.txt                                               test.rb*
ABC_&a'bc 織田 信長/                                 ふげふが リファレンス& ドロー/
ABC_e'fg 豊臣 秀吉/

line 10　"'" を "\\'" と~~スラッシュ~~バックスラッシュ２つにしてみたらうまくいった。それがなぜなのかは分かっていない。
こういうのは力技と呼ばれることなんだろう。

UTF8-MAC [2] へ続く

[2011-02-19]

2010-02 時点での敗因はただ単にchomp しわすれとsystem コマンド発行する引数を'' で囲まなかったこと。それだけ。びっくりする愚かなおち。
nkf とかね関係ありません...。
それにしても今読み返してつくづく...単純ミスから泥沼していく様は自分でもあきれました。

% cat a.txt
ふげふが &どろー
% cat test.rb
# coding: utf-8

ARGF.each{|x|
  s =  "\'#{x.strip}\'"
  p sh = system("mkdir #{s}")
}

% ruby -v test.rb a.txt
ruby 1.8.7 (2009-06-12 patchlevel 174) [universal-darwin10.0]
true
% ls
a.txt                            test.rb                          ふげふが &どろー

ruby 1.9.2
でも同様の結果。

git push error

2010-02-17T19:44:00.000+09:00

% git push origin master
を実行したら

 ! [rejected]        master -> master (non-fast-forward)

error: failed to push some refs to (...略) 
To prevent you from losing history, non-fast-forward updates were rejected
Merge the remote changes before pushing again.  See the 'non-fast-forward'
section of 'git push --help' for details.

となってしまった。思い当たることとしては OS を再インストールして git repository へのパスを変えてしまったことと git のバージョンをあげたこと。

% git push --help
を
/non-fast-forward
next していたら次のような文章があった。

       There is another common situation where you may encounter non-fast-forward rejection when you try to push, and it is possible even
       when you are pushing into a repository nobody else pushes into. After you push commit A yourself (in the first picture in this
       section), replace it with "git commit --amend" to produce commit B, and you try to push it out, because forgot that you have pushed A
       out already. In such a case, and only if you are certain that nobody in the meantime fetched your earlier commit A (and started
       building on top of it), you can run "git push --force" to overwrite it. In other words, "git push --force" is a method reserved for a
       case where you do mean to lose history.

辞書をひきつつ 2 回読んでみたけどもなぜこうなってしまったのか？や、どうすればいいのか？は読み解けない。

Google にて "non-fast forward"
を検索してみたところ
http://blog.digital-squad.net/article/132085683.html
に

こういうときは --forceオプションをつけてやることで強制的にpushできる。
git push origin master --force

とありまして --force をつけて試してみるとあっさり git push に成功しました。とても助かりました。
一時は ssh-keygen で鍵を作りなおさなくちゃいけないのかと思った。

さて、落ち着いてから上の英文を読みなおすと

you can run "git push --force" to overwrite it. In other words, "git push --force" is a method reserved for a
       case where you do mean to lose history.

... "git push --force" はあなたが歴史を失うケースに備えての予備のメソッド?
間違えて読んでる可能性大だけど歴史を失うとはどういうことだろ。
OS 再インストールしてパスが変わってるから何かが失われたってことなのかな。何が？

% git log
ちゃんと動いてる。最初からのlog もみえてる。はて？

+++ 教訓 +++

% git push midore@github.com:midore/mblogger.git

などしても

...
Permission denied (publickey).
fatal: The remote end hung up unexpectedly

エラーになる。だからといって ~/.ssh/ の中の鍵のパーミションが関係してる？とか考えない。

remote 先を明示したい時は

% git push git@github.com:midore/mblogger.git

~/.gitconfig や ~/.ssh/ にゆるぎない自信があれば

% git push origin master

で OK.

[後日談]
入門Git(秀和システム) を読みましてこの時何がおこっていたか？を考えてみました。
p81 に non fast forward エラーについて解説がありました。

私の場合OS を入れ替える前にバックアップをとり、OS を新規インストールした後にこのバックアップから
local git repository を読み込んだわけだけどもバックアップした直後で新規インストールする直前に
github.com/midore/mdiary に対してgit push　しちゃっていたのかもしれません(驚)
だとすればこの挙動はものすごく納得がいきます。
バックアップとった後に git push した記憶がない自分が怖い...

私がうっかり git push していたのならば上記の対処は正しいやり方じゃなかったようです。
% git pull
を使い
(pull 先は add remote した先を指し、clone したproject の場合は自動的にclone 元になるそうだ)
github.com においてあるリポジトリの最新コミットと手元のリポジトリのコミットをマージさせるべきでした。
git pull してみればどこで conflict していたか明らかになったはずなのでした。
（ただしgit push した記憶がない状態で pull する勇気をもてたかは不明）
conflict メッセージがでていたのならそのファイルを編集した上でcommit するべきだったのかもしれません。

Remove resource fork in AppleScript

2010-02-16T13:00:00.000+09:00

私は Twitter に参加していませんが何日か前に Google Reader で
急募: OS XのiTunesから、mp3ファイルを_リソースフォークなしに...
を見かけました。

早速 AppleScript で try

tell application "Finder"
  set src to quoted form of POSIX path of (choose folder)
  set dst to quoted form of POSIX path of (choose folder)
  set str to "ditto -v --norsrc  " & src & "  " & dst
  do shell script str
end tell

日本語名のフォルダを指定しても大丈夫でした。でもこれだけだと愛想がないのでいろいろ付け足し。

# remove-resource-forlk.scpt
tell application "Finder"
  # フォルダを選択
  set src to quoted form of POSIX path of (choose folder with prompt "リソースフォークをまるっと取り除きたいフォルダを選択してください。")
  # 保存先フォルダの選択
  set dst to quoted form of POSIX path of (choose folder with prompt "保存先であるフォルダを選択してください。")
  # コマンド文字列
  set str to "ditto -v --norsrc  " & src & "  " & dst
  if src is dst then
    set err_str to "指定したフォルダと保存先であるフォルダが同じです！異なるフォルダを選択してください。"
    display dialog err_str buttons {"OK"} default button 1 with icon 2 with title "Error"
    return
  end if
  set warn_str to "多くのファイルが含まれているフォルダを選択した場合時間がかかる（数分）場合があります。よろしいですか？"
  display dialog warn_str buttons {"OK", "Cancel"} default button 2 with icon 2 with title "Warning"
  try
  # コマンドの実行
  set res to do shell script str
  on error num
    display dialog "エラーが発生しました。" buttons {"OK"} default button 1
    return
  end try
  if res is "" then display dialog "おわりました。" buttons {"OK"} default button 1 with icon 1 with title "Success"
end tell

[用途]
フォルダに含まれるファイルからリソースフォークを削除したファイルを保存先フォルダに保存します。（もとのファイル名は維持されます。）
複数のフォルダがを内包しているフォルダを指定した場合、保存先フォルダの階層は、もとのフォルダの階層を維持します。

# iTunes Music フォルダにあるミュージシャン(Artist) の名前がついたフォルダを選択すると、そこに含まれるアルバム名のついたフォルダにある音楽ファイル( 末尾に.m4a .mp3 などの名前のついたファイル)から、リソースフォークを削除したものを、保存先フォルダに保存します。
# ターミナルからコマンドを叩くことなく、操作できます。

[使い方]
Finder メニュ-> 移動-> アプリケーションを開く（Command + Shift + A でApplication フォルダを表示)
->ユーティリティ ->AppleScript Editor.app(AppleScript エディタ.app) をダブルクリックで起動し新しいファイルを作り上記をコピー and ペーストします。

1, コマンドKey(⌘) + K でコンパイルします。
2, コマンドKey(⌘) + S で File 保存(必ずスクリプトとして)
3, コマンドKey(⌘) + R で実行です。

処理がおわると『おわりました。』と表示します。エラーが発生した場合は『エラーが発生しました。』と表示します。

複数のアルバムフォルダが含まれているミュージシャン(Artist) のフォルダなどを選択するとファイル数にして何百曲などのファイルを処理することになります。その場合ものすごく時間がかかる(数分)こともあります。なので最初は下記の手順でテストしてみてどのくらい時間がかかるものかを体感してみてください。

[テスト手順]
(1) デスクトップに2つ新規フォルダを作りそれぞれ「SRC」「DST」と名付けておく。
(2) 「SRC」フォルダの中にリソースフォークを取り除きたいフォルダを1 つだけコピーしておく。
　　その際極力ファイル数の少ないフォルダを選ぶ。
「DST」フォルダは空っぽのままにしておく。
(3) 保存しておいた AppleScript ファイルを開いてからコマンドKey(⌘) + R をおす。または「実行」ボタンを押す。
「リソースフォークをまるっと...」ときかれたら「SRC」を選ぶ。
「保存先...」ときかれたら「DST」を選ぶ。

処理している間はなんのメッセージも表示しません。
10 枚程のファイルを処理した場合 2,3 秒でおわります。

# 注意1:
OS X 10.5x 時代のファイルにはリソースフォークがついてるけど、Snow Leopard 時代に作ったファイルにはついてません。

# 注意2:
指定フォルダとしてミュージシャン(Artist)名のついたフォルダを指定し
保存先フォルダには適当な名前(「test」とか)のフォルダを指定し実行した場合

iTunes->詳細->”iTunes Media”フォルダを整理する
にチェックをいれてから保存先フォルダ（「test」とか）を iTunes に取り込むと本来のミュージシャン(Artist)名のついたフォルダ名に自動変換されます。
(iTunes 9.03)

[ターミナルで確認]

# % ditto -h
# % xattr -h

# 指定フォルダ: test-src
# 保存先フォルダ: test-dst

指定フォルダ内

% ls -FRl test-src/
total 0
drwx------  3 foo  staff  102  2 15 16:35 Makana/
drwx------  3 foo  staff  102  2  4 11:48 平沢 進/

test-src//Makana:
total 0
drwx------  17 foo  staff  578  2 15 16:33 Different Game/

test-src//Makana/Different Game:
total 92824
-rw-------@ 1 foo  staff  4428672  6  6  2009 01 Away.m4p
-rw-------@ 1 foo  staff   623834  2  4 18:09 02 Interlude I.m4p
-rw-------@ 1 foo  staff  3821305  6  6  2009 03 Mars Declares.m4p
# ... 略

test-src//平沢 進:
total 0
drwx------  4 foo  staff  136  2  4 11:48 時空の水/

test-src//平沢 進/時空の水:
total 15344
-rw-------@ 1 foo  staff  4542192  4  4  2008 01 ハルディン・ホテル.m4p
-rw-------@ 1 foo  staff  3311160  4  4  2008 10 金星.m4p

% xattr -x test-src/Makana/Different\ Game/01\ Away.m4p 
# => com.apple.FinderInfo

% xattr -x test-src/平沢\ 進/時空の水/01\ ハルディン・ホテル.m4p
# => com.apple.FinderInfo

AppleScipt 実行後
保存先フォルダ内

% ls -FRl test-dst/
total 0
drwx------  3 foo  staff  102  2 15 16:35 Makana/
drwx------  3 foo  staff  102  2  4 11:48 平沢 進/

test-dst//Makana:
total 0
drwx------  17 foo  staff  578  2 15 16:33 Different Game/

test-dst//Makana/Different Game:
total 92824
-rw-------  1 foo  staff  4428672  6  6  2009 01 Away.m4p
-rw-------  1 foo  staff   623834  2  4 18:09 02 Interlude I.m4p
-rw-------  1 foo  staff  3821305  6  6  2009 03 Mars Declares.m4p
# ... 略

test-dst//平沢 進:
total 0
drwx------  4 foo  staff  136  2  4 11:48 時空の水/

test-dst//平沢 進/時空の水:
total 15344
-rw-------  1 foo  staff  4542192  4  4  2008 01 ハルディン・ホテル.m4p
-rw-------  1 foo  staff  3311160  4  4  2008 10 金星.m4p

% xattr -x test-dst/Makana/Different\ Game/01\ Away.m4p
# => 何もかえってこない。

% xattr -x test-dst/平沢\ 進/時空の水/01\ ハルディン・ホテル.m4p
# => 何もかえってこない。

[2010-02-16]
s/errr_str/err_str/g
s/warm_str/warn_str/g
s/やめる/Cancel/g
[2010-02-18]
s/folk/fork/g

Snow Leopard Re-Install memo

2010-02-11T08:52:00.001+09:00

# backup
$ sudo launchctl bslist -j > default-launchctl-bslist.txt
# PRAM Clear
# $ sudo nvram -c -xp

0) Remove Extensions
# Bluetooth
$ sudo srm -rf /System/Library/Extensions/IOBluetooth*
# iSight
$ sudo srm -rf /System/Library/Extensions/Apple_iSight.kext/
$ sudo srm -rf /System/Library/Extensions/IOUSBFamily.kext/Contents/PlugIns/AppleUSBVideoSupport.kext/

# Touch
$ sudo touch /System/Library/Extensions/

# blued
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.blued.plist
$ sudo chmod 600 /usr/sbin/blued

$ sudo reboot

1) mDNSResponder.plist
$ ps aux | grep mDNS
# => ... /usr/sbin/mDNSResponder -launchd

~~$ sudo vi /System/Library/com.apple.mDNSResponder.plist~~
$ sudo vi /System/Library/LaunchDaemons/com.apple.mDNSResponder.plist

        <array>
                <string>/usr/sbin/mDNSResponder</string>
                <string>-launchd</string>
                <string>-NoMulticastAdvertisements</string>
        </array>

# Reload com.apple.mDNSResponder.plist
$ sudo launchctl unload /System/Library/LaunchDaemons/com.apple.mDNSResponder.plist
$ sudo launchctl load /System/Library/LaunchDaemons/com.apple.mDNSResponder.plist

$ ps aux | grep mDNS
# => .... /usr/sbin/mDNSResponder -launchd -NoMulticastAdvertisements

See: support.apple.com/kb/HT3789

2) change mode
$ man samba
$ apropos smbd

$ sudo chmod 600 /usr/sbin/nmbd
$ sudo chmod 600 /usr/sbin/smbd
$ sudo chmod 600 /usr/sbin/cupsaddsmb

$ sudo chmod 600 /usr/bin/smb*
$ sudo chmod 600 /usr/bin/nmblookup
$ sudo chmod 600 /etc/smb.conf
$ sudo chmod 600 /etc/smb.conf.template

# httpd
$ sudo chmod 600 /usr/sbin/httpd

# sshd
$ sudo chmod 600 /usr/sbin/sshd

# ftpd
# sudo chmod 600 /usr/libexec/ftpd

# nfsd
$ sudo chmod 600 /sbin/nfsd

# Apple FileServer
# $ ls -la /usr/sbin/AppleFileServer
$ sudo chmod 0 /System/Library/CoreServices/AppleFileServer.app/Contents/MacOS/AppleFileServer

# ae server (Apple Event)
# $ more /System/Library/LaunchDaemons/com.apple.eppc.plist
$ sudo chmod 0 /System/Library/Frameworks/CoreServices.framework/Frameworks/AE.framework/Versions/A/Support/AEServer

# Problem Reporter
$ sudo chmod 600 /System/Library/CoreServices/Problem\ Reporter.app/Contents/MacOS/Problem\ Reporter

See: http://www.macosxhints.com/

# Plug-Ins
$ ls -la /Library/Internet\ Plug-Ins/
$ sudo chmod 700 /System/Library/Frameworks/JavaVM.framework/Resources/JavaPluginCocoa.bundle
$ sudo chmod 700 /Library/Internet\ Plug-Ins/Flash Player.plugin
$ sudo chmod 700 /Library/Internet\ Plug-Ins/QuickTime Plugin.plugin
$ sudo chmod 0 /Library/Internet\ Plug-Ins/NP-PPC-Dir-Shockwave
$ ls -la /Library/Internet\ Plug-Ins/

3) launchctl unload
$ sudo launchctl unload -w /System/Library/LaunchDaemons/org.cups.cupsd.plist
$ sudo launchctl unload -w /System/Library/LaunchDaemons/org.x.privileged_startx.plist
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.webdavfs_load_kext.plist

# com.apple.smb.server.preferences.plist com.apple.smb.sharepoints.plist com.apple.smbfs_load_kext.plist
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.smb.sharepoints.plist
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.smb.server.preferences.plist
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.smbfs_load_kext.plist

$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.RFBRegisterMDNS_ScreenSharing.plist
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.RFBRegisterMDNS_RemoteManagement.plist

$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.printtool.plist
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.portmap.plist
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.nfsd.plist
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.RemoteDesktop.PrivilegeProxy.plist
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.IIDCAssistant.plist

# 2010-03-30
$ sudo launchctl unload -w /System/Library/LaunchDaemons/com.apple.dashboard.advisory.fetch.plist

# /System/Library/Filesystems/AppleShare/check_afp.app/Contents/MacOS/check_afp
# $ more /System/Library/LaunchDaemons/com.apple.afpfs_checkafp.plist

# /System/Library/Filesystems/AppleShare/afpLoad
# $ more /System/Library/LaunchDaemons/com.apple.afpfs_afpLoad.plist

# /System/Library/PrivateFrameworks/SoftwareUpdate.framework/Resources/suhelperd
# $ more /System/Library/LaunchDaemons/com.apple.suhelperd.plist

$ sudo launchctl bslist -j
$ sudo lsof -i

4) Spotlight
# as admin-user
$ sudo chmod 600 /System/Library/CoreServices/Search.bundle/Contents/MacOS/Search
$ sudo mdutil -i off /Volumes/abc
$ sudo mdutil -E /Volumes/abc
$ sudo mdutil -s /Volumes/abc

See: http://www.macosxhints.com/article.php?story=20091030173117381

5) fseventsd
$ sudo touch /Volumes/abc/.fseventsd/no_log
$ sudo touch /Users/foo/.fseventsd/no_log
$ sudo chmod 644 /Users/foo/.fseventsd/no_log
$ sudo chown -R foo:staff /Users/foo/.fseventsd/

See: ファイルシステムイベントストレージの防止

# default value "ttyskeepawake" of pmset is 1.
$ sudo pmset ttyskeepawake 0

See: http://forums.applenova.com/showthread.php?t=33172

$ sudo reboot
$ Login as admin-user
$ syslog -w 120 | more

# fseventsd[xx] <Critical>: Logging disabled completely for device:1: /Users/foo

6) Login as User foo
% rm ~/.fseventsd/000000*
% mdutil -i off /Users/foo
% mdutil -E /Users/foo
% mdutil -s /Users/foo
% pmset -g

% syslog -w 30
# What is this warning ?
# (com.apple.ReportCrash) <Warning>: Falling back to default Mach exception handler. Could not find: com.apple.ReportCrash.Self

% more /System/Library/LaunchAgents/com.apple.ReportCrash.Self.plist

% launchctl list | grep Repo

-	0	com.apple.ReportPanic
-	0	com.apple.ReportCrash.Self
-	0	com.apple.ReportCrash

See: http://www.insanelymac.com/forum/index.php?showtopic=192563

# User foo
% mkdir ~/Library/LaunchAgents
# if you did't set umask
# % chmod 700 ~/Library/LaunchAgents

% cd ~/Library/LaunchAgents
% cp /System/Library/LaunchAgents/com.apple.ReportCrash.Self.Plist .

# User admin
$ su admin-user
$ cd /path/to/backup-dir/
$ sudo mv /System/Library/LaunchAgents/com.apple.ReportCrash.Self.Plist .

# logout and login as User foo
% syslog -w
# not found, "... (com.apple.ReportCrash) <Warning>: (...) Could not find: com.apple.ReportCrash.Self"

[2010-02-11]
# RemotManagement
# $ sudo srm -rf /System/Library/CoreServices/RemoteManagement/
# or
# cd /path/to/backup-dir/
# $ sudo mv /System/Library/CoreServices/RemoteManagement/ .

[2010-02-12]
# User foo
# % launchctl list | grep Remote
# => exist.

# Admin user
# $ grep 'Remote' /System/Library/LaunchAgents/*
# $ sudo mv /System/Library/LaunchAgents/com.apple.RemoteDesktop.plist /path/to/backup-dir/
# $ sudo mv /System/Library/LaunchAgents/com.apple.ScreenSharing.plist /path/to/backup-dir/

# reboot

# User foo
# % launchctl list | grep Remote
# => not exist.

[2010-05-31]
Apple Releases Snow Leopard Security Configuration Guide
http://blog.intego.com/2010/05/26/apple-releases-snow-leopard-security-configuration-guide/

Apple has released their Snow Leopard Security Configuration Guide,

Mac OS X Security Configuration Guides
http://www.apple.com/support/security/guides/

git-push

2010-01-20T20:52:00.002+09:00

mblogger 変更点

1, テキストファイルを読み込む処理方法と表示するエラーの変更。
2, XML タグ生成に失敗した際行内容とメッセージを表示するようにした。
3, コンテンツ内容が空の場合は post も puts もできないようにした。
4, その他 draft.txt, README なども若干変更
5, mdiary と保存先ディレクトリが一致した場合、mdiary は年月別のサブディレクトリをかましているので mblogger もそれにあわせた。

など。

10.6.2 Spotlight OFF

2010-01-20T19:54:00.000+09:00

ここを読んでSpotlight を無効にしてみた。

$ sudo chmod 600 /System/Library/CoreServices/Search.bundle/Contents/MacOS/Search

これを実行するとログイン時 syslog にエラーが検出されるようになる。が使っていて特に支障はないようだ。たぶん...。

$ sudo mdutil -a -i off

$HOME の mdutil 状態確認。

以前は

$ mdutil -s /Users/username/

　　　　Indexing enabled.

だったが

$ mdutil -s /Users/username/

        Indexing disabled.

になった。

また

$ man mdutil

mdutil -- manage the metadata stores used by Spotlight
...

とあるので
Spotlight 自体をストップさせている訳ではないのだと想像するがよくわかっていない。

$ launchctl list | grep meta
-	0	com.apple.metadata.mdwrite.plist

こっちには何も影響していない。ようだ。

要は、手動でシステム環境設定を開きスポットライト設定のプライバシーにおいては全てのボリュームを登録し、検索結果においては全てのカテゴリーのチェックを外したことと全く同様の結果になるのだと思う。
ただ、一点の違いは、タイムマシン使用時などに外部ボリュームをマウントした場合に、違いが生じるのかな？sudo chmod しているから。

google は中国を Free にする？

2010-01-14T20:59:00.001+09:00

すばらしい news。
Googleにとっての中国: 人権うんぬんよりも世界でのビジネスが第一

 中国を含む各国版のGoogleで「天安門事件」を画像検索するとどうなるのか？
関連するnews
<http://news.google.co.jp/news/more?pz=1&cf=all&ned=jp&ncl=d-eIca1RL6XFYMMoNLA9_rbSH7SAM&topic=h>

結果的にどう転ぶにせよ、ビジネスが第一であろうとも、Google の決断はすばらしいと思いました。

それにひきかえ、こちらはすばらしくない news。
そのすばらしくない news の中のすばらしい情報。さすがは...。
大手出版社21社、「日本電子書籍出版社協会」を立ち上げ。Amazonに対抗？
どの意見もえぐい。その中でもことさら際立っていた意見。

「経済産業省の皆様に理事として天下っていただくためのハコを用意いたしました。つきましては、物書き風情がわれわれに歯向かって勝手に電子化などできないようにしてアマゾンを潰してください」
って読むんだよ。

まさにこのとおりなんだろう。
でも基本的に今の日本で著作権者の契約の自由を侵害する権利は認められないはずなので、とーぜん限定された範囲内(既に出版されている著作物)のことなんだろう。と、信じていたい。

他の場所で「これはカルテルだ」と言っている人もみかけたような気もするがわたしの気のせいかもしれない。

Kindle DX

2010-01-07T20:14:00.000+09:00

Kindle DXのニュース検索結果

日本は電子ブック戦争になぜ敗れたのか
http://ascii.jp/elem/000/000/487/487838/
ふーん pdf よめない?
あれ、こっちには読めるとあった。

読めるの読めないのどっち？ってことはあとでゆっくり調べることにして、

それにしても、最初の ascii の記事２ページ目で気になったこと

しかし電子ブックには在庫リスクなんてないのだから、こんな不合理なシステムを守る必要はない。それなのに彼らはアマゾンの参入を求めようとしない...

この文章の意味、私にはさっぱりわかりませぬ。
彼らって取り次ぎのこと？
アマゾンの参入をもとめるようとしない？はぁ？
アマゾンさんも取り次ぎ業一緒にはじめませんか？楽しいですよって営業にいくの？なあほなね。
それともアマゾンさん、商品全部全部すべからく取り次ぎとーしてくださいよっ！て言うってこと？まさかね。

ま、どうでもいけど、
ここでいわれてる不合理なシステム、すなわち再販制度にとっては、kindle は黒船以外の何者でもないのでしょうね。

あんまりなんでちょっと追記。(2010-01-08)

第一に
Kindle の物理的な特徴は、アマゾンに参入を求めるとか「認めるとか認めないとか」、そんな従来の井戸の中の蛙的価値観の枠の中で語ることを不可能至らしめてしまうであろうこと、そして Kindle の日本上陸とは、そういったレベルの出来事なんだってこと、を池田氏はちゃんと認識しているのかな？と疑問を持ってます。

第二に不合理なシステム（再販制度）を持つ業界と電気産業とは基本的に別々の業界である以上、書籍の再販制度の不合理な点と、電気産業が独自の規格で我の支配を広げたがる話とは、似ているようで全く似ていない似て非なる話なのに、それをごっちゃにして日本側陣営のようにしてる点でも、首をかしげてしまってます。
むしろ、不合理なシステムが不合理であることはえらい昔からわかってたことなので、それを変えることができないまま今日に至っているのは、なぜなのかにきりこんで欲しかったです。

第三に日本は取り残されると心配する心情は理解できなくもないけれども、ダイナミックな本の歴史の流れからみれば、そんな心配はささいな支流にすぎず、電気産業に肩入れしただけの単なる杞憂にすぎないと思う。Kindle のもたらす影響を考えれば　電機メーカー心配するより出版業界心配すべきだろ、とあきれています。
日本の再販制度 vs アメリカ発電子本屋の市場競争の行く末は、どちらかが許容するだの認めるだのなんてあまっちょろいもんじゃないでしょうに。

それに電子ブック戦争はこの日本ではこれからはじまるのだから、日本の電機メーカーが敗れたって言ってしまう（記事のタイトルにおいて）のは早すぎる結論なんじゃないのかな。Sony は先進的すぎて成功できなかったかもしれないけど日本においては今がチャンス到来なわけですし。
もっとも、電子ブック戦争といえば、Apple の未来のデバイス vs Kindle を意味するようになっている時代がくるのかもしれません。

とまれ、池田氏のトーンは時代の変化を受け入れているように読めるので、その点「だけ」は好感を持ってます。

mblogger

2010-01-06T20:22:00.001+09:00

mblogger について

gdata を使用して Ruby で遊びながら Blogger に投稿するためのツールです。

必要なもの
• Ruby 1.9.1
• gdata-ruby-util <http://code.google.com/p/gdata-ruby-util/downloads/list>
• Blogger アカウント

~~この記事はテストをかねていたりしてます。~~

[2010-01-07]
~~自分のBlogID を取得 or 確認するための get-blogid.rb を作りました。~~

[その他のメモ]
blogの公開時間設定について
2009-07-01 付けで投稿予定が実行されないトラブルがあるとのこと。
たしかにこの頃から、未来の日付をもつ記事を post しても記事公開の予約に反映されなくなった記憶がある。それ以前は未来の日付をもつ記事を post すると指定された時刻に自動的に記事が公開されていた。はず。なので、おそらく仕様が変わったのだろうと思う。

カテゴリーを指定して Get Request を発行する場合のURL (2009-05-17)
参照：
http://code.google.com/intl/ja/apis/blogger/docs/2.0/developers_guide_protocol.html

例：ラベル Fritz か Laurie を得るための URL

http://www.blogger.com/feeds/blogID/posts/default/-/Fritz/Laurie

[2010-03-06]
% cd /path/to/your/dir
% git clone git://github.com/midore/mblogger.git mblogger
% ls
mblogger
% cd mblogger
% ls
README bin lib

% git clone は、TCP PORT 9418
を使用するのでファイアウォールなどを使用している場合は 9418 が出て行けるように設定する必要があります。

[2011-06-28]
get-blogid.rb を削除。

関連する記事
"Blogger"ラベルがついた全ての記事

gdata

2010-01-06T00:16:00.001+09:00

いつのまにか新しい gdata がでていた。
gdata-1.1.1
http://code.google.com/p/gdata-ruby-util/downloads/list

memo
gem19 unpack gdata-1.1.1.gem
ruby 1.9.1 で動かす為に最後の２行をコメントにした。lib/gdata.rb

mdiary 覚え書き

2010-01-05T20:37:00.000+09:00

新年とともに大幅に変えた。(2010/01/04)
次回(不明)は、ARGV の処理を変更予定。

def max

2009-12-30T12:38:00.001+09:00

github.com/midore/mdiary

個人が使うものなのであまり意味はないような気もするが、指定ディレクトリ内でのファイル上限数をもうけてみた。
bin/mdconfig に1ヶ月内に追加できるファイルの上限数を指定するメソッド default_file_count を追加し

mdconfig

def default_file_count
  90
end

当月ディレクトリ内のファイル数が default_file_count メソッドで指定した数を超えた場合
-a や -at でのファイル生成を抑制する。指定数に達している場合はその旨の文を返す。

万一、bin/mdconfig に default_file_count メソッドが存在しない場合(line 185)
ファイル上限数は 90 になる。(line 186)
１日平均2,3枚のファイルを生成すると仮定して 30 * 3

line 189 はなんかヘンなんだけどとりあえず...。

mdiary-main.rb
class Main

184     def max?
185       max = default_file_count if defined? default_file_count
186       max = 90 unless max
187       s = Dir.entries(@now_dir).select{|x| /\.txt$/.match(x)}.size
188       return false if s < max
189       print "too many files. Edit bin/mdconfig.\n"
190       return true
191     end

これに伴って
class Add < Main

221       return nil if max?

class ChoiceDir < Main

266     def base_view(n)
267       return nil if max?
...

273     def base_search(w, st=nil)
274       return nil if max?
...

としておいた。

あと

./mdiary-run.rb -s ""
./mdiary-run.rb -s ''

とかしたら無視するようにした。
line 132 あたり

よみもの

2009-12-29T00:39:00.001+09:00

ポール・グレアム「バージョン1.0
これ、めちゃくちゃおもしろかった。

「偉大な」執事とは何か？
と、小説の中の主人公が自問自答する場面を思い出した。なんでだろな...。あんまり関係ないと思うんだけど。

unless a.nil?

2009-12-28T01:01:00.001+09:00

このあいだ
github.com/midore/mdiary

mdiary-main.rb

378       return nil unless @st.nil? || @plus.nil?

だったのを

379       return nil if @st && @plus

に変えた。

前者と後者は同じ動きをする。どちらも
@st は nil ではなく、かつ、@plus もnil でなければ、return nil をかえす。

例えば

  1 # coding: utf-8
  2 
  3 a = 'a'
  4 b = 'b'
  5 print "a,b どちらも not nil です。\n" unless a.nil? || b.nil?
  6 print "a,b どちらも not nil でっす。\n" if a && b

実行すると

a,b どちらも not nil です。
a,b どちらも not nil でっす

となる。

前者(||を使用),後者(&&を使用)ともに

a は nilではない。かつ、b も nil ではない。
であれば print する。

と動く。ちょっと不思議だけど。

条件文が読みやすいのは && を使用した後者。
ただ、
if x
と書いて nil じゃなければとするより
unless x.nil?
と、nil なの？そうじゃないなら　と書いてあった方が私にとってはわかりやすい時もあったりする。

...とはいっても || なのに「かつ」を意図してるとなってると後になって自分がぎょっと驚いてしまうだろうから...変えた。

url for blogger-api

2009-12-28T00:52:00.001+09:00

Blogger API 用
日付範囲を指定したURLの生成

line 10:
t に2010/12 が指定された場合、翌月は年も変わるので年に１加算し月にも１加算すると2011/1/1 が得られそこから１秒ひくと2010/12/31の23:59:59
になる。

Time だけ使った場合

  1 require 'time'
  2 
  3 def range_current_month(t=nil, bid)
  4   u = "http://www.blogger.com/feeds/#{bid}/posts/default"
  5   begin
  6     t = Time.parse(t) unless t.nil?
  7   rescue
  8     t = Time.now()
  9   end
 10   t.month == 12 ? x = [t.year+1, 1] : x = [t.year, t.month+1]
 11   min = t.strftime("%Y-%m-%dT00:00:00")
 12   max = (Time.local(x[0], x[1], 1) -1).strftime("%Y-%m-%dT%H:%M:%S")
 13   return u + "?published-min=#{min}" + "&published-max=#{max}"
 14 end
 15 
 16 bloggerid = 'xxxxxxxxxxxx'
 17 t = '2010/12'
 18 p range_current_month(t, bloggerid)
 19 t = '2010/2'
 20 p range_current_month(t, bloggerid)

=>
"http://www.blogger.com/feeds/xxxxxxxxxxxx/posts/default?published-min=2010-12-01T00:00:00&published-max=2010-12-31T23:59:59"
"http://www.blogger.com/feeds/xxxxxxxxxxxx/posts/default?published-min=2010-02-01T00:00:00&published-max=2010-02-28T23:59:59"

Date も使った場合

  1 require 'time'
  2 require 'date'
  3 
  4 def range_current_month(t=nil, bid)
  5   u = "http://www.blogger.com/feeds/#{bid}/posts/default"
  6   begin
  7     t = Time.parse(t) unless t.nil?
  8   rescue
  9     t = Time.now()
 10   end
 11   t.month == 12 ? x = [t.year+1, 1] : x = [t.year, t.month+1]
 12   min = t.strftime("%Y-%m-%dT%H:%M:%S")
 13   max = ((Date.new(x[0], x[1], 1)) - 1).strftime("%Y-%m-%dT23:59:59")
 14   return u + "?published-min=#{min}" + "&published-max=#{max}"
 15 end
 16 
 17 bloggerid = 'xxxxxxxxxxxx'
 18 t = '2010/12'
 19 p range_current_month(t, bloggerid)
 20 t = '2010/2'
 21 p range_current_month(t, bloggerid)
 22

=>
"http://www.blogger.com/feeds/xxxxxxxxxxxx/posts/default?published-min=2010-12-01T00:00:00&published-max=2010-12-31T23:59:59"
"http://www.blogger.com/feeds/xxxxxxxxxxxx/posts/default?published-min=2010-02-01T00:00:00&published-max=2010-02-28T23:59:59"

もう少し短くできないかなと思うんだけど...。 ?

class Search

2009-12-20T09:59:00.001+09:00

github.com/midore/mdiary
の最近変更した箇所

$ ./mdiary-run.rb -st 'music'

を実行すると、ファイル content 内容に'music'を含むファイルがあるか検索する。
検索結果がゼロでなければ

1	[+] [2009/12/10 Thu AM 00:00:00] [music] (tower)
2	[+] [2009/12/11 Fri PM 17:04:36] [music] (diary)

と結果を返す。

この場合、
class ChoiceDir の中でSearch クラスを呼びだす。
mdiary-main.rb

252       Search.new(@word, @now_dir, st).base if @now_dir

Search の base method は、View の set_i_ary　を呼び出す。
set_i_ary　は、Search の get_diary を使用して一つづつファイルを処理する。

get_diary は @st が nil でなければ find_content にパスをわたす。
find_content はうけとったパスのファイルを一行づつ読み検索対象文字列を探す。
対象文字列がみつかった場合、ary_to_h をかえす。ary_to_h がかえす中身は Hash。
get_diary の中の to_obj　は、Hash がかえってきた場合、その Hash をもとに Diary.new() する。

method "get_diary" in mdiary-main.rb

370     def get_diary(x)
371       begin
372         h = find_index(x) unless @st
373         h = find_content(x) unless @st.nil?
374         to_obj(h) unless h.nil?
375       rescue
376         return nil
377       end
378     end

method "find_content" in mdiary-io.rb

 38     def find_content(path)
 39       i, m = nil, nil
 40       a, mark = [], /^--content$/
 41       IO.foreach(path){|line|
 42         if line.match(mark)
 43           i = true; next
 44         end
 45         (i.nil?) ? a.push(line) : m = line.match(@word)
 46         break if m
 47       }
 48       return ary_to_h(a, path) if m
 49     end

about-mdiary

2009-12-15T01:16:00.001+09:00

mdiary について

有名な tDiary にあやかり mdiary と名付けた。
正式名称は「ま(m)だできてない diary」で mdiary ^^;

<特徴>
• ruby 1.9.1 が必要です。
• local (自分のコンピュータの中) で使うものです。
• home user 向けです。
• ちょっとしたメモ、雑記帳、todolist としても利用できます。
• vim を前提にしてますが mdiary-main.rb を一行変更するだけで他のエディタでもつかえます。
• 標準ライブラリ以外のライブラリに依存してません。
• gem とかいらないです。
• データベースを使用していません。
• marshal なども使用していません。
• キャッシュを作成しません。
• logfile ありません。
• ひょっとしたら軽いかも？
• まだ未完成です。

<使い方>
$ vim bin/mdconfig
ファイル保存先として利用したいディレクトリのパスを記入。
$ vim bin/mdiary-run.rb
ruby 1.9.1 のパスを一行目に記入(例：#!/usr/local/bin/ruby)

新規ファイル作成
$ ./mdiary-run.rb -at '2009/12/14 21:00'

一覧表示(ハイフン + 小文字のエル)
$ ./mdiary-run.rb -l

=>
1  [-] [2009/12/14 Mon PM 21:00:26] [about-mdiary] (draft)
2  [-] [2009/12/14 Mon PM 21:00:00] [about-git] (diary)
3  [+] [2009/12/14 Mon PM 20:00:00] [list] (book)
Select NO:

使い方の続きは REAME を...
$ git clone git://github.com/midore/mdiary.git
or
ブラウザごしにダウンロードもできると思います。
URL : http://github.com/midore/mdiary.git

force_encoding

2009-12-15T01:00:00.001+09:00

ここを読んで
github.com/midore/amazon-jp-api
をなおした。

numerical.rb

2009-11-07T11:42:00.001+09:00

www.midore.net/daybook/2006/5-9/1159081162.html
を書き直し。

% cat numerical.rb

  1 # coding: utf-8
  2 # 2009-11-06
  3 
  4 str =<<EOF
  5 <?xml version="1.0" encoding="UTF-8"?>
  6 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
  7 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="ja">
  8 <head>
  9 <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"/>
 10 <title>数値文字参照</title>
 11 </head>
 12 <body>
 13 EOF
 14 
 15 n = ARGV[0]
 16 abort unless n
 17 abort if /\D/.match(n)
 18 (n.to_i..n.to_i+5).step{|x|
 19     str << "<p>#{x} => &##{x};</p>"
 20 }
 21 str << "</body>\n</html>"
 22 filename = 'numerical.html'
 23 # save file
 24 File.open(filename, 'w:utf-8'){|f| f.print str}
 25 # only OS X
 26 system "open #{filename}"

表示する数値文字は引数として与える数字から５を足した数までに制限している。line.18
数字の範囲は得に定めていないので、与える数字によってはすべて空欄にもなりうる。

% ruby19 numerical.rb '1100'

を実行すると実行ファイルと同じ階層に'numerical.html' ファイルが保存される。
OS X の場合、最終行でブラウザが 'numerical.html' を開く。
与えた数に対応する数値文字がブラウザに表示される。

1100 => ь

1101 => э

1102 => ю

1103 => я

1104 => ѐ

1105 => ё

FXRecentFolders

2009-10-31T12:23:00.001+09:00

Finder->移動->最近使ったフォルダ
に追加されたフォルダの削除

% cat delete-recentrolders.sh

#!/bin/bash

cd
defaults delete com.apple.Finder FXRecentFolders
killall Finder

# 実行権付与
% chmod +x delete-recentrolders.sh

# 実行
% ./delete-recentrolders.sh

参考
http://www.macosxhints.com/

Book.new('1Q84')

2009-10-30T18:44:00.001+09:00

村上春樹の『1Q84』が世間に投げかけた何かを仮に x として読者が感じ取ったものを仮に k とする。
k は抽象的概念を並べたものでもありキーワードの束のようなものとする。

これを Ruby で表現してみると

  1 # coding: utf-8
  2 
  3 class Book
  4 
  5   attr_reader :name
  6   attr_accessor :x
  7   
  8   def initialize(name)
  9     @name = name
 10     @x = nil
 11   end
 12   
 13 end
 14 
 15 class Reader
 16 
 17   attr_reader :booklist
 18   
 19   def initialize
 20     @booklist = Hash.new
 21   end
 22   
 23   def read(book)
 24     @book = book
 25     return self
 26   end
 27   
 28   def image(*k)
 29     @booklist[@book.name] = k
 30   end
 31   
 32 end
 33
 34 book1 = Book.new('1Q84-1')
 35 book2 = Book.new('1Q84-2')
 36 
 37 i = Reader.new
 38 i.read(book1).image('science','nation','man')
 39 i.read(book2).image('religious','language','female')
 40 p i.booklist

実行結果

# =>
# {"1Q84-1"=>["science", "nation", "man"], "1Q84-2"=>["religious", "language", "female"]}

@x には値を付与できるし値を読み取ることもできる。けれども値を付与できるのは作者以外にいない。そして Reader class は直接 @x の値を読み取る手段をもたない。@booklist の values は読者の抱いた感想に基づくキーワード群。それぞれ何かと対をなしていて二項対立とも同一概念の表裏とも光と陰とも言えるような値にしておいた。あえて加えなかったけれども Author class を作るとしたらそこには作者が値が付与できる @booklist があるはずだ。それは作家の頭の中にしか存在しないものなんだろうけど。

作ってみて一番面白かったのは、２５行目 return self。これは i.read(book).image('xxx') と記したかった為に必要だったからなにげなく書いたんだけど def read が self を返す（or 返す必要がある）なんて! ちょっとリアルな感じがした。

'science' のかわりに 'mathematic' の方がふさわしいような気もするし
'nation' のかわりに 'force' とすべきなのかなと迷った。
'female' のかわりに 'child', 'man' のかわりに 'soldier' にしてもよいような気もした。

『1Q84』を読み終えた読者が実際今何人なのか？なんて知る由もないが、仮にすべての読者が抱いたキーワードを全て寄せ集めることができたのなら、この本が抱えるキーワードの束は膨大な数になるんだろうなー。そして時間経過とともに読者数累計は増加してキーワードのエントロピーは増大していく。翻訳される言語が増えればなおさら...。それにキーワードはただ増えるだけじゃなく他の本とどんどんと繋がっていく。

たとえば
『知識人とは何か』（ Edward W. Said / 平凡社 / 978-4582762365 ）
に『若き日の芸術家の肖像』（ Joyce James ）
からの引用がある。

p.46

「きみには、ぼくがすることと、しないことをおしえてあげよう。ぼくは自分で、もう信じていないもの、それを家庭と呼ぼうが、祖国と呼ぼうが、教会と呼ぼうが勝手だけれども、そういうものに仕えるつもりはない。ぼくがやってみたいのは、人生とか芸術をとおして、自分自身を、できるかぎり自由に、できるかぎりそこなうことなく表現することなんだ。そのため、自分をまもるのに使う武器は、三つにかぎることにするー沈黙、亡命、そして狡知」。

ここにある３つの単語は、『1Q84』が発する何かと強烈に結びついているように思えてならない。
狡知に対応するものが 'science' or 'mathematic'
亡命に対応するものが 'nation'
沈黙に対応するものが 'language'

それにしても、と思う。たくさんの小説家が巨大な渦に流され溺れてしまわないための自衛策についてあらゆるかたちで書き残してる。それこそ「そこなうことなく」しるされてる。

修正: 'femail' => 'female'

悪霊にさいなまれる世界

2009-10-30T18:42:00.001+09:00

悪霊にさいなまれる世界上 / Carl Sagan / 早川書房 / 978-4150503567
悪霊にさいなまれる世界下 / Carl Sagan /早川書房 / 978-4150503574

この文庫本は2000年に「人はなぜエセ科学に騙されるのか」というタイトルで出版された作品で2009年7月に文庫化されたもの。

訳者の青木薫氏が「訳者あとがきに代えて」の中で

これまでも、たびたび、自ら行李を背負い、一冊一冊行商して歩きたいぐらいだと冗談めかして言ってきたが、実はそれは本音である。

と述べているのが印象深かった。

この訳者が手がけた本は過去にいくつか読んだことがある。どれも非常に面白かった。面白いばかりでなく「読者の１人として尊重されている」とすら感じた。
それはどういうことかというと....

科学分野の本(一般市場に流通する書籍)を書く人たちは、一般人への配慮に欠いていることがある。なぜならその方がより的確な単語を使用できるし効率的に話を進めることができるであろう、から。そこには本が作られる最初から一般人との境界線がある。そのような本は専門書店にだけ置いてあるわけではなく普通の書店にも並べられているので、私が何かの間違いで購入してしまった時、その都度私は自分を落第生だと改めて思い知らされマラソンを走る最後のランナーだと感じてきた。じっさい世の中は私にとって難しい本でみちみちているし。
たまには運良く少し理解できるようになることも稀にある。それはよほど意識的に関連本を探したり、うなりながら何度も繰り返し読んでみたり違う方向から探ってみることなしにはありえない。こういった読者の姿勢は独習することそのものだからそのように学ぶことを、億劫がったり嫌悪するべきではない、という考えは当然なことだとも思うけれども、一方で、難しいことをわかりやすい文章で説明し多くの人が理解しやすい内容の本に出会ってしまうと、なんというか、やっぱり深く感動する。小説を読み終わった後の感動となにも違わない。

そういった意味で「暗号解読」など青木薫氏が訳された一連の本は、読者である私に落第生だと感じさせるような真似は一切しなかった。私は最後まで興味深いマラソンを完走できてしまった。文系人間（高校生の時に文系か理系かの選択を迫られて文系を選択したという意味）の私でも科学ジャンルの本の面白さにフル参加できた...。これは当時非常に稀なことだった。この喜びは本の面白さともあいまって二重の楽しさを私にもたらしてくれた。ひとえに作者の人と訳者の人がわかりやすい文章を用意してくれたおかげだ。そこには科学者でも研究者でもないごく普通の一般人を尊重し信頼する気持ちが根底に流れているように感じた。だから、読者である私は

「読者として尊重されている」

と、思った。
（最近福岡伸一氏の著作にも同じ印象を持っている）

...以上のような経緯があり
この人が訳す本は面白いと認識している。そして実際今回も期待以上に面白かった。この本にこめられたカールセーガンさんの気合いと根気強さには驚くばかりだった。

懐疑的な精神を培うことは民主主義的な思考と矛盾しない。むしろ大切なことのようだ。加えて、もしもあなたが今なお数学や科学に対して文学や音楽に対するのと同じような興味や関心を抱けないでいるのなら、それはあなたの人生にとっても人類の歴史にとってもマイナスでしかない、とカールセーガンさんは言っているんだと思う。たとえこの本を手に取る人が何歳であろうともそんなことは全くおかまいなしに、知るとは科学的とはどういうことかについて改めて立ち止まって考えるべき機会を全ての読者に与えてくれると思う。愚かな権力者に対してストッパーとして役割を果たせるのは、結局１人１人の科学的な視点およびその総体なんだろうと思った。

nationalgeographic.co.jp

怠惰への讃歌-1

2009-10-30T18:36:00.003+09:00

怠惰への讃歌 / Bertrand Russell / 平凡社 / 978-4-582-76676-9

新聞の書評欄に紹介されていたのを読んで（確か10月半ばあたり）珍しく素直に購入してみた。第四章まで読んだ

この本は、平凡社から2009/08/10 付けで出版されたものだが本の最初のページに「1958年に角川文庫から刊行されたもの」だと記されている。作者のバートランド•ラッセル氏は数学者としても知られている人。

第1章 1932 年
第9章 1929 年
第10章 1930 年
第11章 1933 年
第13章 1928 年
第15章 1928 年

とあり1928年から1933年のあいだに書かれたもののようだ。

第一章で１日４時間労働説を読んだ。これにはちょとしたカルチャーショックをうけた。この説はたとえこの本に興味がない人でも知っていて損はないと思う。
そして、それにもまして興味深かったのが下記。

p.72

この気狂いじみた状態に対し、気狂いじみた解決を考えついた。ドイツに、ドイツが支払わなければならないものは何でも貸すときめたられたのである。
連合国が結局いいわたしたことはこうである。「私たちは、賠償をお前らから免除してやるわけにはいかぬ。というのは、それはお前たちの犯した罪悪に対する正当な罰であるからだ。さてまた、私たちは賠償を支払わせるようにしてやることはできない。そうすると、私たちの産業を破壊するからである。それで、私たちはお前たちに金を貸そう。そして私たちが貸したものをお前たちが返却するようにさせよう。この方法によると、原則は守られて、しかも私たちに損害はないだろう。お前たちに及ぶ損害についていえば、それをただ後まわししようと考えているだけだ」。だがいうまでもなく、この解決は、その場限りのものにすぎなかった。...

これはひどい話だと思った。

「インフレーション」という単語をガッコーのキョーカショではじめて目にした時、大量のお札を荷車にのせてそれを引っ張る老婆の白黒写真がそのかたすみに掲載されていたと記憶している。その写真の人はドイツ人だと習った気もする。その程度のことであとはほぼ忘れてしまっているんだけども、ここを読んでへぇーそんなことだったわけ？とちょっと驚いてしまった。ドイツに多額の賠償を負わせた。としか私は認識していなかったから。

p.74

私たちの不幸のもととなったしどろもどろの考え方は、消費者の立場と生産者の立場、もっと正しくいうなら、競争する組織の中の生産者の立場との間に起こった混乱である。賠償がドイツに課せられると、連合国は、自分たちを消費者だと思いこんだ。即ちドイツ人の生産したものを消費することができるのは、いい気持ちだろうと考えた。ところが、ヴェルサイユ条約が結ばれてしまって、彼らが俄に気がついたことは、自分たちも生産者であり、自分たちが求めているドイツの品物が流れ込むと、自分たちの産業が亡ぶだろうということだ。彼らは非常に困ったので、途方にくれ頭をかきはじめたが、何の役にも立たなかった。連合国側は一緒に集まって頭をかき、それを国際会議といってみても何にもならない。正直なところ、世界の支配階級が甚だ無智、愚かであるから、かよな問題を考えぬくこともできず、また甚だ鼻柱が強いから、彼らを助けようとする人々から注意をしてもらおうともしなかった。

え!...。ヴェルサイユ条約についてこんな風に書いてある文章には初めておめにかかった。これがある程度事実に即しているのならば連合国側は相当子供ぽいというか「あなたいくつですか」よばわりされても不思議じゃない程の愚行を行ったことになる。国際会議つったって商店街のおじさんたちの井戸端会議と大差のないような代物だったということにもなる。いや商店街のおじさんたちの方がよっぽど優秀だろうから大差はあるかな。これじゃたまらない気持ちになるし、これが歴史だと思いこまされてきたいくつかのことは詭弁だったのかと疑いたくなってしまう。

戦争がなぜ起きたのかを解説する本はたくさんあるし、何が事実で何が事実でなかったのかをできるかぎり正確に見分けようとするのは結構大変なことなんだけども、だからといってそれは永久に知ることができないものだと決めてかかるのもおかしな話だと、あらためて思ったりもした。