このページは福井県立大学の田中求之が2006年1月まで運用していた Mac のサーバ運用に関する会議室 「Web Scripter's Meeting」の記録です。情報が古くなっている可能性がありますのでご注意ください。

osax 2つ公開

発言者:田中求之
( Date Monday, July 19, 1999 13:01:49 )


ちょっとした osax を2つ登録公開しました。

一つは MT_Extra_osax.hqx で、メインは強制 Restart と強制 Shutdown
のコマンドです。Tanaka's osax 1.x に入っていたものを名前を変えて
まとめました( 2.0 に組み込むつもりはないので)。

各アプリケーションの保存処理などは行わずにリスタート/シャットダウン
するものですので、その点は注意してください。コマンド名は

MT emergency restart
MT Emergency Shutdown

になってます。

→  MT_Extra_osax.hqx

田中求之 さんからのコメント
( Monday, July 19, 1999 13:09:00 )

もう一つは、MT_Permute.hqx で、簡単にいうと、テーブルを使って置換を
行うものです。

set t1 to {"M", "a", "o"}
set t2 to {"Q", "z", "b"}

MT Permute "Motoyuki Tanaka" search table t1 replace table t2

---> "Qbtbyuki Tznzkz"

という具合に、ダイレクトパラメータで渡した文字列に対して、search 
table の n 番目にある文字を replace table の n 番目の文字に置換する
という処理を行います。テーブルで指定できるのは1バイト文字のみです。
また、大文字と小文字の区別を行います。

Macintosh Scripting ML で、こういう置換を Tanaka's osax では可能
かという話になったので(自前でリソースを作れば可能になっているので
すが)、作ってしまいました。

→  MT_Permute.hqx

田中求之 さんからのコメント
( Monday, July 19, 1999 13:11:59 )

MT Permute の補足。

set t1 to {"a", "o"}
set t2 to {"o", "a"}

MT Permute "Motoyuki Tanaka" search table t1 replace table t2

を実行すると、ちゃんと Matayuki Tonoko になります。a を o に変換
したものがまた a に戻される(置換結果に対してさらに置換が加えられる)
ようなことはありません。

石津@RJC さんからのコメント
( Monday, July 19, 1999 16:47:06 )

MT_Extra_osaxありがとうございます。m(__)m

ここ数日すっかりMacOSXServerにハマっているので
今後は使わなくなったりして...(嘘
当分はMacOSベースのアプリがいっぱいなので活用
させていただきます。

田中求之 さんからのコメント
( Sunday, August 15, 1999 22:55:16 )

イギリスのある人からの要望で、MT Permute に新たなものを追加した
バージョンを作りました。

MT Load Table というもので、これは指定したリソースを文字のリスト
として読み込むものです。つまり、MT Permute に渡すテーブルを
リソースから読み込むものです。

ただ、どんなタイプのリソースであっても、強制的に文字のリストとして
読み込みますので、これを使えば、中身は実質的に文字列になっているリ
ソースを読み込むのに使うことができます。

たとえば、MacOS 8.5 から、クリッピングに URL のものができました。
これは 'url ' リソースに URL が書かれています。ですから、

(MT Load Table <URL Clipping> type "url ") as string

で、<URL Clipping> で指定したクリッピングファイルの URL  が
読み込めます。

→  MT_Permute_1.01.sit.hqx

田中求之 さんからのコメント
( Sunday, August 15, 1999 22:58:33 )

MT Load Table をつかって、 URL クリッピングを Netscape の
URL ファイルに変換するスクリプトの例です(フォルダー内の一括
変換)

set xList to MT List Files "Macintosh HD:Desktop Folder:Bookmarks:" of type {"ilht"} with sub folders
repeat with thisF in xList
    
    set myURL to (MT Load Table thisF type "url ") as string
    MT Write File myURL to thisF
    MT Change File Info thisF creator type "MOSS" file type "URL "
    
end repeat