指定のアプリケーションの実行アーキテクチャを変更

Posted on 5月 3 by Takaaki Naganoya

指定のアプリケーションの実行アーキテクチャを変更するAppleScriptです。

Apple Silicon Mac上でアプリケーションをRosetta 2によってIntel 64バイナリのARMエミュレーション動作を行うかどうかは、Finder上の「Rosettaを利用して開く」のチェックボックスによって制御されています。

これを、外側（FinderのGUI）から操作するか、内側（何らかのOS内のサービスやメタデータ）から操作するかによって、その「やりかた」は大きく異なります。

自分は、できることなら極力GUI Scriptingを使いたくない派なので、「そういえばASからこのあたりの設定をいじくった記憶がない」と思いつつ、「内側から操作する方法はないものか」と考えていました。

さっそくGithub上でいろいろ調査してみたところ、LaunchServiceのプライベートAPIに「_LSSetArchitecturePreferenceForApplicationURL」というものがあって、これを呼ぶことで処理を実現できそうだということが判明。

処理内容は、アゴが外れそうなほど簡単なので、AppleScript（AppleScriptObjC）でも普通に書けそうな勢いでしたが、アンダースコアで始まるAPIはAppleScriptにBridgeしにくく、もともとのプロジェクトのもの（UNIXのコマンドラインから呼び出す「SetArchPrefForURL」プロジェクト）をビルドしたバイナリをScriptバンドル内に入れて、呼び出すようにしてみました。

Cocoa Frameworkのプロジェクトを作成して、AppleScriptから普通にPOSIX pathとCPUアーキテクチャを渡せば結果をbooleanで返してくるようなスタイルに書き換えようとして、途中で頓挫してしまいました。そんなに気合いを入れる内容でもないので、こんなものでいいんでしょう。

AppleScript名：setArchLib.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2023/05/03
—
–　　Copyright © 2023 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

set appPath to choose file of type {"com.apple.application-bundle"}
–set archStr to "x86_64"
set archStr to "arm64"

set archRes to setArchForApp(appPath, archStr as string) of me

on setArchForApp(appPath, archStr as string)
　　if archStr is not in {"x86_64", "arm64"} then error "Invalid architecture"
　　
　　set exePath to POSIX path of (path to resource "SetArchPrefForURL")
　　set sRes to do shell script (quoted form of exePath) & " " & (quoted form of POSIX path of appPath) & " " & archStr
　　return (sRes = "") as boolean
end setArchForApp

★Click Here to Open This Script　

(Visited 36 times, 1 visits today)

画像をExcelのワークシート上に配置

Posted on 4月 4 by Takaaki Naganoya

Microsoft 365のExcel v16.71、Windows版とmacOS版のソースコードが共通化されたというふれ込みではあるものの、実はけっこうフォーム部分が違うし、VBのマクロエディタで日本語が記入できないとか、互換性のない関数（Mac上で動作しないENCODEURL、Switch,IFS、FILTERXML、WEBSERVICEなどの関数）の存在など、いろいろ勘弁してほしい出来です。

しばらくはNumbersだけで用が済んでいたのですが、ここのところWindows版のExcelの講座なども行っていたので、併せてmacOS版のExcelについても追加調査。細かい点のチェックを行っていました。

そんなExcelでアドインのオンラインストアからQRコード作成用アドインを探してみたところ、フリーなものは存在していないようです。

Cocoaの機能を利用すれば、割とすぐにできてしまう程度のQRコード。わざわざアドインの力を利用する必要などなかったのです。AppleScriptでQRコードを生成して、Excelのワークシートに差し込めばよいだけです。

ところが、ひさしぶりにExcelのScriptを引っ張り出してきて、昔書いた「Excelに指定の画像を配置する」Scriptを実行してみたところ、エラーで動きません。

ワークシート上にshapeを作成できるのに、そのshapeに指定パスの画像を割り当てる処理でエラーになります。

そんな時、「出来の悪いプログラマは、POSIX pathで誤魔化して実装する」という経験則が思い出されました。

目を閉じると、AppleのKeynoteで一時期行われていた、画像配置コマンドにPOSIX pathを要求していたアレな実装であるとか（あれはひどかった）、いまだにアレであり続けているAdobe Acrobat DistillerのdistillコマンドがPOSIX pathを要求する件であるとか（file pathって書いてあるのに、aliasじゃなくてPOSIX pathを要求するという地雷仕様）、枚挙にいとまがありません。

そんなわけで、普通に書いても通らなかったのでパスをPOSIX pathで与えてみたところ、見事（？）配置されました。

AppleScript名：画像をワークシート上に配置.scpt

set anImagePath to choose file
set anImagePOSIX to POSIX path of anImagePath

tell application "Microsoft Excel"
　　set cwb to workbook 1
　　tell cwb
　　　　tell worksheet 1
　　　　　　set aPicShape to make new shape at the beginning
　　　　　　set width of aPicShape to 312
　　　　　　set height of aPicShape to 312
　　　　　　user picture of aPicShape picture file anImagePOSIX
　　　　end tell
　　end tell
end tell

★Click Here to Open This Script　

(Visited 33 times, 1 visits today)

AS関連データの取り扱いを容易にする（はずの）privateDataTypeLib

Posted on 8月 22, 2022 by Takaaki Naganoya

AS関連データの取り扱いを簡単にすることを目的に書き出した、privateDatatypeLibです。

プログラムとデータを分離して、データ記述部分を外部ファイル（設定ファイルなど）に追い出したときに、どのようなデータかを表現するための道具として試作してみました。

macOS上のデータ記述子は、

などのさまざまなデータ識別方法が存在していますが、どれも（自分の）用途には合わなかったので、検討・試作をはじめてみました。Predicatesが一番近いものの、不十分なのでいろんなデータ型や用途に拡張。あくまで自分用なので「public」などの宣言はとくに不必要と考え、縮小して処理を行なっています。

とくに、ファイルパスの処理なんて定型処理しかしないのに、わざわざ何かの表現を行う必要があるのはナンセンスですし、日付関連も割と余計な記述が多いように感じています。

また、緯度/経度のデータや座標データなども、もう少しなんとかならないかと思っています。

AppleScript名：privateDataTypeLib.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2022/08/22
—
–　　Copyright © 2022 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

set aData to "１００"
set dType to "@number"
set bData to "" –不要なケース多数。不要な場合にはヌル文字を指定
set mePath to path to me –実際には、呼び出し側で取得して指定。ライブラリ自体のパスを求めているのはテスト実行時のみ
set aRes to getParameterAndCalc(aData, dType, bData, mePath) of me

on getParameterAndCalc(aData, dType, bData, mePath)
　　if dType = "@string" then
　　　　return normalizeByNFC(aData) of me
　　　　
　　else if dType = "@number" then
　　　　set tmpA to zenToHan(aData) of charConvKit of me –全角→半角変換
　　　　set a to detectOutNumStr(tmpA) of me –数字＋関連・意外の文字を除外
　　　　return normalizeByNFC(a) of me
　　　　
　　else if dType = "@filepath.sub.foldername" then
　　　　set aClass to class of aData –aliasだったらPOSIX pathに変換。file…はどうなんだか
　　　　if aClass = alias then set aData to POSIX path of aData
　　　　return aData & bData & "/"
　　　　
　　else if dType = "@file.comment" then
　　　　set aStr to getFinderComment(POSIX path of mePath) of me
　　　　return normalizeByNFC(aStr) of me
　　　　
　　else if dType = "@file.name" then
　　　　set aClass to class of aData
　　　　if aClass = alias then set aData to POSIX path of aData
　　　　set aStr to (current application’s NSString’s stringWithString:aData)’s lastPathComponent()’s stringByDeletingPathExtension()
　　　　return normalizeByNFC(aStr as string) of me
　　　　
　　else if dType = "@date.month" then
　　　　set curDate to current date
　　　　set curMonth to month of curDate as number
　　　　return curMonth as string
　　　　
　　else
　　　　return aData
　　end if
end getParameterAndCalc

on normalizeByNFC(aStr)
　　set aNSStr to current application’s NSString’s stringWithString:aStr
　　set aNFC to aNSStr’s precomposedStringWithCanonicalMapping()
　　return aNFC as string
end normalizeByNFC

–ANK文字列以外のものをそぎ落とす
on detectOutNumStr(testStr)
　　set sList to characters of testStr
　　set aStr to ""
　　
　　repeat with i in sList
　　　　if detectOutNumChar(i) of me then
　　　　　　set aStr to aStr & (i as string)
　　　　end if
　　end repeat
　　
　　return aStr
end detectOutNumStr

on detectOutNumChar(testText)
　　–Numeric + Special char
　　set ankChar to {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ".", "-", "+", "E", ","}
　　
　　set _testChar to testText as Unicode text
　　
　　ignoring case
　　　　repeat with i in _testChar
　　　　　　set j to contents of i
　　　　　　if j is not in ankChar then
　　　　　　　　return false
　　　　　　end if
　　　　end repeat
　　end ignoring
　　
　　return true
end detectOutNumChar

–Finderコメントを取得
on getFinderComment(aPOSIX)
　　set aURL to current application’s |NSURL|’s fileURLWithPath:aPOSIX
　　set aMetaInfo to current application’s NSMetadataItem’s alloc()’s initWithURL:aURL
　　set metaDict to (aMetaInfo’s valuesForAttributes:{"kMDItemFinderComment"}) as record
　　if metaDict = {} then return ""
　　set aComment to kMDItemFinderComment of (metaDict)
　　return aComment
end getFinderComment

