on open fileList
　　
　　tell application “Finder”
　　　　set sortedList to sort fileList by creation date
　　end tell
　　
　　set sortedList to reverse of sortedList
　　
　　set oldPath to writeASSourceToTempFolder((item 1 of sortedList) as alias)
　　set newPath to writeASSourceToTempFolder((item 2 of sortedList) as alias)
　　
　　–do shell script “/usr/bin/opendiff ” & oldPath’s POSIX path’s quoted form & ” ” & newPath’s POSIX path’s quoted form & ” > /dev/null 2>&1 &”
　　
　　tell application “TextWrangler”
　　　　compare oldPath against newPath –Mac OS X 10.6用にaliasで渡すように書き換えた
　　end tell
　　
　　
end open

–AppleScriptのソースを取得してファイルに書き出し
on writeASSourceToTempFolder(aScript)
　　–ASのソースを取得
　　set scriptSource to getContentsOfScript(aScript) of me
　　if scriptSource = false then
　　　　display dialog “指定のASのオープン時にエラーが発生”
　　　　return false –エラー
　　end if
　　
　　tell application “Finder”
　　　　set origName to name of file aScript
　　end tell
　　set origName to makestr_alphabetNumeric_only(origName) of me
　　
　　
　　–tmpにASのソースを一時ファイルとして保存
　　set tmpPath to (path to temporary items from system domain) as string
　　set aFN to do shell script “/bin/date +%Y%m%d_%H%M%S”
　　set tmpPathFull to tmpPath & origName & “_” & aFN & “.txt”
　　set fRes to write_to_file_UTF8(scriptSource, tmpPathFull, false) of me
　　if fRes = true then
　　　　return tmpPathFull as alias –書き出したテキストのフルパスを返す（10.6用に変更）
　　else
　　　　return false –エラー
　　end if
end writeASSourceToTempFolder

–指定したAppleScriptのソースを取得する（Mac OS X 10.4用）
on getContentsOfScript(aScript)
　　tell application “AppleScript Editor”
　　　　try
　　　　　　with timeout of 600 seconds –アプリケーションの起動に時間がかかるケースもあるので180秒から延長
　　　　　　　　set aScript to open aScript
　　　　　　end timeout
　　　　on error
　　　　　　return false
　　　　end try
　　　　
　　　　tell window 1
　　　　　　set aName to name
　　　　end tell
　　　　
　　　　tell document aName
　　　　　　set aCon to contents
　　　　　　close without saving
　　　　end tell
　　end tell
　　
　　return aCon
end getContentsOfScript

