#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
(*
error number -128
com.cocolog-nifty.quicktimer.icefloe
*)
#
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
##自分環境がos12なので2.8にしているだけです
use AppleScript version "2.8"
use framework "Foundation"
use framework "AppKit"
use scripting additions
property refMe : a reference to current application
set appFileManager to refMe's NSFileManager's defaultManager()
set appNSWorkspace to refMe's NSWorkspace's sharedWorkspace()
set ocidFalse to (refMe's NSNumber's numberWithBool:false)'s boolValue()
set ocidTrue to (refMe's NSNumber's numberWithBool:true)'s boolValue()
####################################
####デバイス名取得
####################################
##コマンド整形
set strCommandText to ("/bin/df -k") as text
##コマンド実行
set strDfResponse to (do shell script strCommandText) as text
##Stringsに
set ocdiDfResponse to refMe's NSString's stringWithString:(strDfResponse)
##改行指定
set ocidCharacterSet to refMe's NSCharacterSet's newlineCharacterSet()
##改行でリスト
set ocidStringArray to ocdiDfResponse's componentsSeparatedByCharactersInSet:(ocidCharacterSet)
##リストの数だけ繰返し
repeat with itemStringArray in ocidStringArray
set strItemStringArray to itemStringArray as text
##スペース指定
set ocidCharacterSet to refMe's NSCharacterSet's whitespaceCharacterSet()
set ocidDevArray to (itemStringArray's componentsSeparatedByCharactersInSet:(ocidCharacterSet))
##デバイス名を取得
set ocidDevicePath to (ocidDevArray's objectAtIndex:0)
###CD/DVDデバイス用の整形表現
set strRegPattern to "/dev/disk[0-9]+"
###正規表現で判定項目を作って（マッチなら）
set codiPridic to refMe's NSPredicate's predicateWithFormat_("(SELF MATCHES %@)", strRegPattern)
###CD判定
set boolCD to (codiPridic's evaluateWithObject:(ocidDevicePath))
if boolCD is ocidTrue then
set strDevicePath to ocidDevicePath as text
set ocidCharacterSet to (refMe's NSCharacterSet's characterSetWithCharactersInString:"/")
set ocidVolArray to (itemStringArray's componentsSeparatedByCharactersInSet:(ocidCharacterSet))
set strDiskName to (ocidVolArray's lastObject()) as text
end if
end repeat
####################################
####ディスクの表示名
####################################
set strMountPath to ("/Volumes/" & strDiskName) as text
tell application "Finder"
set aliasMountPath to (POSIX file strMountPath) as alias
end tell
####################################
####ダイアログ
####################################
set aliasDefaultLocation to (path to desktop folder from user domain) as alias
set strFileExtension to "iso"
set strDefaultName to (strDiskName & "." & strFileExtension) as text
set strPromptText to "名前を決めてください" as text
set strMesText to "名前を決めてください" as text
set aliasFilePath to (choose file name strMesText default location aliasDefaultLocation default name strDefaultName with prompt strPromptText) as «class furl»
set strSaveFilePath to (POSIX path of aliasFilePath) as text
####ドキュメントのパスをNSString
set ocidSaveFilePath to refMe's NSString's stringWithString:strSaveFilePath
####ドキュメントのパスをNSURLに
set ocidSaveFilePathURL to refMe's NSURL's fileURLWithPath:ocidSaveFilePath
###拡張子取得
set strFileExtensionName to ocidSaveFilePathURL's pathExtension() as text
###ダイアログで拡張子を取っちゃった時対策
if strFileExtensionName is not strFileExtension then
set ocidSaveFilePathURL to ocidSaveFilePathURL's URLByAppendingPathExtension:strFileExtension
end if
set strSaveFilePath to (ocidSaveFilePathURL's |path|()) as text
####################################
#### まずアンマウント
####################################
try
set strCommandText to ("/usr/sbin/diskutil unmount " & strDevicePath & "") as text
log strCommandText
do shell script strCommandText
on error
set strCommandText to ("/usr/bin/sudo /sbin/umount " & strDevicePath & "") as text
log strCommandText
do shell script strCommandText with administrator privileges
end try
###５秒待つ
delay 5
####################################
#### ISOイメージ作成dd
####################################
###通常はこれだけど
set strCommandText to ("/bin/dd if=" & strDevicePath & " of=\"" & strSaveFilePath & "\"") as text
###AudioCDはこれ
set strCommandText to ("/bin/dd if=" & strDevicePath & " of=\"" & strSaveFilePath & "\" bs=2048 conv=sync,notrunc") as text
log strCommandText
do shell script strCommandText
delay 5
####################################
#### イジェクト する場合
####################################
try
set strCommandText to ("/usr/bin/drutil eject") as text
do shell script strCommandText
on error
delay 1
try
set strCommandText to ("/usr/sbin/diskutil eject " & strDevicePath & "") as text
do shell script strCommandText
on error
delay 1
set strCommandText to ("/usr/sbin/hdiutil eject \"" & strMountPath & "\" -force") as text
do shell script strCommandText
end try
end try
return
####################################
#### 再度マウントする場合
####################################
set strCommandText to ("/usr/sbin/diskutil mount " & strDevicePath & "") as text
log strCommandText
do shell script strCommandText
return