script charConvKit
　　— Created 2017-09-06 by Shane Stanley
　　— Modified 2017-09-06 by Takaaki Naganoya
　　use AppleScript
　　use framework "Foundation"
　　property parent : AppleScript
　　
　　property NSString : a reference to current application’s NSString
　　property NSStringTransformFullwidthToHalfwidth : a reference to current application’s NSStringTransformFullwidthToHalfwidth
　　property NSStringTransformHiraganaToKatakana : a reference to current application’s NSStringTransformHiraganaToKatakana
　　property NSStringTransformLatinToHiragana : a reference to current application’s NSStringTransformLatinToHiragana
　　property NSStringTransformLatinToKatakana : a reference to current application’s NSStringTransformLatinToKatakana
　　property NSStringTransformToUnicodeName : a reference to current application’s NSStringTransformToUnicodeName
　　property NSStringTransformToXMLHex : a reference to current application’s NSStringTransformToXMLHex
　　
　　–半角→全角変換
　　on hanToZen(aStr)
　　　　set aString to NSString’s stringWithString:aStr
　　　　return (aString’s stringByApplyingTransform:(NSStringTransformFullwidthToHalfwidth) |reverse|:true) as string
　　end hanToZen
　　
　　–全角→半角変換
　　on zenToHan(aStr)
　　　　set aString to NSString’s stringWithString:aStr
　　　　return (aString’s stringByApplyingTransform:(NSStringTransformFullwidthToHalfwidth) |reverse|:false) as string
　　end zenToHan
　　
　　–ひらがな→カタカナ変換
　　on hiraganaToKatakana(aStr)
　　　　set aString to NSString’s stringWithString:aStr
　　　　return (aString’s stringByApplyingTransform:(NSStringTransformHiraganaToKatakana) |reverse|:false) as string
　　end hiraganaToKatakana
　　
　　–カタカナ→ひらがな変換
　　on katakanaToHiraganaTo(aStr)
　　　　set aString to NSString’s stringWithString:aStr
　　　　return (aString’s stringByApplyingTransform:(NSStringTransformHiraganaToKatakana) |reverse|:true) as string
　　end katakanaToHiraganaTo
　　
　　–ローマ字→ひらがな変換
　　on alphabetToHiragana(aStr)
　　　　set aString to NSString’s stringWithString:aStr
　　　　return (aString’s stringByApplyingTransform:(NSStringTransformLatinToHiragana) |reverse|:false) as string
　　end alphabetToHiragana
　　
　　–ひらがな→ローマ字変換
　　on hiraganaToalphabet(aStr)
　　　　set aString to NSString’s stringWithString:aStr
　　　　return (aString’s stringByApplyingTransform:(NSStringTransformLatinToHiragana) |reverse|:true) as string
　　end hiraganaToalphabet
　　
　　–ローマ字→カタカナ変換
　　on alphabetToKatakana(aStr)
　　　　set aString to NSString’s stringWithString:aStr
　　　　return (aString’s stringByApplyingTransform:(NSStringTransformLatinToKatakana) |reverse|:false) as string
　　end alphabetToKatakana
　　
　　–カタカナ→ローマ字変換
　　on katakanaToAlphabet(aStr)
　　　　set aString to NSString’s stringWithString:aStr
　　　　return (aString’s stringByApplyingTransform:(NSStringTransformLatinToKatakana) |reverse|:true) as string
　　end katakanaToAlphabet
　　
　　–文字→Unicode Name変換
　　on characterToUnicodeName(aStr)
　　　　set aString to NSString’s stringWithString:aStr
　　　　return (aString’s stringByApplyingTransform:(NSStringTransformToUnicodeName) |reverse|:false) as string
　　end characterToUnicodeName
　　
　　–Unicode Name→文字変換
　　on unicodeNameToCharacter(aStr)
　　　　set aString to NSString’s stringWithString:aStr
　　　　return (aString’s stringByApplyingTransform:(NSStringTransformToUnicodeName) |reverse|:true) as string
　　end unicodeNameToCharacter
　　
　　–文字→XML Hex変換
　　on stringToXMLHex(aStr)
　　　　set aString to NSString’s stringWithString:aStr
　　　　return (aString’s stringByApplyingTransform:(NSStringTransformToXMLHex) |reverse|:false) as string
　　end stringToXMLHex
　　
　　–XML Hex→文字変換
　　on xmlHexTostring(aStr)
　　　　set aString to NSString’s stringWithString:aStr
　　　　return (aString’s stringByApplyingTransform:(NSStringTransformToXMLHex) |reverse|:true) as string
　　end xmlHexTostring
end script

★Click Here to Open This Script　

(Visited 73 times, 1 visits today)

xincludeを有効にしてXML（sdef）読み込み v2

Posted on 7月 26, 2022 by Takaaki Naganoya

指定のBundle IDのアプリケーションのInfo.plistの値からSDEF（AppleScript命令定義ファイル）のファイル情報を読み取って、実際にSDEFの実ファイルを読み取り、得られた文字列をXMLとして解釈する際にXincludeを展開して、再度文字列に戻すAppleScriptです。

もともと、SDEFを読み取って分析することは、アプリケーションのバージョン間の変更差分を検出する用途で試していました。これは、変化のみを検出することを目的としたもので、内容について仔細に認識することを目的としたものではありませんでした。

そこから１歩進んで、AppleScript側から実行環境情報を取得する試みをいろいろ続けてきました。

実行環境自体が何なのか、という判別はここ数年で一番大きな成果だったと感じます。地球にいながら「銀河系の中の、太陽系の中の第３惑星にいる」ということが観測できるようになったわけです。

さらに、それぞれのランタイム環境の識別が可能になったことにより、各実行環境の「差」を判定しやすくなった、という副産物もありました。

話を戻しましょう。

SDEFを読んで、当該アプリケーションが何を行えるかをAppleScript側からも認識できるはずで、そのための調査も開始していました。

System Eventsの「Scripting Definition Suite」はその名前と用語から、AppleScriptからSDEFの解析を行うための部品であることが推測され、いろいろ調べてきたものの…..Apple側がSystem Eventsそれ自体のチェックを行うために設けた「メンテナンス＆デバッグのための機能（ただしSystem Events専用）」だという結論にいたっています。つまり、System Events以外にはまるっきり使えません。

これで、AppleScriptのプログラム側からアプリケーション側の仕様を自動判別＆解析するためには、SDEFそのものを解析するしかないという話になりました。

ただ、SDEFの直接解析については１つの「ちょっと困った仕様」がありました。外部ファイルをincludeできる（Xinclude）ようになっており、そのファイルを元のSDEF上に展開するのは、まじめにXML上の情報を分析する必要があります。ファイル・システム上のどこの場所からどのファイルを読み込むのか、という話と……XMLのオブジェクトモデル上のどこに展開するのかという話の両方を処理する必要があります。まじめに組むと、それなりの時間がかかってしまいそうです。

少ない例から推測してScriptを書くことは不可能ではありませんが、「隠れ仕様」が存在していた場合には対処できません。OS側にその機能があれば、そのままそっくり利用できたほうがよいだろうと思われました。

このXincludeの展開を（他力本願で）行うには、どこのレイヤーのどの機能を用いるべきなのか？

matttのOno.frameworkなどもビルドして試してみたものの、Xincludeの展開はソースコードを全文検索しても見つけられず、もうちょっと物理層に近いレイヤーのlibxml2の機能にアクセスする必要があるようでした。

ほかにも、Unix Shell Commandに、「xsltproc」コマンドが存在しており、Xinclude展開を行ってくれるようでした（XSLTを書けば）。スクリプトエディタに任意のアプリケーションをオープンさせればAppleScript用語辞書を表示してくれるわけで、この表示中のSDEFについてはXincludeがすべて解決された状態になっているため、AppleScriptからスクリプトエディタを操作するという手段もないわけではないのですが、もっとスマートに（こっそり）処理したかったので、これは（機能することがわかっていながらも）使えません。

結局、NSXMLDocumentのNSXMLNodeOptionsでNSXMLDocumentXIncludeを指定すると、XMLテキストをオブジェクトに解釈する際に外部ファイルを展開してくれることが判明。

Mail.appのSDEFでいえば、Standard Suiteにinclude指定があり、

元ファイルを読み込んだだけでは完全体のSDEFを取得できません。これを、本AppleScriptを用いて読み込んで解釈すると、

のように、指定パスに存在している「CocoaStandard.sdef」を展開します。ほかにも、Microsoft系のアプリケーションでXincludeを使用しており、本AppleScriptのような処理を経た上でSDEFの分析を行う必要があることでしょう。

これが、今日明日の段階で何か「すごいこと」ができるような存在になることは決してありませんが、この部品が存在していることで異次元の処理ができるようになるような手応えはあります。

AppleScript名：xincludeを有効にしてXML（sdef）読み込み v2.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2022/07/26
—
–　　Copyright © 2022 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use scripting additions

set targAppBundleID to "com.apple.mail" –SDEFを取り出すターゲットのアプリケーションのBundle ID

set thePath to POSIX path of (path to application id targAppBundleID)

set aSDEFname to retAppSdefNameFromBundleIPath(thePath, "OSAScriptingDefinition") of me
if aSDEFname = false then return

if aSDEFname does not end with ".sdef" then set aSDEFname to aSDEFname & ".sdef"
set sdefFullPath to thePath & "Contents/Resources/" & aSDEFname
set sdefAlias to (POSIX file sdefFullPath) as alias –sdefのフルパスを求める

–SDEF読み込み（Xincludeの展開が必要な状態）
tell current application
　　set theXML to read sdefAlias as «class utf8»
end tell

–NSXMLDocumentの生成、Xincludeを有効に
set {theXMLDoc, theError} to current application’s NSXMLDocument’s alloc()’s initWithXMLString:theXML options:(current application’s NSXMLDocumentXInclude) |error|:(reference)

–XMLを文字データ化
set aDocStr to (theXMLDoc’s XMLData)
set aDocStr2 to (current application’s NSString’s alloc()’s initWithData:(aDocStr) encoding:(current application’s NSUTF8StringEncoding)) as string

–指定パスからアプリケーションのScriptabilityをbooleanで返す
on retAppSdefNameFromBundleIPath(appPath as string, aKey as string)
　　set aDict to (current application’s NSBundle’s bundleWithPath:appPath)’s infoDictionary()
　　set aRes to aDict’s valueForKey:(aKey)
　　if aRes = missing value then return false
　　set asRes to aRes as string
　　
　　return asRes as string
end retAppSdefNameFromBundleIPath

★Click Here to Open This Script　

(Visited 52 times, 1 visits today)

macOS 12.3上でFinder上で選択中のファイルをそのままオープンできない件

Posted on 3月 28, 2022 by Takaaki Naganoya

macOS 12.xはAppleScriptの処理系に対して、主にセキュリティ面でいろいろ修正が加わっています。

この修正は、セキュリテイを「高める」という名目のもとに行われているのですが、セキュリティ面での課題さえ片付けられれば、その他に悪影響を及ぼしていたとしても「知ったことではない」というのがAppleの態度です。そして、その問題に対してユーザー側から文句が出てこなければ、そのままです。

–> View Demo Movie

とくに、深謀遠慮な考えとか、素晴らしい見通しとかはなく、「上から言われたからやっている」というやっつけ仕事感を感じます。

AppleはSteve Jobsが作り上げた秘密警察みたいな組織になっていて、チーム間の権限の切り分けが病的なまでに行われており、チームが違うと会社が違うぐらいの隔たりが発生しています。それは、Steve Jobsという「垣根を無視して横断して歩く異物」がいたから成立する組織であって、官僚化、硬直化が絶賛進行中といったところです。

話を戻しますが….たしかに、そうした機能的なアップを伴わない修正で何も問題（副作用）が起こらなければ「セキュリティが高まったのでよかったね」という美談になるわけですが、たいていの場合にはそうなりません。意図していなかった箇所に副作用が生じます。

あるいは、セキュリティのポリシー同士が実は矛盾を生んでいる、という状況になっていて、Aという問題とBという問題を解決した結果、あらたにCというもっと巨大な問題が発生する、とかいった状況は容易にあり得るわけです。それでも、各担当者は誠意をもってその仕事に取り組んでいるわけで、こうした「人間的に尊敬できて素晴らしい能力を持ったスタッフ」による「熱心かつ誠意あふれる真摯な仕事」が合成された結果、「見たことも聞いたこともない間抜けな理由から生じる猛毒にまみれた悪意」が合成されてしまうことが、現在のTim CookのAppleの下ではあり得るのです。

「Finder上で選択中のファイルをそのままオープンする」

というのは、ここ数年というよりもAppleScriptを覚えたてのころにちょろっと書いて実行したぐらいであり、実際のところ「それがどうした？」というレベルの処理です。

AppleScript名：Finder上で選択中のファイルをオープン.scpt

–macOS 12.3でエラーになる処理
tell application "Finder"
　　open selection
end tell

★Click Here to Open This Script　

