17 June 2006

[FileMan] Squeakでファイルをもっと簡単に扱うために

作ってみました。まだ途中ではありますが結構便利です。

例:
「デフォルトディレクトリに'subDir'というサブディレクトリを作り、'file1'というファイルをおいて、'Hello!'と書き込む」という処理をする場合:

"今まで"
 | subDir str |
 subDir := FileDirectory default directoryNamed: 'subDir'.
 subDir assureExistence.
 [str := subDir newFileNamed: 'file1'.
 str nextPutAll: 'Hello!']
	 ensure: [str close].

"FileMan導入後"
 './subDir' asDirectoryEntry at: 'file1' put: 'Hello!'

SqueakSourceJに置いてあります。
http://squeaksource.blueplane.jp/FileMan.html