set cList to getAppleScriptSourceColors() of me
–> {​​​​​{​​​​​​​redValue:37265, ​​​​​​​greenValue:10280, ​​​​​​​blueValue:37008, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:15672, ​​​​​​​greenValue:3071, ​​​​​​​blueValue:15832, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:3598, ​​​​​​​greenValue:15934, ​​​​​​​blueValue:64507, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:30840, ​​​​​​​greenValue:13364, ​​​​​​​blueValue:52171, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:64764, ​​​​​​​greenValue:10794, ​​​​​​​blueValue:7196, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:0, ​​​​​​​greenValue:0, ​​​​​​​blueValue:0, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:37265, ​​​​​​​greenValue:21074, ​​​​​​​blueValue:4369, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:0, ​​​​​​​greenValue:0, ​​​​​​​blueValue:0, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:10023, ​​​​​​​greenValue:51657, ​​​​​​​blueValue:51657, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:3855, ​​​​​​​greenValue:15934, ​​​​​​​blueValue:64507, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:7967, ​​​​​​​greenValue:46774, ​​​​​​​blueValue:64764, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:33153, ​​​​​​​greenValue:14906, ​​​​​​​blueValue:55769, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:23901, ​​​​​​​greenValue:13878, ​​​​​​​blueValue:37522, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:47484, ​​​​​​​greenValue:3164, ​​​​​​​blueValue:32926, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:6491, ​​​​​​​greenValue:47213, ​​​​​​​blueValue:32320, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:40001, ​​​​​​​greenValue:37149, ​​​​​​​blueValue:1331, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:20379, ​​​​​​​greenValue:0, ​​​​​​​blueValue:35059, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}, ​​​​​{​​​​​​​redValue:4539, ​​​​​​​greenValue:35536, ​​​​​​​blueValue:35798, ​​​​​​​fontName:"Osaka", ​​​​​​​fontSize:13.0​​​​​}​​​}