Finder上で選択したファイルに対する処理は、きょうび何かのアプリケーションに渡さなくてもAppleScriptだけで処理できてしまうことが多いということもありますし（画像とか）、選択されたファイルをそのままオープンするという「1＝1」みたいな処理はやりません。

選択したフォルダの中をすべてSpotlight経由で走査して、指定の形式のファイルだけをリストアップして、順次処理するようなものになっています。

ただ、10年たっても20年たっても「1＝1」みたいな処理しかしていない人がけっこういて驚かされると同時に、意外なところで（Adobeのアプリケーションでアプリケーション間の連携に）使っていたりして、修正されないと困るケースは多いようです。

Shane StanleyがLateNight Softwareのフォーラムに投稿した、こうした処理への迂回Scriptがありました。さすがです。

Finder経由で書類のオープンと、その書類を作成したアプリケーションの起動を促すという、macOS 12.3で問題が起こっている処理を、Cocoaの機能を用いることで迂回してしまおうというものです。

ただ、そのままではFinder上で指定したファイルを１つオープンするという実証コードのレベルのものだったので、複数のファイルが選択されたものをオープンするように書き足してみました。

AppleScript名：macOS 12.3でFinder上の選択中のファイルをオープン.scpt

—
–　　Created by: Shane Stanley
–　　Created on: 2022/03/24

–　　Modified by: Takaaki Naganoya
–　　Modified on: 2022/03/27
—
— macOS 12.3でFinder上のselectionをただopenすると、作成したアプリケーションは起動するが、書類はオープンされないバグ
–　に対処したもの。複数ファイルの選択状態を処理する場合がほとんどなので、若干追記
–　ただ、漫然と選択したファイルをオープンするという処理はやっていないので（なにがしかの処理を自前でやるので）

use framework "AppKit"
use framework "Foundation"
use scripting additions

tell application "Finder"
　　set aSel to selection as alias list
　　if aSel = {} then return
end tell

openFiles(aSel) of me

on openFiles(pathList as list)
　　repeat with i in pathList
　　　　set j to contents of i
　　　　openFile(POSIX path of j) of me
　　end repeat
end openFiles

on openFile(thePath as string) — POSIX path
　　set ws to current application’s NSWorkspace’s sharedWorkspace()
　　set theURL to current application’s |NSURL|’s fileURLWithPath:thePath
　　ws’s openURL:theURL
end openFile

★Click Here to Open This Script　

(Visited 136 times, 1 visits today)

書籍フォルダの階層をさかのぼって、ツメに掲載する最大チャプターを推測 v2

Posted on 3月 4, 2022 by Takaaki Naganoya

電子書籍を作るのにPagesやKeynoteを使っており、「AppleScriptによるWebブラウザ自動操縦ガイド」（以下、Webブラウザガイド）も全ページPagesで作っています。

PagesやKeynoteでは書籍作成用としては機能が素朴すぎて、足りない点はAppleScriptでツールを作って、作業の手間を減らしています。それらの補助Scriptは、各種パラメータをその本に合わせて固定して使用しています。

Webブラウザガイドは全14章で構成されているため、ページの左右につけている「ツメ」（Index）は1から14までの数字が入っています。

今後もツメチェックAppleScript（座標、塗りつぶし色と非選択色の自動判別、ファイル名からの該当章の自動ピックアップ）を他の書籍用にも運用していくつもりですが、この「全14章」という仕様は固定なので、章構成が異なる他の本のプロジェクトでは、自動で章の数をかぞえてくれるとよさそうだと考えました。

だいたい電子書籍のファイルについては、フォルダ分けして２階層ぐらいで管理しているので、その階層数については決め打ちでDoc rootフォルダを計算（parent of parent of….）するようにしました。そして、全フォルダのフォルダ名称を取得。

ダイアログで最終章を選択させると、そこから章番号を自動抽出して（「XX章」と書かれていることが前提）、その番号を返します。

こういう用途を考えると、階層構造をそのまま選択できるNSOutlineViewを選択用の部品に使えると便利で……これまでにもedama2さんと意見交換しつつNSOutlineViewをNSAlertダイアログ上に表示するといった試作も何回か検討してきたのですが、スクリプトエディタ/Script Debugger上で記述するAppleScriptObjCではこの部品を扱うのがとても難しいんですね。

ならば、Xcode上で記述するAppleScriptObjCにAppleScript用語辞書を持たせて、階層ファイル構造を選択させる専用の補助アプリケーションを作ってもいいのかも？　ただ、Xcode 13.x系が壊れて使えないままの環境であるため、いまXcodeでビルドするわけにもいかないのでした。

choose fileコマンドやchoose folderコマンドに「icon view」「list view」「column view」といった初期表示状態を指定できる機能があれば、それで済むような気もしますが、どうせAppleに要望出してもこういうのは通らないので、自分で作ったほうが確実で早いですわー。

にしても、この通常ウィンドウと見分けがつかないファイル選択ダイアログ、macOS 11で最初に見たときには「正気か？！」と、腰を抜かしました。あいかわらず、この決定を下した責任者は●●だと思いますが、せめてもう少し視覚的に見分けがつくようにできなかったもんでしょうか。

AppleScript名：書籍フォルダの階層をさかのぼって、ツメに掲載する最大チャプターを推測 v2.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2022/02/26
—
–　　Copyright © 2022 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

tell application "Pages"
　　tell front document
　　　　set filePath to (file of it) as alias
　　end tell
end tell

tell application "Finder"
　　set parentFol to (parent of parent of filePath)
　　tell parentFol
　　　　set fNames to name of every folder
　　end tell
end tell

set folName to contents of (choose from list fNames with prompt "書籍のツメに載せる最終章のフォルダを選択")
set cNum to retChapter(folName as string) of me
–> 14

–ファイル名から「章」情報を抽出
on retChapter(aStr)
　　set wList to words of aStr
　　set aCount to 1
　　repeat with ii in wList
　　　　set jj to contents of ii
　　　　if jj = "章" then
　　　　　　return contents of item (aCount – 1) of wList
　　　　end if
　　　　set aCount to aCount + 1
　　end repeat
　　return 0 –Illeagal file name
end retChapter

★Click Here to Open This Script　

(Visited 48 times, 1 visits today)

指定のiOSアプリからジャンル情報を取得

Posted on 6月 20, 2021 by Takaaki Naganoya

M1 Macで、Mac App StoreからインストールしたiOSアプリから、ジャンル情報を取得するAppleScriptです。

iOSアプリケーションでは、Info.plist内にジャンル情報が記載されておらず、バンドル内の別ファイルに記載されています。これを読み取ることで、ジャンル情報を取得できます。

なかなか素敵な機能なのですが、Xcode上のCocoa-AppleScriptアプリケーション内で実行すると、Sandboxの制限によりデータアクセスができません。

▲macOSのFinder上でiOSアプリのバンドル内部を表示させたところ。メタデータが添付されているのがわかる

ただし、Macのアプリケーションのジャンル情報と項目が異なっていたり、相互に存在しないジャンルなどもあるため、そのままMac上でも同様のジャンルであると判定することは避けたほうがよいでしょう。

AppleScript名：指定のiOSアプリからジャンル情報を取得.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2021/06/20
—
–　　Copyright © 2021 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.7"
use scripting additions
use framework "Foundation"

set aFile to POSIX path of (choose file)
set gID to getGenreNumFromiOSApp(aFile) of me

on getGenreNumFromiOSApp(aPOSIX)
　　set metaDataPOSIX to aPOSIX & "Wrapper/iTunesMetadata.plist"
　　set aRec to retDictFromPlist(metaDataPOSIX) of me
　　if aRec = missing value then return missing value
　　set aGenreID to genre of aRec
　　return aGenreID
end getGenreNumFromiOSApp

on retDictFromPlist(aPlistPath)
　　set thePath to current application’s NSString’s stringWithString:aPlistPath
　　set thePath to thePath’s stringByExpandingTildeInPath()
　　set theDict to current application’s NSDictionary’s dictionaryWithContentsOfFile:thePath
　　if theDict = missing value then return missing value
　　return theDict as record
end retDictFromPlist

★Click Here to Open This Script　

(Visited 61 times, 1 visits today)

Pixelmator Proで指定の画像を複数の3D LUTを用いてカラー調整して画像書き出し

Posted on 5月 2, 2021 by Takaaki Naganoya

Pixelmator Pro v2.0.8で追加された3D LUT（Look Up Table）によるカラー調整機能。これを用いて、複数の3D LUTファイルによるカラー調整を行い、それぞれ3D LUTファイルのファイル名を反映させて書き出すAppleScriptです。

3D LUTファイルは、探してみるとあちこちで配布されており、割とありふれた存在のようです。実際にフリー配布されている3D LUTファイルをダウンロードしてきて、１つのフォルダに入れておき、指定画像に対してカラー調整を行わせてみました。

–> [全てフリー！] シネマティックなルックになる10のLUTsを紹介します！！

フォルダに入っている3D LUTファイルをすべてループで処理するので、3D LUTファイル100個でも1,000個でも処理できますし、ちょっと書き換えれば複数の画像に対してそれぞれすべての3D LUTファイルによる色調整を実行するようにもできます。

AppleScript名：指定の画像を複数の3D LUTでカラー調整して画像書き出し.scpt

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/05/02
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

property |NSURL| : a reference to current application’s |NSURL|
property NSArray : a reference to current application’s NSArray
property NSPredicate : a reference to current application’s NSPredicate
property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey

–処理対象の画像を選択
set anImage to choose file of type {"public.image"} default location (path to pictures folder) with prompt "Select Proc Image"
set imgParent to getParentPathFromAlias(anImage) of me

–3D LUTファイルを入れてあるフォルダを選択
set lutFolder to choose folder with prompt "Select 3D LUT folder"

–Filter 3D LUT (.cube) files only
tell application "Finder"
　　set fList to (every file of folder lutFolder) as alias list
end tell

set lutList to getFilesWithUTI("com.blackmagicdesign.cube", fList) of me

–指定の画像ファイルをオープン
tell application "Pixelmator Pro"
　　close every document saving no
　　open anImage
end tell

–Main Loop
repeat with i in lutList
　　set aLut to contents of i
　　
　　–ファイルパスの加工処理
　　set newImgName to ((current application’s NSString’s stringWithString:(POSIX path of aLut))’s lastPathComponent()’s stringByDeletingPathExtension()’s stringByAppendingString:".jpg") as string
　　set newImgFullPath to (imgParent as string) & "/" & newImgName
　　set newImgFile to POSIX file newImgFullPath
　　
　　tell application "Pixelmator Pro"
　　　　activate
　　　　tell front document
　　　　　　tell color adjustments of first layer –ここだけ、ネスティングを分割するとエラーになる
　　　　　　　　set its custom lut to aLut
　　　　　　end tell
　　　　　　
　　　　　　export to newImgFullPath as JPEG with properties {compression factor:0.5, bits per channel:8}
　　　　　　undo
　　　　end tell
　　end tell
end repeat

–後片付け
tell application "Pixelmator Pro"
　　tell front document
　　　　close without saving
　　end tell
end tell

on getParentPathFromAlias(aliasPath)
　　set aPath to POSIX path of aliasPath
　　set pathString to current application’s NSString’s stringWithString:aPath
　　set newPath to pathString’s stringByDeletingLastPathComponent()
　　return newPath
end getParentPathFromAlias

