property NSUUID : a reference to current application’s NSUUID
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 OSALanguageInstance : a reference to current application’s OSALanguageInstance
property NSDocumentTypeDocumentAttribute : a reference to current application’s NSDocumentTypeDocumentAttribute

set aFile to choose file of type {"com.apple.applescript.script-bundle", "com.apple.applescript.script"}
set hList to retHandlerNamesFromAppleScriptSource(aFile) of me
–>　　{​​​​​"test1Handler", ​​​​​"test2Handler", ​​​​​"test3Handler", ​​​​​"test4Handler"​​​}

on retHandlerNamesFromAppleScriptSource(aFile)
　　set aRec to getAttrRecFromASPath(aFile) of me
　　
　　set cList to getAppleScriptSourceColors() of me
　　set targAttr to contents of item 7 of cList –ハンドラあるいは変数
　　set tmpCoStr to ((redValue of targAttr) as string) & " " & ((greenValue of targAttr) as string) & " " & ((blueValue of targAttr) as string)
　　
　　–変数あるいはハンドラ名称をリストアップ(variables & handler)
　　set tmp1Array to NSArray’s arrayWithArray:aRec
　　set thePred0 to NSPredicate’s predicateWithFormat_("colorStr == %@", tmpCoStr)
　　set dArray to (tmp1Array’s filteredArrayUsingPredicate:thePred0) as list
　　
　　–改行を含むデータをリストアップ(text data contains return)
　　set thePred1 to NSPredicate’s predicateWithFormat_("stringVal CONTAINS %@", return)
　　set eArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred1)’s valueForKeyPath:"itemIndex") as list
　　
　　–"on"の項目をリストアップ（ハンドラ宣言）
　　set thePred2 to NSPredicate’s predicateWithFormat_("stringVal == %@", "on")
　　set fArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred2)’s valueForKeyPath:"itemIndex") as list
　　
　　–"to"の項目をリストアップ（ハンドラ宣言ないしは代入対象指定）
　　set thePred3 to NSPredicate’s predicateWithFormat_("stringVal == %@", "to")
　　set gArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred3)’s valueForKeyPath:"itemIndex") as list
　　
　　
　　set handlerList to {}
　　
　　–on ではじまるハンドラの抽出
　　repeat with i in eArray
　　　　set j to (contents of i) as integer
　　　　repeat with ii in fArray
　　　　　　set jj to (contents of ii) as integer
　　　　　　
　　　　　　set handlerStr to missing value
　　　　　　
　　　　　　if (j + 1) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of (aRec as list))
　　　　　　else if (j + 2) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of (aRec as list))
　　　　　　end if
　　　　　　
　　　　　　if handlerStr is not in {"error", missing value} and handlerStr is not in handlerList then
　　　　　　　　set the end of handlerList to handlerStr
　　　　　　end if
　　　　　　
　　　　end repeat
　　end repeat
　　
　　
　　–to ではじまるハンドラの抽出
　　repeat with i in eArray
　　　　set j to (contents of i) as integer
　　　　repeat with ii in gArray
　　　　　　set jj to (contents of ii) as integer
　　　　　　
　　　　　　set handlerStr to missing value
　　　　　　
　　　　　　if (j + 1) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of (aRec as list))
　　　　　　else if (j + 2) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of (aRec as list))
　　　　　　end if
　　　　　　
　　　　　　if handlerStr is not in {"error", missing value} and handlerStr is not in handlerList then
　　　　　　　　set the end of handlerList to handlerStr
　　　　　　end if
　　　　　　
　　　　end repeat
　　end repeat
　　
　　return handlerList
end retHandlerNamesFromAppleScriptSource

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

–スタイル付きテキストを指定フォルダ（POSIX path）にRTFで書き出し
on saveStyledTextAsRTF(targFol, aStyledString)
　　set bstyledLength to aStyledString’s |string|()’s |length|()
　　set bDict to NSDictionary’s dictionaryWithObject:"NSRTFTextDocumentType" forKey:(NSDocumentTypeDocumentAttribute)
　　set bRTF to aStyledString’s RTFFromRange:(current application’s NSMakeRange(0, bstyledLength)) documentAttributes:bDict
　　
　　set theName to (NSUUID’s UUID()’s UUIDString())
　　set thePath to NSString’s stringWithString:targFol
　　set thePath to (thePath’s stringByAppendingPathComponent:theName)’s stringByAppendingPathExtension:"rtf"
　　return (bRTF’s writeToFile:thePath atomically:true) as boolean
end saveStyledTextAsRTF

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

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 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

try
　　set b to a / 1
on error erM
　　—
end try

on test1Handler()
　　return "test"
end test1Handler

on test2Handler:aParam
　　return "test2"
end test2Handler:

to test3Handler()
　　return "test3"
end test3Handler

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

property quotChar : string id 34

set asPath to choose file of type {"com.apple.applescript.script", "com.apple.applescript.script-bundle"}

set contText to getContentsOfFile(asPath) of me

set encText to makeEncodedScript(contText) of me
set newLinkText to "applescript://com.apple.scripteditor?action=new&script=" & encText
–> "applescript://com.apple.scripteditor?action=new&script=use%20AppleScript%20version%20%222%2E4%22%0D………"

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

on makeEncodedScript(contText)
　　set delimA to "★☆temp★☆"
　　set delimB to (retURLencodedStrings(delimA) of me) as text
　　
　　set aList to every paragraph of contText
　　set aClass to class of aList
　　if aClass = list then
　　　　set aLen to length of aList
　　else
　　　　set aLen to 1
　　end if
　　
　　set aaList to {}
　　
　　set delim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to delimA
　　set bList to aList as text
　　set AppleScript’s text item delimiters to delim
　　
　　set aaList to (retURLencodedStrings(bList) of me) as text
　　
　　set search_string to delimB as text
　　set replacement_string to "%0D" as text
　　set bList to replace_chars(aaList, search_string, replacement_string) of me
　　
　　return bList
end makeEncodedScript

on replace_chars(this_text, search_string, replacement_string)
　　set AppleScript’s text item delimiters to the search_string
　　set the item_list to every text item of this_text
　　set AppleScript’s text item delimiters to the replacement_string
　　set this_text to the item_list as string
　　set AppleScript’s text item delimiters to ""
　　return this_text
end replace_chars

on retURLencodedStrings(aText)
　　set aStr to current application’s NSString’s stringWithString:aText
　　set encodedStr to aStr’s stringByAddingPercentEncodingWithAllowedCharacters:(current application’s NSCharacterSet’s alphanumericCharacterSet())
　　return encodedStr as text
end retURLencodedStrings