property |NSURL| : a reference to current application’s |NSURL|
property OSANull : a reference to current application’s OSANull
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property OSAScript : a reference to current application’s OSAScript
property NSPredicate : a reference to current application’s NSPredicate
property NSDictionary : a reference to current application’s NSDictionary
property NSUnarchiver : a reference to current application’s NSUnarchiver
property OSALanguage : a reference to current application’s OSALanguage
property NSCountedSet : a reference to current application’s NSCountedSet
property OSALanguageInstance : a reference to current application’s OSALanguageInstance

script spd
　　property aRecList : {}
end script

set aFile to choose file of type {“com.apple.applescript.script-bundle”, “com.apple.applescript.script”} with prompt “Choose AppleScript document file”

–AppleScriptのソースをAttributed Stringとして読み込んで、Dictionaryに変換
set (aRecList of spd) to getAttrRecFromASPath(aFile) of me

–plistからAppleScriptの構文色分け情報を取得する
set cList to getAppleScriptSourceColors() of me

–構文色分けの重複色チェック
set cRes to chkASLexicalFormatColorConfliction(cList) of me
if cRes = false then error “There is some duplicate(s) color among AppleScript’s lexical color settings”

–呼び出しているアプリケーション名を抽出
set appNames to getAppNames(cList, (aRecList of spd)) of me
return appNames
–> {“Finder”, “com.apple.Finder”, “/Applications/Safari”}

–アプリケーション名一覧を取得する
on getAppNames(cList, aRecList)
　　script spdHnd
　　　　property aRecList : {}
　　end script
　　
　　set (aRecList of spdHnd) to aRecList
　　set tmp1Array to NSArray’s arrayWithArray:(aRecList of spdHnd)
　　
　　set targAttr to contents of item 11 of cList –クラス
　　set tmpCoStr to ((redValue of targAttr) as string) & ” “ & ((greenValue of targAttr) as string) & ” “ & ((blueValue of targAttr) as string)
　　
　　set targAttr to contents of item 13 of cList –列挙値
　　set tmpCoStr2 to ((redValue of targAttr) as string) & ” “ & ((greenValue of targAttr) as string) & ” “ & ((blueValue of targAttr) as string)
　　
　　set ontoColItem to contents of item 3 of cList –スクリプティング予約語（on/to）
　　set ontoCoStr to ((redValue of ontoColItem) as string) & ” “ & ((greenValue of ontoColItem) as string) & ” “ & ((blueValue of ontoColItem) as string)
　　
　　set valColItem to contents of item 7 of cList –変数名/ハンドラ名称
　　set valCoStr to ((redValue of valColItem) as string) & ” “ & ((greenValue of valColItem) as string) & ” “ & ((blueValue of valColItem) as string)
　　
　　–“application”文字＆”class”属性をリストアップ
　　set thePred0 to NSPredicate’s predicateWithFormat_(“stringVal == %@ && colorStr == %@”, “application”, tmpCoStr)
　　set appArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred0)’s valueForKeyPath:“itemIndex”) as list
　　
　　–“tell”（オブジェクト指定）の項目をリストアップ
　　set thePred2 to NSPredicate’s predicateWithFormat_(“stringVal == %@ && colorStr == %@”, “tell”, ontoCoStr)
　　set tellArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred2)’s valueForKeyPath:“itemIndex”) as list
　　
　　–空白文字を含むデータをリストアップ(text data contains white space)
　　set thePred1 to NSPredicate’s predicateWithFormat_(“stringVal == %@”, ” “)
　　set whiteArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred1)’s valueForKeyPath:“itemIndex”) as list
　　
　　–“id”（列挙値）をリストアップ
　　set thePred1 to NSPredicate’s predicateWithFormat_(“stringVal == %@ && colorStr == %@”, “id”, tmpCoStr2)
　　set idArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred1)’s valueForKeyPath:“itemIndex”) as list
　　
　　–変数/ハンドラ名称をリストアップ
　　set thePred3 to NSPredicate’s predicateWithFormat_(“colorStr == %@”, valCoStr)
　　set valArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred3)’s valueForKeyPath:“itemIndex”) as list
　　
　　
　　set handlerList to {}
　　
　　–tell 対象のアプリケーション名の抽出（変数に名称を入れているパターンには未対応）
　　repeat with i in appArray –“application”のアイテム番号リスト
　　　　set j to (contents of i) as integer
　　　　
　　　　if ((j – 2) is in tellArray) and ((j + 2) is in idArray) then
　　　　　　–tell application id
　　　　　　set handlerStr to stringVal of (item (j + 4) of ((aRecList of spdHnd) as list))
　　　　　　set handlerStr to repChar(handlerStr, “＼””, “”) of me
　　　　　　
　　　　else if (j – 2) is in tellArray then
　　　　　　–通常のtell application
　　　　　　if (j + 2) is not in valArray then –アプリケーション名を変数で間接指定しているケースを除外
　　　　　　　　set handlerStr to stringVal of (item (j + 2) of ((aRecList of spdHnd) as list))
　　　　　　　　set handlerStr to repChar(handlerStr, “＼””, “”) of me
　　　　　　end if
　　　　else
　　　　　　set handlerStr to missing value
　　　　　　
　　　　end if
　　　　
　　　　if (handlerStr is not in handlerList) and (handlerStr is not equal to “id”) then
　　　　　　if (handlerStr is not equal to missing value) then
　　　　　　　　set the end of handlerList to handlerStr
　　　　　　end if
　　　　end if
　　　　
　　end repeat
　　
　　return handlerList
end getAppNames