on getFilesWithUTI(acceptUTI, aliasList)
　　set aList to {}
　　
　　repeat with i in aliasList
　　　　set anAlias to i as alias
　　　　set aUTI to getUTIfromPath(anAlias) of me
　　　　if aUTI is not equal to missing value then
　　　　　　set uRes to filterUTIList({aUTI}, acceptUTI) of me
　　　　　　
　　　　　　if uRes is not equal to {} then
　　　　　　　　set the end of aList to contents of i
　　　　　　end if
　　　　end if
　　end repeat
　　
　　return aList
end getFilesWithUTI

–AliasからUTIを求める
on getUTIfromPath(anAlias)
　　set aPOSIXpath to POSIX path of anAlias
　　set aURL to current application’s |NSURL|’s fileURLWithPath:aPOSIXpath
　　if aURL = missing value then return missing value
　　set aRes to aURL’s resourceValuesForKeys:{current application’s NSURLTypeIdentifierKey} |error|:(missing value)
　　if aRes = missing value then return missing value
　　return (aRes’s NSURLTypeIdentifierKey) as string
end getUTIfromPath

–UTIリストが指定UTIに含まれているかどうか演算を行う
on filterUTIList(aUTIList, aUTIstr)
　　set anArray to NSArray’s arrayWithArray:aUTIList
　　set aPred to NSPredicate’s predicateWithFormat_("SELF UTI-CONFORMS-TO %@", aUTIstr)
　　set bRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
　　return bRes
end filterUTIList

★Click Here to Open This Script　

(Visited 126 times, 1 visits today)

画面スナップショット超解像バッチ処理 v1

Posted on 3月 25, 2021 by Takaaki Naganoya

Pixelmator Proの機能「ML Super Resolution」をAppleScriptから呼び出して、指定フォルダ内の画像をすべて超解像処理を行って、機械学習モデルをもとに解像度２倍化を行った画像を別フォルダに書き出すAppleScriptです。

超解像処理を行う対象は、別に画面のスナップショット画像でなくてもよいのですが、効果がわかりやすい用途です。

Keynoteに画面スナップショット画像を貼り付けていたときに、拡大倍率が上がると解像度が足りずに荒くなってしまいました。Retina環境で画面のスナップショットを取ると、けっこう綺麗に拡大できるのですが、等倍表示しかできない（＆画面表示解像度を落とすことで2x Retina解像度で画面キャプチャ可能）環境なので、ちょっと困りました。

▲macOS 11.0、見た目の悪さで使う気が失せるはじめてのmacOS。12.0ではもう少しなんとかしてほしい。とくに、このダイアログ。ダイアログと見分けのつかないウィンドウ。ファイル保存ダイアログとかも

そこで、Pixelmator Proで画像のML Super Resolution機能（超解像機能）を用いてソフトウェアの力で画面スナップショット画像を高解像度化してみました。これが予想を超えていい感じだったので、指定フォルダ以下の画像をすべて処理するようにAppleScriptで処理してみました。

–> Download pixelmatorMLSuperResol（Script Bundle with libraries）

ML Super Resolution処理は自分の使っているIntel Mac（MacBook Pro 10,1）には荷の重い処理でささいな画像でも数秒かかりますが、おそらくApple Silicon搭載Macだと瞬殺でしょう。Core MLの処理が段違いに速いので。

▲オリジナル画像（左）、超解像処理を行なった画像（右）

▲オリジナル画像と超解像処理を行なった画像のファイルサイズの違い

本リストは実際にAppleScriptで開発を行う際に記述するコード量そのものを示したものです。本リストには２つのライブラリを利用していますが、ふだんはプログラムリストの再現性（実行できること）を優先して、ライブラリ部分もScript本体に一緒に展開しています。使い回ししている分も同じリストに展開しているので、「たくさん書かないといけない」と思われているようです。

実際には、共通部分はほとんど書いていないので、本処理もこんな（↓）ぐらいの記述量です。リアルな記述量を感じられるような掲載の仕方を考えなくてはいけないのかもしれません。本リストはその試みの第一歩です。

まー、超解像処理を行って72dpiの画面スナップショット画像を144dpiに上げているだけなんで、Retina Display環境で処理すれば不要なんですが、ソフトウェアだけで実現できるのはロマンを感じますし、無駄に2x Retina環境のスクリーンショットを処理して288dpiの高解像度画像に上げてみるとか。

ただ、WWDCのビデオなどを見ていると、画面のスナップショットそのものをベクターグラフィックで取るような仕組みも考えていそうな気配がします。当てずっぽうですが、そういう何かを考えていそうな….

AppleScript名：画面スナップショット超解像バッチ処理 v1

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2021/03/25
—
–　　Copyright © 2021 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions
use cPathLib : script "choosePathLib"
use imgPicker : script "imgPickerLib"

–掃除
tell application "Pixelmator Pro" to close every document without saving

–必要なパス情報をユーザーに問い合わせる
set {inFol, outFol} to choose multiple path with titles {"Img Folder", "Output Folder"}
set outFolStr to outFol as string

–画像フォルダから画像のパス一覧を取得
set f1List to getFilepathListByUTI(POSIX path of inFol, "public.image", "alias") of imgPicker

–取得した画像を超解像処理して
repeat with i in f1List
　　tell application "Pixelmator Pro"
　　　　open i
　　　　tell front document
　　　　　　with timeout of 3000 seconds
　　　　　　　　super resolution
　　　　　　end timeout
　　　　end tell
　　end tell
　　
　　–新規保存ファイルパスの作成
　　set pathStr to POSIX path of i
　　set filenameStr to (current application’s NSString’s stringWithString:(pathStr))’s lastPathComponent() as string
　　set savePath to outFolStr & filenameStr
　　
　　tell application "Pixelmator Pro"
　　　　save front document in file savePath as PNG
　　　　
　　　　tell front document
　　　　　　close without saving
　　　　end tell
　　end tell
end repeat

★Click Here to Open This Script　

(Visited 227 times, 1 visits today)

Keynoteの表の中に入っている１列目のデータをもとにフォルダ検索して値を返す

Posted on 3月 6, 2021 by Takaaki Naganoya

Keynoteの表の中に入っている１列目のデータをもとに、指定ルートフォルダ以下のサブフォルダを指定して、その下位フォルダに存在しているAppleScript書類の数をSpotlightでかぞえ、表の２列目に書き戻すAppleScriptです。

新著「Cocoa Scripting Course #1」の付録Scriptについて、各フォルダに入っているScript書類をかぞえて表に入れておく必要がありました。ただ、内容をアップデートするたびに書き換える必要があるので、自動でカウントして表に書き込むScriptを用意しました。

実行にはShane Stanleyの「Metadata Lib」を必要とします。実行にはScript Debuggerも必要です。Keynoteで表の入ったスライドを表示している必要もあります。表の１列目に書かれたサブフォルダ名を指定して、それぞれ含まれている書類数をカウントして表に書き戻します。

▲初期状態

▲カウント対象フォルダ。AppleScript書類がフラット形式とバンドル形式の２つが混在して入っている

▲書類数をかぞえるルートフォルダを指定。表の１列目にかかれているフォルダ名と連結して、その下をすべてSpotlightで検索してファイルの存在確認を行う

▲すべてカウントして表に書き戻したところ

AppleScript名：表の中に入っている１列目のデータをもとにフォルダ検索して値を返す.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2021/03/05
—
–　　Copyright © 2021 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.7" — High Sierra (10.13) or later
use framework "Foundation"
use scripting additions
use mdLib : script "Metadata Lib" version "2.0.0"

–カウントするAppleScript書類が入っているフォルダのルートフォルダを指定
set origPath to POSIX path of (choose folder with prompt "Select Target folder")

tell application "Keynote"
　　tell front document
　　　　tell current slide
　　　　　　–現在のスライド上の表を取得
　　　　　　set tList to every table
　　　　　　
　　　　　　–表オブジェクトでループ
　　　　　　repeat with i in tList
　　　　　　　　
　　　　　　　　–表オブジェクトの情報取得
　　　　　　　　tell i
　　　　　　　　　　set colCount to column count
　　　　　　　　　　set rowCount to row count
　　　　　　　　　　set headerCount to header row count
　　　　　　　　　　set footerCount to footer row count
　　　　　　　　　　
　　　　　　　　　　
　　　　　　　　　　–表のセル内データを取得して2D Arrayにまとめる
　　　　　　　　　　set newList to {}
　　　　　　　　　　repeat with y from 1 to rowCount
　　　　　　　　　　　　tell row y
　　　　　　　　　　　　　　set cList to value of every cell
　　　　　　　　　　　　　　set tmpL to {}
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　repeat with ii in cList
　　　　　　　　　　　　　　　　set jj to contents of ii
　　　　　　　　　　　　　　　　if jj = missing value then set jj to "" –空欄はmissing valueが返ってくるのでヌルストリングに差し替え
　　　　　　　　　　　　　　　　set the end of tmpL to jj
　　　　　　　　　　　　　　end repeat
　　　　　　　　　　　　　　
　　　　　　　　　　　　　　set the end of newList to tmpL
　　　　　　　　　　　　end tell
　　　　　　　　　　end repeat
　　　　　　　　　　
　　　　　　　　　　
　　　　　　　　　　–Keynoteの表データ１列目の情報をもとに、実際のフォルダの中のAppleScript書類を検索してカウントしてlistに記入
　　　　　　　　　　set new2List to items (headerCount + 1) thru -1 of newList
　　　　　　　　　　repeat with ii in new2List
　　　　　　　　　　　　copy ii to oneLine
　　　　　　　　　　　　set targFolName to first item of oneLine
　　　　　　　　　　　　set tmpTarg to origPath & "/" & targFolName & "/"
　　　　　　　　　　　　
　　　　　　　　　　　　–Spotlight検索でファイルを取得する
　　　　　　　　　　　　set aResList to perform search in folders {tmpTarg} predicate string "kMDItemContentType == %@ || kMDItemContentType == %@" search arguments {"com.apple.applescript.script", "com.apple.applescript.script-bundle"} –フラット形式書類とバンドル形式書類を検索
　　　　　　　　　　　　
　　　　　　　　　　　　set scrCount to length of aResList –書類数をカウント
　　　　　　　　　　　　set last item of ii to scrCount
　　　　　　　　　　end repeat
　　　　　　　　　　
　　　　　　　　　　
　　　　　　　　　　–Keynoteの表にデータを書き戻す
　　　　　　　　　　repeat with y from 1 to (length of new2List)
　　　　　　　　　　　　tell row (y + 1)
　　　　　　　　　　　　　　set aDat to contents of item y of new2List
　　　　　　　　　　　　　　repeat with x from 1 to length of aDat
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　　　–非同期実行モード（倍速処理）
　　　　　　　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　　　　　　　tell cell x
　　　　　　　　　　　　　　　　　　　　set its value to contents of (item x of aDat)
　　　　　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　　　end ignoring
　　　　　　　　　　　　　　　　
　　　　　　　　　　　　　　end repeat
　　　　　　　　　　　　end tell
　　　　　　　　　　end repeat
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　end repeat
　　　　end tell
　　end tell
end tell

★Click Here to Open This Script　