–AppleScriptの構文色分けのカラー値をRGBで取得する
on getAppleScriptSourceColors()
　　
　　— get the info as a dictionary
　　set thePath to current application’s NSString’s stringWithString:"~/Library/Preferences/com.apple.applescript.plist"
　　set thePath to thePath’s stringByExpandingTildeInPath()
　　set theInfo to current application’s 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
　　　　log anEntry
　　　　
　　　　set colorData to NSColor of anEntry
　　　　set theColor to (current application’s NSUnarchiver’s unarchiveObjectWithData:colorData)
　　　　
　　　　set {rVal, gVal, bVal} to retColListFromNSColor(theColor, 65535) of me
　　　　
　　　　set fontData to NSFont of anEntry
　　　　set theFont to (current application’s 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

property |NSURL| : a reference to current application’s |NSURL|
property OSAScript : a reference to current application’s OSAScript

–指定AppleScriptがコンパイルずみ（中間コードへの翻訳の意）かどうかをしらべる
set a to (choose file of type {"com.apple.applescript.script-bundle", "com.apple.applescript.script", "com.apple.applescript.text"})
set asRes to chkAScompiled(a) as list of string or string
–> true or false

–指定のAppleScriptファイルがコンパイル（構文確認＋中間言語化）ずみかどうかを取得する
on chkAScompiled(anAlias as {alias, string})
　　set aURL to |NSURL|’s fileURLWithPath:(POSIX path of anAlias)
　　set asO to OSAScript’s alloc()’s initWithContentsOfURL:aURL |error|:(missing value)
　　
　　try
　　　　set compF to asO’s isCompiled() as boolean
　　　　return compF
　　on error
　　　　return false
　　end try
end chkAScompiled

property OSALanguage : a reference to current application’s OSALanguage
property OSALanguageInstance : a reference to current application’s OSALanguageInstance

set anOSALanguageInstance to OSALanguageInstance’s languageInstanceWithLanguage:(OSALanguage’s defaultLanguage())
set aLanguage to anOSALanguageInstance’s |language|()’s |name|() as string
–> "AppleScript"

set bLanguage to OSALanguage’s languageForName:"AppleScript"
set bName to bLanguage’s |name|() as string
–> "AppleScript"

set cLanguage to OSALanguage’s languageForName:"JavaScript"
set cName to cLanguage’s |name|() as string
–> "JavaScript"

set langArray to (OSALanguage’s availableLanguages()’s valueForKeyPath:"name") as list
–> {"AppleScript", "JavaScript"}

set scList to getRexicalColorOfScriptEditor() of me
–> {{32053, 4213, 32213}, {15672, 3071, 15831}, {2841, 6963, 64125}, {8259, 42547, 64473}, {0, 0, 0}, {32202, 16452, 3889}}
–色書式データ。先頭から順番に、、、
–新規テキスト, 演算子など, スクリプティング予約語, コマンド名, 値（数値、データ）, 変数およびサブルーチン名

–スクリプトエディタの各構文要素の指定色を返す
–v5の変更点：Leopard以降のStyle runsの挙動変化（スペースを分離する/しない）に対応し、動的にサンプル文を走査するようにした
–v4の変更点：構文要素検出時のテンポラリウィンドウ作成時にScript Editorを隠す
–v3の変更点：重複時のエラー検出を追加
on getRexicalColorOfScriptEditor()
　　set aRes to setVisibleOfSpecifiedProcess("Script Editor", false) of me
　　
　　set rexList to {"+", "set", "application", "Comment", "1", "a"} –文中から検索するテキスト要素
　　set colList to {} –色情報を入れるリスト
　　
　　
　　tell application "Script Editor"
　　　　
　　　　set aDoc to make new document
　　　　tell front document
　　　　　　set aName to name
　　　　　　–end tell
　　　　　　
　　　　　　–tell document aName
　　　　　　–未コンパイル時のテキストを取得
　　　　　　set contents to "aaaaa"
　　　　　　set rexItem1 to (color of attribute runs)
　　　　　　set rexItem1 to contents of (item 1 of rexItem1)
　　　　　　
　　　　　　set colList to {rexItem1}
　　　　　　
　　　　　　
　　　　　　–各種構文要素を含む文字を入れる
　　　　　　set contents to "1 + 1
set a to ＼"abc＼"
tell application ＼"Finder＼"
end tell
–Comment
"
　　　　　　–追加する場合には、テキストを後ろに追加すること
　　　　　　
　　　　　　try
　　　　　　　　compile
　　　　　　on error
　　　　　　　　close without saving
　　　　　　　　return false
　　　　　　end try
　　　　　　
　　　　　　set rex1 to attribute runs
　　　　　　set rex2 to color of attribute runs
　　　　　　
　　　　　　repeat with i in rexList
　　　　　　　　set j to contents of i
　　　　　　　　set rC to 1
　　　　　　　　repeat with ii in rex1
　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　set jj to replaceText(jj, " ", "") of me –スペースを削除する
　　　　　　　　　　if j = jj then
　　　　　　　　　　　　set the end of colList to contents of item rC of rex2
　　　　　　　　　　　　exit repeat –抜けていた
　　　　　　　　　　end if
　　　　　　　　　　set rC to rC + 1
　　　　　　　　end repeat
　　　　　　end repeat
　　　　　　
　　　　　　close without saving
　　　　end tell
　　　　
　　end tell
　　
　　–Script Editorの再表示
　　set aRes to setVisibleOfSpecifiedProcess("Script Editor", true) of me
　　
　　–要素の重複検出
　　set aRes to detectDuplicationSimple(colList) of me
　　if aRes = false then
　　　　return false
　　else
　　　　return colList
　　end if
　　
end getRexicalColorOfScriptEditor

–リスト中の重複検出
on detectDuplicationSimple(cList)
　　copy cList to ccList
　　
　　set j to length of ccList
　　
　　repeat with i from 2 to j
　　　　set first_item to item 1 of ccList
　　　　set ccList to rest of ccList
　　　　if first_item is in ccList then
　　　　　　return false
　　　　end if
　　end repeat
　　
　　return true
end detectDuplicationSimple

–指定プロセスの可視/不可視切り替え
on setVisibleOfSpecifiedProcess(aProc, aBoolean)
　　tell application "System Events"
　　　　if exists process aProc then
　　　　　　set visible of process aProc to aBoolean
　　　　　　set resF to true
　　　　else
　　　　　　set resF to false
　　　　end if
　　end tell
　　return resF
end setVisibleOfSpecifiedProcess

–任意のデータから特定の文字列を置換
on replaceText(origData, origText, repText)
　　set curDelim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to {origText}
　　set origData to text items of origData
　　set AppleScript’s text item delimiters to {repText}
　　set origData to origData as text
　　set AppleScript’s text item delimiters to curDelim
　　return origData
end replaceText