on getAttrRecFromASPath(aFile)
　　set theSource to getASsourceFor(aFile) of me
　　
　　— create a new AppleScript instance
　　set anOSALanguageInstance to OSALanguage’s languageForName:“AppleScript”
　　
　　set theScript to OSAScript’s alloc()’s initWithSource:theSource fromURL:(missing value) languageInstance:anOSALanguageInstance usingStorageOptions:(OSANull)
　　set {theResult, theError} to theScript’s compileAndReturnError:(reference)
　　
　　if theResult as boolean is false then
　　　　— handle error
　　　　error “Compile Error”
　　else
　　　　set sourceText to theScript’s source()
　　　　set styledSourceText to theScript’s richTextSource()
　　end if
　　
　　set attrRes to getAttributeRunsFromAttrString(styledSourceText) of me
　　return attrRes
end getAttrRecFromASPath

–指定AppleScriptファイルのソースコードを取得する（実行専用Scriptからは取得できない）
— Original Created 2014-02-23 Shane Stanley
on getASsourceFor(anAlias as {alias, string})
　　set anHFSpath to anAlias as string
　　set aURL to |NSURL|’s fileURLWithPath:(POSIX path of anHFSpath)
　　set theScript to OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
　　return theScript’s source() as text
end getASsourceFor

–Attributed StringをDictionary化
on getAttributeRunsFromAttrString(theStyledText)
　　script aSpd
　　　　property styleList : {}
　　end script
　　
　　set (styleList of aSpd) to {} —for output
　　
　　set thePureString to theStyledText’s |string|() –pure string from theStyledText
　　
　　set theLength to theStyledText’s |length|()
　　set startIndex to 0
　　set itemCount to 1
　　
　　repeat until (startIndex = theLength)
　　　　set {theAtts, theRange} to theStyledText’s attributesAtIndex:startIndex longestEffectiveRange:(reference) inRange:{startIndex, theLength – startIndex}
　　　　
　　　　–String　　
　　　　set aText to (thePureString’s substringWithRange:theRange) as string
　　　　
　　　　–Color
　　　　set aColor to (theAtts’s valueForKeyPath:“NSColor”)
　　　　if aColor is not equal to missing value then
　　　　　　set aSpace to aColor’s colorSpace()
　　　　　　
　　　　　　set aRed to (aColor’s redComponent()) * 255
　　　　　　set aGreen to (aColor’s greenComponent()) * 255
　　　　　　set aBlue to (aColor’s blueComponent()) * 255
　　　　　　
　　　　　　set colList to {aRed as integer, aGreen as integer, aBlue as integer} –for comparison
　　　　　　set colStrForFind to (aRed as integer as string) & ” “ & (aGreen as integer as string) & ” “ & (aBlue as integer as string) –for filtering
　　　　else
　　　　　　set colList to {0, 0, 0}
　　　　　　set colStrForFind to “0 0 0”
　　　　end if
　　　　
　　　　–Font
　　　　set aFont to (theAtts’s valueForKeyPath:“NSFont”)
　　　　if aFont is not equal to missing value then
　　　　　　set aDFontName to aFont’s displayName()
　　　　　　set aDFontSize to aFont’s pointSize()
　　　　end if
　　　　
　　　　set the end of (styleList of aSpd) to {stringVal:aText, colorStr:colStrForFind, colorVal:colList, fontName:aDFontName as string, fontSize:aDFontSize, itemIndex:itemCount}
　　　　set startIndex to current application’s NSMaxRange(theRange)
　　　　
　　　　set itemCount to itemCount + 1
　　end repeat
　　
　　return (styleList of aSpd)
　　
end getAttributeRunsFromAttrString