(Visited 71 times, 1 visits today)

Pixelmator ProのSVG to PNG変換

Posted on 12月 28, 2020 by Takaaki Naganoya

Pixelmator ProでSVGのファイルをPNG形式で書き出すAppleScriptです。

この、ダイアログでファイルを選択して書き出しファイル名を入力させるタイプのAppleScriptをたくさん掲載していますが、もともとAppleScriptの一括処理的なプログラムで、いちいちダイアログを出して１つ１つのファイルを保存させるようなことはやりません。あくまで、サンプルScriptの動作を完結させるための仕様です。

実際には、指定フォルダ以下にあるSVGファイルをSpotlightで抽出して、まとめて書き出し先のフォルダにPNG形式で書き出すといった処理になるでしょう。

SVG方面では1024jpさんのGapplinがあり、こちらもAppleScript対応しており各種操作が行えるようになっているのですが、Sandbox対応度に問題があるためかファイル書き出し操作がAppleScriptから行えていないので、現状では大量のSVG書類の変換にはPhotoshopかPixelmator Proということになりそうです。

SVGを読み込んで他の画像形式に書き出すためのCocoa Frameworkを利用できるとよさそうですが、いまひとつうまく動くものを知りません。

▲SVG対応のアプリケーション。SVGを読めるもの、書けるもの、書き出せるもの、と対応度はさまざま

AppleScript名：PixelmatorのSVG to PNG変換

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/12/01
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.7" — Yosemite (10.13) or later
use framework "Foundation"
use scripting additions

set aFile to choose file of type {"public.svg-image"}
set outPath to choose file name with prompt "select output file name"

tell application "Pixelmator Pro"
　　open aFile
　　
　　tell front document
　　　　export to outPath as PNG
　　　　close without saving
　　end tell
end tell

★Click Here to Open This Script　

AppleScript名：GaplinのSVG to PNG変換

set aFile to choose file of type {"public.svg-image"}
set outPath to choose file name with prompt "select output file name"

tell application "Gapplin"
　　open aFile
　　
　　tell front document
　　　　export to outPath as PNG with options {class:export options, scale:1.0}
　　　　close without saving
　　end tell
end tell

★Click Here to Open This Script　

(Visited 160 times, 1 visits today)

アプリケーションが扱えるデータ拡張子を取得

Posted on 10月 28, 2020 by Takaaki Naganoya

指定のアプリケーションが扱えるデータ拡張子を取得するAppleScriptです。

アプリケーションバンドル内のInfo.plistの、CFBundleDocumentTypesエントリの中のCFBundleTypeExtensionsを拾ってリストで返します。用途は、このアプリケーションに表示させるためのものです。

ただ、この標準的といいますか一般的な処理でこのデータを拾ってこれないアプリケーション（凝った処理をしているもよう）がかなりの数存在し、それらについては個別に対応処理を書かないとダメっぽいです。

だいたい、AppleのiWork Appsが全滅。BBEditも独自の記述をしているらしく、Pixelmator Proも少し凝った書き方をしているもよう（Pixelmator Proが「凝っていない」部分なんてないみたいですが）。個別にInfo.plistからエントリをたどって拡張子リストを作るしかなさそうです。

OS内、具体的に言えばNSApplicationとかNSBundleにそういうInfo.plistをあさってこなくても対応ドキュメントデータ型を渡してくれるようなサービスがありそうな気がとてもするのですが、なかなか見つかりそうにありません。

あまりに対応が大変だった場合には、機能を盛り込むことを断念するかもしれません。メタデータから拾ってこれたりすると楽でよいのですが……。

▲結局、できた模様

AppleScript名：アプリケーションが扱えるデータ拡張子を取得.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/10/28
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

set aPath to POSIX path of (choose file of type {"com.apple.application-bundle"})
set aURL to (current application’s |NSURL|’s fileURLWithPath:aPath)
set exResList to getDocumentTypesExtensionsFromPath(aURL) of me

return exResList
–> {".INDD", ".INX", ".IDMS", ".INCD", ".INCX", ".ICML", ".INCA", ".ICMA", ".P65", ".T65", ".PMD", ".PMT", ".QXD", ".QXT", ".INDT", ".INDB", ".INDL", ".INLX", ".FLST", ".PRST", ".PDFS", ".joboptions", ".DCST", ".LNST", ".UDC", ".InDesignPlugin", ".PSET", ".SMRD", ".SMWT", ".IDML", ".IDPP", ".INDK", ".INLK", ".CSF", ".ASE", ".ACB", ".ACBL", ".IDPK", ".INJB", ".INRS", ".INCP", ".INDP", ".ICAP", ".IDAP", ".INMS", ".epub"}

on getDocumentTypesExtensionsFromPath(aURL)
　　set aRes to getDocumentTypesFromAppURL(aURL) of me
　　
　　set exRes to {}
　　repeat with i in (aRes as list)
　　　　set j to (current application’s NSDictionary’s dictionaryWithDictionary:(contents of i))
　　　　set tmpExt to (j’s valueForKey:"CFBundleTypeExtensions")
　　　　
　　　　if tmpExt is not equal to missing value then
　　　　　　set tmpExt to tmpExt as list
　　　　　　repeat with ii in tmpExt
　　　　　　　　set jj to "." & (contents of ii)
　　　　　　　　if (jj is not in exRes) and (jj is not equal to ".*") and (jj is not equal to ".???") then
　　　　　　　　　　set the end of exRes to jj
　　　　　　　　end if
　　　　　　end repeat
　　　　end if
　　end repeat
　　
　　return exRes
end getDocumentTypesExtensionsFromPath

on getDocumentTypesFromAppURL(aURL)
　　set aBundle to current application’s NSBundle’s bundleWithURL:aURL
　　if aBundle = missing value then return {}
　　set aInfo to aBundle’s infoDictionary()
　　if aInfo = missing value then return {}
　　set aRes to aInfo’s objectForKey:"CFBundleDocumentTypes" –Document Types
　　if aRes = missing value then return {}
　　return aRes
end getDocumentTypesFromAppURL

★Click Here to Open This Script　

(Visited 55 times, 1 visits today)

Finderファイルタグの設定、取得、クリア

Posted on 10月 23, 2020 by Takaaki Naganoya

Finderタグの削除（クリア）を行うAppleScriptです。

AppleScript名：Finderファイルタグの設定、取得、クリア

–Created By Shane Stanley
–Modified By Takaaki Naganoya
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

property |NSURL| : a reference to current application’s |NSURL|
property NSOrderedSet : a reference to current application’s NSOrderedSet
property NSURLTagNamesKey : a reference to current application’s NSURLTagNamesKey

set anAlias to (choose file)
clearTagsForPath(anAlias) of me –delete tags
set aRes to getTagsForPath(anAlias) of me –check

— clear all tags
on clearTagsForPath(anAlias)
　　set aURL to |NSURL|’s fileURLWithPath:(POSIX path of anAlias)
　　aURL’s setResourceValue:{} forKey:(NSURLTagNamesKey) |error|:(missing value)
end clearTagsForPath

— get the tags
on getTagsForPath(anAlias)
　　set aURL to |NSURL|’s fileURLWithPath:(POSIX path of anAlias)
　　set {theResult, theTags} to aURL’s getResourceValue:(reference) forKey:(NSURLTagNamesKey) |error|:(missing value)
　　if theTags = missing value then return {} — because when there are none, it returns missing value
　　return theTags as list
end getTagsForPath

— set the tags, replacing any existing
on setTagsForPath(tagList, anAlias)
　　set aURL to |NSURL|’s fileURLWithPath:(POSIX path of anAlias)
　　aURL’s setResourceValue:tagList forKey:(NSURLTagNamesKey) |error|:(missing value)
end setTagsForPath

— add to existing tags
on addTagsForPath(tagList, anAlias)
　　set aURL to |NSURL|’s fileURLWithPath:(POSIX path of anAlias)
　　— get existing tags
　　set {theResult, theTags} to aURL’s getResourceValue:(reference) forKey:(NSURLTagNamesKey) |error|:(missing value)
　　if theTags ≠ missing value then — add new tags
　　　　set tagList to (theTags as list) & tagList
　　　　set tagList to (NSOrderedSet’s orderedSetWithArray:tagList)’s allObjects() — delete any duplicates
　　end if
　　aURL’s setResourceValue:tagList forKey:(NSURLTagNamesKey) |error|:(missing value)
end addTagsForPath

★Click Here to Open This Script　

(Visited 187 times, 1 visits today)

Pixelmator Proでアイコン書き出しv2

Posted on 10月 19, 2020 by Takaaki Naganoya

Pixelmator Proで1024×1024 pixelの画像をmacOSのアプリケーションアイコン素材用に各サイズにリサイズして連続書き出しするAppleScriptです。

Pixelmator ProのAppleScriptプログラミングコンテスト優勝賞品Pixelmator Pro。非破壊画像処理を行い、GPUベースの高速な処理を行うPixelmator Proを実務的な画像処理に使うとどんな感じなのか、いろいろ調べていたらアイコン書き出し用の複数同時解像度書き出し機能などはついていなかったので、さくっと作ってみました。

Photoshopを操作して各種解像度書き出しを行うよりも高速に感じます（厳密にベンチマークを計測したわけではないんですけれども）。

AppleScript名：Pixelmator Proでアイコン書き出しv2.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2020/10/19
—
–　　Copyright © 2020 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

set resolList to {1024, 512, 256, 128, 64, 32, 16}
set aTargFileBase to (choose file name with prompt "Select Export base name") as string

tell application "Pixelmator Pro"
　　if (exists of document 1) = false then
　　　　display dialog "There is no document" buttons {"OK"} default button 1 with icon 1
　　　　return
　　end if
　　
　　tell the front document
　　　　set aWidth to width
　　　　set aHeight to height
　　　　
　　　　if {aWidth, aHeight} is not equal to {1024.0, 1024.0} then
　　　　　　display dialog "Wrong Image Size (1024×1024 required)" buttons {"OK"} default button 1 with icon 2 with title "Size Error"
　　　　　　return
　　　　end if
　　　　
　　　　repeat with i in resolList
　　　　　　resize image width i height i resolution 72 algorithm bilinear
　　　　　　export to file (aTargFileBase & "_" & (i as string) & "x" & (i as string) & ".png") as PNG
　　　　　　undo
　　　　end repeat
　　end tell
end tell

★Click Here to Open This Script　

(Visited 270 times, 1 visits today)

SFPSDWriterのじっけん v2

Posted on 9月 21, 2020 by Takaaki Naganoya

AppleScriptからPhotoshopのデータ（PSD）を出力するテストプログラムです。

AppleScriptにはPhotoshopのデータを書き出す関数や機能はとくに用意されていないため、Photoshopのデータを書くためにはPhotoshopにコマンドを送って実行してもらうのが定番です。

この定番の方法だと、Photoshopが存在しない環境でPhotoshopのデータを作ることができません。この問題を解決するためにはオープンソースで公開されている「Photoshopデータを書くプログラム部品」を呼び出すことになります。

Photoshopデータについては一定の需要があるためか、AdobeがPhotoshopデータ形式の詳細な資料を公開しているためか、Reader（読むプログラム）とWriter（書くプログラム）の２通りのプログラムが存在します。

■PSD Reader/Parser
PSD-Font-Reader
psdparse

