[Terminal]Manページ書き出し（修正）
#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
#com.cocolog-nifty.quicktimer.icefloe
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
use AppleScript version "2.8"
use framework "Foundation"
use framework "AppKit"
use scripting additions
property refMe : a reference to current application
##############################
#####ダイアログを前面に
##############################
tell current application
set strName to name as text
end tell
###スクリプトメニューから実行したら
if strName is "osascript" then
tell application "Finder" to activate
else
tell current application to activate
end if
##############################
#####クリップボードの内容取得
##############################
set ocidPasteboard to refMe's NSPasteboard's generalPasteboard()
set ocidPastBoardTypeArray to ocidPasteboard's types
set boolContain to ocidPastBoardTypeArray's containsObject:"public.utf8-plain-text"
if boolContain = true then
set strReadString to (the clipboard as text)
else
set boolContain to ocidPastBoardTypeArray's containsObject:"NSStringPboardType"
if boolContain = true then
set ocidReadString to ocidPasteboard's readObjectsForClasses:({refMe's NSString}) options:(missing value)
set strReadString to ocidReadString as text
else
log "テキストなし"
set strReadString to "COMMAND" as text
end if
end if
set aliasIconPath to (POSIX file "/System/Applications/Utilities/Terminal.app/Contents/Resources/Terminal.icns") as alias
try
set objResponse to (display dialog "man XXXXX | col -b > ~/Desktop/XXXXX.txt" with title "入力してください" default answer strReadString buttons {"OK", "キャンセル"} default button "OK" cancel button "キャンセル" with icon aliasIconPath giving up after 10 without hidden answer)
on error
log "エラーしました"
return "エラーしました"
error number -128
end try
if true is equal to (gave up of objResponse) then
return "時間切れですやりなおしてください"
error number -128
end if
if "OK" is equal to (button returned of objResponse) then
set theResponse to (text returned of objResponse) as text
else
log "エラーしました"
return "エラーしました"
error number -128
end if
##############################
## 実行するコマンド
set strCommandText to "man " & theResponse & " | col -b > ~/Desktop/" & theResponse & ".txt"
##############################
## 実行中チェック
tell application "Terminal"
set numCntWindow to (count of every window) as integer
end tell
if numCntWindow = 0 then
log "Windowないので新規で作る"
tell application "Terminal"
set objNewWindow to (do script "\n")
end tell
else
log "Windowがある場合は、何か実行中か？をチェック"
tell application "Terminal"
tell front window
tell front tab
set boolTabStatus to busy as boolean
set listProcess to processes as list
end tell
end tell
set objNewWindow to selected tab of front window
end tell
###前面のタブがbusy＝実行中なら新規Window作る
if boolTabStatus = true then
tell application "Terminal"
set objNewWindow to (do script "\n")
end tell
else if listProcess = {} then
tell application "Terminal"
set objNewWindow to (do script "\n")
end tell
end if
end if
##############################
## コマンド実行
tell application "Terminal"
do script strCommandText in objNewWindow
end tell
log "コマンド実行中"
##############################
## コマンド終了チェック
(*
objNewWindowにWindowIDとTabIDが入っているので
objNewWindowに対してbusyを確認する事で
処理が終わっているか？がわかる
*)
## 無限ループ防止で１００回
repeat 100 times
tell application "Terminal"
set boolTabStatus to busy of objNewWindow
end tell
if boolTabStatus is false then
log "前処理終了しました"
exit repeat
--->このリピートを抜けて次の処理へ
else if boolTabStatus is true then
log "コマンド処理中"
delay 1
--->busyなのであと1秒まつ
end if
end repeat
##############################
## exit打って終了
tell application "Terminal"
do script "exit" in objNewWindow
end tell
##############################
## exitの処理待ちしてClose
repeat 20 times
tell application "Terminal"
tell front window
tell front tab
set listProcess to processes as list
end tell
end tell
end tell
if listProcess = {} then
tell application "Terminal"
tell front window
# tell front tab
close saving no
# end tell
end tell
end tell
exit repeat
else
delay 1
end if
end repeat
| 固定リンク
「Terminal」カテゴリの記事
- [Terminal]新規Windowでコマンドを実行するまでの一連の流れ(2025.01.13)
- ターミナル終了（複数Window 複数tab時）(2024.12.30)
- ターミナル終了（単Window時）(2024.12.30)
- ターミナル 実行中のプロセスの終了とウィンドウを閉じる(2024.11.24)
- [Terminal]スクリプト実行後終了したらTerminalも終了する(2024.11.14)