—
– Created by: Takaaki Naganoya
– Created on: 2019/07/04
—
– Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions
use framework "AppKit"
use framework "OSAKit"
use attrLib : script "asAttrRecLib"
property NSArray : a reference to current application’s NSArray
property OSANull : a reference to current application’s OSANull
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 NSMutableArray : a reference to current application’s NSMutableArray
property NSMutableDictionary : a reference to current application’s NSMutableDictionary
property OSALanguageInstance : a reference to current application’s OSALanguageInstance
script spd
property fArray : {}
property outList : {}
property resStr : {}
end script
on run
set theSource to " property textList : {}"
set repValstr to "boundsList"
set pureValStr to retTargStrFromCompiledScriptAttribute(theSource, 7) of me –Variables and Sub-routine names
–> "textList"
set newLine to repChar(theSource, pureValStr, repValstr) of me
–> " property boundsList : {}"
display dialog newLine
end run
–AppleScriptのソーステキストをコンパイルして、
on retTargStrFromCompiledScriptAttribute(theSource as string, colSettingOrder as integer)
if colSettingOrder < 1 or colSettingOrder > 18 then error ("Lexical element index range error (safe range: 1….18. You set " & colSettingOrder as string) & ")"
–AppleScriptの構文色分け情報を取得
set ccRes to getAppleScriptSourceColors() of me
set cRes to chkASLexicalFormatColorConfliction(ccRes) of me –構文色分けの重複色チェック
if cRes = false then error "There is some duplicate(s) color among AppleScript’s lexical color settings"
–検索用の色情報を作成
set commentCol to contents of item colSettingOrder of ccRes –Variable and Sub-routine name
set searchVal to (redValue of commentCol as string) & " " & (greenValue of commentCol as string) & " " & (blueValue of commentCol as string) –for filtering
–与えられたテキストをAppleScriptとして評価し構文色分け情報をもとにStyle Runs的なDictionary化して返す
set aRitch to compileASSourcetextAndReturnStyledText(theSource) of me
–書式付きテキストからstyle runs的な書式リストを作成
set anAttrList to getAttributeRunsFromAttrString(aRitch) of attrLib
–>
(*
(NSArray) {
{
fontSize:12.0,
stringVal:"set",
colorVal:{
14,
62,
251
},
fontName:"Osaka",
itemIndex:1,
colorStr:"14 62 251"
},…..
*)
set tmp1Array to NSArray’s arrayWithArray:anAttrList
–コメント以外の要素をピックアップ 文字と色で抽出
–set thePred2 to NSPredicate’s predicateWithFormat_("colorStr != %@ && stringVal != %@", searchVal, (return & return & return & return))
set thePred2 to NSPredicate’s predicateWithFormat_("colorStr == %@", searchVal)
set (fArray of spd) to ((tmp1Array’s filteredArrayUsingPredicate:thePred2)’s valueForKeyPath:"itemIndex") as list
–> {1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84}
–アイテム番号のリストをもとに、ピックアップ対象のアイテムだけを再連結
set (outList of spd) to {}
repeat with i in (fArray of spd)
set aStr to ((item i of anAttrList)’s stringVal) as string
set the end of (outList of spd) to aStr
end repeat
set (resStr of spd) to retDelimedText((outList of spd), return) of me
return (resStr of spd)
end retTargStrFromCompiledScriptAttribute
on retDelimedText(aList, aDelim)
set aText to ""
set curDelim to AppleScript’s text item delimiters
set AppleScript’s text item delimiters to aDelim
set aText to aList as text
set AppleScript’s text item delimiters to curDelim
return aText
end retDelimedText
——-
–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
–AppleScriptの構文色分けのカラー値をRGBで取得する
on getAppleScriptSourceNSColorsDict()
— 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 aDict to NSMutableDictionary’s alloc()’s init()
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 colIndStr to (rVal as string) & " " & (gVal as string) & " " & (bVal as string)
set tmpColDat to {numList:{rVal, gVal, bVal}, strInd:colIndStr}
–(aDict’s addObject:tmpColDat forKey:theColor)
(aDict’s addObject:{rVal, gVal, bVal} forKey:theColor)
end repeat
return aDict
end getAppleScriptSourceNSColorsDict
–NSColorからRGBの値を取り出す
on retColListFromNSColor(aCol, aMAX as integer)
set aSpace to (aCol’s colorSpaceName()) as string
–set aSpace to (aCol’s type()) as integer
if aSpace is in {"NSDeviceRGBColorSpace", "NSCalibratedRGBColorSpace"} then
copy aCol to cCol
else
–RGB以外の色空間の色は、RGBに変換
–CMYKとグレースケールは同一メソッドでRGBに変換できることを確認済み
set cCol to aCol’s colorUsingColorSpaceName:"NSCalibratedRGBColorSpace"
if cCol = missing value then error "Color Space Conversion Error (" & aSpace & " to NSCalibratedRGBColorSpace)"
end if
set aRed to round ((cCol’s redComponent()) * aMAX) rounding as taught in school
set aGreen to round ((cCol’s greenComponent()) * aMAX) rounding as taught in school
set aBlue to round ((cCol’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} as list
end retColListFromNSColor
–AS書式で配色に重複がないかどうかチェック
on chkASLexicalFormatColorConfliction(aList)
set anArray to current application’s 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 current application’s 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
–テキスト形式のAppleScriptをコンパイルして書式付きテキスト（NSAttributedString）を返す
on compileASSourcetextAndReturnStyledText(theSource)
— 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 styledSourceText to theScript’s richTextSource()
end if
return styledSourceText
end compileASSourcetextAndReturnStyledText
–文字置換
on repChar(origText as string, targChar as string, repChar as string)
set curDelim to AppleScript’s text item delimiters
set AppleScript’s text item delimiters to targChar
set tmpList to text items of origText
set AppleScript’s text item delimiters to repChar
set retText to tmpList as string
set AppleScript’s text item delimiters to curDelim
return retText
end repChar
|
指定のAppleScript書類のソースコードを取得し、構文色分け情報をもとにコメント部分の文字列のみを取得するAppleScriptです。