■PSD Writer
FMPSD
PSDWriter
SFPSDWriter

ここでは、「SFPSDWriter」内に含まれる「SFPSDWriter」Frameworkを呼び出しています。

–> Download SFPSDWriter.framework(To ~/Library/Frameworks)

実行にあたっては、macOS 10.14以降ではScript Debuggerを用いるか、お使いのMacをSIP解除してScript Editor上で呼び出して実行する必要があります。

ちょっと書き換えるとXcode上でも呼び出せることでしょう。Mac App Storeに出すAppleScript Cocoaアプリケーション（Sandbox対応）内で利用する場合には、ファイル書き込みパスをユーザーに明示的に選択させる必要があるため、choose file nameダイアログでファイル名を入力・選択してもらうようにすべきです（デフォルト指定のファイル名をUUIDで自動生成するとか）。

本AppleScriptはKamenokoから書き出せるデータを増やすべく「Photoshop形式のデータを書けたらどうだろう？」と実験してみた残骸です。結局、PDFで書き出せるしPDFなら拡大縮小しても荒くなったりしないので、PDFのほうがいいという結論に。

Pixelmator Proのデータ形式とかPSD形式で書き出す実験は行っているのですが、処理結果を見るとどちらも「PDF形式のほうがいい」という結論に至っています。

▲ベクターデータではないので、拡大するとアラが見える

AppleScript名：SFPSDWriterのじっけん v2

— Created 2016-03-12 by Takaaki Naganoya
— Modified 2019-02-27 by Takaaki Naganoya
— Modified 2020–09-21 by Takaaki Naganoya
— 2020 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"
use framework "SFPSDWriter" –https://github.com/shinyfrog/SFPSDWriter

property |NSURL| : a reference to current application’s |NSURL|
property NSString : a reference to current application’s NSString
property NSUUID : a reference to current application’s NSUUID
property NSImage : a reference to current application’s NSImage
property SFPSDWriter : a reference to current application’s SFPSDWriter
property NSWorkspace : a reference to current application’s NSWorkspace

property SFPSDResolutionUnitPPI : 1
property SFPSDResolutionUnitPPC : 2

set anWriter to (SFPSDWriter’s alloc()’s initWithDocumentSize:(current application’s CGSizeMake(1200, 400)) andResolution:72.0 andResolutionUnit:(SFPSDResolutionUnitPPI))

set aCount to 1

repeat with yPos from 0 to 400 by 110
　　repeat with xPos from 0 to 1024 by 110
　　　　set aImage to (current application’s NSImage’s alloc()’s initWithSize:{100, 100})
　　　　set aColor to current application’s NSColor’s redColor()
　　　　my drawCircleOnNSIMage(aImage, 100, 0, 0, aColor)
　　　　
　　　　(anWriter’s addLayerWithNSImage:aImage andName:("Layer_" & aCount as string) andOpacity:1.0 andOffset:{x:(xPos as real), y:(yPos as real)})
　　　　set aCount to aCount + 1
　　end repeat
end repeat

set aPSD to anWriter’s createPSDData()

set theName to NSUUID’s UUID()’s UUIDString()
set pathString to NSString’s stringWithString:("~/Desktop/output_" & theName & ".psd")
set newPath to pathString’s stringByExpandingTildeInPath()

aPSD’s writeToFile:newPath atomically:true

#　　MARK: Call By Reference
on drawCircleOnNSIMage(aImage, aRadius, aXpos, aYpos, aColor)
　　set aBezier to generateCircle(aRadius, aXpos, aYpos) of me
　　(aImage)’s lockFocus()
　　aColor’s |set|()
　　aBezier’s fill() –ぬりつぶし
　　(aImage)’s unlockFocus()
end drawCircleOnNSIMage

#　　MARK: circleのBezier曲線を作成して返す
on generateCircle(theRadius, x, y)
　　set aRect to current application’s NSMakeRect(x, y, theRadius, theRadius)
　　set aCirCle to current application’s NSBezierPath’s bezierPath()
　　aCirCle’s appendBezierPathWithOvalInRect:aRect
　　return aCirCle
end generateCircle

★Click Here to Open This Script　

(Visited 49 times, 1 visits today)

PDFにパスワードが設定されている場合には、そのパーミッション情報を取得する

Posted on 8月 31, 2020 by Takaaki Naganoya

指定のPDFをチェックし、オープンするのにパスワードが設定されているとか、コピーが禁止されていないかといったパーミッションを調査するAppleScriptです。

API	Lebel in this script	Desc
(no api)	openPermission	document allows opening
allowsCopying	copyPermission	document allows copying of content to the Pasteboard
allowsPrinting	printPermission	document allows printing
allowsCommenting	commentPermission	document allows to create or modify document annotations, including form field entries
allowsContentAccessibility	contentAccessPermission	document allows to extract content from the document
allowsDocumentAssembly	assemblyPermission	document allows manage a document by inserting, deleting, and rotating pages
allowsDocumentChanges	docchangePermission	document allows modify the document contents except for document attributes
allowsFormFieldEntry	formPermission	document allows modify form field entries even if you can’t edit document annotations

PDFのオープン自体にパスワードロックがかかっている状態を検出するAPIがとくになかったので、いろいろ試行錯誤してOpenをロックしてある状態を検出してみました。

検出は、パスワード未指定でUnlockを試みるというもので、実際にパスワードを設定したPDFを相手に試行錯誤して求めてみました。

このUnlock操作に対してfalseが返ってくることでPDFオープンに対してパスワードが設定されているものと判断しています。

AppleScript名：PDFにパスワードが設定されている場合には、そのパーミッション情報を取得する

— Created 2015-11-02 13:48:32 +0900 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "QuartzCore"

set aPath to (choose file of type {"com.adobe.pdf"} with prompt "Select PDF to check")

set aRes to my retProtectedPDFPermissions(aPath)
–>　　missing value （パスワードは設定されていない）

–> {openPermission:false, copyPermission:true, printPermission:true, commentPermission:true, contentAccessPermission:true, assemblyPermission:true, docchangePermission:true, formPermission:true}–オープンするためにはパスワードが必要（openPermission）

–指定のPDFにパスワードが設定されているかどうかをチェック
on retProtectedPDFPermissions(aPath)
　　set aURL to current application’s |NSURL|’s fileURLWithPath:(POSIX path of aPath)
　　set aPDFdoc to current application’s PDFDocument’s alloc()’s initWithURL:aURL
　　set anEncF to aPDFdoc’s isEncrypted()
　　if anEncF = false then return missing value
　　
　　set passLocked to aPDFdoc’s unlockWithPassword:""
　　
　　set cpPerm to aPDFdoc’s allowsCopying() as boolean
　　set prPerm to aPDFdoc’s allowsPrinting() as boolean
　　set cmPerm to aPDFdoc’s allowsCommenting() as boolean
　　set caPerm to aPDFdoc’s allowsContentAccessibility() as boolean
　　set daPerm to aPDFdoc’s allowsDocumentAssembly() as boolean
　　set dcPerm to aPDFdoc’s allowsDocumentChanges() as boolean
　　set ffPerm to aPDFdoc’s allowsFormFieldEntry() as boolean
　　
　　return {openPermission:passLocked, copyPermission:cpPerm, printPermission:prPerm, commentPermission:cmPerm, contentAccessPermission:caPerm, assemblyPermission:daPerm, docchangePermission:dcPerm, formPermission:ffPerm}
end retProtectedPDFPermissions

★Click Here to Open This Script　

(Visited 90 times, 1 visits today)

アラートダイアログ上にCollection Viewを表示

Posted on 8月 24, 2020 by Takaaki Naganoya

emada2さんからの投稿です。Collection Viewの利用については、Kamenokoの開発時に導入検討したことがありますが、Objective-CのサンプルコードをAppleScriptに翻訳しきれなくて中途半端に放置していました。

まとまった形でCollection Viewのサンプルコードが出てきたのは、おそらくこれが初めてだと思います。ありがとうございます。

Collection Viewを箱庭ダイアログに乗せることができました。
でも残念なのは、itemPrototypeは10.14でDeprecatedになっているので将来的に長く使えないでしょう
その他のやり方を探してappleのサンプルコードをみたら、swift 3で書かれていているので10.14でビルドできませんでした。
なのでまだまだCollection Viewを使いこなすのは難しそうです😢

–> Download Script Bundle

@property (nullable, strong) NSCollectionViewItem *itemPrototype API_DEPRECATED("Use -registerNib:forItemWithIdentifier: or -registerClass:forItemWithIdentifier: instead.", macos(10.5,10.14));

AppleScript名：アラートダイアログ上にCollection Viewを表示

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "AppKit"
use framework "AppleScriptObjC"
use framework "CoreFoundation"
use framework "Foundation"
use scripting additions

on run
　　my testRun()
end run

on testRun()
　　set aMainMes to "アプリケーションの選択"
　　set aSubMes to "適切なものを以下からえらんでください"
　　
　　#ダイアログ内のビューサイズを指定
　　set aHeight to 384
　　set aWidth to 512 + 12 –> スクロールバーの分
　　
　　#アプリケーションフォルダ内のアプリケーションを取得
　　set aFolder to path to applications folder
　　set aPath to aFolder’s POSIX path
　　set aURL to current application’s NSURL’s fileURLWithPath:aPath
　　
　　# 指定フォルダの直下のファイルを取得
　　set filePaths to current application’s NSFileManager’s defaultManager’s ¬
　　　　contentsOfDirectoryAtURL:aURL ¬
　　　　　　includingPropertiesForKeys:{current application’s NSURLNameKey} ¬
　　　　　　options:(current application’s NSDirectoryEnumerationSkipsHiddenFiles) ¬
　　　　　　|error|:(missing value)
　　
　　set filePaths to filePaths as list
　　set thisFileType to "com.apple.application-bundle"
　　
　　set dataSourceList to {}
　　repeat with anItem in filePaths
　　　　
　　　　set aPath to anItem’s contents’s POSIX path
　　　　set aURL to (current application’s NSURL’s fileURLWithPath:aPath)
　　　　
　　　　set {aResult, aUTI, aError} to (aURL’s getResourceValue:(reference) ¬
　　　　　　forKey:(current application’s NSURLTypeIdentifierKey) ¬
　　　　　　|error|:(reference))
　　　　
　　　　if (aUTI as text) is thisFileType then
　　　　　　set iconImage to (current application’s NSWorkspace’s sharedWorkspace’s iconForFile:aPath)
　　　　　　set dict to {fileURL:aURL, icon:iconImage}
　　　　　　set dataSourceList’s end to dict
　　　　end if
　　end repeat
　　
　　set execButtonTitle to "OK😄"
　　
　　set dateObj to my chooseItemByCollectionView:aMainMes subMes:aSubMes myWidth:aWidth myHeight:aHeight myDataSource:dataSourceList okTitle:execButtonTitle
end testRun

