フラットパッケージをバンドルパッケージに

---flat_pkg_expand.scpt

(*

単機能スクリプト

フラットパッケージを拡張してバンドルパッケージに変換します。

インストールされる物が気になる時用

20161001　初回作成

*)

---ダブルクリックの始まり

on run

---プロンプトの文言改行が使えます。改行入れる所には『\n』を入れます

set theWithPrompt to "flat packageを拡張してbundles packageに変換します"

---ファイル選択ダイアログのデフォルトのディレクトリ

set theDefLoc to path to downloads folder from user domain

---UTI指定複数ある時はカンマで区切る

---本当は↓で動作するはずだが上手く動作しない

---set theFileType to "com.apple.installer-package,com.apple.application-bundle" as text

set theFileType to "" as text

set AppleScript's text item delimiters to {","}

---ファイルタイプをリストにする

set theFileTypeList to (every text item of theFileType) as list

set AppleScript's text item delimiters to {""}

---ダイアログを出して選択されたファイルは「open」に渡す

open (choose file default location theDefLoc ¬

with prompt theWithPrompt ¬

of type theFileTypeList ¬

invisibles true ¬

with showing package contents without multiple selections allowed)

end run

on open objOpenPath

---OpenしたファイルのパスをUNIXパスに変換

set theOpenPath to POSIX path of objOpenPath

---コマンド整形

set theCmdCom to "pkgutil --expand '" & theOpenPath & "' '" & theOpenPath & ".expand.pkg'" as text

---コマンド実行

do shell script theCmdCom

end open

「flat_pkg_expand.scpt.zip」をダウンロード