6月15日（金）に渋谷で行われた「Bash In Tokyo」にて、急遽作成した音声認識コマンド実行プログラムをデモしてきました。
macOSの「音声認識コマンド」と「音声文字入力」の中間のような動きをしていて、シソーラス辞書（同義語辞書）を搭載しているため、パラメータの表現の「ゆらぎ」を許容する構造になっています。
本プログラムを作成する前に「Web APIでチャットボットなんか使えば楽をできるのでは？」と考えて調査はしてみたものの、結論からいえば「雑談暇つぶしボットぐらいしかできない」という印象でした。お金をかけて作り込めばMicrosoft Bot Frameworkにしても、NTT Communicatins 「COTOHA」にしても使えるとは思うのですが、特定のコマンドキーワードを認識したあとは急に業務系アプリっぽい挙動になったり、コマンド実行の演出とかはとくにないので、「自分で作ったほうがマシ」だということに、、、、デモの前日に気づきました。
＃ つまり、プログラムのコア部分は１日かけずに作ったという、、、、
もうちょっと調整して何かのデモに使ってみたいところです。
Web上のREST APIを、NSURLSessionを用いて呼び出すAppleScriptの改良版です。
status code、Response Header、処理結果をそれぞれ返すように改良してみました。これで、実際のプログラムに組み込むことができるようになりました。
Response Headerの各フィールドはスペースやハイフンを含んでいたりするので、CocoaのNSDictionaryからAppleScriptのrecordに変換すると値が取り出せなくなってしまいます。
そのため、NSDictionaryのまま返すようにしています。
| AppleScript名：GET method REST API v4.1 |
| — Created 2018-06-16 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.5" use scripting additions use framework "Foundation" property |NSURL| : a reference to current application’s |NSURL| property NSString : a reference to current application’s NSString property NSURLSession : a reference to current application’s NSURLSession property NSJSONSerialization : a reference to current application’s NSJSONSerialization property NSMutableURLRequest : a reference to current application’s NSMutableURLRequest property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding property NSURLSessionConfiguration : a reference to current application’s NSURLSessionConfiguration property retData : missing value property retCode : 0 property retHeaders : 0 set reqURLStr to "http://jsonplaceholder.typicode.com/posts" set aRESTres to callRestGETAPIAndParseResults(reqURLStr, 10) of me set aRESTcode to retCode of aRESTres –> 200 set aRESTheader to retHeaders of aRESTres –> (NSDictionary) {Content-Type:"application/json; charset=utf-8", Pragma:"no-cache", X-Powered-By:"Express", Set-Cookie:"__cfduid=dc7a11359ba7f9518366108f4c2e2d7fb1529215907; expires=Mon, 17-Jun-19 06:11:47 GMT; path=/; domain=.typicode.com; HttpOnly", Server:"cloudflare", Via:"1.1 vegur", Content-Encoding:"gzip", Expires:"Sun, 17 Jun 2018 15:21:12 GMT", CF-Cache-Status:"HIT", Transfer-Encoding:"Identity", Cache-Control:"public, max-age=14400", Date:"Sun, 17 Jun 2018 11:21:12 GMT", Access-Control-Allow-Credentials:"true", Connection:"keep-alive", CF-RAY:"42c5219eb6f2a5cc-NRT", Etag:"W/"6b80-Ybsq/K6GwwqrYkAsFxqDXGC7DoM"", Vary:"Origin, Accept-Encoding", X-Content-Type-Options:"nosniff"} set aRESTres to retData of aRESTres –> (* {{body:"quia et suscipit suscipit recusandae consequuntur expedita et cum reprehenderit molestiae ut ut quas totam nostrum rerum est autem sunt rem eveniet architecto", id:1, title:"sunt aut facere repellat provident occaecati excepturi optio reprehenderit", userId:1},….} *) on callRestGETAPIAndParseResults(reqURLStr as string, timeoutSec as integer) set retData to missing value set retCode to 0 set retHeaders to {} set aURL to |NSURL|’s URLWithString:reqURLStr set aRequest to NSMutableURLRequest’s requestWithURL:aURL aRequest’s setHTTPMethod:"GET" aRequest’s setValue:"gzip" forHTTPHeaderField:"Content-Encoding" aRequest’s setValue:"application/json; charset=UTF-8" forHTTPHeaderField:"Content-Type" set aConfig to NSURLSessionConfiguration’s defaultSessionConfiguration() set aSession to NSURLSession’s sessionWithConfiguration:aConfig delegate:(me) delegateQueue:(missing value) set aTask to aSession’s dataTaskWithRequest:aRequest set hitF to false aTask’s resume() –Start URL Session repeat (1000 * timeoutSec) times if retData is not equal to missing value then set hitF to true exit repeat end if delay ("0.001" as real) end repeat if hitF = false then error "REST API Timeout Error" return {retData:retData, retCode:retCode, retHeaders:retHeaders} end callRestGETAPIAndParseResults on URLSession:tmpSession dataTask:tmpTask didReceiveData:tmpData set aRes to tmpTask’s response() set retCode to aRes’s statusCode() set retHeaders to aRes’s allHeaderFields() set resStr to NSString’s alloc()’s initWithData:tmpData encoding:(NSUTF8StringEncoding) set jsonString to NSString’s stringWithString:(resStr) set jsonData to jsonString’s dataUsingEncoding:(NSUTF8StringEncoding) set aJsonDict to NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value) set retData to aJsonDict as list of string or string –as anything end URLSession:dataTask:didReceiveData: |
Web上のREST APIを、NSURLSessionを用いて呼び出すAppleScriptです。
各種REST APIをAppleScriptから呼び出して使うのは、もはや日常的な光景になっていますが、これまでNSURLConnectionを用いていたのが気になっていました。
AppleScriptObjCではObjective-CのBlocks構文を用いるAPIを呼び出せないために、非同期処理ではなく同期処理を用いる必要があります。NSURLConnectionは明示的に同期処理を呼び出すことができますが、NSURLSessionのサンプルではもれなくBlocks構文が書かれていたので、使えないものかと思っていました。
ただ、それは単なる思い込みであり、Xcodeでヘッダーファイルを調べてみたらBlocks構文を使わずに書けることがわかったので試してみたものです。呼び出しているのは動作確認用のREST APIで、毎回同じ値を返してきます。
まだ、status codeを受け取れていないので実際の処理に組み込むことはできませんが、きちんと動くコードが書けた意義は大きいでしょう。
| AppleScript名：GET method REST API v4 |
| — Created 2018-06-16 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" property |NSURL| : a reference to current application’s |NSURL| property NSString : a reference to current application’s NSString property NSURLSession : a reference to current application’s NSURLSession property NSJSONSerialization : a reference to current application’s NSJSONSerialization property NSMutableURLRequest : a reference to current application’s NSMutableURLRequest property NSUTF8StringEncoding : a reference to current application’s NSUTF8StringEncoding property NSURLSessionConfiguration : a reference to current application’s NSURLSessionConfiguration property retData : missing value set retData to missing value set reqURLStr to "http://jsonplaceholder.typicode.com/posts" set aRESTres to callRestGETAPIAndParseResults(reqURLStr) of me –> (* {{body:"quia et suscipit suscipit recusandae consequuntur expedita et cum reprehenderit molestiae ut ut quas totam nostrum rerum est autem sunt rem eveniet architecto", id:1, title:"sunt aut facere repellat provident occaecati excepturi optio reprehenderit", userId:1}, {body:"est rerum tempore vitae sequi sint nihil reprehenderit dolor beatae ea dolores neque fugiat blanditiis voluptate porro vel nihil molestiae ut reiciendis"}……} *) on callRestGETAPIAndParseResults(reqURLStr) set aURL to |NSURL|’s URLWithString:reqURLStr set aRequest to NSMutableURLRequest’s requestWithURL:aURL aRequest’s setHTTPMethod:"GET" aRequest’s setValue:"gzip" forHTTPHeaderField:"Content-Encoding" aRequest’s setValue:"application/json; charset=UTF-8" forHTTPHeaderField:"Content-Type" set aConfig to NSURLSessionConfiguration’s defaultSessionConfiguration() set aSession to NSURLSession’s sessionWithConfiguration:aConfig delegate:(me) delegateQueue:(missing value) set aTask to aSession’s dataTaskWithRequest:aRequest aTask’s resume() –Start URL Session repeat 10000 times if retData is not equal to missing value then exit repeat delay ("0.001" as real) end repeat retData end callRestGETAPIAndParseResults on URLSession:tmpSession dataTask:tmpTask didReceiveData:tmpData set aStat to (tmpTask’s state()) as list of string or string set resStr to NSString’s alloc()’s initWithData:tmpData encoding:(NSUTF8StringEncoding) set jsonString to NSString’s stringWithString:(resStr) set jsonData to jsonString’s dataUsingEncoding:(NSUTF8StringEncoding) set aJsonDict to NSJSONSerialization’s JSONObjectWithData:jsonData options:0 |error|:(missing value) set retData to aJsonDict as list of string or string end URLSession:dataTask:didReceiveData: |
Numbersの最前面の書類の選択中のシート（アクティブシート）上の「表」の行数をデータに合わせて変更するAppleScriptです。
▲Before
▲After
表データ上の空白部分を末尾（下）から先頭（上）に向かってサーチし、空白ではない箇所を見つけるまで繰り返します。
| AppleScript名：Numbersのアクティブシート上の表の行数をデータに合わせる |
| — Created 2018-06-12 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.5" use scripting additions use framework "Foundation" use bPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html set tCount to getTableCount() of me repeat with tableID from 1 to tCount –Numbersからデータを取得する set aList to getDataFromNumbersDoc(tableID) of me if aList = false then error "No Data in table " & (tableID as string) –Numbersの対象の表の情報を取得 set aWidth to getColumnCount(tableID) of me set aHeaderCount to getHeaderCount(tableID) of me set aFooterCount to getFooterCount(tableID) of me –Numbersから取得した2D Listのデータからデータの末尾を見つける set aDataRowCount to findDataEnd(aWidth, aHeaderCount, aFooterCount, aList) of me tell application "Numbers" tell front document tell active sheet tell table tableID set row count to aDataRowCount end tell end tell end tell end tell end repeat –Numbersでオープン中の書類の選択中のシートの表1からデータを取得して2D Listに on getDataFromNumbersDoc(tableNum as integer) load framework tell application "Numbers" if (count every document) = 0 then return false tell front document if (count every sheet) = 0 then return false tell active sheet tell table tableNum set colCount to column count set rowCount to row count set headerCount to header row count set footerCount to footer row count set dList to value of every cell of cell range end tell end tell end tell end tell –Convert 1D List to 2D List set bList to (current application’s SMSForder’s subarraysFrom:dList groupedBy:colCount |error|:(missing value)) as list set sItem to 1 + headerCount set eItem to rowCount – footerCount set cList to items sItem thru eItem of bList return cList end getDataFromNumbersDoc on getTableCount() tell application "Numbers" set dCount to count every document if dCount = 0 then error "Numbers: There is No Document" tell front document tell active sheet return (count every table) end tell end tell end tell end getTableCount on getHeaderCount(tableID as integer) tell application "Numbers" tell front document tell active sheet tell table tableID return (header row count) end tell end tell end tell end tell end getHeaderCount on getFooterCount(tableID as integer) tell application "Numbers" tell front document tell active sheet tell table tableID return (footer row count) end tell end tell end tell end tell end getFooterCount on getColumnCount(tableID as integer) tell application "Numbers" tell front document tell active sheet tell table tableID return (column count) end tell end tell end tell end tell end getColumnCount –Numbersから取得した2D Arrayのデータ末尾を見つける（ただし、高速化処理を一切していないのでデータ数が数千件を超えると遅くなる） on findDataEnd(aWidth as integer, aHeaderCount as integer, aFooterCount as integer, aList as list) set rAList to reverse of aList –get reverse order list set anItem to {} repeat aWidth times set the end of anItem to missing value end repeat set aCount to length of aList set hitF to false repeat with i in rAList set j to contents of i if j is not equal to anItem then set hitF to true exit repeat end if set aCount to aCount – 1 end repeat if hitF = false then return false –すべて空（missing value）だった場合には処理打ち切り return aCount + aHeaderCount + aFooterCount end findDataEnd |
Blogのサーバー移行を行います。2018年２月にWordPressの新バージョンに移行した後から、Blogの応答パフォーマンスが低下してきているので（大きな画像をWordPressまかせでサムネール作成させて表示しているのが問題なのか、WordPressそのものに問題があるのか）、高速なサーバーへの移行を行います。
放っておいても８月ぐらいには自動で移行というスケジュールのようですが、またホスティング会社側に全部おまかせで行うと、トラブルが発生すること必至です（状況をまともに説明する能力がないようなので、期待していません）。
なので、一括移行のタイミングよりも前のタイミングで移行の実験を行います。さっそく、１月末のトラブル中に作成したMySQLのユーザーアカウントのうちの１つのパスワードが読み取れないといったエラーが報告されました。
実験用に作成したアカウントだったのでアカウントごと消しましたが、ホスティング会社のWebフォーム上のメニューから作成したアカウントがホスティング会社側のプログラムから読み取れないとは実におかしな話です。
今回のサーバー移行は、同じホスティング会社の古いサーバーから、新しい高速（といわれる）サーバーに移行します。つまり、古いサーバーよりも新しく調達したサーバーの方が仕様的に上なのでアクセスが快適になる、、、、、、という話なのですが、実際に移行してみないとわかりません。
実際に移行してみましたが、とくに何も問題はないようです。ただ、サーバーを移行してもWordPressの応答速度がたいして上がらなかったので、WordPressのプラグインを外しまくりました。
プラグインによってずいぶんパフォーマンスが落ちていたようです。いまはかなり快適に？ つまり、サーバー移行自体はあまり関係なかったようなのですが、あとでモメなくてよかった程度の話でしょうか。
ホスティングしているサーバーのアップデートが計画されているようですが、１台あたりの収容ユーザー数を増やせば、数値どおりのパフォーマンス向上を体感することは難しいことでしょう。
「AppleScriptの穴」の内容が、今年の１月末にBlog開設10年目にして突然消滅。あの悪夢のBlog消失事件から半年近くが経過しました。
消失直後に、AppleScript書類をHTML化してXML-RPC経由でWordPressをコントロールして、BlogにアップロードするAppleScriptを書いて実戦投入。機械的に基礎的なサブルーチンをアップロードし、じょじょに説明文を付加したコンテンツをアップロード。
macOS 10.11以降のScriptを対象に迅速な復旧を行い、意図した範囲でのサイト復旧はできているのかな、という状況です。
一方で、もっと古い時期＆OSバージョン向けの情報については、正直なところそれを検証する環境を整備・維持するのが難しい状況です。
そのため、本BlogでもmacOS 10.10以前の情報について再掲載するつもりはありません。
そこで、古い情報のみを集めたBlog Archive本を電子ブックで出版することを計画中です。AppleScriptの穴のフォーマットと同じく、構文色分けを行なったプログラムリストに、クリックすると内容がScript Editorに転送されるURLリンク付き。PDFによる出版のため全文検索で内容をサーチ可能です。
とりあえず１か月分の見出しをリストアップしてみたら、130本ぐらいありました（Blog開設当初で、連続アップしていました）。2008年3月9日から１年分を拾うだけでも500〜800ページぐらいにはなりそうです（×10年分）。
いまでもOS X 10.6〜10.4あたりを使い続けている方には見逃せない情報になるものと思われます。
Finder上で選択中の画像を右に（時計回りに）90度回転させるAppleScriptです。
Finder上で選択中のファイルのうち、UTIがpublic.imageに含まれるもの（JPEGとかPNGとかTIFFとか）を指定の角度に回転させます。
もともと、選択中のアイテムからファイル種別でオブジェクトを抽出する機能はFinderのものを利用していたのですが、最近のFinderは応答速度が下がっているため、選択中のファイルの取得以外は極力Finderを利用しないのが（macOS 10.10以降の）おすすめです。
macOS標準搭載のScript Menu（フォルダ構造がそのままメニューになり、Scriptをメニューから実行できる）に登録して実行しています。
| AppleScript名：Finderで選択中の画像を右に90度回転 |
| — Created 2017-11-21 by Takaaki Naganoya — Modified 2018-04-06 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.5" — El Capitan (10.11) 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 NSString : a reference to current application’s NSString property NSPredicate : a reference to current application’s NSPredicate property NSFileManager : a reference to current application’s NSFileManager property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey set targDegree to 90 — targDegree have to be in {0, 90, 180, 270, 360} in clockwise tell application "Finder" set inFiles to selection as alias list end tell if inFiles = {} then return –指定のAlias listのうち画像のみ抽出 set filRes1 to filterAliasListByUTI(inFiles, "public.image") of me if filRes1 = {} then return –選択中のファイルのうちの１つから親フォルダを求め、出力先ファイルパスを組み立てる set outPathTarg to POSIX path of (first item of filRes1) set pathString to current application’s NSString’s stringWithString:outPathTarg set newPath to (pathString’s stringByDeletingLastPathComponent()) as string repeat with i in filRes1 rotateImageandSaveIt(i, targDegree) of me end repeat –指定角度に画像を回転させて上書き保存 on rotateImageandSaveIt(this_file, aTargerRect) tell application "Image Events" launch set this_image to open this_file rotate this_image to angle aTargerRect save this_image with icon close this_image end tell end rotateImageandSaveIt –Alias listから指定UTIに含まれるものをPOSIX pathのリストで返す on filterAliasListByUTI(aList, targUTI) set newList to {} repeat with i in aList set j to POSIX path of i set tmpUTI to my retUTIfromPath(j) set utiRes to my filterUTIList({tmpUTI}, targUTI) if utiRes is not equal to {} then set the end of newList to j end if end repeat return newList end filterAliasListByUTI –指定のPOSIX pathのファイルのUTIを求める on retUTIfromPath(aPOSIXPath) set aURL to |NSURL|’s fileURLWithPath:aPOSIXPath set {theResult, theValue} to aURL’s getResourceValue:(reference) forKey:NSURLTypeIdentifierKey |error|:(missing value) if theResult = true then return theValue as string else return theResult end if end retUTIfromPath –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 |
数値演算の関数を35個提供するAppleScript Libraries「calcLibAS」の高速版です。
–> Download calcLibAS (To ~/Library/Script Libraries/)
掘っ建て小屋とか犬小屋みたいな吹けば飛ぶような数値演算ライブラリだったものが、気づけば最初のバージョンから28倍速といったトンでもない状況になっています。ただ、前バージョンとくらべて少し安定性が損なわれているような気がしないでもありません。
計算に速度が求められる用途では、BridgePlusやSatimage OSAXなどを使うのがよいと思いますが、これらのライブラリやOSAXがサポートしていない数値関数が割とあるので（とくにatan2）それを埋めるためだけに本ライブラリは存在しています。
こうしてグラフで比較してみると、C++で書かれたSatimage OSAX、Objective-Cで書かれたCocoa Frameworkと１桁違うぐらいの処理速度でAppleScriptによる（JavaScript処理系呼んでますけど）数値演算ができているのは割とすごいと思います（自分ではなくCPUとかOSとかShane Stanleyの高速化とかが。割と他力本願ライブラリなので）。
本来であれば、AppleがNumbersの関数の充実のために導入した「Cephes Math Library」をNSNumberを介してAppleScriptから呼べるようにラッピングするのがよいのですが（Github上にあるObjectiveCephesは、単にCocoa Framework化しただけでC言語レベルでデータを扱っているのでAppleScriptからは使えない）、割と手間がかかるので「とりあえずJavaScriptの処理系の関数を使えるようにしてみよう」ということで（数時間で）でっち上げた、その場しのぎのためのライブラリです。
| AppleScript名：testScript1 |
| — Created 2018-06-06 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.5" use scripting additions use mLib : script "calcLibAS" set a01Res to calcAbs(-10) of mLib –> 10 set a02Res to calcAcos(-1) of mLib –> 3.14159265359 set a03Res to calcAcosh(10) of mLib –> 2.993222846126 set a04Res to calcAsin(-1) of mLib –> -1.570796326795 set a05Res to calcAsinh(10) of mLib –> 2.998222950298 set a06Res to calcAtan(10) of mLib –> 1.471127674304 set a07Res to calcAtan2(10, 20) of mLib –> 0.463647609001 set a08Res to calcAtanh(0.5) of mLib –> 0.549306144334 set a09Res to calcCbrt(3) of mLib –> 1.442249570307 set a10Res to calcCeil(0.95) of mLib –> 1 set a11Res to calcClz32(1) of mLib –> 31 set a12Res to calcCos(1) of mLib –> 0.540302305868 set a13Res to calcCosh(1) of mLib –> 1.543080634815 set a14Res to calcExp(1) of mLib –> 2.718281828459 set a15Res to calcExpm1(-1) of mLib –> -0.632120558829 set a16Res to calcFloor(45.95) of mLib –> 45 set a17Res to calcFround(1.337) of mLib –> 1.337000012398 set a18Res to calcHypot({3, 4, 5}) of mLib –> 7.071067811865 set a19Res to calcImul(2, 5) of mLib –> 10 set a20Res to calcLog(10) of mLib –> 2.302585092994 set a21Res to calcLog10(2) of mLib –> 0.301029995664 set a22Res to calcLog1p(1) of mLib –> 0.69314718056 set a23Res to calcLog2(3) of mLib –> 1.584962500721 set a24Res to calcMax({1, 2, 3, 4, 6, 2, 10}) of mLib –> 10 set a25Res to calcMin({1, 2, 3, 4, 6, 2, 10, 0}) of mLib –> 0 set a26Res to calcPow(7, 2) of mLib –> 49.0 set a27Res to calcRandom() of mLib –> 0.200867049467 set a28Res to calcRound(5.95) of mLib –> 6.0 set a29Res to calcSign(10) of mLib –> -1/0/1 –> -1.0/0.0/1.0 set a30Res to calcSin(pi / 2) of mLib –> 1–> 1.0 set a31Res to calcSinh(1) of mLib –> 1.175201193644 set a32Res to calcSqrt(2) of mLib –> 1.414213562373 set a33Res to calcTan(30) of mLib –> -6.405331196646 set a34Res to calcTanh(10) of mLib –> 0.999999995878 set a35Res to calcTrunc(13.37) of mLib –> 13 –> 13.0 |
| AppleScript名：calcLibAS — Created 2018-06-06 by Takaaki Naganoya — 2017 Piyomaru Software –v1.0 First Version。run scriptでJXAを呼び出して計算。連続呼び出し時にクラッシュが頻発 –v1.1 JavaScriptCoreを使用。run script命令をフックして呼び出し。JXA呼び出しをやめて6倍の高速化 –v1.2 JavaScriptCoreを使用。run script命令のフックをやめて若干の高速化 –v1.3 Shane Stanleyによる高速化。JSContextをpropertyにキャッシュして高速化 |
| — Created 2018-06-06 by Takaaki Naganoya — 2017 Piyomaru Software use AppleScript version "2.5" use scripting additions use framework "Foundation" use framework "JavaScriptCore" property theContext : missing value –数値の絶対値を返す on calcAbs(aNum as string) set aStr to "Math.abs(" & aNum & ")" return exeJS(aStr) end calcAbs –アークコサインをラジアン単位で返す on calcAcos(aNum as string) set aStr to "Math.acos(" & aNum & ")" return exeJS(aStr) end calcAcos –ハイパーボリックアークコサインを返す on calcAcosh(aNum as string) set aStr to "Math.acosh(" & aNum & ")" return exeJS(aStr) end calcAcosh –アークサインをラジアン単位で返す on calcAsin(aNum as string) set aStr to "Math.asin(" & aNum & ")" return exeJS(aStr) end calcAsin –ハイパーボリックアークサインを返す on calcAsinh(aNum as string) set aStr to "Math.asinh(" & aNum & ")" return exeJS(aStr) end calcAsinh –アークタンジェントをラジアン単位で返す on calcAtan(aNum as string) set aStr to "Math.atan(" & aNum & ")" return exeJS(aStr) end calcAtan –アークタンジェントを返す on calcAtan2(aNum as string, bNum as string) set aStr to "Math.atan2(" & aNum & ", " & bNum & ")" return exeJS(aStr) end calcAtan2 –ハイパーボリックアークタンジェントを返す on calcAtanh(aNum as string) set aStr to "Math.atanh(" & aNum & ")" return exeJS(aStr) end calcAtanh –引数として与えた数の立方根を返す on calcCbrt(aNum as string) set aStr to "Math.cbrt(" & aNum & ")" return exeJS(aStr) end calcCbrt –引数として与えた数以上の最小の整数を返す on calcCeil(aNum as string) set aStr to "Math.ceil(" & aNum & ")" return exeJS(aStr) end calcCeil –引数として与えた数以上の最小の整数を返す on calcClz32(aNum as string) set aStr to "Math.clz32(" & aNum & ")" return exeJS(aStr) end calcClz32 –引数として与えた数のコサインを返す on calcCos(aNum as string) set aStr to "Math.cos(" & aNum & ")" return exeJS(aStr) end calcCos –引数として与えた数のハイパーボリックコサインを返す on calcCosh(aNum as string) set aStr to "Math.cosh(" & aNum & ")" return exeJS(aStr) end calcCosh –Ex を返す。ここでの x は引数、E は、自然対数の底であるネイピア数（オイラー数） on calcExp(aNum as string) set aStr to "Math.exp(" & aNum & ")" return exeJS(aStr) end calcExp –ex – 1 を返す。x は引数で、e は自然対数の底 on calcExpm1(aNum as string) set aStr to "Math.expm1(" & aNum & ")" return exeJS(aStr) end calcExpm1 –引数として与えた数以下の最大の整数を返す on calcFloor(aNum as string) set aStr to "Math.floor(" & aNum & ")" return exeJS(aStr) end calcFloor –引数として与えた数の最も近い単精度 floatを返す on calcFround(aNum as string) set aStr to "Math.fround(" & aNum & ")" return exeJS(aStr) end calcFround –引数の二乗和の平方根を返す on calcHypot(aList as list) set bStr to retArrowText(aList, ", ") of me set aStr to "Math.hypot(" & bStr & ")" return exeJS(aStr) end calcHypot — 2 つの引数をとり、C 言語の様な 32 ビット乗算の結果を返す on calcImul(aNum as string, bNum as string) set aStr to "Math.imul(" & aNum & ", " & bNum & ")" return exeJS(aStr) end calcImul — 引数として与えた数の自然対数 (底は e) を返す on calcLog(aNum as string) set aStr to "Math.log(" & aNum & ")" return exeJS(aStr) end calcLog — 引数として与えた数に対して、10を底とする対数を返す on calcLog10(aNum as string) set aStr to "Math.log10(" & aNum & ")" return exeJS(aStr) end calcLog10 — 引数として与えた数と 1 の合計の自然対数(底 e)を返す on calcLog1p(aNum as string) set aStr to "Math.log1p(" & aNum & ")" return exeJS(aStr) end calcLog1p — 引数として与えた数の2を底とする対数を返す on calcLog2(aNum as string) set aStr to "Math.log2(" & aNum & ")" return exeJS(aStr) end calcLog2 –引数として与えた複数の数の中で最大の数を返す on calcMax(aList as list) set bStr to retArrowText(aList, ", ") of me set aStr to "Math.max(" & bStr & ")" return exeJS(aStr) end calcMax –引数として与えた複数の数の中で最小の数を返す on calcMin(aList as list) set bStr to retArrowText(aList, ", ") of me set aStr to "Math.min(" & bStr & ")" return exeJS(aStr) end calcMin –引数として与えた複数の数の中で最小の数を返す on calcPow(aNum as string, bNum as string) set aStr to "Math.pow(" & aNum & ", " & bNum & ")" return exeJS(aStr) end calcPow –（0以上、1未満）の範囲で浮動小数点の擬似乱数を返す on calcRandom() set aStr to "Math.random()" return (run script aStr in "JavaScript") end calcRandom –引数として与えた数を四捨五入して、もっとも近似の整数を返す on calcRound(aNum as string) set aStr to "Math.round(" & aNum & ")" return exeJS(aStr) end calcRound –引数として与えた数が正、負、0 のどれであるか示す符号を返す on calcSign(aNum as string) set aStr to "Math.sign(" & aNum & ")" return exeJS(aStr) end calcSign –引数として与えた数のサイン（正弦）を返す on calcSin(aNum as string) set aStr to "Math.sin(" & aNum & ")" return exeJS(aStr) end calcSin –引数として与えた数のハイパーボリックサインを返す on calcSinh(aNum as string) set aStr to "Math.sinh(" & aNum & ")" return exeJS(aStr) end calcSinh –引数として与えた数の平方根を返す on calcSqrt(aNum as string) set aStr to "Math.sqrt(" & aNum & ")" return exeJS(aStr) end calcSqrt –引数として与えた数のタンジェントを返す on calcTan(aNum as string) set aStr to "Math.tan(" & aNum & ")" return exeJS(aStr) end calcTan –引数として与えた数のハイパーボリックタンジェントを返す on calcTanh(aNum as string) set aStr to "Math.tanh(" & aNum & ")" return exeJS(aStr) end calcTanh –引数として与えた数の小数部の桁を取り除いて整数部を返す on calcTrunc(aNum as string) set aStr to "Math.trunc(" & aNum & ")" return exeJS(aStr) end calcTrunc –Sub Routines –リストを指定デリミタをはさんでテキスト化 on retArrowText(aList, aDelim) –自分のASでよく使うハンドラ名称なので、同じものを用意 set anArray to current application’s NSArray’s arrayWithArray:aList set aRes to anArray’s componentsJoinedByString:aDelim return aRes as text end retArrowText –JavaScriptCore版実行部 on exeJS(aStr) return (myContext()’s evaluateScript:aStr)’s toDouble() end exeJS on myContext() if theContext = missing value then set theContext to current application’s JSContext’s new() return theContext end myContext |
数値演算の関数を35個提供するAppleScript Libraries「calcLibAS」の高速・安定化版です。
–> Download calcLibAS (To ~/Library/Script Libraries/)
▲atan2 calculation comparison
前バージョンのv1.0よりも６倍高速で、JXAの利用をやめてJavaScript Coreに切り替えたため、数百回呼び出したときでもクラッシュすることがなくなりました（ひどい場合だと数回でクラッシュしていたため、JXAを外せて本当によかったです。run scriptコマンドがひどいのかもしれませんが）。
v1.1ではrun scriptコマンドをのっとってJavaScript Coreを呼び出していましたが、v1.2ではrun scriptコマンドの利用をやめてすべてサブルーチン呼び出しに書き換えたので、若干高速化しました。
JavaScript CoreのほかWebKit経由でもJavaScriptの実行は行えますが、WebKitではメインスレッドでの実行が求められたため、JavaScript Coreを使用しています。ただし、このためかどうかわかりませんが、macOS 10.13の環境で本Scriptを実行したときにSafariのJavaScriptデバッグ画面が実行回数だけオープンするという怪奇現象に直面しました。Safariを起動していない場合には発生しませんし、テスト環境では２度目以降は発生していません。ご注意ください。
| AppleScript名：calcLibAS |
| — Created 2018-06-06 by Takaaki Naganoya — 2017 Piyomaru Software –v1.0 First Version。run scriptでJXAを呼び出して計算。連続呼び出し時にクラッシュが頻発 –v1.1 JavaScriptCoreを使用。run script命令をフックして呼び出し。JXA呼び出しをやめて6倍の高速化 –v1.2 JavaScriptCoreを使用。run script命令のフックをやめて若干の高速化 use AppleScript version "2.5" use scripting additions use framework "Foundation" use framework "JavaScriptCore" set a01Res to calcAbs(-10) of me –> 10 set a02Res to calcAcos(-1) of me –> 3.14159265359 set a03Res to calcAcosh(10) of me –> 2.993222846126 set a04Res to calcAsin(-1) of me –> -1.570796326795 set a05Res to calcAsinh(10) of me –> 2.998222950298 set a06Res to calcAtan(10) of me –> 1.471127674304 set a07Res to calcAtan2(10, 20) of me –> 0.463647609001 set a08Res to calcAtanh(0.5) of me –> 0.549306144334 set a09Res to calcCbrt(3) of me –> 1.442249570307 set a10Res to calcCeil(0.95) of me –> 1 set a11Res to calcClz32(1) of me –> 31 set a12Res to calcCos(1) of me –> 0.540302305868 set a13Res to calcCosh(1) of me –> 1.543080634815 set a14Res to calcExp(1) of me –> 2.718281828459 set a15Res to calcExpm1(-1) of me –> -0.632120558829 set a16Res to calcFloor(45.95) of me –> 45 set a17Res to calcFround(1.337) of me –> 1.337000012398 set a18Res to calcHypot({3, 4, 5}) of me –> 7.071067811865 set a19Res to calcImul(2, 5) of me –> 10 set a20Res to calcLog(10) of me –> 2.302585092994 set a21Res to calcLog10(2) of me –> 0.301029995664 set a22Res to calcLog1p(1) of me –> 0.69314718056 set a23Res to calcLog2(3) of me –> 1.584962500721 set a24Res to calcMax({1, 2, 3, 4, 6, 2, 10}) of me –> 10 set a25Res to calcMin({1, 2, 3, 4, 6, 2, 10, 0}) of me –> 0 set a26Res to calcPow(7, 2) of me –> 49.0 set a27Res to calcRandom() of me –> 0.200867049467 set a28Res to calcRound(5.95) of me –> 6.0 set a29Res to calcSign(10) of me –> -1/0/1 –> -1.0/0.0/1.0 set a30Res to calcSin(pi / 2) of me –> 1–> 1.0 set a31Res to calcSinh(1) of me –> 1.175201193644 set a32Res to calcSqrt(2) of me –> 1.414213562373 set a33Res to calcTan(30) of me –> -6.405331196646 set a34Res to calcTanh(10) of me –> 0.999999995878 set a35Res to calcTrunc(13.37) of me –> 13 –> 13.0 –数値の絶対値を返す on calcAbs(aNum as string) set aStr to "Math.abs(" & aNum & ")" return exeJS(aStr) end calcAbs –アークコサインをラジアン単位で返す on calcAcos(aNum as string) set aStr to "Math.acos(" & aNum & ")" return exeJS(aStr) end calcAcos –ハイパーボリックアークコサインを返す on calcAcosh(aNum as string) set aStr to "Math.acosh(" & aNum & ")" return exeJS(aStr) end calcAcosh –アークサインをラジアン単位で返す on calcAsin(aNum as string) set aStr to "Math.asin(" & aNum & ")" return exeJS(aStr) end calcAsin –ハイパーボリックアークサインを返す on calcAsinh(aNum as string) set aStr to "Math.asinh(" & aNum & ")" return exeJS(aStr) end calcAsinh –アークタンジェントをラジアン単位で返す on calcAtan(aNum as string) set aStr to "Math.atan(" & aNum & ")" return exeJS(aStr) end calcAtan –アークタンジェントを返す on calcAtan2(aNum as string, bNum as string) set aStr to "Math.atan2(" & aNum & ", " & bNum & ")" return exeJS(aStr) end calcAtan2 –ハイパーボリックアークタンジェントを返す on calcAtanh(aNum as string) set aStr to "Math.atanh(" & aNum & ")" return exeJS(aStr) end calcAtanh –引数として与えた数の立方根を返す on calcCbrt(aNum as string) set aStr to "Math.cbrt(" & aNum & ")" return exeJS(aStr) end calcCbrt –引数として与えた数以上の最小の整数を返す on calcCeil(aNum as string) set aStr to "Math.ceil(" & aNum & ")" return exeJS(aStr) end calcCeil –引数として与えた数以上の最小の整数を返す on calcClz32(aNum as string) set aStr to "Math.clz32(" & aNum & ")" return exeJS(aStr) end calcClz32 –引数として与えた数のコサインを返す on calcCos(aNum as string) set aStr to "Math.cos(" & aNum & ")" return exeJS(aStr) end calcCos –引数として与えた数のハイパーボリックコサインを返す on calcCosh(aNum as string) set aStr to "Math.cosh(" & aNum & ")" return exeJS(aStr) end calcCosh –Ex を返す。ここでの x は引数、E は、自然対数の底であるネイピア数（オイラー数） on calcExp(aNum as string) set aStr to "Math.exp(" & aNum & ")" return exeJS(aStr) end calcExp –ex – 1 を返す。x は引数で、e は自然対数の底 on calcExpm1(aNum as string) set aStr to "Math.expm1(" & aNum & ")" return exeJS(aStr) end calcExpm1 –引数として与えた数以下の最大の整数を返す on calcFloor(aNum as string) set aStr to "Math.floor(" & aNum & ")" return exeJS(aStr) end calcFloor –引数として与えた数の最も近い単精度 floatを返す on calcFround(aNum as string) set aStr to "Math.fround(" & aNum & ")" return exeJS(aStr) end calcFround –引数の二乗和の平方根を返す on calcHypot(aList as list) set bStr to retArrowText(aList, ", ") of me set aStr to "Math.hypot(" & bStr & ")" return exeJS(aStr) end calcHypot — 2 つの引数をとり、C 言語の様な 32 ビット乗算の結果を返す on calcImul(aNum as string, bNum as string) set aStr to "Math.imul(" & aNum & ", " & bNum & ")" return exeJS(aStr) end calcImul — 引数として与えた数の自然対数 (底は e) を返す on calcLog(aNum as string) set aStr to "Math.log(" & aNum & ")" return exeJS(aStr) end calcLog — 引数として与えた数に対して、10を底とする対数を返す on calcLog10(aNum as string) set aStr to "Math.log10(" & aNum & ")" return exeJS(aStr) end calcLog10 — 引数として与えた数と 1 の合計の自然対数(底 e)を返す on calcLog1p(aNum as string) set aStr to "Math.log1p(" & aNum & ")" return exeJS(aStr) end calcLog1p — 引数として与えた数の2を底とする対数を返す on calcLog2(aNum as string) set aStr to "Math.log2(" & aNum & ")" return exeJS(aStr) end calcLog2 –引数として与えた複数の数の中で最大の数を返す on calcMax(aList as list) set bStr to retArrowText(aList, ", ") of me set aStr to "Math.max(" & bStr & ")" return exeJS(aStr) end calcMax –引数として与えた複数の数の中で最小の数を返す on calcMin(aList as list) set bStr to retArrowText(aList, ", ") of me set aStr to "Math.min(" & bStr & ")" return exeJS(aStr) end calcMin –引数として与えた複数の数の中で最小の数を返す on calcPow(aNum as string, bNum as string) set aStr to "Math.pow(" & aNum & ", " & bNum & ")" return exeJS(aStr) end calcPow –（0以上、1未満）の範囲で浮動小数点の擬似乱数を返す on calcRandom() set aStr to "Math.random()" return (run script aStr in "JavaScript") end calcRandom –引数として与えた数を四捨五入して、もっとも近似の整数を返す on calcRound(aNum as string) set aStr to "Math.round(" & aNum & ")" return exeJS(aStr) end calcRound –引数として与えた数が正、負、0 のどれであるか示す符号を返す on calcSign(aNum as string) set aStr to "Math.sign(" & aNum & ")" return exeJS(aStr) end calcSign –引数として与えた数のサイン（正弦）を返す on calcSin(aNum as string) set aStr to "Math.sin(" & aNum & ")" return exeJS(aStr) end calcSin –引数として与えた数のハイパーボリックサインを返す on calcSinh(aNum as string) set aStr to "Math.sinh(" & aNum & ")" return exeJS(aStr) end calcSinh –引数として与えた数の平方根を返す on calcSqrt(aNum as string) set aStr to "Math.sqrt(" & aNum & ")" return exeJS(aStr) end calcSqrt –引数として与えた数のタンジェントを返す on calcTan(aNum as string) set aStr to "Math.tan(" & aNum & ")" return exeJS(aStr) end calcTan –引数として与えた数のハイパーボリックタンジェントを返す on calcTanh(aNum as string) set aStr to "Math.tanh(" & aNum & ")" return exeJS(aStr) end calcTanh –引数として与えた数の小数部の桁を取り除いて整数部を返す on calcTrunc(aNum as string) set aStr to "Math.trunc(" & aNum & ")" return exeJS(aStr) end calcTrunc –Sub Routines –リストを指定デリミタをはさんでテキスト化 on retArrowText(aList, aDelim) –自分のASでよく使うハンドラ名称なので、同じものを用意 set anArray to current application’s NSArray’s arrayWithArray:aList set aRes to anArray’s componentsJoinedByString:aDelim return aRes as text end retArrowText –JavaScriptCore版実行部 on exeJS(aStr) set theContext to current application’s JSContext’s alloc()’s init() set x to (theContext’s evaluateScript:aStr)’s toNumber() return x as list of string or string –as anything end exeJS |
Numbersの表データの選択範囲のセルのデータを取得し、重複データがあれば重複データのみ表示するAppleScriptです。
macOS標準装備のScript Menuに入れて便利に使っています。Numbers上の選択範囲内に重複データがあれば、ダイアログでデータを表示します。
| AppleScript名：Numbersで選択範囲のセルのデータを取得して重複データを抽出 |
| — Created 2018-01-13 by Takaaki Naganoya — Modified 2018-06-06 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" property NSCountedSet : a reference to current application’s NSCountedSet script spd property uniqList : {} end script set (uniqList of spd) to {} tell application "Numbers" tell front document tell active sheet try set theTable to first table whose class of selection range is range on error display notification "Numbers: There is no selection" return end try tell theTable set (uniqList of spd) to value of cells of selection range end tell end tell end tell end tell if (uniqList of spd) = {} then display notification "Numbers: There is no selection" return end if set aRes to returnDuplicatesOnly(uniqList of spd) of me if aRes is not equal to {} then choose from list aRes with prompt "Duplicated Data:" else display notification "No Duplicated Data" end if –1D Listから重複項目のみを抽出して返す on returnDuplicatesOnly(aList as list) set aSet to 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 |
数値演算の関数を35個提供するAppleScript Librariesです。
Cocoa Frameworkを呼び出して計算するよりも262倍、OSAXを呼び出して計算するよりも760倍遅いのですが、関数の数はたいへんに多いです。
スピードが遅い上に数百回連続で呼び出すとScript Editorがクラッシュする傾向があります（本当）。
run scriptコマンドでJavaScript（JXA）を呼び出して計算しているのですが、run script経由でJavaScript（JXA）を呼び出すのがこんなに危険だと思わなかったので、いっそJavaScript Coreを呼び出して実行してみてもよいのかもしれません（それでも高速にはならなさそうで）。
最初は「calcLib」というライブラリをJXAで試しに書いて、AppleScriptから呼び出せないかどうか実験してみたのですが、useコマンドでJXAのライブラリを指定したら「OSA言語が違うので呼び出せないよ」といったエラーになりました（AppleScript用語辞書を用意すれば複数のOSA言語間から利用できるのだと思います、まだやっていませんけれども）。
そのあとで作ったので「calcLibAS」という名前に。
| AppleScript名：atan2をライブラリ呼び出しで計算する |
| — Created 2018-06-06 by Takaaki Naganoya — 2017 Piyomaru Software use AppleScript version "2.4" use scripting additions use mLib : script "calcLibAS" set aRes to calcAtan2(10, 20) of mLib |
本ライブラリは~/Library/Script Librariesフォルダなどに入れて呼び出してください。
| AppleScript名：calcLibAS |
| — Created 2018-06-06 by Takaaki Naganoya — 2017 Piyomaru Software use AppleScript version "2.5" use scripting additions use framework "Foundation" set a01Res to calcAbs(-10) of me –> 10 set a02Res to calcAcos(-1) of me –> 3.14159265359 set a03Res to calcAcosh(10) of me –> 2.993222846126 set a04Res to calcAsin(-1) of me –> -1.570796326795 set a05Res to calcAsinh(10) of me –> 2.998222950298 set a06Res to calcAtan(10) of me –> 1.471127674304 set a07Res to calcAtan2(10, 20) of me –> 0.463647609001 set a08Res to calcAtanh(0.5) of me –> 0.549306144334 set a09Res to calcCbrt(3) of me –> 1.442249570307 set a10Res to calcCeil(0.95) of me –> 1 set a11Res to calcClz32(1) of me –> 31 set a12Res to calcCos(1) of me –> 0.540302305868 set a13Res to calcCosh(1) of me –> 1.543080634815 set a14Res to calcExp(1) of me –> 2.718281828459 set a15Res to calcExpm1(-1) of me –> -0.632120558829 set a16Res to calcFloor(45.95) of me –> 45 set a17Res to calcFround(1.337) of me –> 1.337000012398 set a18Res to calcHypot({3, 4, 5}) of me –> 7.071067811865 set a19Res to calcImul(2, 5) of me –> 10 set a20Res to calcLog(10) of me –> 2.302585092994 set a21Res to calcLog10(2) of me –> 0.301029995664 set a22Res to calcLog1p(1) of me –> 0.69314718056 set a23Res to calcLog2(3) of me –> 1.584962500721 set a24Res to calcMax({1, 2, 3, 4, 6, 2, 10}) of me –> 10 set a25Res to calcMin({1, 2, 3, 4, 6, 2, 10, 0}) of me –> 0 set a26Res to calcPow(7, 2) of me set a27Res to calcRandom() of me set a28Res to calcRound(5.95) of me set a29Res to calcSign(0) of me –> -1/0/1 set a30Res to calcSin(pi / 2) of me –> 1 set a31Res to calcSinh(1) of me –> 1.175201193644 set a32Res to calcSqrt(2) of me –> 1.414213562373 set a33Res to calcTan(30) of me –> -6.405331196646 set a34Res to calcTanh(10) of me –> 0.999999995878 set a35Res to calcTrunc(13.37) of me –> 13 –数値の絶対値を返す on calcAbs(aNum as string) set aStr to "Math.abs(" & aNum & ")" return (run script aStr in "JavaScript") end calcAbs –アークコサインをラジアン単位で返す on calcAcos(aNum as string) set aStr to "Math.acos(" & aNum & ")" return (run script aStr in "JavaScript") end calcAcos –ハイパーボリックアークコサインを返す on calcAcosh(aNum as string) set aStr to "Math.acosh(" & aNum & ")" return (run script aStr in "JavaScript") end calcAcosh –アークサインをラジアン単位で返す on calcAsin(aNum as string) set aStr to "Math.asin(" & aNum & ")" return (run script aStr in "JavaScript") end calcAsin –ハイパーボリックアークサインを返す on calcAsinh(aNum as string) set aStr to "Math.asinh(" & aNum & ")" return (run script aStr in "JavaScript") end calcAsinh –アークタンジェントをラジアン単位で返す on calcAtan(aNum as string) set aStr to "Math.atan(" & aNum & ")" return (run script aStr in "JavaScript") end calcAtan –アークタンジェントを返す on calcAtan2(aNum as string, bNum as string) set aStr to "Math.atan2(" & aNum & ", " & bNum & ")" return (run script aStr in "JavaScript") end calcAtan2 –ハイパーボリックアークタンジェントを返す on calcAtanh(aNum as string) set aStr to "Math.atanh(" & aNum & ")" return (run script aStr in "JavaScript") end calcAtanh –引数として与えた数の立方根を返す on calcCbrt(aNum as string) set aStr to "Math.cbrt(" & aNum & ")" return (run script aStr in "JavaScript") end calcCbrt –引数として与えた数以上の最小の整数を返す on calcCeil(aNum as string) set aStr to "Math.ceil(" & aNum & ")" return (run script aStr in "JavaScript") end calcCeil –引数として与えた数以上の最小の整数を返す on calcClz32(aNum as string) set aStr to "Math.clz32(" & aNum & ")" return (run script aStr in "JavaScript") end calcClz32 –引数として与えた数のコサインを返す on calcCos(aNum as string) set aStr to "Math.cos(" & aNum & ")" return (run script aStr in "JavaScript") end calcCos –引数として与えた数のハイパーボリックコサインを返す on calcCosh(aNum as string) set aStr to "Math.cosh(" & aNum & ")" return (run script aStr in "JavaScript") end calcCosh –Ex を返す。ここでの x は引数、E は、自然対数の底であるネイピア数（オイラー数） on calcExp(aNum as string) set aStr to "Math.exp(" & aNum & ")" return (run script aStr in "JavaScript") end calcExp –ex – 1 を返す。x は引数で、e は自然対数の底 on calcExpm1(aNum as string) set aStr to "Math.expm1(" & aNum & ")" return (run script aStr in "JavaScript") end calcExpm1 –引数として与えた数以下の最大の整数を返す on calcFloor(aNum as string) set aStr to "Math.floor(" & aNum & ")" return (run script aStr in "JavaScript") end calcFloor –引数として与えた数の最も近い単精度 floatを返す on calcFround(aNum as string) set aStr to "Math.fround(" & aNum & ")" return (run script aStr in "JavaScript") end calcFround –引数の二乗和の平方根を返す on calcHypot(aList as list) set bStr to retArrowText(aList, ", ") of me set aStr to "Math.hypot(" & bStr & ")" return (run script aStr in "JavaScript") end calcHypot — 2 つの引数をとり、C 言語の様な 32 ビット乗算の結果を返す on calcImul(aNum as string, bNum as string) set aStr to "Math.imul(" & aNum & ", " & bNum & ")" return (run script aStr in "JavaScript") end calcImul — 引数として与えた数の自然対数 (底は e) を返す on calcLog(aNum as string) set aStr to "Math.log(" & aNum & ")" return (run script aStr in "JavaScript") end calcLog — 引数として与えた数に対して、10を底とする対数を返す on calcLog10(aNum as string) set aStr to "Math.log10(" & aNum & ")" return (run script aStr in "JavaScript") end calcLog10 — 引数として与えた数と 1 の合計の自然対数(底 e)を返す on calcLog1p(aNum as string) set aStr to "Math.log1p(" & aNum & ")" return (run script aStr in "JavaScript") end calcLog1p — 引数として与えた数の2を底とする対数を返す on calcLog2(aNum as string) set aStr to "Math.log2(" & aNum & ")" return (run script aStr in "JavaScript") end calcLog2 –引数として与えた複数の数の中で最大の数を返す on calcMax(aList as list) set bStr to retArrowText(aList, ", ") of me set aStr to "Math.max(" & bStr & ")" return (run script aStr in "JavaScript") end calcMax –引数として与えた複数の数の中で最小の数を返す on calcMin(aList as list) set bStr to retArrowText(aList, ", ") of me set aStr to "Math.min(" & bStr & ")" return (run script aStr in "JavaScript") end calcMin –引数として与えた複数の数の中で最小の数を返す on calcPow(aNum as string, bNum as string) set aStr to "Math.pow(" & aNum & ", " & bNum & ")" return (run script aStr in "JavaScript") end calcPow –（0以上、1未満）の範囲で浮動小数点の擬似乱数を返す on calcRandom() set aStr to "Math.random()" return (run script aStr in "JavaScript") end calcRandom –引数として与えた数を四捨五入して、もっとも近似の整数を返す on calcRound(aNum as string) set aStr to "Math.round(" & aNum & ")" return (run script aStr in "JavaScript") end calcRound –引数として与えた数が正、負、0 のどれであるか示す符号を返す on calcSign(aNum as string) set aStr to "Math.sign(" & aNum & ")" return (run script aStr in "JavaScript") end calcSign –引数として与えた数のサイン（正弦）を返す on calcSin(aNum as string) set aStr to "Math.sin(" & aNum & ")" return (run script aStr in "JavaScript") end calcSin –引数として与えた数のハイパーボリックサインを返す on calcSinh(aNum as string) set aStr to "Math.sinh(" & aNum & ")" return (run script aStr in "JavaScript") end calcSinh –引数として与えた数の平方根を返す on calcSqrt(aNum as string) set aStr to "Math.sqrt(" & aNum & ")" return (run script aStr in "JavaScript") end calcSqrt –引数として与えた数のタンジェントを返す on calcTan(aNum as string) set aStr to "Math.tan(" & aNum & ")" return (run script aStr in "JavaScript") end calcTan –引数として与えた数のハイパーボリックタンジェントを返す on calcTanh(aNum as string) set aStr to "Math.tanh(" & aNum & ")" return (run script aStr in "JavaScript") end calcTanh –引数として与えた数の小数部の桁を取り除いて整数部を返す on calcTrunc(aNum as string) set aStr to "Math.trunc(" & aNum & ")" return (run script aStr in "JavaScript") end calcTrunc –Sub Routines –リストを指定デリミタをはさんでテキスト化 on retArrowText(aList, aDelim) –自分のASでよく使うハンドラ名称なので、同じものを用意 set anArray to current application’s NSArray’s arrayWithArray:aList set aRes to anArray’s componentsJoinedByString:aDelim return aRes as text end retArrowText (* –run scriptコマンドに問題が出た場合にはJavaScriptCoreなどで実行してもよさそう on run script aStr in osaLangName display dialog aStr end run script *) |
指定のrecord in listからTag CloudっぽいRTFファイルをデスクトップに生成するAppleScriptです。
以前からTag Cloudを出力するフレームワークやObjective-Cのプログラムを探していたのですが、なかなか具合のいいものがありませんでした。
動作原理を考えたら割と簡単そうだったので、仕方なく自分で作ることに。
作ってみて「そんなに難しくない」ことはわかりましたが、まだまだ自分が望むようなものにはなっていません。とりあえず「まあそんなもんだよね」という程度のものです。
set tagList to {{tagname:”AirServer”, tagcount:2}, {tagname:”App Store”, tagcount:1}, {tagname:”Calendar”, tagcount:3}, {tagname:”Contacts”, tagcount:1}, {tagname:”CotEditor”, tagcount:27}, {tagname:”Dictionary”, tagcount:9}, {tagname:”Dock”, tagcount:7}, {tagname:”Evernote”, tagcount:2}, {tagname:”Finder”, tagcount:20}, {tagname:”HelpViewer”, tagcount:2}, {tagname:”HoudahSpot”, tagcount:1}, {tagname:”iBooks”, tagcount:1}, {tagname:”Image Events”, tagcount:1}, {tagname:”iTunes”, tagcount:12}, {tagname:”JeditΩ”, tagcount:3}, {tagname:”Keynote”, tagcount:14}, {tagname:”Mac Blu-ray Player”, tagcount:1}, {tagname:”MacDown”, tagcount:3}, {tagname:”Mail”, tagcount:6}, {tagname:”Maps”, tagcount:3}, {tagname:”mi”, tagcount:2}, {tagname:”Numbers”, tagcount:8}, {tagname:”Pages”, tagcount:2}, {tagname:”Preview.app”, tagcount:2}, {tagname:”QuickTime Player”, tagcount:8}, {tagname:”Reminders”, tagcount:1}, {tagname:”Safari”, tagcount:13}, {tagname:”Script Debugger”, tagcount:1}, {tagname:”Script Editor”, tagcount:7}, {tagname:”Sorting”, tagcount:5}, {tagname:”Spell check”, tagcount:3}, {tagname:”System Events”, tagcount:6}, {tagname:”Terminal”, tagcount:4}, {tagname:”TextEdit”, tagcount:12}, {tagname:”Twitter”, tagcount:1}, {tagname:”Xcode”, tagcount:2}}
という入力から、
というタグクラウドのRTFをデスクトップに書き出します。処理時間は開発環境（MacBook Pro Retina 2012 Core i7 2.66GHz）で0.08秒ぐらいです。
本当は、こんな１次元で連続した内容ではなく、２次元で各タグを分離したオブジェクトとして平面上に配置し、かつ、大きな文字の内容を中心部に配置するとか、間を詰めるために縦方向に回転させたタグも入れるとか、そういう感じの処理を（自動で）行いたいところなので、このレベルだと「ただタグとして並んでいるだけ」で満足できません。
最終的には、日本語のテキストを形態素解析して固有名詞のみ抽出し、出現頻度の高いものをタグクラウドで並べることで内容を把握しやすくする、といった処理を行いたいところです。
| AppleScript名：Tag CloudっぽいRTFの作成 |
| — Created 2018-06-06 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.5" use scripting additions use framework "Foundation" use framework "AppKit" property NSFont : a reference to current application’s NSFont property NSUUID : a reference to current application’s NSUUID property NSColor : a reference to current application’s NSColor property NSString : a reference to current application’s NSString property Board2D : a reference to current application’s Board2D property Pathfinder : a reference to current application’s Pathfinder property NSDictionary : a reference to current application’s NSDictionary property NSLiteralSearch : a reference to current application’s NSLiteralSearch property NSMutableArray : a reference to current application’s NSMutableArray property NSFontAttributeName : a reference to current application’s NSFontAttributeName property NSMutableAttributedString : a reference to current application’s NSMutableAttributedString property NSForegroundColorAttributeName : a reference to current application’s NSForegroundColorAttributeName property NSDocumentTypeDocumentAttribute : a reference to current application’s NSDocumentTypeDocumentAttribute set tagList to {{tagname:"AirServer", tagcount:2}, {tagname:"App Store", tagcount:1}, {tagname:"Calendar", tagcount:3}, {tagname:"Contacts", tagcount:1}, {tagname:"CotEditor", tagcount:27}, {tagname:"Dictionary", tagcount:9}, {tagname:"Dock", tagcount:7}, {tagname:"Evernote", tagcount:2}, {tagname:"Finder", tagcount:20}, {tagname:"HelpViewer", tagcount:2}, {tagname:"HoudahSpot", tagcount:1}, {tagname:"iBooks", tagcount:1}, {tagname:"Image Events", tagcount:1}, {tagname:"iTunes", tagcount:12}, {tagname:"JeditΩ", tagcount:3}, {tagname:"Keynote", tagcount:14}, {tagname:"Mac Blu-ray Player", tagcount:1}, {tagname:"MacDown", tagcount:3}, {tagname:"Mail", tagcount:6}, {tagname:"Maps", tagcount:3}, {tagname:"mi", tagcount:2}, {tagname:"Numbers", tagcount:8}, {tagname:"Pages", tagcount:2}, {tagname:"Preview.app", tagcount:2}, {tagname:"QuickTime Player", tagcount:8}, {tagname:"Reminders", tagcount:1}, {tagname:"Safari", tagcount:13}, {tagname:"Script Debugger", tagcount:1}, {tagname:"Script Editor", tagcount:7}, {tagname:"Sorting", tagcount:5}, {tagname:"Spell check", tagcount:3}, {tagname:"System Events", tagcount:6}, {tagname:"Terminal", tagcount:4}, {tagname:"TextEdit", tagcount:12}, {tagname:"Twitter", tagcount:1}, {tagname:"Xcode", tagcount:2}} set targFontName to "Courier-Bold" –PostScript Name set tagArray to current application’s NSMutableArray’s arrayWithArray:tagList set aMax to (tagArray’s valueForKeyPath:"@max.tagcount") as list of string or string –as anything set aMin to (tagArray’s valueForKeyPath:"@min.tagcount") as list of string or string –as anything set strList to tagArray’s valueForKey:"tagname" set strAll to retArrowText(strList, " ") of me set strAll to " " & strAll & " " set anAttr to current application’s NSMutableAttributedString’s alloc()’s initWithString:strAll repeat with i in tagList set aName to (tagname of i) as string set aNum to (tagcount of i) as number if aNum > (aMax * 0.8) then set aFontSize to 48 set aColor to current application’s NSColor’s redColor() else if aNum > (aMax * 0.6) then set aFontSize to 36 set aColor to current application’s NSColor’s orangeColor() else if aNum > (aMax * 0.4) then set aFontSize to 22 set aColor to current application’s NSColor’s greenColor() else set aFontSize to 16 set aColor to current application’s NSColor’s blackColor() end if set aFont to (current application’s NSFont’s fontWithName:targFontName |size|:aFontSize) –Caution: Call by Reference markCharOfAttributedString(anAttr, strAll, " " & aName & " ", aColor, aFont) of me end repeat –結果のRTFをデスクトップ上に書き出す。ファイル名はUUID.rtf set targFol to current application’s NSHomeDirectory()’s stringByAppendingPathComponent:"Desktop" set aRes to my saveStyledTextAsRTF(targFol, anAttr) –指定のAttributed String内で指定文字列が含まれる箇所に指定の色をつける（結果はメイン側に参照渡し） on markCharOfAttributedString(anAttr, origStr, aTargStr, aColor, aFont) set rList to searchWordWithRange(origStr, aTargStr) of me repeat with ii in rList (anAttr’s addAttribute:(NSForegroundColorAttributeName) value:aColor range:ii) (anAttr’s addAttribute:(NSFontAttributeName) value:aFont range:ii) end repeat end markCharOfAttributedString –指定の文字列をAttributed Stringに変換して任意のフォントを一括指定 on changeAttrStrsFontAttribute(aStr, aFontPSName, aFontSize) set tmpAttr to NSMutableAttributedString’s alloc()’s initWithString:aStr set aRange to current application’s NSMakeRange(0, tmpAttr’s |length|()) set aVal1 to NSFont’s fontWithName:aFontPSName |size|:aFontSize tmpAttr’s beginEditing() tmpAttr’s addAttribute:(NSFontAttributeName) value:aVal1 range:aRange tmpAttr’s endEditing() return tmpAttr end changeAttrStrsFontAttribute –スタイル付きテキストを指定フォルダ（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 –指定テキストデータ（atargText）内に、指定文字列（aSearchStr）が含まれる範囲情報（NSRange）をすべて取得する on searchWordWithRange(aTargText, aSearchStr) set aStr to NSString’s stringWithString:aTargText set bStr to NSString’s stringWithString:aSearchStr set hitArray to NSMutableArray’s alloc()’s init() set cNum to (aStr’s |length|()) as integer set aRange to current application’s NSMakeRange(0, cNum) repeat set detectedRange to aStr’s rangeOfString:bStr options:NSLiteralSearch range:aRange set aLoc to (detectedRange’s location) –CAUTION !!!! Sometimes aLoc returns not NSNotFound (-1) but a Very large number if (aLoc > 9.999999999E+9) or (aLoc = (current application’s NSNotFound)) then exit repeat hitArray’s addObject:detectedRange set aNum to aLoc as integer set bNum to (detectedRange’s |length|) as integer set aRange to current application’s NSMakeRange(aNum + bNum, cNum – (aNum + bNum)) end repeat return hitArray end searchWordWithRange –リストを指定デリミタをはさんでテキスト化 on retStrFromArrayWithDelimiter(aList, aDelim) set anArray to current application’s NSArray’s arrayWithArray:aList set aRes to anArray’s componentsJoinedByString:aDelim return aRes as list of string or string end retStrFromArrayWithDelimiter on retArrowText(aList, aDelim) –自分のASでよく使うハンドラ名称なので、同じものを用意 return my retStrFromArrayWithDelimiter(aList, aDelim) end retArrowText –テキストを指定デリミタでリスト化 on parseByDelim(aData, aDelim) set aText to current application’s NSString’s stringWithString:aData set aList to aText’s componentsSeparatedByString:aDelim return aList as list end parseByDelim |
Finder上で選択中のPDFを反時計方向に90°回転（＝時計方向に270°回転）させるAppleScriptです。
Finder上で選択中の項目の中にPDF以外のものがあった場合には処理をスキップし、選択中のアイテムがない場合には処理を行いません。
実際には、macOS標準装備のScript Menuに、それぞれの角度（90°、180°、270°）への回転Scriptを個別に入れて使っています。１本のScriptで角度入力を行って回転させるよりも、あらかじめ固定の角度に回転させるものを複数用意しておいたほうが使い勝手がよいためです。
ドキュメントスキャナで紙の資料をPDFにスキャンするような時に、紙がヨレていて１枚ずつでないとスキャンできないような場合で、さらに穴が空いていたりヨレていて通常方向に紙を入れられなかった場合に、他の方向に入れてスキャンしておき、本Scriptのようなプログラムであとでまとめて回転させるなどの処理をよく行っています。
| AppleScript名：Finderで選択中のPDFを反時計方向に90°回転させる |
| — Created 2018-05-26 by Takaaki Naganoya — Modified 2018-06-02 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use framework "Quartz" property |NSURL| : a reference to current application’s |NSURL| property NSUUID : a reference to current application’s NSUUID property NSArray : a reference to current application’s NSArray property NSString : a reference to current application’s NSString property NSPredicate : a reference to current application’s NSPredicate property PDFDocument : a reference to current application’s PDFDocument property NSFileManager : a reference to current application’s NSFileManager property NSURLPathKey : a reference to current application’s NSURLPathKey property NSMutableArray : a reference to current application’s NSMutableArray property NSSortDescriptor : a reference to current application’s NSSortDescriptor property NSURLIsPackageKey : a reference to current application’s NSURLIsPackageKey property NSURLIsDirectoryKey : a reference to current application’s NSURLIsDirectoryKey property NSURLTypeIdentifierKey : a reference to current application’s NSURLTypeIdentifierKey property NSURLContentModificationDateKey : a reference to current application’s NSURLContentModificationDateKey property NSDirectoryEnumerationSkipsHiddenFiles : a reference to current application’s NSDirectoryEnumerationSkipsHiddenFiles set targDegree to 270 — targDegree have to be in {0, 90, 180, 270, 360} in clockwise –set inFiles to (choose file of type {"pdf"} with prompt "Choose your PDF files:" with multiple selections allowed) tell application "Finder" set inFiles to selection as alias list end tell if inFiles = {} then return –指定のAlias listのうちPDFのみ抽出 set filRes1 to filterAliasListByUTI(inFiles, "com.adobe.pdf") of me if filRes1 = {} then return –選択中のファイルのうちの１つから親フォルダを求め、出力先ファイルパスを組み立てる set outPathTarg to POSIX path of (first item of filRes1) set pathString to NSString’s stringWithString:outPathTarg set newPath to (pathString’s stringByDeletingLastPathComponent()) as string repeat with i in filRes1 set destPosixPath to newPath & "/" & ((NSUUID’s UUID()’s UUIDString()) as string) & ".pdf" rotatePDFandSaveAt(i, destPosixPath, targDegree) of me end repeat –与えられたPOSIX pathのPDFを指定の角度に回転させて新規指定パスに書き出す on rotatePDFandSaveAt(oldPath as string, newPath as string, aDegree as integer) –Error Check if aDegree is not in {0, 90, 180, 270, 360} then error "Wrong Degree" set aURL to current application’s |NSURL|’s fileURLWithPath:oldPath set aPDFdoc to PDFDocument’s alloc()’s initWithURL:aURL set pCount to aPDFdoc’s pageCount() –count pages –Make Blank PDF set newPDFdoc to PDFDocument’s alloc()’s init() –Rotate Each Page repeat with i from 0 to (pCount – 1) set aPage to (aPDFdoc’s pageAtIndex:i) –Set Degree set curDegree to aPage’s |rotation|() –Get Current Degree (aPage’s setRotation:(aDegree + curDegree)) –Set New Degree (newPDFdoc’s insertPage:aPage atIndex:i) end repeat set aRes to newPDFdoc’s writeToFile:newPath return aRes as boolean end rotatePDFandSaveAt –Alias listから指定UTIに含まれるものをPOSIX pathのリストで返す on filterAliasListByUTI(aList, targUTI) set newList to {} repeat with i in aList set j to POSIX path of i set tmpUTI to my retUTIfromPath(j) set utiRes to my filterUTIList({tmpUTI}, targUTI) if utiRes is not equal to {} then set the end of newList to j end if end repeat return newList end filterAliasListByUTI –指定のPOSIX pathのファイルのUTIを求める on retUTIfromPath(aPOSIXPath) set aURL to |NSURL|’s fileURLWithPath:aPOSIXPath set {theResult, theValue} to aURL’s getResourceValue:(reference) forKey:NSURLTypeIdentifierKey |error|:(missing value) if theResult = true then return theValue as string else return theResult end if end retUTIfromPath –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 |
Finder上で選択中の画像をアンチエイリアスなしで200％にリサイズするAppleScriptです。
よく使う拡大/縮小倍率のScriptを用意してmacOS標準装備のScript Menuに入れておき、Menuから呼び出して使っています。
| AppleScript名：Finder上で選択中の画像をアンチエイリアスなしで200%にリサイズ |
| — Created 2014-02-21 Shane Stanley — Modified 2018-06-01 Takaaki Naganoya use AppleScript version "2.5" use scripting additions use framework "Foundation" use framework "AppKit" 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 zoomPercent to 2.0 tell application "Finder" set inFiles to selection as alias list end tell –指定のAlias listのうち画像のみ抽出 set filRes1 to filterAliasListByUTI(inFiles, "public.image") of me if filRes1 = {} then return –選択中のファイルのうちの１つから親フォルダを求め、出力先ファイルパスを組み立てる set outPathTarg to POSIX path of (first item of filRes1) set pathString to current application’s NSString’s stringWithString:outPathTarg set newPath to (pathString’s stringByDeletingLastPathComponent()) as string repeat with i in filRes1 set outPOSIXpath to newPath & "/" & (current application’s NSUUID’s UUID()’s UUIDString()) as string set aNSImage to (current application’s NSImage’s alloc()’s initWithContentsOfFile:(i)) set theImage to (my resizeNSImageWithoutAntlialias:aNSImage toScale:zoomPercent) –ファイルパスの拡張子を取得する set pathString to (current application’s NSString’s stringWithString:i) set fileExt to (pathString’s pathExtension()) as string set newPath to outPOSIXpath & "." & fileExt –元画像のファイルファイルフォーマットに合わせて同じフォーマットに if fileExt is in {"png", "PNG"} then my saveNSImageAtPathAsPNG(theImage, newPath) else if fileExt is in {"jpg", "jpeg"} then my saveNSImageAtPathAsJPG(theImage, newPath, 1.0 as real) else if fileExt is in {"tif", "tiff"} then my saveNSImageAtPathAsTIFF(theImage, newPath) else if fileExt is in {"bmp"} then my saveNSImageAtPathAsBMP(theImage, newPath) end if end repeat –NSImageを指定倍率で拡大（アンチエイリアス解除状態で） on resizeNSImageWithoutAntlialias:aSourceImg toScale:imgScale set aSize to aSourceImg’s |size|() set aWidth to (aSize’s width) * imgScale set aHeight to (aSize’s height) * imgScale set aRep to current application’s NSBitmapImageRep’s alloc()’s initWithBitmapDataPlanes:(missing value) pixelsWide:aWidth pixelsHigh:aHeight bitsPerSample:8 samplesPerPixel:4 hasAlpha:true isPlanar:false colorSpaceName:(current application’s NSCalibratedRGBColorSpace) bytesPerRow:0 bitsPerPixel:0 set newSize to {width:aWidth, height:aHeight} aRep’s setSize:newSize current application’s NSGraphicsContext’s saveGraphicsState() set theContext to current application’s NSGraphicsContext’s graphicsContextWithBitmapImageRep:aRep current application’s NSGraphicsContext’s setCurrentContext:theContext theContext’s setShouldAntialias:false theContext’s setImageInterpolation:(current application’s NSImageInterpolationNone) aSourceImg’s drawInRect:(current application’s NSMakeRect(0, 0, aWidth, aHeight)) fromRect:(current application’s NSZeroRect) operation:(current application’s NSCompositeCopy) fraction:(1.0) current application’s NSGraphicsContext’s restoreGraphicsState() set newImg to current application’s NSImage’s alloc()’s initWithSize:newSize newImg’s addRepresentation:aRep return newImg end resizeNSImageWithoutAntlialias:toScale: –Alias listから指定UTIに含まれるものをPOSIX pathのリストで返す on filterAliasListByUTI(aList, targUTI) set newList to {} repeat with i in aList set j to POSIX path of i set tmpUTI to my retUTIfromPath(j) set utiRes to my filterUTIList({tmpUTI}, targUTI) if utiRes is not equal to {} then set the end of newList to j end if end repeat return newList end filterAliasListByUTI –指定のPOSIX pathのファイルのUTIを求める on retUTIfromPath(aPOSIXPath) set aURL to |NSURL|’s fileURLWithPath:aPOSIXPath set {theResult, theValue} to aURL’s getResourceValue:(reference) forKey:NSURLTypeIdentifierKey |error|:(missing value) if theResult = true then return theValue as string else return theResult end if end retUTIfromPath –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 –NSImageを指定パスにJPEG形式で保存、qulityNumは0.0〜1.0。1.0は無圧縮 on saveNSImageAtPathAsJPG(anImage, outPath, qulityNum as real) set imageRep to anImage’s TIFFRepresentation() set aRawimg to current application’s NSBitmapImageRep’s imageRepWithData:imageRep set pathString to current application’s NSString’s stringWithString:outPath set newPath to pathString’s stringByExpandingTildeInPath() set myNewImageData to (aRawimg’s representationUsingType:(current application’s NSJPEGFileType) |properties|:{NSImageCompressionFactor:qulityNum}) set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean return aRes –true/false end saveNSImageAtPathAsJPG –NSImageを指定パスにTIFF形式で保存 on saveNSImageAtPathAsTIFF(anImage, outPath) set imageRep to anImage’s TIFFRepresentation() set aRawimg to current application’s NSBitmapImageRep’s imageRepWithData:imageRep set pathString to current application’s NSString’s stringWithString:outPath set newPath to pathString’s stringByExpandingTildeInPath() set myNewImageData to (aRawimg’s representationUsingType:(current application’s NSTIFFFileType) |properties|:(missing value)) set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean return aRes –true/false end saveNSImageAtPathAsTIFF –NSImageを指定パスにPNG形式で保存 on saveNSImageAtPathAsPNG(anImage, outPath) set imageRep to anImage’s TIFFRepresentation() set aRawimg to current application’s NSBitmapImageRep’s imageRepWithData:imageRep set pathString to current application’s NSString’s stringWithString:outPath set newPath to pathString’s stringByExpandingTildeInPath() set myNewImageData to (aRawimg’s representationUsingType:(current application’s NSPNGFileType) |properties|:(missing value)) set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean return aRes –true/false end saveNSImageAtPathAsPNG –NSImageを指定パスにBMP形式で保存 on saveNSImageAtPathAsBMP(anImage, outPath) set imageRep to anImage’s TIFFRepresentation() set aRawimg to current application’s NSBitmapImageRep’s imageRepWithData:imageRep set pathString to current application’s NSString’s stringWithString:outPath set newPath to pathString’s stringByExpandingTildeInPath() set myNewImageData to (aRawimg’s representationUsingType:(current application’s NSBMPFileType) |properties|:(missing value)) set aRes to (myNewImageData’s writeToFile:newPath atomically:true) as boolean return aRes –true/false end saveNSImageAtPathAsBMP |
Finder上で選択中の画像をアンチエイリアスありで50％にリサイズするAppleScriptです。
よく使う拡大/縮小倍率のScriptを用意してmacOS標準装備のScript Menuに入れておき、Menuから呼び出して使っています。
| AppleScript名：Finder上で選択中の画像をアンチエイリアスありで50%にリサイズ |
| — Created 2014-02-21 Shane Stanley — Modified 2018-06-01 Takaaki Naganoya use AppleScript version "2.5" use scripting additions use framework "Foundation" use framework "AppKit" 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 zoomPercent to 0.5 tell application "Finder" set inFiles to selection as alias list end tell –指定のAlias listのうち画像のみ抽出 set filRes1 to filterAliasListByUTI(inFiles, "public.image") of me if filRes1 = {} then return –選択中のファイルのうちの１つから親フォルダを求め、出力先ファイルパスを組み立てる set outPathTarg to POSIX path of (first item of filRes1) set pathString to current application’s NSString’s stringWithString:outPathTarg set newPath to (pathString’s stringByDeletingLastPathComponent()) as string repeat with i in filRes1 set outPOSIXpath to newPath & "/" & (current application’s NSUUID’s UUID()’s UUIDString()) as string set fRes1 to resizeImage(i, outPOSIXpath, zoomPercent) of me end repeat on resizeImage(imagePath, newPath, aZoom as real) –ファイルパスの拡張子を取得する set pathString to current application’s NSString’s stringWithString:imagePath set fileExt to (pathString’s pathExtension()) as string –画像ファイルをNSImageに読み込み set theImage to current application’s NSImage’s alloc()’s initWithContentsOfFile:imagePath — load the file as an NSImage — calculate required sizes set theSize to (theImage’s |size|()) as record set oldWidth to width of theSize set oldHeight to height of theSize set theWidth to oldWidth * aZoom set theHeight to oldHeight * aZoom set newImage to current application’s NSImage’s alloc()’s initWithSize:(current application’s NSMakeSize(theWidth, theHeight)) newImage’s lockFocus() theImage’s drawInRect:{origin:{x:0, y:0}, |size|:{width:theWidth, height:theHeight}} fromRect:(current application’s NSZeroRect) operation:(current application’s NSCompositeSourceOver) fraction:1.0 newImage’s unlockFocus() set theData to newImage’s TIFFRepresentation() set newRep to current application’s NSBitmapImageRep’s imageRepWithData:theData –元画像のファイルファイルフォーマットに合わせて同じフォーマットに if fileExt is in {"png", "PNG"} then set theData to (newRep’s representationUsingType:(current application’s NSPNGFileType) |properties|:{NSImageGamma:1.0}) else if fileExt is in {"jpg", "jpeg"} then set theData to (newRep’s representationUsingType:(current application’s NSJPEGFileType) |properties|:{NSImageCompressionFactor:1.0}) else if fileExt is in {"tif", "tiff"} then set theData to (newRep’s representationUsingType:(current application’s NSTIFFFileType) |properties|:(missing value)) else if fileExt is in {"bmp"} then set theData to (newRep’s representationUsingType:(current application’s NSBMPFileType) |properties|:(missing value)) end if set newPath to newPath & "." & fileExt return (theData’s writeToFile:newPath atomically:true) end resizeImage –Alias listから指定UTIに含まれるものをPOSIX pathのリストで返す on filterAliasListByUTI(aList, targUTI) set newList to {} repeat with i in aList set j to POSIX path of i set tmpUTI to my retUTIfromPath(j) set utiRes to my filterUTIList({tmpUTI}, targUTI) if utiRes is not equal to {} then set the end of newList to j end if end repeat return newList end filterAliasListByUTI –指定のPOSIX pathのファイルのUTIを求める on retUTIfromPath(aPOSIXPath) set aURL to |NSURL|’s fileURLWithPath:aPOSIXPath set {theResult, theValue} to aURL’s getResourceValue:(reference) forKey:NSURLTypeIdentifierKey |error|:(missing value) if theResult = true then return theValue as string else return theResult end if end retUTIfromPath –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 |
各デスクトップに設定してあるデスクトップピクチャのパスをもとめ、Preview.appでオープンするAppleScriptです。
こんな感じに複数のディスプレイにデスクトップピクチャが設定してある状態で実行すると、
すべてのディスプレイのデスクトップピクチャの画像をPreview.appでオープンします。
Keynoteで資料を作っているときに、デスクトップのキャプチャを行なったような場合に、デスクトップピクチャを含めて合成できたほうが便利なケースがあって、そのようなときに書いた「作り捨て」レベルのScriptです。
| AppleScript名：各デスクトップのデスクトップピクチャをPreviewでオープン |
| tell application "System Events" set aList to picture of every desktop end tell repeat with i in aList try set targFile to (POSIX file i) as alias tell application "Preview" open targFile end tell end try end repeat |
HoudahSpotの各種コントロールを行うAppleScriptです。
HoudahSpotは、Spotlightの検索を行うアプリケーションで、AppleScript対応しています。
検索自体は非同期で実行され、検索が終了したかどうかは最前面のドキュメント（front document）のプロパティ「search completed」がtrueになるかどうかをループで確認することになります。このさい、delayコマンドで時間待ちしないと負荷が高くなって全体のパフォーマンスが低下するので、0.1秒ぐらいの時間待ちを行うのが非同期アプリケーションのコントロール時の「お約束」です（Xcodeとか）。
HoudahSpotの検索条件についてはAppleScriptから一切コントロールできないので、HoudahSpot書類に保存しておいてオープンして再検索を行うという利用スタイルを考えているのでしょう。
みどころは、Finderの最前面のウィンドウのパス以下を対象にSpotlight検索するfinder searchコマンド。ちょっと目の付け所がいいと思います。あと、HoudahSpot HelperをオンにするとStatus Bar上にmacOS純正のSpotlightアイコンと同様のアイコンが出てきて検索できます。これもいいと思います。
ただ、わざわざGUIアプリケーションで実行しなくても、AppleScriptから直接Spotlightの機能を呼び出せるので、HoudahSpotを利用する必然性があまり感じられません。
| AppleScript名：アプリケーションのプロパティを取得する |
| tell application "HoudahSpot" properties –> {frontmost:false, class:application, name:"HoudahSpot", version:"4.3.7"} end tell |
| AppleScript名：ドキュメントのプロパティを取得する |
| tell application "HoudahSpot" tell document 1 properties –> {modified:false, name:"Untitled", details pane visible:false, search completed:false, selection:{}, search active:false, file:missing value, results view:list view, search pane visible:true, class:document} end tell end tell |
| AppleScript名：ドキュメントをかぞえる |
| tell application "HoudahSpot" set dCount to count every document –> 1 end tell |
| AppleScript名：Windowのプロパティを取得する |
| tell application "HoudahSpot" tell window 1 properties –> {zoomable:true, closeable:true, current tab:tab 1 of window id 89717 of application "HoudahSpot", zoomed:false, class:window, index:1, visible:true, sidebar visible:false, name:"Untitled", toolbar visible:true, miniaturizable:true, id:89717, miniaturized:false, resizable:true, bounds:{0, 22, 1407, 797}, document:document "Untitled" of application "HoudahSpot"} end tell end tell |
| AppleScript名：WindowのTabをかぞえる |
| tell application "HoudahSpot" tell window 1 set tCount to count every tab –> 1 end tell end tell |
| AppleScript名：検索を実行 |
| tell application "HoudahSpot" search "Piyowolf" –> document "Untitled 3" of application "HoudahSpot" end tell |
| AppleScript名：検索結果のプロパティをすべて取得する |
| tell application "HoudahSpot" set resList to every result of front document set rList to {} repeat with i in resList set aRes to properties of i log aRes (*class:result, path:/Users/maro/Library/Mail/V4/DA40FA88-F9E4-45A0-A3C9-4DCD4DCE3C38/Sent Messages.mbox/8DD46D63-E6F7-4A3C-81DF-4D4FDBFBE19B/Data/7/9/0/2/Messages/2097257.emlx, id:/Users/maro/Library/Mail/V4/DA40FA88-F9E4-45A0-A3C9-4DCD4DCE3C38/Sent Messages.mbox/8DD46D63-E6F7-4A3C-81DF-4D4FDBFBE19B/Data/7/9/0/2/Messages/2097257.emlx, name: Yasu for Mac*) end repeat end tell |
| AppleScript名：検索結果をカウントする |
| tell application "HoudahSpot" set resCount to count every result of front document end tell |
| AppleScript名：キーワード検索して結果を取得する |
| tell application "HoudahSpot" set resDoc to search "AppleScriptObjC" repeat tell resDoc set resC to search completed end tell if resC is equal to true then exit repeat delay 0.1 end repeat set resList to count every result of front document end tell |
| AppleScript名：検索結果からフィルタ参照でしぼりこみ |
| tell application "HoudahSpot" set resList to every result of front document whose path ends with ".md" end tell |
| AppleScript名：検索結果を指定パスに保存する |
| set aSavePath to choose file name
tell application "HoudahSpot" save front document in aSavePath end tell |
| AppleScript名：保存しておいた検索結果をオープンする |
| set aFile to choose file
tell application "HoudahSpot" open aFile end tell |
| AppleScript名：キーワードをFinderの最前面のウィンドウのパスを対象に検索 |
| tell application "HoudahSpot" set resDoc to finder search "EXIF" repeat tell resDoc set resC to search completed end tell if resC is equal to true then exit repeat delay 0.1 end repeat set resList to count every result of front document end tell |
Philによるちょっと古めのAppleScript関連ドキュメントPDFのアーカイブサイト「AppleScript Reference Library」の更新情報がAppleScript Users ML上で紹介されていました。
Appleが開発者向けに1990年代に刊行していた「Develop」掲載記事や「Inside Machintosh」掲載のAppleScript関連記事などがあらたに追加されたようです。
2000〜2009年ぐらいのドキュメントも割とレガシー入りしており見つけにくくなっているものが多く、そうした意味でもまとめてダウンロードできる同サイトはありがたいところです。
指定の画像からEXIF情報を取得し、撮影日付（DateTimeOriginal）を取得するAppleScriptです。
Image Eventsで取得するよりも、BridgePlusで取得するほうが高速だったので差し替えてみました。
| AppleScript名：指定の画像からEXIFの撮影日付（DateTimeOriginal）を取得 v2 |
| — Created 2014-12-14 by Takaaki Naganoya — 2014 Piyomaru Software use AppleScript version "2.4" use scripting additions use framework "Foundation" use BPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html property NSString : a reference to current application’s NSString property NSLocale : a reference to current application’s NSLocale property SMSForder : a reference to current application’s SMSForder property NSDateFormatter : a reference to current application’s NSDateFormatter set aTargFile to choose file of type {"public.image"} set exifRes to readExifDateTimeOriginal(aTargFile) of me –指定ファイルからのExifデータを取得し撮影日付を取得する on readExifDateTimeOriginal(aTargFileAlias) set theMetadata to readMetadataFrom(aTargFileAlias) of me set keysList to theMetadata’s allKeys() if "{Exif}" is not in (keysList as list) then return false set exifDate to theMetadata’s valueForKeyPath:"{Exif}.DateTimeOriginal" if exifDate = missing value then return false set fullDate to dateFromStringWithDateFormat(exifDate, "yyyy:MM:dd HH:mm:ss") of me return fullDate end readExifDateTimeOriginal –指定ファイルからのメタデータ読み込み on readMetadataFrom(imageFile) load framework set {theRecord, theError} to SMSForder’s metadataFromImage:imageFile |error|:(reference) if theRecord = missing value then — there was a problem, so extract the error description error (theError’s localizedDescription() as text) — number (theError’s code()) else return theRecord end if end readMetadataFrom –日付文字列を形式指定しつつdate objectに変換 on dateFromStringWithDateFormat(dateString, dateFormat) set dStr to NSString’s stringWithString:dateString set dateFormatStr to NSString’s stringWithString:dateFormat set aDateFormatter to NSDateFormatter’s alloc()’s init() aDateFormatter’s setDateFormat:dateFormatStr aDateFormatter’s setLocale:(NSLocale’s alloc()’s initWithLocaleIdentifier:"en_US_POSIX") set aDestDate to (aDateFormatter’s dateFromString:dStr) return aDestDate as list of string or string end dateFromStringWithDateFormat |
指定フォルダ内のすべてのJPEGファイルのEXIF情報から撮影日付を取得し、画像ファイルの作成日付に反映させるAppleScriptです。
写真.app（Photos.app）内で管理している大量の写真ファイルをいったんファイルに書き出して、DVD-Rにコピーして人に渡すときに、写真の作成日付が撮影日になっておらず、Finderなどのファイラー上で整理するのが大変でした。
ファイル書き出しなので仕方のないことですが、この仕様はいただけません。
かようにファイル作成日付が正しくない写真でも、EXIFに正しい撮影日付が保存されているケースが多い（ただし、完全にすべてではない）ため、EXIFの日付をAppleScriptで読み取ってファイル作成日付に反映させてみました。
写真.appなどのアプリケーションにインポートしてしまえばEXIF日付でソートされるので、あまり意味があるとも思えませんが、Finder上での写真整理のために実行してとりあえず走らせてみました。
| AppleScript名：EXIFから撮影日付を取得してファイルの作成日付に反映させる v2 |
| — Created 2018-05-30 by Takaaki Naganoya — 2018 Piyomaru Software use AppleScript version "2.5" use scripting additions use framework "Foundation" use framework "AppKit" script spd property fList : {} end script set renCount to 0 set (fList of spd) to {} set aFolder to (choose folder) set aDate to current date set (fList of spd) to getFilePathList(aFolder, "JPG") of me repeat with i in (fList of spd) set j to contents of i chkCreationDateAsExif(j) of me set renCount to renCount + 1 end repeat set bDate to current date return {bDate – aDate, renCount} on chkCreationDateAsExif(aFile) tell application "Image Events" launch set this_image to open (aFile as alias) try tell this_image set aVal to (value of metadata tag "creation") end tell on error return end try close this_image end tell set a to current application’s NSString’s stringWithString:aVal set {aDateStr, aTimeStr} to (a’s componentsSeparatedByString:" ") as list set bDateStr to repChar(aDateStr, ":", "/") of me set fullDate to date (bDateStr & " " & aTimeStr) set aDic to current application’s NSMutableDictionary’s dictionaryWithObject:fullDate forKey:(current application’s NSFileModificationDate) set aFM to current application’s NSFileManager’s defaultManager()’s setAttributes:aDic ofItemAtPath:(POSIX path of aFile) |error|:(missing value) end chkCreationDateAsExif –文字置換 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 on getFilePathList(aFol, aExt) set aFol to current application’s |NSURL|’s fileURLWithPath:(POSIX path of aFol) set aFM to current application’s NSFileManager’s defaultManager() set urlArray to aFM’s contentsOfDirectoryAtURL:aFol includingPropertiesForKeys:{} options:(current application’s NSDirectoryEnumerationSkipsHiddenFiles) |error|:(missing value) set thePred to current application’s NSPredicate’s predicateWithFormat:"pathExtension == [c]%@" argumentArray:{aExt} set anArray to urlArray’s filteredArrayUsingPredicate:thePred return anArray as list — URLs pre-10.11, files under 10.11 end getFilePathList |