on chooseItemByCollectionView:(aMainMes as text) subMes:(aSubMes as text) myWidth:(aWidth as integer) myHeight:(aHeight as integer) myDataSource:(dataSourceList as list) okTitle:(execButtonTitle as text)
　　
　　# Script Bundle内のResourcesフォルダを求める
　　set resourcePath to POSIX path of (path to me) & "Contents/Resources/"
　　set theBundle to current application’s NSBundle’s bundleWithPath:resourcePath
　　theBundle’s loadAppleScriptObjectiveCScripts()
　　
　　# subClasses.scptを呼び出す
　　set DialogCore to current application’s AppDelegate’s new()
　　set fRes to DialogCore’s chooseItemByCollectionView:aMainMes subMes:aSubMes myWidth:aWidth myHeight:aHeight myDataSource:dataSourceList okTitle:execButtonTitle
　　
　　if fRes is missing value then error number -128
　　return fRes as list
end chooseItemByCollectionView:subMes:myWidth:myHeight:myDataSource:okTitle:

★Click Here to Open This Script　

AppleScript名：subClasses

script AppDelegate
　　property parent : class "NSObject"
　　
　　— IBOutlets
　　property theWindow : missing value
　　
　　on applicationShouldTerminate:sender
　　　　return current application’s NSTerminateNow
　　end applicationShouldTerminate:
　　
　　on applicationShouldTerminateAfterLastWindowClosed:sender
　　　　return true
　　end applicationShouldTerminateAfterLastWindowClosed:
　　
　　——————
　　
　　on applicationWillFinishLaunching:aNotification
　　　　log my testRun()
　　end applicationWillFinishLaunching:
　　
　　on testRun()
　　　　set aMainMes to "アプリケーションの選択"
　　　　set aSubMes to "適切なものを以下からえらんでください"
　　　　
　　　　#ダイアログ内のビューサイズを指定
　　　　set aHeight to 384
　　　　set aWidth to 512 + 12 –> スクロールバーの分
　　　　
　　　　#アプリケーションフォルダ内のアプリケーションを取得
　　　　set aFolder to path to applications folder
　　　　set aPath to aFolder’s POSIX path
　　　　set aURL to current application’s NSURL’s fileURLWithPath:aPath
　　　　
　　　　# 指定フォルダの直下のファイルを取得
　　　　set filePaths to current application’s NSFileManager’s defaultManager’s ¬
　　　　　　contentsOfDirectoryAtURL:aURL ¬
　　　　　　　　includingPropertiesForKeys:{current application’s NSURLNameKey} ¬
　　　　　　　　options:(current application’s NSDirectoryEnumerationSkipsHiddenFiles) ¬
　　　　　　　　|error|:(missing value)
　　　　
　　　　set filePaths to filePaths as list
　　　　set thisFileType to "com.apple.application-bundle"
　　　　
　　　　set dataSourceList to {}
　　　　repeat with anItem in filePaths
　　　　　　
　　　　　　set aPath to anItem’s contents’s POSIX path
　　　　　　set aURL to (current application’s NSURL’s fileURLWithPath:aPath)
　　　　　　
　　　　　　set {aResult, aUTI, aError} to (aURL’s getResourceValue:(reference) ¬
　　　　　　　　forKey:(current application’s NSURLTypeIdentifierKey) ¬
　　　　　　　　|error|:(reference))
　　　　　　
　　　　　　if (aUTI as text) is thisFileType then
　　　　　　　　set iconImage to (current application’s NSWorkspace’s sharedWorkspace’s iconForFile:aPath)
　　　　　　　　set dict to {fileURL:aURL, icon:iconImage}
　　　　　　　　set dataSourceList’s end to dict
　　　　　　end if
　　　　end repeat
　　　　
　　　　set execButtonTitle to "OK😄"
　　　　
　　　　set dateObj to my chooseItemByCollectionView:aMainMes subMes:aSubMes myWidth:aWidth myHeight:aHeight myDataSource:dataSourceList okTitle:execButtonTitle
　　end testRun
　　
　　# アラートダイアログでCollectionViewを表示
　　property _retrieve_data : missing value
　　on chooseItemByCollectionView:(aMainMes as text) subMes:(aSubMes as text) myWidth:(aWidth as integer) myHeight:(aHeight as integer) myDataSource:(dataSourceList as list) okTitle:(execButtonTitle as text)
　　　　
　　　　set paramObj to {myMessage:aMainMes}
　　　　set paramObj to paramObj & {mySubMessage:aSubMes}
　　　　set paramObj to paramObj & {myDataSource:dataSourceList}
　　　　set paramObj to paramObj & {myWidth:aWidth}
　　　　set paramObj to paramObj & {myHeight:aHeight}
　　　　set paramObj to paramObj & {myOKTitile:execButtonTitle}
　　　　
　　　　my performSelectorOnMainThread:"raizeAlert:" withObject:paramObj waitUntilDone:true
　　　　
　　　　if (my _retrieve_data) is missing value then error number -128
　　　　return (my _retrieve_data)
　　end chooseItemByCollectionView:subMes:myWidth:myHeight:myDataSource:okTitle:
　　
　　## retrieve date
　　on raizeAlert:paramObj
　　　　
　　　　set mesText to paramObj’s myMessage as text
　　　　set infoText to paramObj’s mySubMessage as text
　　　　set dataSourceList to paramObj’s myDataSource as list
　　　　set viewWidth to paramObj’s myWidth as integer
　　　　set viewHeight to paramObj’s myHeight as integer
　　　　set okButton to paramObj’s myOKTitile as text
　　　　
　　　　# set up view
　　　　set {thisView, collectionView} to my makeContentView(dataSourceList, viewWidth, viewHeight)
　　　　
　　　　### set up alert
　　　　tell current application’s NSAlert’s new()
　　　　　　addButtonWithTitle_(okButton)
　　　　　　addButtonWithTitle_("Cancel")
　　　　　　setAccessoryView_(thisView)
　　　　　　–setIcon_(aImage)
　　　　　　setInformativeText_(infoText)
　　　　　　setMessageText_(mesText)
　　　　　　tell |window|()
　　　　　　　　setInitialFirstResponder_(thisView)
　　　　　　end tell
　　　　　　#### show alert in modal loop
　　　　　　if runModal() is (current application’s NSAlertSecondButtonReturn) then return
　　　　end tell
　　　　
　　　　### retrieve data
　　　　set aIndexSet to collectionView’s selectionIndexes()
　　　　set theArray to current application’s NSArrayController’s alloc()’s initWithContent:(collectionView’s content())
　　　　set chooseItems to ((theArray)’s arrangedObjects()’s objectsAtIndexes:aIndexSet) as list
　　　　
　　　　# reset
　　　　set _retrieve_data to {}
　　　　
　　　　repeat with anItem in chooseItems
　　　　　　set (my _retrieve_data)’s end to anItem’s contents
　　　　end repeat
　　　　
　　　　return my _retrieve_data
　　end raizeAlert:
　　
　　# set up view
　　on makeContentView(dataSourceList, viewWidth, viewHeight)
　　　　
　　　　set thisRect to current application’s NSMakeRect(0, 0, viewWidth, viewHeight)
　　　　
　　　　tell current application’s NSCollectionView’s alloc
　　　　　　tell initWithFrame_(thisRect)
　　　　　　　　setItemPrototype_(current application’s YKZCollectionViewItem’s new())
　　　　　　　　
　　　　　　　　setAllowsEmptySelection_(true)
　　　　　　　　setAllowsMultipleSelection_(true)
　　　　　　　　setContent_(dataSourceList)
　　　　　　　　setSelectable_(true)
　　　　　　　　
　　　　　　　　set collectionView to it
　　　　　　end tell
　　　　end tell
　　　　
　　　　# Viewを作成
　　　　tell current application’s NSScrollView’s alloc()
　　　　　　tell initWithFrame_(thisRect)
　　　　　　　　setBorderType_(current application’s NSBezelBorder)
　　　　　　　　setDocumentView_(collectionView)
　　　　　　　　setHasHorizontalScroller_(true)
　　　　　　　　setHasVerticalScroller_(true)
　　　　　　　　set baseView to it
　　　　　　end tell
　　　　end tell
　　　　
　　　　return {baseView, collectionView}
　　end makeContentView
end script

#MARK: –
script YKZView
　　property parent : class "NSView"
　　
　　property imageView : missing value
　　
　　property selected : false
　　property viewItemHeight : 128
　　property viewItemWidth : 128
　　
　　on initWithFrame:rect
　　　　
　　　　set myRect to current application’s NSMakeRect(0, 0, viewItemWidth, viewItemHeight)
　　　　continue initWithFrame:myRect
　　　　
　　　　set aHeight to viewItemHeight – 10
　　　　set aWidth to viewItemWidth – 10
　　　　set newRect to current application’s NSMakeRect(5, 5, aWidth, aHeight)
　　　　
　　　　tell current application’s NSImageView’s alloc()
　　　　　　tell initWithFrame_(newRect)
　　　　　　　　setImageScaling_(current application’s NSImageScaleProportionallyUpOrDown)
　　　　　　　　setImageAlignment_(current application’s NSImageAlignCenter)
　　　　　　　　set my imageView to it
　　　　　　end tell
　　　　end tell
　　　　
　　　　my addSubview:(my imageView)
　　　　return me
　　end initWithFrame:
　　
　　on drawRect:rect
　　　　if my selected then
　　　　　　current application’s NSColor’s redColor()’s |set|()
　　　　else
　　　　　　current application’s NSColor’s controlBackgroundColor()’s |set|()
　　　　end if
　　　　current application’s NSRectFill(rect)
　　　　continue drawRect:rect
　　end drawRect:
end script

#MARK: –
script YKZCollectionViewItem
　　property parent : class "NSCollectionViewItem"
　　
　　on loadView()
　　　　my setView:(current application’s YKZView’s alloc()’s initWithFrame:(current application’s NSZeroRect))
　　end loadView
　　
　　on setRepresentedObject:representedObject
　　　　–continue setRepresentedObject:representedObject
　　　　if representedObject is missing value then return
　　　　(my view())’s imageView’s setImage:(representedObject’s icon)
　　end setRepresentedObject:
　　
　　on setSelected:isSelected
　　　　set (my view())’s selected to isSelected
　　　　(my view())’s setNeedsDisplay:true
　　　　continue setSelected:isSelected
　　end setSelected:
end script

★Click Here to Open This Script　

(Visited 92 times, 1 visits today)

指定アプリケーションのバイナリアーキテクチャ判定 v3

Posted on 8月 18, 2020 by Takaaki Naganoya

指定のアプリケーションファイルが32bitバイナリかどうかを判定するAppleScriptの改訂版です。

本Scriptシリーズは対象のアプリケーションが起動している状態で対象CPUアーキテクチャを判定するものではなく、起動していない状態で判定するものです。

PPC 32 / PPC 64 / Intel 32 / Intel 64 / ARM 64の各アーキテクチャの判定を行います。FAT Binaryの場合には複数のアーキテクチャが返ってきます。

▲本Scriptの応用例

AppleScript名：指定アプリケーションのバイナリアーキテクチャ判定 v3.scptd

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

set anApp to choose file of type {"com.apple.application-bundle"} default location (path to applications folder)
–set anApp to choose file default location (path to applications folder)
set app32 to chk32Binary(anApp) of me
–> {"PPC 32", "Intel x32"}

