property |NSURL| : a reference to current application’s |NSURL|
property NSArray : a reference to current application’s NSArray
property NSString : a reference to current application’s NSString
property NSBundle : a reference to current application’s NSBundle
property NSThread : a reference to current application’s NSThread
property OSAScript : a reference to current application’s OSAScript
property NSPredicate : a reference to current application’s NSPredicate
property NSTextView : a reference to current application’s NSTextView
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 OSAScriptView : a reference to current application’s OSAScriptView
property NSMutableArray : a reference to current application’s NSMutableArray
property OSAScriptController : a reference to current application’s OSAScriptController
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property OSALanguageInstance : a reference to current application’s OSALanguageInstance
property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding

set postID to 3864
set {myUser, myPass} to getAcountData() of me
set aURL to "http://piyocast.com/as/xmlrpc.php"
set cocoaClassList to getCocoaPropListFromPost(aURL, postID, myUser, myPass) of me
–>　　{"NSString", "NSBundle", "NSPredicate", "NSDictionary", "NSMutableArray", "NSMutableDictionary"}

–指定Blogの指定IDの記事にURLリンクされているAppleScriptから、Cocoa Classのpropertyのみ取得する
on getCocoaPropListFromPost(aURL, postID, myUser, myPass)
　　–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"
　　
　　–WordPressの指定Post IDの記事を取得してリンクされているURLからURL Schemeでフィルタして、リンクされているAppleScriptのソースを取得
　　set aScheme to "applescript://"
　　set sourceList to getASSouceLinkedInWordPressPost(postID, aURL, aScheme, myUser, myPass) of me
　　
　　–AppleScriptのソースをRAM上でコンパイル（構文確認）して、構文色分けしたRTFを取得。RTFの書式情報をparseしてattribute runsと同様のrecordを生成
　　–構文色分けをもとにproperty項目を抽出し、Cocoa Classに該当するもののみを抽出
　　set outList to {}
　　repeat with i in sourceList
　　　　set j to contents of i
　　　　set anAttrStr to compileASandReturnAttributedString(j) of me
　　　　set attrRes to getAttributeRunsFromAttrString(anAttrStr) of me
　　　　set propNames to getPropertyNamesCocoaOnly(cList, attrRes) of me
　　　　
　　　　if propNames is not equal to {} then
　　　　　　set outList to outList & propNames
　　　　end if
　　end repeat
　　
　　–1D Listのユニーク化（重複要素の排除）
　　set aArray to NSArray’s arrayWithArray:outList
　　set bArray to aArray’s valueForKeyPath:"@distinctUnionOfObjects.self"
　　set bList to bArray as list of string or string –as anything
　　
　　return bList
end getCocoaPropListFromPost

–Property名称を取得する
on getPropertyNamesCocoaOnly(cList, aRec)
　　script spdHnd
　　　　property aRec : {}
　　end script
　　
　　set (aRec of spdHnd) to aRec
　　
　　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)
　　
　　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)
　　
　　
　　–変数あるいはハンドラ名称をリストアップ(variables & handler)
　　set tmp1Array to NSArray’s arrayWithArray:(aRec of spdHnd)
　　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
　　
　　set the beginning of eArray to 0 –ハンドラ宣言部がTopに来る場合に備える
　　
　　–"property"（プロパティ宣言）の項目をリストアップ 文字と色で抽出
　　set thePred2 to NSPredicate’s predicateWithFormat_("stringVal == %@ && colorStr == %@ ", "property", ontoCoStr)
　　set fArray to ((tmp1Array’s filteredArrayUsingPredicate:thePred2)’s valueForKeyPath:"itemIndex") as list
　　
　　set handlerList to {}
　　
　　–property ではじまるハンドラの抽出
　　repeat with i in eArray –改行を含むテキストのアイテム番号リスト
　　　　set j to (contents of i) as integer
　　　　repeat with ii in fArray –"on"の項目リスト
　　　　　　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 of spdHnd) as list))
　　　　　　else if (j + 2) = jj then
　　　　　　　　set handlerStr to stringVal of (item (jj + 2) of ((aRec of spdHnd) as list))
　　　　　　end if
　　　　　　
　　　　　　set tmpStr to repChar(handlerStr, "|", "") of me
　　　　　　
　　　　　　if tmpStr is not in {"error", missing value} and tmpStr is not in handlerList then
　　　　　　　　–抽出したProperty宣言がCocoa Classのものかどうか判定
　　　　　　　　if searchClassInFrameworks(tmpStr) of me is not equal to false then
　　　　　　　　　　set the end of handlerList to tmpStr
　　　　　　　　end if
　　　　　　end if
　　　　　　
　　　　end repeat
　　end repeat
　　
　　return handlerList
end getPropertyNamesCocoaOnly