–AppleScriptの構文色分けのカラー値をRGBで取得する
on getAppleScriptSourceColors()
　　
　　— get the plist info as a dictionary
　　set thePath to NSString’s stringWithString:“~/Library/Preferences/com.apple.applescript.plist”
　　set thePath to thePath’s stringByExpandingTildeInPath()
　　set theInfo to NSDictionary’s dictionaryWithContentsOfFile:thePath
　　
　　— extract relevant part and loop through
　　set theArray to (theInfo’s valueForKey:“AppleScriptSourceAttributes”) as list
　　
　　set colList to {}
　　
　　repeat with i from 1 to count of theArray
　　　　set anEntry to item i of theArray
　　　　
　　　　set colorData to NSColor of anEntry
　　　　set theColor to (NSUnarchiver’s unarchiveObjectWithData:colorData)
　　　　
　　　　set {rVal, gVal, bVal} to retColListFromNSColor(theColor, 255) of me
　　　　
　　　　set fontData to NSFont of anEntry
　　　　set theFont to (NSUnarchiver’s unarchiveObjectWithData:fontData)
　　　　
　　　　set aFontName to theFont’s displayName() as text
　　　　set aFontSize to theFont’s pointSize()
　　　　
　　　　set aColRec to {redValue:rVal, greenValue:gVal, blueValue:bVal, fontName:aFontName, fontSize:aFontSize}
　　　　
　　　　set the end of colList to aColRec
　　end repeat
　　
　　return colList
end getAppleScriptSourceColors

–NSColorからRGBの値を取り出す
on retColListFromNSColor(aCol, aMAX as integer)
　　set aRed to round ((aCol’s redComponent()) * aMAX) rounding as taught in school
　　set aGreen to round ((aCol’s greenComponent()) * aMAX) rounding as taught in school
　　set aBlue to round ((aCol’s blueComponent()) * aMAX) rounding as taught in school
　　
　　if aRed > aMAX then set aRed to aMAX
　　if aGreen > aMAX then set aGreen to aMAX
　　if aBlue > aMAX then set aBlue to aMAX
　　
　　return {aRed, aGreen, aBlue}
end retColListFromNSColor

–AS書式で配色に重複がないかどうかチェック
on chkASLexicalFormatColorConfliction(aList as list)
　　set anArray to NSArray’s arrayWithArray:aList
　　set bList to (anArray’s valueForKeyPath:“redValue.stringValue”) as list
　　set cList to (anArray’s valueForKeyPath:“greenValue.stringValue”) as list
　　set dList to (anArray’s valueForKeyPath:“blueValue.stringValue”) as list
　　
　　set colStrList to {}
　　repeat with i from 1 to (length of bList)
　　　　set bItem to contents of item i of bList
　　　　set cItem to contents of item i of cList
　　　　set dItem to contents of item i of dList
　　　　set the end of colStrList to bItem & ” “ & cItem & ” “ & dItem
　　end repeat
　　
　　set aRes to returnDuplicatesOnly(colStrList) of me
　　if aRes is equal to {} then
　　　　return true –重複が存在しなかった場合
　　else
　　　　return false –重複があった場合
　　end if
end chkASLexicalFormatColorConfliction

on returnDuplicatesOnly(aList as list)
　　set aSet to NSCountedSet’s alloc()’s initWithArray:aList
　　set bList to (aSet’s allObjects()) as list
　　
　　set dupList to {}
　　repeat with i in bList
　　　　set aRes to (aSet’s countForObject:i)
　　　　if aRes > 1 then
　　　　　　set the end of dupList to (contents of i)
　　　　end if
　　end repeat
　　
　　return dupList
end returnDuplicatesOnly

–文字置換ルーチン
on repChar(origText as string, targStr as string, repStr as string)
　　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