on chk32Binary(anAlias)
　　set aPOSIX to POSIX path of anAlias
　　set aURL to current application’s |NSURL|’s fileURLWithPath:(aPOSIX)
　　set aBundle to current application’s NSBundle’s bundleWithURL:aURL
　　
　　set F1 to (aBundle = missing value) as boolean
　　if F1 is not equal to false then return calcIllegular(aPOSIX) of me
　　
　　set aDict to aBundle’s executableArchitectures()
　　set F2 to (aDict = missing value) as boolean
　　if F2 is equal to true then return calcIllegular(aPOSIX) of me
　　
　　set aList to (aDict’s valueForKeyPath:"stringValue") as list
　　
　　set arList to {}
　　repeat with i in aList
　　　　set j to contents of i
　　　　
　　　　if j = "7" then –NSBundleExecutableArchitectureI386
　　　　　　set the end of arList to "Intel 32"
　　　　else if j = "18" then –NSBundleExecutableArchitecturePPC
　　　　　　set the end of arList to "PPC 32"
　　　　else if j = "16777223" then –NSBundleExecutableArchitectureX86_64
　　　　　　set the end of arList to "Intel 64"
　　　　else if j = "16777234" then –NSBundleExecutableArchitecturePPC64
　　　　　　set the end of arList to "PPC 64"
　　　　else if j = "16777228" then –NSBundleExecutableArchitectureARM64
　　　　　　set the end of arList to "ARM 64"
　　　　end if
　　end repeat
　　
　　return arList
end chk32Binary

on calcIllegular(aPOSIX)
　　–Old Style Bundle for PPC
　　set sRes to do shell script "file " & quoted form of aPOSIX
　　if sRes contains "Mach-O executable ppc" then return {"PPC 32"} –NSBundleExecutableArchitecturePPC
　　return missing value
end calcIllegular

★Click Here to Open This Script　

(Visited 65 times, 1 visits today)

指定アプリケーションのバイナリアーキテクチャ判定

Posted on 8月 18, 2020 by Takaaki Naganoya

指定のアプリケーションファイルが32bitバイナリかどうかを判定するAppleScriptです。

実行ファイルのパスを求めて、fileコマンドで情報を取得します。本Scriptでは32bitバイナリであるかどうかの判定のみ行なっていますが、CPUアーキテクチャに着目してPPC/Intel 32/Intel 64/ARMの判定を行えるように作り込めます。

また、アプリケーションでありながらもバンドル形式になっていない実行ファイル（古い時代のファイルだったり、サードパーティの開発環境だったり）も存在しているため、NSBundleを求めたときにmissing valueが返ってくることもあります。

１ファイルだけ処理できてもあまり意味がないので、指定フォルダ以下のすべてのアプリケーションファイルをリストアップして、ループで処理するようなことをやることになるでしょう。

--PPC 32bit
/Applications/okaeri_up/v2.0b/Okaeri.app/Contents/MacOS/Okaeri: Mach-O executable ppc

--PPC/Intel 32bit FAT Binary
/Applications/Adobe Illustrator CS3/Adobe Illustrator.app//Contents/MacOS/Adobe Illustrator: Mach-O universal binary with 2 architectures: [i386:Mach-O executable i386] [ppc]
/Applications/Adobe Illustrator CS3/Adobe Illustrator.app//Contents/MacOS/Adobe Illustrator (for architecture i386):	Mach-O executable i386
/Applications/Adobe Illustrator CS3/Adobe Illustrator.app//Contents/MacOS/Adobe Illustrator (for architecture ppc):	Mach-O executable ppc

--Intel 32
/Applications/Adobe Illustrator CS5/Adobe Illustrator.app//Contents/MacOS/Adobe Illustrator: Mach-O executable i386

--Intel 32/64bit FAT Binary
/Applications/System Preferences.app//Contents/MacOS/System Preferences: Mach-O universal binary with 2 architectures: [x86_64:Mach-O 64-bit executable x86_64] [i386:Mach-O executable i386]
/Applications/System Preferences.app//Contents/MacOS/System Preferences (for architecture x86_64):	Mach-O 64-bit executable x86_64
/Applications/System Preferences.app//Contents/MacOS/System Preferences (for architecture i386):	Mach-O executable i386

--Intel 64
/Applications/Adobe Illustrator 2020/Adobe Illustrator.app//Contents/MacOS/Adobe Illustrator: Mach-O 64-bit executable x86_64

--Intel/PPC 64bit FAT Binary
/Applications/Geekbench 2.1/Geekbench (64-bit).app/Contents/MacOS/Geekbench: Mach-O universal binary with 2 architectures: [x86_64:Mach-O 64-bit executable x86_64] [ppc64]
/Applications/Geekbench 2.1/Geekbench (64-bit).app/Contents/MacOS/Geekbench (for architecture x86_64):	Mach-O 64-bit executable x86_64
/Applications/Geekbench 2.1/Geekbench (64-bit).app/Contents/MacOS/Geekbench (for architecture ppc64):	Mach-O executable ppc64

--Intel 64/ARM 64 FAT Binary
/System/Applications/Utilities/Script Editor.app/Contents/MacOS/Script Editor: Mach-O universal binary with 2 architectures: [x86_64:Mach-O 64-bit executable x86_64] [arm64e:Mach-O 64-bit executable arm64e]
/System/Applications/Utilities/Script Editor.app/Contents/MacOS/Script Editor (for architecture x86_64):	Mach-O 64-bit executable x86_64
/System/Applications/Utilities/Script Editor.app/Contents/MacOS/Script Editor (for architecture arm64e):	Mach-O 64-bit executable arm64e

AppleScript名：指定アプリケーションのバイナリアーキテクチャ判定.scptd

use AppleScript version “2.4” — Yosemite (10.10) or later
use framework “Foundation”
use scripting additions

set anApp to choose file of type {“com.apple.application-bundle”} default location (path to applications folder)

set app32 to chk32Binary(anApp) of me
–> true –32bit
–> false –64bit

on chk32Binary(anApp)
　　set aExec to getAppPropertyFromInfoPlist(anApp, “CFBundleExecutable”) of me
set posixPath to (POSIX path of anApp) & “/Contents/MacOS/” & aExec

　　set aRes to do shell script “file “ & quoted form of posixPath
log aRes
if aRes contains “Mach-O executable i386” then
　　　　return true –32bit
　　else
　　　　return false –64bit
　　end if
end chk32Binary

on getAppPropertyFromInfoPlist(anAlias, aKey as string)
　　set aURL to current application’s |NSURL|’s fileURLWithPath:(POSIX path of anAlias)
set aBundle to current application’s NSBundle’s bundleWithURL:aURL
set aDict to aBundle’s infoDictionary()
set vRes to (aDict’s valueForKey:aKey) as string
return vRes as string
end getAppPropertyFromInfoPlist

★Click Here to Open This Script　

(Visited 164 times, 1 visits today)

display selected application’s plist on Finder

Posted on 8月 17, 2020 by Takaaki Naganoya

Finder上で選択中のアプリケーションのplistファイルを探してFinder上で選択表示するAppleScriptです。

AppleScript名：display selected application’s plist on Finder.scpt

use AppleScript version "2.5" –macOS 10.11 or later
use scripting additions
use framework "Foundation"
use framework "AppKit"

tell application "Finder"
　　set aliasList to selection as alias list
end tell

–Filter selection application bundle only
set aRes to filterAliasListByUTI(aliasList, "com.apple.application-bundle") of me
set aLen to length of aRes
if aLen = 0 then return

–Pick up the first element
set anApp to contents of first item of aRes

set aRes to getBundleIDFromPath(POSIX path of anApp) of me
set pListName to aRes & ".plist"

set prefPath to POSIX path of (path to preferences) & pListName
set aExt to current application’s NSFileManager’s defaultManager()’s fileExistsAtPath:prefPath
if aExt = true then
　　revealAFileByFinder(prefPath) of me
end if

on filterAliasListByUTI(aliasList as list, acceptUTI as string)
　　set fList to {}
　　repeat with i in aliasList
　　　　set aUTI to getUTIfromPath(i) of me
　　　　if aUTI is not equal to missing value then
　　　　　　set uRes to filterUTIList({aUTI}, acceptUTI) of me
　　　　　　
　　　　　　if uRes is not equal to {} then
　　　　　　　　set the end of fList to contents of i
　　　　　　end if
　　　　end if
　　end repeat
　　return fList
end filterAliasListByUTI

–Application path –> Bundle ID
on getBundleIDFromPath(aPOSIXpath as string)
　　set aURL to current application’s |NSURL|’s fileURLWithPath:aPOSIXpath
　　set aWorkspace to current application’s NSWorkspace’s sharedWorkspace()
　　set appURL to aWorkspace’s URLForApplicationToOpenURL:aURL
　　set aBundle to current application’s NSBundle’s bundleWithURL:appURL
　　set anID to aBundle’s bundleIdentifier()
　　return anID as string
end getBundleIDFromPath

on revealAFileByFinder(aPOSIXpath as string)
　　set pathStr to current application’s NSString’s stringWithString:aPOSIXpath
　　set parentPath to pathStr’s stringByDeletingLastPathComponent()
　　set aRes to current application’s NSWorkspace’s sharedWorkspace()’s selectFile:pathStr inFileViewerRootedAtPath:parentPath
end revealAFileByFinder

–Alias –> UTI
on getUTIfromPath(anAlias)
　　set aPOSIXpath to POSIX path of anAlias
　　set aURL to current application’s |NSURL|’s fileURLWithPath:aPOSIXpath
　　if aURL = missing value then return missing value
　　set aRes to aURL’s resourceValuesForKeys:{current application’s NSURLTypeIdentifierKey} |error|:(missing value)
　　if aRes = missing value then return missing value
　　return (aRes’s NSURLTypeIdentifierKey) as string
end getUTIfromPath

on filterUTIList(aUTIList, aUTIstr)
　　set anArray to NSArray’s arrayWithArray:aUTIList
　　set aPred to NSPredicate’s predicateWithFormat_("SELF UTI-CONFORMS-TO %@", aUTIstr)
　　set bRes to (anArray’s filteredArrayUsingPredicate:aPred) as list
　　return bRes
end filterUTIList

★Click Here to Open This Script　

(Visited 59 times, 1 visits today)

AppleScriptの穴

Useful & Practical AppleScript archive. Click '★Click Here to Open This Script' Link to download each AppleScript

カテゴリー: file

指定のアプリケーションの実行アーキテクチャを変更

画像をExcelのワークシート上に配置

AS関連データの取り扱いを容易にする（はずの）privateDataTypeLib

xincludeを有効にしてXML（sdef）読み込み v2

macOS 12.3上でFinder上で選択中のファイルをそのままオープンできない件

書籍フォルダの階層をさかのぼって、ツメに掲載する最大チャプターを推測 v2

指定のiOSアプリからジャンル情報を取得

Pixelmator Proで指定の画像を複数の3D LUTを用いてカラー調整して画像書き出し

画面スナップショット超解像バッチ処理 v1

Pixelmator ProのSVG to PNG変換

アプリケーションが扱えるデータ拡張子を取得

Finderファイルタグの設定、取得、クリア

Pixelmator Proでアイコン書き出しv2

SFPSDWriterのじっけん v2

PDFにパスワードが設定されている場合には、そのパーミッション情報を取得する

アラートダイアログ上にCollection Viewを表示

指定アプリケーションのバイナリアーキテクチャ判定 v3

指定アプリケーションのバイナリアーキテクチャ判定

display selected application’s plist on Finder