スポンサーサイト

Tags :
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

AppleScriptのシンタックスをハイライトするJavaScriptを少し改良

ウチのblogではAppleScriptとかJavaSciptのソースコードをいろいろ書き散らして晒してますが、ソースコードの構文を色分け表示するのに、AppleScriptの場合は自作のJavaScriptを使ってハイライト表示させています。(AppleScript以外のソースコードは、『SyntaxHighlighter』を利用)

で、今回ちょっと不具合があったのを直したついでに少し改良して、スクリプトエディタでの表示と同じ様に、主要な構文がボールドの文字で表示出来る様にしたのと、あとリストのラベル名やAppleEventが含まれるコードもできるだけスクリプトエディタでの色分けに合わせる様にしました。ソースコードのクリップボードへのコピーをする部分は、flashを使った外部のライブラリ『Zero Clipboard』を使っています。

<pre class="applescript">~</pre>でAppleScriptのソースを囲むとこんな感じに表示する様になってます。
on «event appSscrW» theObject given «class eveE»:theEvent
	set theValue to «class conT» of theObject as number
	(«class delY» of theEvent)
	set theValue to theValue + («class delY» of theEvent)
	set theEvent to theEvent
	set «class conT» of theObject to theValue
	tell window of theObject
		set contents of «class texF» "seconds" to contents of «class sliI» "secondsSlider"
		set secsToPlay to contents of «class texF» "seconds"
	end tell
end «event appSscrW»


on create_thumb(tgt_file, dest_file)
	tell application "Adobe Photoshop CS4"
		activate
		open tgt_file showing dialogs never
		set theDoc to current document
		tell theDoc
			if width > height then
				resize image width thumb_size as pixels resolution 72 resample method bicubic
			else
				resize image height thumb_size as pixels resolution 72 resample method bicubic
			end if
			change mode to RGB
			convert to profile "sRGB IEC61966-2.1" intent relative colorimetric with blackpoint compensation and dithering
			set save_opts to {class:JPEG save options, embed color profile:false, quality:10}
			save in file dest_file as JPEG with options save_opts appending no extension with copying
			close without saving
		end tell
	end tell
end create_thumb


(*  via MacWiki http://macwiki.sourceforge.jp/wiki/index.php/AppleScriptTips *)
set chars to {¬
	{uc:"A", lc:"a", ucj:"A", lcj:"a"}, {uc:"B", lc:"b", ucj:"B", lcj:"b"}, ¬
	{uc:"C", lc:"c", ucj:"C", lcj:"c"}, {uc:"D", lc:"d", ucj:"D", lcj:"d"}, ¬
	{uc:"E", lc:"e", ucj:"E", lcj:"e"}, {uc:"F", lc:"f", ucj:"F", lcj:"f"}, ¬
	{uc:"G", lc:"g", ucj:"G", lcj:"g"}, {uc:"H", lc:"h", ucj:"H", lcj:"h"}, ¬
	{uc:"I", lc:"i", ucj:"I", lcj:"i"}, {uc:"J", lc:"j", ucj:"J", lcj:"j"}, ¬
	{uc:"K", lc:"k", ucj:"K", lcj:"k"}, {uc:"L", lc:"l", ucj:"L", lcj:"l"}, ¬
	{uc:"M", lc:"m", ucj:"M", lcj:"m"}, {uc:"N", lc:"n", ucj:"N", lcj:"n"}, ¬
	{uc:"O", lc:"o", ucj:"O", lcj:"o"}, {uc:"P", lc:"p", ucj:"P", lcj:"p"}, ¬
	{uc:"Q", lc:"q", ucj:"Q", lcj:"q"}, {uc:"R", lc:"r", ucj:"R", lcj:"r"}, ¬
	{uc:"S", lc:"s", ucj:"S", lcj:"s"}, {uc:"T", lc:"t", ucj:"T", lcj:"t"}, ¬
	{uc:"U", lc:"u", ucj:"U", lcj:"u"}, {uc:"V", lc:"v", ucj:"V", lcj:"v"}, ¬
	{uc:"W", lc:"w", ucj:"W", lcj:"w"}, {uc:"X", lc:"x", ucj:"X", lcj:"x"}, ¬
	{uc:"Y", lc:"y", ucj:"Y", lcj:"y"}, {uc:"Z", lc:"z", ucj:"Z", lcj:"z"}}
set theText to "AppleScript アップルスクリプト AppleScript"
set newText to ""
repeat with aChar in every character of theText
	repeat with c in chars
		if aChar as string is uc of c then set aChar to lc of c -- tr/A-Z/a-z/
		-- if aChar as string is lc of c then set aChar to uc of c -- tr/a-z/A-Z/
	end repeat
	set newText to newText & aChar
end repeat
-- display dialog newText
クォートされた文字列を赤くしてるのは、ウチのblogにあるAppleScriptのコードはシェルとか他の言語に処理を投げてるのが多いので、その部分を目立つ様にするためです。

AppleScriptはアプリケーションの数だけ、それこそ無限にプロパティやメソッド等の予約語があるので、完璧に構文を正しく表示するのは難しいですが、基本的にこのJavaScriptでは『変数名とハンドラ名と記号と数字とコメントとクォートされた文字列以外はすべて予約語』として扱ってます。(で、イレギュラーなものを個別に登録して処理。)

変数名やハンドラかどうかは一旦コードを頭からスキャンして判断してるので、コードの一部を載せた様な場合いきなり変数名が出て来ても対応出来ず、スクリプトエディタでコンパイルが通る形のものでないときちんと処理出来ないという弱点はあります。

まあ、今後Adobeはアプリの新機能をAppleScriptでサポートしなくなるというのもあって、AppleScript書く事が少なくなってるので出番はあまり無いかも知れません。
関連記事
スポンサーサイト

コメント

非公開コメント

Profile
choco
Author : choco

印刷・製版の現場を経て、広告制作会社でPhotoshopを使ったビジュアル制作を担当。

→現在は車載機器開発ベンダにて、組み込み3Dデータ作成やUIデザインなどを行っています。

Categories
Favorites


Search
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。