–ファイルへのUTF8での書き込み
on write_to_file_UTF8(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to ?
　　　　　　open for access file target_file with write permission
　　　　if append_data is false then ?
　　　　　　set eof of the open_target_file to 0
　　　　write this_data to the open_target_file as «class utf8» starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return false
　　end try
end write_to_file_UTF8

–アルファベットと数字のみの文字列にして返す
on makestr_alphabetNumeric_only(aKeyword)
　　set aKeyword to aKeyword as string
　　set aKeyword to aKeyword as Unicode text
　　
　　set cList to characters of aKeyword
　　set newName to “”
　　
　　repeat with i in cList
　　　　set aRes to checkAN(i) of me
　　　　if aRes = true then
　　　　　　set newName to newName & (i as string)
　　　　end if
　　end repeat
　　
　　return newName
end makestr_alphabetNumeric_only

on checkAN(aKeyword)
　　set anList to {“a”, “b”, “c”, “d”, “e”, “f”, “g”, “h”, “i”, “j”, “k”, “l”, “m”, “n”, “o”, “p”, “q”, “r”, “s”, “t”, “u”, “v”, “w”, “x”, “y”, “z”, “-”, “+”, “.”, “_”, “=”, “(”, “)”, “#”, “$”, “%”, “&”, “~”, “^”, “0″, “1″, “2″, “3″, “4″, “5″, “6″, “7″, “8″, “9″}
　　
　　set aKeyword to aKeyword as Unicode text
　　set aKeyword to aKeyword as string
　　set kList to characters of aKeyword
　　repeat with i in kList
　　　　ignoring case
　　　　　　if i is not in anList then
　　　　　　　　return false
　　　　　　end if
　　　　end ignoring
　　end repeat
　　return true
end checkAN

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

on open fileList
　　
　　tell application "Finder"
　　　　set sortedList to sort fileList by creation date
　　end tell
　　
　　set sortedList to reverse of sortedList
　　
　　set oldPath to writeASSourceToTempFolder((item 1 of sortedList) as alias)
　　set newPath to writeASSourceToTempFolder((item 2 of sortedList) as alias)
　　
　　–do shell script "/usr/bin/opendiff " & oldPath’s POSIX path’s quoted form & " " & newPath’s POSIX path’s quoted form & " > /dev/null 2>&1 &"
　　
　　tell application "TextWrangler"
　　　　compare file oldPath against file newPath
　　end tell
　　
　　
end open

–AppleScriptのソースを取得してファイルに書き出し
on writeASSourceToTempFolder(aScript)
　　–ASのソースを取得
　　set scriptSource to getContentsOfScript(aScript) of me
　　if scriptSource = false then
　　　　display dialog "指定のASのオープン時にエラーが発生"
　　　　return false –エラー
　　end if
　　
　　tell application "Finder"
　　　　set origName to name of file aScript
　　end tell
　　set origName to makestr_alphabetNumeric_only(origName) of me
　　
　　
　　–tmpにASのソースを一時ファイルとして保存
　　set tmpPath to (path to temporary items from system domain) as string
　　set aFN to do shell script "/bin/date +%Y%m%d_%H%M%S"
　　set tmpPathFull to tmpPath & origName & "_" & aFN & ".txt"
　　set fRes to write_to_file_UTF8(scriptSource, tmpPathFull, false) of me
　　if fRes = true then
　　　　return tmpPathFull –書き出したテキストのフルパスを返す
　　else
　　　　return false –エラー
　　end if
end writeASSourceToTempFolder

–指定したAppleScriptのソースを取得する（Mac OS X 10.4用）
on getContentsOfScript(aScript)
　　tell application "Script Editor"
　　　　try
　　　　　　with timeout of 600 seconds –アプリケーションの起動に時間がかかるケースもあるので180秒から延長
　　　　　　　　set aScript to open aScript
　　　　　　end timeout
　　　　on error
　　　　　　return false
　　　　end try
　　　　
　　　　tell window 1
　　　　　　set aName to name
　　　　end tell
　　　　
　　　　tell document aName
　　　　　　set aCon to contents
　　　　　　close without saving
　　　　end tell
　　end tell
　　
　　return aCon
end getContentsOfScript

–ファイルへのUTF8での書き込み
on write_to_file_UTF8(this_data, target_file, append_data)
　　try
　　　　set the target_file to the target_file as text
　　　　set the open_target_file to
　　　　　　open for access file target_file with write permission
　　　　if append_data is false then
　　　　　　set eof of the open_target_file to 0
　　　　write this_data to the open_target_file as «class utf8» starting at eof
　　　　close access the open_target_file
　　　　return true
　　on error
　　　　try
　　　　　　close access file target_file
　　　　end try
　　　　return false
　　end try
end write_to_file_UTF8

–アルファベットと数字のみの文字列にして返す
on makestr_alphabetNumeric_only(aKeyword)
　　set aKeyword to aKeyword as string
　　set aKeyword to aKeyword as Unicode text
　　
　　set cList to characters of aKeyword
　　set newName to ""
　　
　　repeat with i in cList
　　　　set aRes to checkAN(i) of me
　　　　if aRes = true then
　　　　　　set newName to newName & (i as string)
　　　　end if
　　end repeat
　　
　　return newName
end makestr_alphabetNumeric_only

on checkAN(aKeyword)
　　set anList to {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "-", "+", ".", "_", "=", "(", ")", "#", "$", "%", "&", "~", "^", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
　　
　　set aKeyword to aKeyword as Unicode text
　　set aKeyword to aKeyword as string
　　set kList to characters of aKeyword
　　repeat with i in kList
　　　　ignoring case
　　　　　　if i is not in anList then
　　　　　　　　return false
　　　　　　end if
　　　　end ignoring
　　end repeat
　　return true
end checkAN

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

script scriptObj2
　　on test()
　　　　display dialog “Test”
　　end test
end script

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

script scriptObj2
　　on test()
　　　　display dialog "Test＠scriptObj2"
　　　　
　　　　script scriptObj21
　　　　　　on test()
　　　　　　　　display dialog "Test＠scriptObj21"
　　　　　　end test
　　　　　　script scriptObj211
　　　　　　　　on testr()
　　　　　　　　　　display dialog "Test@ scriptObj211"
　　　　　　　　end testr
　　　　　　end script
　　　　end script
　　　　
　　end test
end script

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

global scObjList –このへん、必須（結果を値渡しではなく、グローバル変数へアクセスで行うため）
global aScriptList, a_r –ここも必須（再帰時にアクセスするのと、高速化のため）

–サンプルのAppleScript書類の内容をピックアップ
tell application “AppleScript Editor”
　　set nameList to name of every document
　　set selDoc to choose from list nameList
　　tell document (contents of first item of selDoc)
　　　　set a to contents
　　end tell
end tell

set aScriptList to paragraphs of a
set a_r to a reference to aScriptList –間接アクセスで処理の高速化を行う

set allLen to length of a_r
set scObjList to {}

pickUpScriptObjectFromList(1, allLen) of me
set objList to shellSortListAscending(scObjList, 2) of me

objList

on pickUpScriptObjectFromList(startLineNum, endLineNum)
　　
　　set curScriptObj to {} –name, startLine, endLiine
　　set nestingCounter to 0
　　set nestedF to false
　　set lineCounter to startLineNum
　　set findF to false –script object末尾検索フラグ。trueで末尾の”end script”の検索中
　　
　　repeat with i from startLineNum to endLineNum
　　　　
　　　　set ii to contents of (item i of a_r)
　　　　
　　　　ignoring hyphens, punctuation and white space
　　　　　　–Script文の開始位置を走査中
　　　　　　if findF = false then
　　　　　　　　–Script文をみつけた場合
　　　　　　　　if ii begins with “script” then
　　　　　　　　　　set aRes to parseScriptObjectName(ii) of me
　　　　　　　　　　set curScriptObj to {aRes, lineCounter, 0}
　　　　　　　　　　set findF to true
　　　　　　　　end if
　　　　　　　　
　　　　　　　　
　　　　　　else if findF = true then
　　　　　　　　–Script文の末尾を走査中モード
　　　　　　　　if ii begins with “script” then
　　　　　　　　　　set nestingCounter to nestingCounter + 1
　　　　　　　　　　set nestedF to true
　　　　　　　　　　
　　　　　　　　else if ii begins with “end script” then
　　　　　　　　　　if nestingCounter = 0 then
　　　　　　　　　　　　set item 3 of curScriptObj to lineCounter
　　　　　　　　　　　　set the end of scObjList to curScriptObj
　　　　　　　　　　　　
　　　　　　　　　　　　if nestedF = true then
　　　　　　　　　　　　　　–このへんで、Script Objectのネスティングに対して再帰でアプローチする
　　　　　　　　　　　　　　pickUpScriptObjectFromList((item 2 of curScriptObj) + 1, (item 3 of curScriptObj) - 1) of me –再帰時に捜索範囲を前後ともに１行ずつ狭める
　　　　　　　　　　　　end if
　　　　　　　　　　　　
　　　　　　　　　　　　set findF to false
　　　　　　　　　　　　set nestingCounter to 0
　　　　　　　　　　　　set nestedF to false
　　　　　　　　　　　　
　　　　　　　　　　else
　　　　　　　　　　　　set nestingCounter to nestingCounter - 1
　　　　　　　　　　　　
　　　　　　　　　　end if
　　　　　　　　end if
　　　　　　end if
　　　　end ignoring
　　　　
　　　　set lineCounter to lineCounter + 1
　　　　
　　end repeat
end pickUpScriptObjectFromList

–与えられた１行分のテキスト（おそらく、script文の宣言部分）から、Script Object名称をparseする
on parseScriptObjectName(aText)
　　set aOffst to offset of “script “ in aText
　　if aOffst = 0 then return “”
　　set aRes to text (aOffst + (length of “script “)) thru -1 of aText
　　return aRes
end parseScriptObjectName

–文字置換ルーチン
on repChar(origText, targStr, repStr)
　　set {txdl, AppleScript’s text item delimiters} to {AppleScript’s text item delimiters, targStr}
　　set temp to text items of origText
　　set AppleScript’s text item delimiters to repStr
　　set res to temp as text
　　set AppleScript’s text item delimiters to txdl
　　return res
end repChar

–シェルソートで入れ子のリストを昇順ソート
on shellSortListAscending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) > (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListAscending

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定文字列のAppleScriptをAppleScriptエディタ上で実際に実行して結果を文字列として取得する
on getAppeScriptRes(aScript)
　　tell application id “com.apple.scripteditor2″
　　　　make new document
　　　　tell window 1
　　　　　　set bDoc to name
　　　　end tell
　　　　
　　　　tell document bDoc
　　　　　　set contents to aScript
　　　　　　
　　　　　　–いきなり実行する
　　　　　　try
　　　　　　　　execute
　　　　　　on error
　　　　　　　　close without saving
　　　　　　　　return false
　　　　　　end try
　　　　end tell
　　　　
　　end tell
　　
　　
　　set osVer to system attribute “sys2″
　　
　　–GUI Scripting経由でAppleScriptの実行結果を取得する
　　activate application id “com.apple.scripteditor2″
　　tell application “System Events”
　　　　
　　　　if osVer > 5 then
　　　　　　–Mac OS X 10.6以降の場合（とりあえず10.6.x）
　　　　　　tell process “AppleScript エディタ” –各国語環境で名前は違うかもしれない、と日本語で書いてみる
　　　　　　　　keystroke “3″ using {command down} –command-3　結果を表示
　　　　　　　　set resVal to value of text area 1 of scroll area 1 of group 1 of group 1 of splitter group 1 of window 1
　　　　　　end tell
　　　　　　
　　　　else if osVer = 5 then
　　　　　　–Mac OS X 10.5の場合
　　　　　　tell process “スクリプトエディタ” –ここも各言語環境で名前が違う、と日本語で書いてみる
　　　　　　　　keystroke “2″ using {command down} –command-2　結果を表示
　　　　　　　　set resVal to value of text area 1 of scroll area 1 of group 1 of splitter group 1 of window 1
　　　　　　end tell
　　　　end if
　　end tell
　　
　　
　　tell application id “com.apple.scripteditor2″
　　　　tell document bDoc
　　　　　　close without saving
　　　　end tell
　　end tell
　　
　　return resVal
　　
end getAppeScriptRes

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定文字列のAppleScriptをAppleScriptエディタ上で実際に実行して結果を文字列として取得する
on getAppeScriptRes(aScript)
　　tell application “AppleScript Editor”
　　　　make new document
　　　　tell window 1
　　　　　　set bDoc to name
　　　　end tell
　　　　
　　　　tell document bDoc
　　　　　　set contents to aScript
　　　　　　
　　　　　　–いきなり実行する
　　　　　　try
　　　　　　　　execute
　　　　　　on error
　　　　　　　　close without saving
　　　　　　　　return false
　　　　　　end try
　　　　end tell
　　　　
　　end tell
　　
　　–GUI Scripting経由でAppleScriptの実行結果を取得する
　　activate application “AppleScript Editor”
　　tell application “System Events”
　　　　tell process “AppleScript エディタ” –各国語環境で名前は違うかもしれない、と日本語で書いてみる
　　　　　　keystroke “3″ using {command down} –command-3　結果を表示
　　　　　　set resVal to value of text area 1 of scroll area 1 of group 1 of group 1 of splitter group 1 of window 1
　　　　end tell
　　end tell
　　
　　tell application “AppleScript Editor”
　　　　tell document bDoc
　　　　　　close without saving
　　　　end tell
　　end tell
　　
　　return resVal
　　
end getAppeScriptRes

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

try
　　tell application id “com.apple.ScriptEditor2″
　　　　open aFile
　　end tell
on error aMes
　　–display dialog “アプリケーション「” & aMes & “」のAppleScript用語辞書のオープンを試みましたが、以下の理由により失敗しました：” & return & aMes
　　return
end try

set aCon to “tell application “ & (ASCII character 34) & aName & (ASCII character 34) & return & return & “end tell” & return

tell application id “com.apple.ScriptEditor2″
　　set aNewDoc to make new document
　　tell document 1
　　　　set contents to aCon
　　　　try
　　　　　　compile
　　　　end try
　　end tell
　　activate
end tell

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aRes to first item of pList

tell application “System Events”
　　set aP to file of process aRes
end tell

try
　　tell application id “com.apple.ScriptEditor2″
　　　　open aP
　　end tell
on error aMes
　　display dialog “アプリケーション「” & aRes & “」のAppleScript用語辞書のオープンを試みましたが、以下の理由により失敗しました：” & return & aMes
end try

tell application id “com.apple.ScriptEditor2″
　　activate
end tell

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

tell application “System Events“
　　tell process “Script Editor“
　　　　keystroke “v” using {command down}
　　end tell
end tell

delay 0.1

tell application “Script Editor“
　　activate
　　tell document a
　　　　compile
　　end tell
end tell

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に