—
– 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 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 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
script spd
property fArray : {}
property outList : {}
property resStr : {}
end script
–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 5 of ccRes –Comment
set searchVal to (redValue of commentCol as string) & " " & (greenValue of commentCol as string) & " " & (blueValue of commentCol as string) –for filtering
–処理対象のAppleScript書類を選択
set asPath to choose file of type {"com.apple.applescript.script-bundle", "com.apple.applescript.script"}
–書式付きテキストからstyle runs的な書式リストを作成
set anAttrList to getAttrRecFromASPath(asPath) 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)
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です。
指定のAppleScript書類のソースコードを取得し、構文色分け情報をもとにコメント部分の文字列のみを取得するAppleScriptです。
