MeryWiki - 利用者の投稿記録 [ja]

JavaScript を実行

2013-12-07T15:18:40Z

Snipsnipsnip:

選択範囲をevalして結果をその場に出します。電卓代わりにどうぞ。

== 置き換え版 ==
<source lang="javascript">
// JavaScriptを実行 (置き換え版).js

if (!document.selection.Text) {
document.selection.EndOfLine(false);
document.selection.StartOfLine(true);
}

if (document.selection.Text) {
document.selection.Text = eval(document.selection.Text)
}
</source>

== 挿入版 ==
<source lang="javascript">
// JavaScriptを実行.js (挿入版)

if (!document.selection.Text) {
document.selection.EndOfLine(false);
document.selection.StartOfLine(true);
}

if (document.selection.Text) {
document.selection.Text = document.selection.Text + ' => ' + eval(document.selection.Text)
}
</source>

== アウトプットバー版 ==
<source lang="javascript">
// JavaScriptを実行 (アウトプットバー版).js

if (!document.selection.Text) {
document.selection.EndOfLine(false);
document.selection.StartOfLine(true);
}

if (document.selection.Text) {
outputbar.visible = true;
// outputbar.Writeln(">> " + document.selection.Text)
outputbar.Writeln("=> " + eval(document.selection.Text).toString())
}
</source>

フォルダを開く

2013-11-20T05:34:44Z

Snipsnipsnip: r2: 編集中のファイルを選択するように

編集中のファイルのあるフォルダでエクスプローラを起動します。

ファイルがまだ無題の場合はデスクトップを開きます。

== 更新履歴 ==

* r1: 失念
* r2: 編集中のファイルを選択するように

<source lang="javascript">
// フォルダを開く.js r2

var shell = new ActiveXObject("WScript.Shell")

if (document.FullName == "")
{
shell.Run('explorer "' + shell.SpecialFolders("Desktop") + '"')
}
else
{
shell.Run('explorer /select, "' + document.FullName + '"')
}
</source>

フォルダツリーをポップアップ表示

2013-09-21T14:42:09Z

Snipsnipsnip: r2

今開いているファイルのフォルダの内容をポップアップで表示して、選択するとそのファイルを開きます。

手石さんの[[ポップアップメニューでファイル選択]]の下位互換です。手石さんのものはページ切り替えなどのボタンがあり、これよりも使いやすいと思います。

== インストール ==

#下のスクリプトをコピーして、MeryのMy Macroフォルダなどに保存
#マクロを[カスタマイズ]→[新規作成]で登録し、Alt+Pなどお好みで設定する

== カスタマイズ ==

変数を変えることで、挙動がいくらかカスタマイズできます。

{| border="1" style="width: 80%; margin-left: 2em; border-collapse: collapse"
! 名前 !! 初期設定 !! 効果
|-
| CONFIG.folder_pattern || <nowiki>/^[^\.]/</nowiki> || この正規表現にマッチするフォルダ名を一覧に含めます

初期設定では . で始まるフォルダを除外します
|-
| CONFIG.file_pattern || <nowiki>/^[^\.]/</nowiki> || この正規表現にマッチするファイル名を一覧に含めます

初期設定では . で始まるフォルダを除外します
|-
| CONFIG.file_ignore_pattern || <nowiki>/\.(?:png|jpg|gif|db|exe|dll|obj|tmp)$/i</nowiki> || この正規表現にマッチするファイル名は一覧から除きます

初期設定では画像ファイルなど適当に思いついたものを除外してあります
|-
| CONFIG.ignore_case || <nowiki>true</nowiki> || trueにすると一覧のソートで大文字小文字を無視します
|-
| CONFIG.sort_by_extension || <nowiki>true</nowiki> || trueにすると一覧で拡張子ごとにまとめます
|-
| CONFIG.sort_by_modified_time || <nowiki>false</nowiki> || trueにするとファイルの最終変更時間で降順にソートします

これをtrueにすると上2つの設定は無視されます
|}

== 更新履歴 ==

* r1(2013-09-10): 初版
* r2(2013-09-21): ディレクトリをまたぐと開けなかったバグ修正

== ソース ==

<source lang="javascript">
// 同じフォルダにあるファイルを開く.js r2
// もしくは簡易フォルダツリー

CONFIG = {}

/** 設定 **/

// 一覧に含めるフォルダ名の正規表現
CONFIG.folder_pattern = /^[^\.]/

// 一覧に含めるファイル名の正規表現
CONFIG.file_pattern = /^[^\.]/

// 別例: 現在のファイルと同じ拡張子だけ表示
// CONFIG.file_pattern = document.Name.indexOf('.') == -1 ? /./ : RegExp(document.Name.substr(document.Name.indexOf('.')), "i")

// 一覧から除外するファイル名の正規表現
CONFIG.file_ignore_pattern = /\.(?:png|jpg|gif|db|exe|dll|obj|tmp)$/i

// 大文字小文字を無視するならtrue、そうでなければfalse
CONFIG.ignore_case = true

// 拡張子ごとにまとめるならtrue、そうでなければfalse
CONFIG.sort_by_extension = true

// 時間でソートするならtrue、そうでなければfalse
CONFIG.sort_by_modified_time = false

/** 以下本体 **/

var FS = new ActiveXObject("Scripting.FileSystemObject")

function main()
{
var dir = document.Path
var choosed = choose(ls(dir))

while (choosed && /\/$/.test(choosed))
{
dir = FS.BuildPath(dir, choosed)
choosed = choose(ls(dir))
}

if (choosed)
{
var path = FS.BuildPath(dir, choosed).replace(/\//g, '\\')
editor.OpenFile(path, 0, meOpenAllowNewWindow)
}
}

function ls(path)
{
var folder = FS.GetFolder(path)

var folders = []
each_item(folder.SubFolders, function(e)
{
if (CONFIG.folder_pattern.test(e.Name))
{
folders.push(e.Name + "/")
}
})
folders.sort()

folders.unshift('../')

var files = []
each_item(folder.Files, function(e)
{
if (CONFIG.file_pattern.test(e.Name) && !CONFIG.file_ignore_pattern.test(e.Name))
{
files.push(e.Name)
}
})

if (CONFIG.sort_by_time)
{
files.sort(function(a, b)
{
a = FS.GetFile(a).DateLastModified
b = FS.GetFile(b).DateLastModified
return a < b ? 1 : a > b ? -1 : 0
})
}
else if (CONFIG.ignore_case)
{
files.sort(function(a, b)
{
a = a.toLocaleLowerCase()
b = b.toLocaleLowerCase()
return !a ? -1 : !b ? 1 : a < b ? -1 : a > b ? 1 : 0
})
}
else
{
files.sort()
}

if (CONFIG.sort_by_extension)
{
// JScriptは安定ソートなのでこれでも大丈夫なはず
files.sort(function(a, b)
{
var sa = get_extension(a)
var sb = get_extension(b)
return !sa ? 1 : !sb ? -1 : sa < sb ? -1 : sa > sb ? 1 : 0
})
}

return folders.concat(files)
}

function get_extension(str)
{
var i = str.lastIndexOf('.')
return i >= 0 && str.substr(i + 1)
}

function each_item(collection, callback)
{
var result

for (var e = new Enumerator(collection); !e.atEnd(); e.moveNext())
{
result = callback(e.item())
if (result)
{
return result
}
}
}

function choose(words)
{
var menu = makeMenu()
var i = menu.Track(0)

return i && words[i - 1]

function makeMenu()
{
var menu = window.CreatePopupMenu()

if (!words || words.length == 0) { return menu }

var n = -1
function addHotkey(word)
{
if (n > 34) { return word }
n++
return "&" + n.toString(36) + ". " + word
}

for (var i = 0; i < words.length; i++)
{
menu.Add(addHotkey(words[i]), i + 1)
}

return menu
}
}

main()
</source>

フォルダツリーをポップアップ表示

2013-09-10T11:53:43Z

Snipsnipsnip: ページの作成：「今開いているファイルのフォルダの内容をポップアップで表示して、選択するとそのファイルを開きます。手石さんの[[ポ...」

今開いているファイルのフォルダの内容をポップアップで表示して、選択するとそのファイルを開きます。

手石さんの[[ポップアップメニューでファイル選択]]の下位互換です。手石さんのものはページ切り替えなどのボタンがあり、これよりも使いやすいと思います。

== インストール ==

#下のスクリプトをコピーして、MeryのMy Macroフォルダなどに保存
#マクロを[カスタマイズ]→[新規作成]で登録し、Alt+Pなどお好みで設定する

== カスタマイズ ==

変数を変えることで、挙動がいくらかカスタマイズできます。

{| border="1" style="width: 80%; margin-left: 2em; border-collapse: collapse"
! 名前 !! 初期設定 !! 効果
|-
| CONFIG.folder_pattern || <nowiki>/^[^\.]/</nowiki> || この正規表現にマッチするフォルダ名を一覧に含めます

初期設定では . で始まるフォルダを除外します
|-
| CONFIG.file_pattern || <nowiki>/^[^\.]/</nowiki> || この正規表現にマッチするファイル名を一覧に含めます

初期設定では . で始まるフォルダを除外します
|-
| CONFIG.file_ignore_pattern || <nowiki>/\.(?:png|jpg|gif|db|exe|dll|obj|tmp)$/i</nowiki> || この正規表現にマッチするファイル名は一覧から除きます

初期設定では画像ファイルなど適当に思いついたものを除外してあります
|-
| CONFIG.ignore_case || <nowiki>true</nowiki> || trueにすると一覧のソートで大文字小文字を無視します
|-
| CONFIG.sort_by_extension || <nowiki>true</nowiki> || trueにすると一覧で拡張子ごとにまとめます
|-
| CONFIG.sort_by_modified_time || <nowiki>false</nowiki> || trueにするとファイルの最終変更時間で降順にソートします

これをtrueにすると上2つの設定は無視されます
|}

== 更新履歴 ==

* r1(2013-09-10): 初版

== ソース ==

<source lang="javascript">
// 同じフォルダにあるファイルを開く.js r1
// もしくは簡易フォルダツリー

CONFIG = {}

/** 設定 **/

// 一覧に含めるフォルダ名の正規表現
CONFIG.folder_pattern = /^[^\.]/

// 一覧に含めるファイル名の正規表現
CONFIG.file_pattern = /^[^\.]/

// 一覧から除外するファイル名の正規表現
CONFIG.file_ignore_pattern = /\.(?:png|jpg|gif|db|exe|dll|obj|tmp)$/i

// 大文字小文字を無視するならtrue、そうでなければfalse
CONFIG.ignore_case = true

// 拡張子ごとにまとめるならtrue、そうでなければfalse
CONFIG.sort_by_extension = true

// 時間でソートするならtrue、そうでなければfalse
CONFIG.sort_by_modified_time = false

/** 以下本体 **/

var FS = new ActiveXObject("Scripting.FileSystemObject")

function main()
{
var dir = document.Path
var choosed = choose(ls(dir))

while (choosed && /\/$/.test(choosed))
{
dir = FS.BuildPath(dir, choosed)
choosed = choose(ls(dir))
}

if (choosed)
{
var path = FS.BuildPath(dir, choosed).replace(/\//, '\\')
editor.OpenFile(path, 0, meOpenAllowNewWindow)
}
}

function ls(path)
{
var folder = FS.GetFolder(path)

var folders = []
each_item(folder.SubFolders, function(e)
{
if (CONFIG.folder_pattern.test(e.Name))
{
folders.push(e.Name + "/")
}
})
folders.sort()

folders.unshift('../')

var files = []
each_item(folder.Files, function(e)
{
if (CONFIG.file_pattern.test(e.Name) && !CONFIG.file_ignore_pattern.test(e.Name))
{
files.push(e.Name)
}
})

if (CONFIG.sort_by_time)
{
files.sort(function(a, b)
{
a = FS.GetFile(a).DateLastModified
b = FS.GetFile(b).DateLastModified
return a < b ? 1 : a > b ? -1 : 0
})
}
else if (CONFIG.ignore_case)
{
files.sort(function(a, b)
{
a = a.toLocaleLowerCase()
b = b.toLocaleLowerCase()
return !a ? -1 : !b ? 1 : a < b ? -1 : a > b ? 1 : 0
})
}
else
{
files.sort()
}

if (CONFIG.sort_by_extension)
{
// JScriptは安定ソートなのでこれでも大丈夫なはず
files.sort(function(a, b)
{
var sa = get_extension(a)
var sb = get_extension(b)
return !sa ? 1 : !sb ? -1 : sa < sb ? -1 : sa > sb ? 1 : 0
})
}

return folders.concat(files)
}

function get_extension(str)
{
var i = str.lastIndexOf('.')
return i >= 0 && str.substr(i + 1)
}

function each_item(collection, callback)
{
var result

for (var e = new Enumerator(collection); !e.atEnd(); e.moveNext())
{
result = callback(e.item())
if (result)
{
return result
}
}
}

function choose(words)
{
var menu = makeMenu()
var i = menu.Track(0)

return i && words[i - 1]

function makeMenu()
{
var menu = window.CreatePopupMenu()

if (!words || words.length == 0) { return menu }

var n = -1
function addHotkey(word)
{
if (n > 34) { return word }
n++
return "&" + n.toString(36) + ". " + word
}

for (var i = 0; i < words.length; i++)
{
menu.Add(addHotkey(words[i]), i + 1)
}

return menu
}
}

main()
</source>

マクロライブラリ

2013-09-10T11:38:47Z

Snipsnipsnip: フォルダツリーをポップアップ表示

Mery で使用できるマクロを集めたライブラリです。

スクリプトを拡張子「js」 (JavaScript、JScript の場合) にして「My Macros」等に保存し、マクロメニューの「選択」や「カスタマイズ」から読み込んで使用してください。マクロライブラリはどなたでも自由に編集できますので、みなさんが作成した便利なマクロをどんどん掲載してください。

== テキスト操作補助 ==

*[https://github.com/haijinboys/mery-macro-emmet Emmet] (kuro)
*[[Zen Coding]] (kuro)
*[[CSV のカーソル位置の列を削除]] (kuro)
*[[対応する括弧に移動]] (kuro, kurama)
*[[選択文字列を強調]] (kuro)
*[[行頭に移動]] (kuro)
*[[引用の追加]] (kuro)
*[[バイト数]] (kuro)
*[[選択範囲を上下に移動]]（ks）
*[[TeraPadのCtrl↑と同じような動作をするマクロ]] (suke)
*[[TeraPadのCtrl↓と同じような動作をするマクロ]] (suke)
*[[Vz 風テキストスタック 2 ストロークキー]] (goat) update 2012/10/01
*[[非選択状態でも逆インデント]] (papagoat)
*[[オフインデント]] (inuuik)
*[[ラクラク罫線]] (手石) Update 2012/12/22
*[[ファイル:XHTML.zip]](HTMLタグを、ショートカット・キーに登録して入力するマクロ「文章挟み込み仕様」アラフォー親父）
*[[矩形ペースト]] (手石)
*[[自動箇条書き]] (手石)　update 2013/03/15
*[[インデントを考慮した折り返し（改行挿入）]] (手石)　update 2013/02/23

== ファイル操作補助 ==

*[[文字列中のパス起動]] (ks)
*[[自動バックアップ]] (ks)
*[[アップデート]] (ks)
*[[終了時状態保持・復元]] (ks)
*[[上書き保存(UAC対応)]] (ks)
*[[含んでいるフォルダを開く]]（ks）
*[[パスを取得]] (kuro)
*[[フォルダ内のファイルをすべて開く]] (kuro)
*[[ファイルを比較]] (kuro)
*[[ファイル名を引数にしてアプリ起動]] (kuro, miso)
*[[ブックマーク一覧ジャンプ]] (goat) update 2012/09/24
*[[拡張子の違うファイルを開く]] (n)
*[[フォルダを開く]] (n)
*[[コマンドプロンプトを開く]] (n)
*[[SDIウィンドウの記憶と復帰]](papagoat) Update 2012/10/23
*[[よく使うフォルダ]] (手石) Update 2013/02/23
*[[ファイル（選択範囲）の仮保存]] (手石)
*[[ポップアップメニューでファイル選択]] (手石)
*[[フォルダツリーをポップアップ表示]] (n)

== 変換・ソート・整形 ==

*[[可変長を固定長に変換]] (kuro)
*[[SHA でハッシュ化]] (kuro)
*[[標準変換]] (kuro)
*[[昇順で並び替え]] (kuro)
*[[降順で並び替え]] (kuro)
*[[連続する重複行を削除]] (kuro)
*[[ブックマーク系コマンド集]] (ks)
*[[テキスト変換]] (ks)
*[[旧漢字から新漢字に変換]] (furu)
*[[clustalw を用いてアライメントを実行]] (suke)
*[[連番の挿入]] (手石)
*[[TSV(CSV) ⇒ 固定長]] (手石)　update 2013/04/16
*[[コメントマーク付け外し]]（手石）　update 2013/03/28
*[[行並べ替え]] (masme) 2013/08/25, update 2013/08/29
*[[連番を挿入]] (masme) 2013/08/25

== 検索・置換 ==

*[[文書から検索]] (kuro)
*[[単語を抽出]] (kuro)
*[[このファイルから検索(マッチしない行)]] (kuro)
*[[このファイルから検索(マッチする行)]] (kuro)
*[[タグの外側（内側）だけ置換]] (手石)

== プログラミング補助 ==

*[[Eclipse風コメントアウト]] (ks)
*[[スマートインデント(C 構文)]](ks)
*[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]] (kazy)
*[[タグファイルから補完]] (n)
*[[コードスニペットもどき]] (手石) Update 2012/12/20

== おもしろ ==

*[[テキストブラウザ]] (kuro)
*[[Yahoo!天気情報]] (kuro)

== その他 ==

*[[キーアサイン集]]（ks）
*[[SAPI 使って単語読み上げ]] (miso)
*[[フォルダ選択ダイアログ]]（手石）
*[[日付と時刻を挿入]] (n)
*[[JavaScript を実行]] (n)
*[[ポップアップメニューを手軽に扱う]] (komorebikoboshi)
*[[マクロ・関数をメニューで呼び出す]] (aliquis, 2013/08/19)

マクロライブラリ

2013-09-10T11:32:24Z

Snipsnipsnip: 「その他」に入っていたものを独断で分類しました

Mery で使用できるマクロを集めたライブラリです。

スクリプトを拡張子「js」 (JavaScript、JScript の場合) にして「My Macros」等に保存し、マクロメニューの「選択」や「カスタマイズ」から読み込んで使用してください。マクロライブラリはどなたでも自由に編集できますので、みなさんが作成した便利なマクロをどんどん掲載してください。

== テキスト操作補助 ==

*[https://github.com/haijinboys/mery-macro-emmet Emmet] (kuro)
*[[Zen Coding]] (kuro)
*[[CSV のカーソル位置の列を削除]] (kuro)
*[[対応する括弧に移動]] (kuro, kurama)
*[[選択文字列を強調]] (kuro)
*[[行頭に移動]] (kuro)
*[[引用の追加]] (kuro)
*[[バイト数]] (kuro)
*[[選択範囲を上下に移動]]（ks）
*[[TeraPadのCtrl↑と同じような動作をするマクロ]] (suke)
*[[TeraPadのCtrl↓と同じような動作をするマクロ]] (suke)
*[[Vz 風テキストスタック 2 ストロークキー]] (goat) update 2012/10/01
*[[非選択状態でも逆インデント]] (papagoat)
*[[オフインデント]] (inuuik)
*[[ラクラク罫線]] (手石) Update 2012/12/22
*[[ファイル:XHTML.zip]](HTMLタグを、ショートカット・キーに登録して入力するマクロ「文章挟み込み仕様」アラフォー親父）
*[[矩形ペースト]] (手石)
*[[自動箇条書き]] (手石)　update 2013/03/15
*[[インデントを考慮した折り返し（改行挿入）]] (手石)　update 2013/02/23

== ファイル操作補助 ==

*[[文字列中のパス起動]] (ks)
*[[自動バックアップ]] (ks)
*[[アップデート]] (ks)
*[[終了時状態保持・復元]] (ks)
*[[上書き保存(UAC対応)]] (ks)
*[[含んでいるフォルダを開く]]（ks）
*[[パスを取得]] (kuro)
*[[フォルダ内のファイルをすべて開く]] (kuro)
*[[ファイルを比較]] (kuro)
*[[ファイル名を引数にしてアプリ起動]] (kuro, miso)
*[[ブックマーク一覧ジャンプ]] (goat) update 2012/09/24
*[[拡張子の違うファイルを開く]] (n)
*[[フォルダを開く]] (n)
*[[コマンドプロンプトを開く]] (n)
*[[SDIウィンドウの記憶と復帰]](papagoat) Update 2012/10/23
*[[よく使うフォルダ]] (手石) Update 2013/02/23
*[[ファイル（選択範囲）の仮保存]] (手石)
*[[ポップアップメニューでファイル選択]] (手石)
*[[フォルダ選択ダイアログ]]（手石）

== 変換・整形 ==

*[[可変長を固定長に変換]] (kuro)
*[[SHA でハッシュ化]] (kuro)
*[[標準変換]] (kuro)
*[[昇順で並び替え]] (kuro)
*[[降順で並び替え]] (kuro)
*[[連続する重複行を削除]] (kuro)
*[[ブックマーク系コマンド集]] (ks)
*[[テキスト変換]] (ks)
*[[旧漢字から新漢字に変換]] (furu)
*[[clustalw を用いてアライメントを実行]] (suke)
*[[連番の挿入]] (手石)
*[[TSV(CSV) ⇒ 固定長]] (手石)　update 2013/04/16
*[[コメントマーク付け外し]]（手石）　update 2013/03/28
*[[行並べ替え]] (masme) 2013/08/25, update 2013/08/29
*[[連番を挿入]] (masme) 2013/08/25

== 検索・置換 ==

*[[文書から検索]] (kuro)
*[[単語を抽出]] (kuro)
*[[このファイルから検索(マッチしない行)]] (kuro)
*[[このファイルから検索(マッチする行)]] (kuro)
*[[タグの外側（内側）だけ置換]] (手石)

== プログラミング補助 ==

*[[Eclipse風コメントアウト]] (ks)
*[[スマートインデント(C 構文)]](ks)
*[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]] (kazy)
*[[タグファイルから補完]] (n)
*[[コードスニペットもどき]] (手石) Update 2012/12/20

== おもしろ ==

*[[テキストブラウザ]] (kuro)
*[[Yahoo!天気情報]] (kuro)

== その他 ==

*[[キーアサイン集]]（ks）
*[[SAPI 使って単語読み上げ]] (miso)
*[[日付と時刻を挿入]] (n)
*[[JavaScript を実行]] (n)
*[[ポップアップメニューを手軽に扱う]] (komorebikoboshi)
*[[マクロ・関数をメニューで呼び出す]] (aliquis, 2013/08/19)

マクロライブラリ

2013-09-10T11:20:50Z

Snipsnipsnip: ファイル操作補助節を追加

Mery で使用できるマクロを集めたライブラリです。

スクリプトを拡張子「js」 (JavaScript、JScript の場合) にして「My Macros」等に保存し、マクロメニューの「選択」や「カスタマイズ」から読み込んで使用してください。マクロライブラリはどなたでも自由に編集できますので、みなさんが作成した便利なマクロをどんどん掲載してください。

== テキスト操作補助 ==

*[https://github.com/haijinboys/mery-macro-emmet Emmet] (kuro)
*[[Zen Coding]] (kuro)
*[[CSV のカーソル位置の列を削除]] (kuro)
*[[対応する括弧に移動]] (kuro, kurama)
*[[選択文字列を強調]] (kuro)
*[[行頭に移動]] (kuro)
*[[引用の追加]] (kuro)
*[[バイト数]] (kuro)
*[[文字列中のパス起動]] (ks)
*[[終了時状態保持・復元]] (ks)
*[[自動バックアップ]] (ks)
*[[キーアサイン集]]（ks）
*[[選択範囲を上下に移動]]（ks）

== ファイル操作補助 ==

*[[アップデート]] (ks)
*[[上書き保存(UAC対応)]] (ks)
*[[含んでいるフォルダを開く]]（ks）
*[[パスを取得]] (kuro)
*[[フォルダ内のファイルをすべて開く]] (kuro)
*[[ファイルを比較]] (kuro)
*[[ファイル名を引数にしてアプリ起動]] (kuro, miso)

== 変換・整形 ==

*[[可変長を固定長に変換]] (kuro)
*[[SHA でハッシュ化]] (kuro)
*[[標準変換]] (kuro)
*[[昇順で並び替え]] (kuro)
*[[降順で並び替え]] (kuro)
*[[連続する重複行を削除]] (kuro)
*[[ブックマーク系コマンド集]] (ks)
*[[テキスト変換]] (ks)

== 検索・置換 ==

*[[文書から検索]] (kuro)
*[[単語を抽出]] (kuro)
*[[このファイルから検索(マッチしない行)]] (kuro)
*[[このファイルから検索(マッチする行)]] (kuro)

== プログラミング補助 ==

*[[Eclipse風コメントアウト]] (ks)
*[[スマートインデント(C 構文)]](ks)

== おもしろ ==

*[[テキストブラウザ]] (kuro)
*[[Yahoo!天気情報]] (kuro)

== その他 ==

*[[旧漢字から新漢字に変換]] (furu)
*[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]] (kazy)
*[[タグファイルから補完]] (n)
*[[TeraPadのCtrl↑と同じような動作をするマクロ]] (suke)
*[[TeraPadのCtrl↓と同じような動作をするマクロ]] (suke)
*[[Vz 風テキストスタック 2 ストロークキー]] (goat) update 2012/10/01
*[[ブックマーク一覧ジャンプ]] (goat) update 2012/09/24
*[[clustalw を用いてアライメントを実行]] (suke)
*[[SAPI 使って単語読み上げ]] (miso)
*[[日付と時刻を挿入]] (n)
*[[JavaScript を実行]] (n)
*[[拡張子の違うファイルを開く]] (n)
*[[フォルダを開く]] (n)
*[[コマンドプロンプトを開く]] (n)
*[[非選択状態でも逆インデント]] (papagoat)
*[[オフインデント]] (inuuik)
*[[SDIウィンドウの記憶と復帰]](papagoat) Update 2012/10/23
*[[よく使うフォルダ]] (手石) Update 2013/02/23
*[[連番の挿入]] (手石)
*[[コードスニペットもどき]] (手石) Update 2012/12/20
*[[ポップアップメニューを手軽に扱う]] (komorebikoboshi)
*[[ラクラク罫線]] (手石) Update 2012/12/22
*[[ファイル:XHTML.zip]](HTMLタグを、ショートカット・キーに登録して入力するマクロ「文章挟み込み仕様」アラフォー親父）
*[[タグの外側（内側）だけ置換]] (手石)
*[[ファイル（選択範囲）の仮保存]] (手石)
*[[TSV(CSV) ⇒ 固定長]] (手石)　update 2013/04/16
*[[矩形ペースト]] (手石)
*[[インデントを考慮した折り返し（改行挿入）]] (手石)　update 2013/02/23
*[[自動箇条書き]] (手石)　update 2013/03/15
*[[ポップアップメニューでファイル選択]] (手石)
*[[フォルダ選択ダイアログ]]（手石）
*[[コメントマーク付け外し]]（手石）　update 2013/03/28
*[[マクロ・関数をメニューで呼び出す]] (aliquis, 2013/08/19)
*[[行並べ替え]] (masme) 2013/08/25, update 2013/08/29
*[[連番を挿入]] (masme) 2013/08/25

Clojure

2013-02-25T02:07:43Z

Snipsnipsnip:

[[構文ファイル|« 構文ファイル]]

[http://clojure.org/documentation ドキュメント]や[http://clojuredocs.org/clojure_core/clojure.core clojure.core] などから恣意的に作成。最後のいくつかの設定は.や/を含んだ識別子を問答無用で強調しますが、お気に召さなければ削って下さい。

<source lang="clojure">
#TagBegin=
#TagEnd=
#CommentBegin1=
#CommentEnd1=
#LineComment1=;
#CommentBegin2=
#CommentEnd2=
#LineComment2=
#SpecialSyntax=None
#ScriptBegin=
#ScriptEnd=
#QuoteSingle=False
#QuoteDouble=True
#QuoteContinue=True
#EscapeCharacter=\

#Word Color=0, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
declare
def
definline
definterface
defmacro
defmethod
defmulti
defn
defn-
defonce
defprotocol
defrecord
defstruct
deftype
do
fn
if
if-let
if-not
let
loop
monitor-enter
monitor-exit
new
ns
quote
recur
require
set!
throw
try
var
when
when-first
when-let
when-not
while

#Word Color=1, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
accessor
aclone
add-classpath
add-watch
agent
agent-error
agent-errors
aget
alength
alias
all-ns
alter
alter-meta!
alter-var-root
amap
ancestors
and
apply
areduce
array-map
aset
aset-boolean
aset-byte
aset-char
aset-double
aset-float
aset-int
aset-long
aset-short
assert
assoc
assoc!
assoc-in
associative?
atom
await
await-for
bases
bean
bigdec
bigint
biginteger
binding
bit-and
bit-and-not
bit-clear
bit-flip
bit-not
bit-or
bit-set
bit-shift-left
bit-shift-right
bit-test
bit-xor
boolean
boolean-array
booleans
bound-fn
bound-fn*
bound?
butlast
byte
byte-array
bytes
case
cast
char
char-array
char-escape-string
char-name-string
char?
chars
class
class?
clear-agent-errors
clojure-version
coll?
comment
commute
comp
comparator
compare
compare-and-set!
compile
complement
concat
cond
condp
conj
conj!
cons
constantly
construct-proxy
contains?
count
counted?
create-ns
create-struct
cycle
dec
dec'
decimal?
default-data-readers
delay
delay?
deliver
denominator
deref
derive
descendants
disj
disj!
dissoc
dissoc!
distinct
distinct?
doall
dorun
doseq
dosync
dotimes
doto
double
double-array
doubles
drop
drop-last
drop-while
empty
empty?
ensure
enumeration-seq
error-handler
error-mode
eval
even?
every-pred
every?
ex-data
ex-info
extend
extend-protocol
extend-type
extenders
extends?
false?
ffirst
file-seq
filter
filterv
find
find-keyword
find-ns
find-var
first
flatten
float
float-array
float?
floats
flush
fn?
fnext
fnil
for
force
format
frequencies
future
future-call
future-cancel
future-cancelled?
future-done?
future?
gen-class
gen-interface
gensym
get
get-in
get-method
get-proxy-class
get-thread-bindings
get-validator
group-by
hash
hash-map
hash-set
identical?
identity
ifn?
import
in-ns
inc
inc'
init-proxy
instance?
int
int-array
integer?
interleave
intern
interpose
into
into-array
ints
io!
isa?
iterate
iterator-seq
juxt
keep
keep-indexed
key
keys
keyword
keyword?
last
lazy-cat
lazy-seq
letfn
line-seq
list
list*
list?
load
load-file
load-reader
load-string
loaded-libs
locking
long
long-array
longs
macroexpand
macroexpand-1
make-array
make-hierarchy
map
map-indexed
map?
mapcat
mapv
max
max-key
memfn
memoize
merge
merge-with
meta
methods
min
min-key
mod
name
namespace
namespace-munge
neg?
newline
next
nfirst
nil?
nnext
not
not-any?
not-empty
not-every?
not=
ns-aliases
ns-imports
ns-interns
ns-map
ns-name
ns-publics
ns-refers
ns-resolve
ns-unalias
ns-unmap
nth
nthnext
nthrest
num
number?
numerator
object-array
odd?
or
parents
partial
partition
partition-all
partition-by
pcalls
peek
persistent!
pmap
pop
pop!
pop-thread-bindings
pos?
pr
pr-str
prefer-method
prefers
print
print-str
printf
println
println-str
prn
prn-str
promise
proxy
proxy-mappings
proxy-super
push-thread-bindings
pvalues
quot
rand
rand-int
rand-nth
range
ratio?
rational?
rationalize
re-find
re-groups
re-matcher
re-matches
re-pattern
re-seq
read
read-line
read-string
realized?
reduce
reduce-kv
reductions
ref
ref-history-count
ref-max-history
ref-min-history
ref-set
refer
refer-clojure
reify
release-pending-sends
rem
remove
remove-all-methods
remove-method
remove-ns
remove-watch
repeat
repeatedly
replace
replicate
reset!
reset-meta!
resolve
rest
restart-agent
resultset-seq
reverse
reversible?
rseq
rsubseq
satisfies?
second
select-keys
send
send-off
seq
seq?
seque
sequence
sequential?
set
set-error-handler!
set-error-mode!
set-validator!
set?
short
short-array
shorts
shuffle
shutdown-agents
slurp
some
some-fn
sort
sort-by
sorted-map
sorted-map-by
sorted-set
sorted-set-by
sorted?
special-symbol?
spit
split-at
split-with
str
string?
struct
struct-map
subs
subseq
subvec
supers
swap!
symbol
symbol?
sync
take
take-last
take-nth
take-while
test
the-ns
thread-bound?
time
to-array
to-array-2d
trampoline
transient
tree-seq
true?
type
unchecked-add
unchecked-add-int
unchecked-byte
unchecked-char
unchecked-dec
unchecked-dec-int
unchecked-divide-int
unchecked-double
unchecked-float
unchecked-inc
unchecked-inc-int
unchecked-int
unchecked-long
unchecked-multiply
unchecked-multiply-int
unchecked-negate
unchecked-negate-int
unchecked-remainder-int
unchecked-short
unchecked-subtract
unchecked-subtract-int
underive
update-in
update-proxy
use
val
vals
var-get
var-set
var?
vary-meta
vec
vector
vector-of
vector?
with-bindings
with-bindings*
with-in-str
with-local-vars
with-meta
with-open
with-out-str
with-precision
with-redefs
with-redefs-fn
xml-seq
zero?
zipmap

#Word Color=1, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=True
\bwith-[^^\s\)\]\}]+

#Word Color=2, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
browse
browse-ui
clojure
core
data
inspector
io
java
javadoc
junit
main
pprint
protocols
reflect
repl
set
shell
stacktrace
string
tap
template
test
walk
xml
zip

#Word Color=2, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=True
(?<=^^|[$\[\{\s/])\*[^^\s\*]*\*

#Word Color=3, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=True
(?<=^^|[\(\[\{\s])[\\:][^^\s$\]\}]+

#Word Color=4, WholeWord=True, RightSide=False, MatchCase=False, InsideTag=False, RegEx=True
(?<=^^|[$\[\{\s])[a-z\$]*\.[^^\s$\]\}]*
\b[a-z\$]+\/[^^\s\)\]\}]+
</source>

Clojure

2013-02-25T01:36:15Z

Snipsnipsnip: ページの作成：「« 構文ファイル [http://clojure.org/documentation ドキュメント]や[http://clojuredocs.org/clojure_core/clojure.core clojure.cor...」

[[構文ファイル|« 構文ファイル]]

[http://clojure.org/documentation ドキュメント]や[http://clojuredocs.org/clojure_core/clojure.core clojure.core] などから恣意的に作成。最後のいくつかの設定は.や/を含んだ識別子を問答無用で強調しますが、お気に召さなければ削って下さい。

<source lang="clojure">
#TagBegin=
#TagEnd=
#CommentBegin1=
#CommentEnd1=
#LineComment1=;
#CommentBegin2=
#CommentEnd2=
#LineComment2=
#SpecialSyntax=None
#ScriptBegin=
#ScriptEnd=
#QuoteSingle=False
#QuoteDouble=True
#QuoteContinue=True
#EscapeCharacter=\

#Word Color=0, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
declare
def
definline
definterface
defmacro
defmethod
defmulti
defn
defn-
defonce
defprotocol
defrecord
defstruct
deftype
do
fn
if
if-let
if-not
let
loop
monitor-enter
monitor-exit
new
ns
quote
recur
require
set!
throw
try
var
when
when-first
when-let
when-not
while

#Word Color=1, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
+
+'
-
-'
->
->>
->ArrayChunk
->Vec
->VecNode
->VecSeq
-cache-protocol-fn
-reset-methods
..
/
<
<=
=
==
>
>=
EMPTY-NODE
accessor
aclone
add-classpath
add-watch
agent
agent-error
agent-errors
aget
alength
alias
all-ns
alter
alter-meta!
alter-var-root
amap
ancestors
and
apply
areduce
array-map
aset
aset-boolean
aset-byte
aset-char
aset-double
aset-float
aset-int
aset-long
aset-short
assert
assoc
assoc!
assoc-in
associative?
atom
await
await-for
await1
bases
bean
bigdec
bigint
biginteger
binding
bit-and
bit-and-not
bit-clear
bit-flip
bit-not
bit-or
bit-set
bit-shift-left
bit-shift-right
bit-test
bit-xor
boolean
boolean-array
booleans
bound-fn
bound-fn*
bound?
butlast
byte
byte-array
bytes
case
cast
catch
char
char-array
char-escape-string
char-name-string
char?
chars
chunk
chunk-append
chunk-buffer
chunk-cons
chunk-first
chunk-next
chunk-rest
chunked-seq?
class
class?
clear-agent-errors
clojure-version
coll?
comment
commute
comp
comparator
compare
compare-and-set!
compile
complement
concat
cond
condp
conj
conj!
cons
constantly
construct-proxy
contains?
count
counted?
create-ns
create-struct
cycle
dec
dec'
decimal?
delay
delay?
deliver
denominator
deref
derive
descendants
destructure
disj
disj!
dissoc
dissoc!
distinct
distinct?
doall
dorun
doseq
dosync
dotimes
doto
double
double-array
doubles
drop
drop-last
drop-while
empty
empty?
ensure
enumeration-seq
error-handler
error-mode
eval
even?
every-pred
every?
extend
extend-protocol
extend-type
extenders
extends?
false?
ffirst
file-seq
filter
finally
find
find-keyword
find-ns
find-protocol-impl
find-protocol-method
find-var
first
flatten
float
float-array
float?
floats
flush
fn?
fnext
fnil
for
force
format
frequencies
future
future-call
future-cancel
future-cancelled?
future-done?
future?
gen-class
gen-interface
gensym
get
get-in
get-method
get-proxy-class
get-thread-bindings
get-validator
group-by
hash
hash-combine
hash-map
hash-set
identical?
identity
ifn?
import
in-ns
inc
inc'
init-proxy
instance?
int
int-array
integer?
interleave
intern
interpose
into
into-array
ints
io!
isa?
iterate
iterator-seq
juxt
keep
keep-indexed
key
keys
keyword
keyword?
last
lazy-cat
lazy-seq
letfn
line-seq
list
list*
list?
load
load-file
load-reader
load-string
loaded-libs
locking
long
long-array
longs
macroexpand
macroexpand-1
make-array
make-hierarchy
map
map-indexed
map?
mapcat
max
max-key
memfn
memoize
merge
merge-with
meta
method-sig
methods
min
min-key
mod
munge
name
namespace
namespace-munge
neg?
newline
next
nfirst
nil?
nnext
not
not-any?
not-empty
not-every?
not=
ns-aliases
ns-imports
ns-interns
ns-map
ns-name
ns-publics
ns-refers
ns-resolve
ns-unalias
ns-unmap
nth
nthnext
nthrest
num
number?
numerator
object-array
odd?
or
parents
partial
partition
partition-all
partition-by
pcalls
peek
persistent!
pmap
pop
pop!
pop-thread-bindings
pos?
pr
pr-str
prefer-method
prefers
primitives-classnames
print
print-ctor
print-dup
print-method
print-simple
print-str
printf
println
println-str
prn
prn-str
promise
proxy
proxy-call-with-super
proxy-mappings
proxy-name
proxy-super
push-thread-bindings
pvalues
quot
rand
rand-int
rand-nth
range
ratio?
rational?
rationalize
re-find
re-groups
re-matcher
re-matches
re-pattern
re-seq
read
read-line
read-string
realized?
reduce
reductions
ref
ref-history-count
ref-max-history
ref-min-history
ref-set
refer
refer-clojure
reify
release-pending-sends
rem
remove
remove-all-methods
remove-method
remove-ns
remove-watch
repeat
repeatedly
replace
replicate
reset!
reset-meta!
resolve
rest
restart-agent
resultset-seq
reverse
reversible?
rseq
rsubseq
satisfies?
second
select-keys
send
send-off
seq
seq?
seque
sequence
sequential?
set
set-error-handler!
set-error-mode!
set-validator!
set?
short
short-array
shorts
shuffle
shutdown-agents
slurp
some
some-fn
sort
sort-by
sorted-map
sorted-map-by
sorted-set
sorted-set-by
sorted?
special-symbol?
spit
split-at
split-with
str
string?
struct
struct-map
subs
subseq
subvec
supers
swap!
symbol
symbol?
sync
take
take-last
take-nth
take-while
test
the-ns
thread-bound?
time
to-array
to-array-2d
trampoline
transient
tree-seq
true?
type
unchecked-add
unchecked-add-int
unchecked-byte
unchecked-char
unchecked-dec
unchecked-dec-int
unchecked-divide-int
unchecked-double
unchecked-float
unchecked-inc
unchecked-inc-int
unchecked-int
unchecked-long
unchecked-multiply
unchecked-multiply-int
unchecked-negate
unchecked-negate-int
unchecked-remainder-int
unchecked-short
unchecked-subtract
unchecked-subtract-int
underive
unquote
unquote-splicing
update-in
update-proxy
use
val
vals
var-get
var-set
var?
vary-meta
vec
vector
vector-of
vector?
xml-seq
zero?
zipmap

#Word Color=1, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=True
\bwith-[^^\s\)\]\}]+

#Word Color=2, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
browse
browse-ui
clojure
core
data
inspector
io
java
javadoc
junit
main
pprint
protocols
reflect
repl
set
shell
stacktrace
string
tap
template
test
walk
xml
zip

#Word Color=2, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=True
(?<=^^|[$\[\{\s/])\*[^^\s\*]*\*

#Word Color=3, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=True
(?<=^^|[\(\[\{\s])[\\:][^^\s$\]\}]+

#Word Color=5, WholeWord=True, RightSide=False, MatchCase=False, InsideTag=False, RegEx=True
(?<=^^|[$\[\{\s])[a-z\$]*\.[^^\s$\]\}]*
\b[a-z\$]+\/[^^\s\)\]\}]+
</source>

構文ファイル

2013-02-25T01:30:29Z

Snipsnipsnip:

Mery で使用できる構文ファイルを集めたライブラリです。

「編集モードの設定 > プロパティ」の下部にある「インポート」ボタンでインポートして使用します。構文ファイルライブラリはどなたでも自由に編集できますので、新しい言語やマニアックな言語の色分けに使えそうなものが出来上がったら投稿してみてくださいね。

*[https://github.com/MihailJP/merydef/blob/master/bf.msy Brainf*ck] (MihailJP) 
*[[Delphi]] (kuro)
*[https://github.com/MihailJP/merydef/blob/master/d.msy D言語] (MihailJP) ※Mery本体の仕様により、コメントネストが正しく表示されません
*[https://github.com/MihailJP/merydef/blob/master/erlang.msy Erlang] (MihailJP)
*[https://github.com/MihailJP/merydef/blob/master/fsharp.msy F#] (MihailJP) ※Mery本体の仕様により、コメントネストが正しく表示されません
*[https://github.com/MihailJP/merydef/blob/master/go.msy Go] (MihailJP) ※Mery本体の仕様により、Raw文字列リテラルは色分けされません
*[https://github.com/MihailJP/merydef/blob/master/haskell.msy Haskell] (MihailJP)
*[[HTML5]] (ucky)
*[https://github.com/MihailJP/merydef/blob/master/markdown.msy Markdown] (MihailJP)
*[https://github.com/MihailJP/merydef/blob/master/ocaml.msy OCaml] (MihailJP) ※Mery本体の仕様により、コメントネストが正しく表示されません
*[https://github.com/MihailJP/merydef/blob/master/nadesiko.msy なでしこ] (MihailJP) ※試供品。注意点は[https://github.com/MihailJP/merydef#%E3%81%AA%E3%81%A7%E3%81%97%E3%81%93-nadesikomsy]を参照のこと
*[[Lua]] (n)
*[[Clojure]] (n)

Lua

2013-02-23T13:52:31Z

Snipsnipsnip:

[[構文ファイル|« 構文ファイル]]

[http://www.lua.org/manual/5.2/manual.html Lua 5.2 Manual] より作成。<code>[=[ ... ]=]</code>の形の文字列には非対応です。

<source lang="lua">
#TagBegin=
#TagEnd=
#CommentBegin1=--[[
#CommentEnd1=]]
#LineComment1=--
#CommentBegin2=[[
#CommentEnd2=]]
#LineComment2=
#SpecialSyntax=None
#ScriptBegin=
#ScriptEnd=
#QuoteSingle=True
#QuoteDouble=True
#QuoteContinue=True
#EscapeCharacter=\

#Word Color=0, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
and
break
do
else
elseif
end
false
for
function
goto
if
in
local
nil
not
or
repeat
return
then
true
until
while
...

#Word Color=1, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
_G
_VERSION
assert
collectgarbage
dofile
error
getmetatable
ipairs
loadfile
load
next
pairs
pcall
print
rawequal
rawget
rawlen
rawset
require
select
setmetatable
tonumber
tostring
type
xpcall

#Word Color=2, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
bit32
coroutine
debug
file
io
math
os
package
string
table

#Word Color=3, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
byteabs
acos
arshift
asin
atan
atan2
band
bnot
bor
btest
bxor
byte
ceil
char
clock
close
concat
config
cos
cosh
cpath
create
date
deg
difftime
dump
execute
exit
exp
extract
find
floor
flush
fmod
format
frexp
getenv
gethook
getinfo
getlocal
getmetatable
getregistry
getupvalue
getuservalue
gmatch
gsub
huge
input
insert
ldexp
len
lines
loaded
loadlib
log
lower
lrotate
lshift
match
max
min
modf
open
output
pack
path
pi
popen
pow
preload
rad
random
randomseed
read
remove
rename
rep
replace
resume
reverse
rrotate
rshift
running
searchers
searchpath
seek
sethook
setlocal
setlocale
setmetatable
setupvalue
setuservalue
setvbuf
sin
sinh
sort
sqrt
status
stderr
stdin
stdout
sub
tan
tanh
time
tmpfile
tmpname
traceback
type
unpack
upper
upvalueid
upvaluejoin
wrap
write
yield

#Word Color=4, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=Falsebyte
__add
__call
__concat
__div
__eq
__index
__le
__len
__lt
__mod
__mul
__newindex
__pow
__sub
__unm
</source>

Lua

2013-02-23T13:46:50Z

Snipsnipsnip: ページの作成：「« 構文ファイル [http://www.lua.org/manual/5.2/manual.html Lua 5.2 Manual] より作成。 <source lang="lua"> #TagBegin= #TagEnd= #...」

[[構文ファイル|« 構文ファイル]]

[http://www.lua.org/manual/5.2/manual.html Lua 5.2 Manual] より作成。

<source lang="lua">
#TagBegin=
#TagEnd=
#CommentBegin1=[[
#CommentEnd1=]]
#LineComment1=--
#CommentBegin2=[=[
#CommentEnd2=]=]
#LineComment2=
#SpecialSyntax=None
#ScriptBegin=
#ScriptEnd=
#QuoteSingle=True
#QuoteDouble=True
#QuoteContinue=True
#EscapeCharacter=\

#Word Color=0, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
and
break
do
else
elseif
end
false
for
function
goto
if
in
local
nil
not
or
repeat
return
then
true
until
while
...

#Word Color=1, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
_G
_VERSION
assert
collectgarbage
dofile
error
getmetatable
ipairs
loadfile
load
next
pairs
pcall
print
rawequal
rawget
rawlen
rawset
require
select
setmetatable
tonumber
tostring
type
xpcall

#Word Color=2, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
bit32
coroutine
debug
file
io
math
os
package
string
table

#Word Color=3, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=False
byteabs
acos
arshift
asin
atan
atan2
band
bnot
bor
btest
bxor
byte
ceil
char
clock
close
concat
config
cos
cosh
cpath
create
date
deg
difftime
dump
execute
exit
exp
extract
find
floor
flush
fmod
format
frexp
getenv
gethook
getinfo
getlocal
getmetatable
getregistry
getupvalue
getuservalue
gmatch
gsub
huge
input
insert
ldexp
len
lines
loaded
loadlib
log
lower
lrotate
lshift
match
max
min
modf
open
output
pack
path
pi
popen
pow
preload
rad
random
randomseed
read
remove
rename
rep
replace
resume
reverse
rrotate
rshift
running
searchers
searchpath
seek
sethook
setlocal
setlocale
setmetatable
setupvalue
setuservalue
setvbuf
sin
sinh
sort
sqrt
status
stderr
stdin
stdout
sub
tan
tanh
time
tmpfile
tmpname
traceback
type
unpack
upper
upvalueid
upvaluejoin
wrap
write
yield

#Word Color=4, WholeWord=True, RightSide=False, MatchCase=True, InsideTag=False, RegEx=Falsebyte
__add
__call
__concat
__div
__eq
__index
__le
__len
__lt
__mod
__mul
__newindex
__pow
__sub
__unm
</source>

構文ファイル

2013-02-23T13:34:57Z

Snipsnipsnip: +Lua

タグファイルから補完

2012-10-13T18:14:40Z

Snipsnipsnip: /* 更新履歴 */

ctagsの生成したtagsファイルから検索して単語のメニューを出します。

項目を選ぶとその単語が挿入されます。

単語が完全な形の場合、タグジャンプを行います。

kazyさんの[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]]とあわせてお使いください。(単独で使ってもタグジャンプ機能はあります)

== インストール ==

#下のスクリプトをコピーして、MeryのMy Macroフォルダなどに保存
#Mery.exeのあるフォルダに[[http://hp.vector.co.jp/authors/VA025040/ctags/ ctags.exe]]を置く
#マクロを登録し、Ctrl+→やCtrl+Shift+SpaceやCtrl+Qキーなどにお好みで設定する

== 使い方 ==

#補完したい単語にカーソルを置き、マクロを起動する
#初回起動の場合、タグファイルの作成を待つ
#すでに単語が完全な場合、メニューを選ぶとその定義にジャンプする
#メニューの項目を選ぶと、その単語が挿入される
#メニューの最後の「タグファイルを更新する」を選ぶと、タグファイルを作り直すことができる

== カスタマイズ ==

変数を変えることで、挙動がいくらかカスタマイズできます。

{| border="1" style="width: 80%; margin-left: 2em; border-collapse: collapse"
! 名前 !! 初期設定 !! 効果
|-
| TAGS || ".merytags" || タグファイルの名前
|-
| CTAGS || "ctags.exe" || ctags.exeの名前

相対パスの場合はmery本体のあるディレクトリのものを使います

"c:\\bin\\ctags.exe" のように絶対パスも指定できます
|-
| CTAGS_FLAGS || "--excmd=number --recurse --fields=+S" || ctagsに与える引数

初期設定の意味は左から
* 位置を行番号で記憶 (タグジャンプに必要)
* フォルダを再帰的に処理
* 関数の引数を記憶
|-
| WHOLE_WORD || true || 単語の途中で補完する際の挙動

trueにするとカーソルの置かれた単語全体から補完

falseにするとカーソルより左から補完します
|-
| CASE_INSENSITIVE || true || 単語の検索の挙動

trueにすると検索時大文字と小文字を区別しません

falseにすると区別します
|-
| DEFAULT_TAGS_DIR || "." || タグを作るフォルダ

"." にすると、編集中のファイルのあるフォルダでタグを作ります

".." などにすると、編集中のファイルの一つ上のフォルダからタグを作ります
|-
| CONFIRM_CREATE_TAGS || true || タグファイルがない場合の挙動

trueにするとタグを作成するフォルダを尋ねます

falseにするとフォルダを尋ねずに無言で作成を始めます
|}

== 更新履歴 ==

* r1～r2: 失念
* r3: 単独でctags呼び出し
* r4: ホットキー
* r5: C言語の関数で引数を表示、今開いてるファイル中の単語からも補完、文字の大小を区別しないオプション
* r6: 確認せずにctagsを起動するオプション
* r7: 補完候補の単語が1つだけのときうまく補完されないのを修正

== ソース ==

<source lang="javascript">
// タグファイルから補完.js r7 2012-10-24
// http://www.haijin-boys.com/wiki/%E3%82%BF%E3%82%B0%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%8B%E3%82%89%E8%A3%9C%E5%AE%8C

// http://hp.vector.co.jp/authors/VA025040/ctags/ の日本語版ctags 5.8J2 で動作確認しています

/** 設定 **/

// タグファイルの名前
TAGS = ".merytags"

// ctags.exeの名前
// 相対パスの場合はmery本体のあるディレクトリのものを使います
// "c:\\bin\\ctags.exe" のように絶対パスも指定できます
CTAGS = "ctags.exe"

// ctagsに与える引数 (初期設定：位置を行番号で記憶(必須)、フォルダを再帰的に処理、関数の引数を記憶)
CTAGS_FLAGS = "--excmd=number --recurse --fields=+S"

// 単語の途中で補完する際の挙動
// trueにするとカーソルの置かれた単語全体から補完
// falseにするとカーソルより左から補完します
WHOLE_WORD = true

// 単語の検索の挙動
// trueにすると検索時大文字と小文字を区別しません
// falseにすると区別します
CASE_INSENSITIVE = true

// タグを作るフォルダ
// "." にすると、編集中のファイルのあるフォルダでタグを作ります
// ".." などにすると、編集中のファイルの一つ上のフォルダからタグを作ります
DEFAULT_TAGS_DIR = "."

// タグファイルがない場合の挙動
// trueにするとタグを作成するフォルダを尋ねます
// falseにするとフォルダを尋ねずに無言で作成を始めます
CONFIRM_CREATE_TAGS = false

/** 本体 **/

var FileSystem = new ActiveXObject("Scripting.FileSystemObject")
var Shell = new ActiveXObject("WScript.Shell")

main()

function main()
{
var ctags = makeCtags()
var tags = makeTags(ctags)
var query = getQueryWord()
var result = tags.lookup(query)
var word = chooseWord(result)

if ("string" === typeof word)
{
writeWord(word)
}
else if (word === false)
{
tags.update()
}
else
{
jumpToDefinition(word)
}
}

function makeCtags()
{
return { run: run }

function run(dir)
{
var ctags = findCtags()

try
{
Shell.CurrentDirectory = dir
window.Status = 'タグファイルを作成していますお待ちください'
Shell.Run('"' + ctags + '" -o ' + TAGS + " " + CTAGS_FLAGS, 0, true)
}
catch (e)
{
}

window.Status = 'タグファイルを作成しました'
return FileSystem.BuildPath(dir, TAGS)
}

function findCtags()
{
if (FileSystem.FileExists(CTAGS))
{
return CTAGS
}

var dir = FileSystem.GetParentFolderName(editor.FullName)
var ctags = FileSystem.BuildPath(dir, CTAGS)

if (FileSystem.FileExists(ctags))
{
return ctags
}

throw new Error("ctags.exeが見つかりませんでした\nMery本体のディレクトリに置くか、絶対パスを設定してください")
}
}

function makeTags(ctags)
{
var fullname = findTagfile()
var text = loadTagfile()

return { lookup: lookup, update: update }

function getPath()
{
return FileSystem.GetParentFolderName(fullname)
}

function lookup(word)
{
if (/^\s*$/.test(word)) { return }

word = reEscape(word)

var opts = CASE_INSENSITIVE ? "igm" : "gm"
var re = new RegExp("^" + word + ".*$", opts)
var lines = text.match(re)

if (!lines) { return [] }

return calcWords().concat(calcDefinitions(word))

function calcWords()
{
var words = new Array(lines.length)

words[0] = lines[0].substring(0, lines[0].indexOf("\t"))

if (words.length === 1)
{
return words[0] === word ? [] : words
}

var n = 0
for (var i = 1; i < lines.length; i++)
{
var w = lines[i].substring(0, lines[i].indexOf("\t"))

if (words[n] !== w)
{
n++
words[n] = w
}
}

words.length = n + 1

words.sort(function(a, b)
{
return a.localeCompare(b)
})

return words
}

function calcDefinitions(word)
{
var defs = new Array(lines.length)
var n = 0

for (var i = 0; i < lines.length; i++)
{
var line = lines[i]
var tab1 = line.indexOf("\t")

if (tab1 !== word.length) { continue }

var tab2 = line.indexOf("\t", tab1 + 1)
var endnum = line.indexOf(";", tab2 + 1)
var sig = line.indexOf("signature:", endnum + 1)

var name = line.substring(0, tab1)
var filename = line.substring(tab1 + 1, tab2)
var linenum = line.substring(tab2 + 1, endnum)
var signature = sig < 0 ? "" : line.substring(sig + "signature:".length)

var fullname = FileSystem.BuildPath(getPath(), filename)

defs[n] = [fullname, linenum, filename, name + signature]
defs[n].toString = joinme
n++
}

defs.length = n

return defs
}

function joinme()
{
return this[3] + " (" + this[2] + " : " + this[1] + ")"
}
}

function reEscape(w)
{
return w.replace(/[-[\]{}()*+?.,\\^$|#\s]/g, "\\$&")
}

function loadTagfile()
{
if (!fullname)
{
fullname = makeTagfile()
}

return slurp(fullname)
}

function findTagfile()
{
var dir = document.Path

while (FileSystem.FolderExists(dir))
{
var file = FileSystem.BuildPath(dir, TAGS)
if (FileSystem.FileExists(file)) { return file }
dir = FileSystem.GetParentFolderName(dir)
}
}

function makeTagfile()
{
var dir = FileSystem.BuildPath(document.Path, DEFAULT_TAGS_DIR)

if (CONFIRM_CREATE_TAGS)
{
dir = window.Prompt("タグファイル作成フォルダ", dir)
}

if (!dir)
{
window.Quit()
}

return ctags.run(dir)
}

function update()
{
return ctags.run(getPath())
}

function slurp(filename)
{
var f = FileSystem.OpenTextFile(filename)
var text = f.ReadAll()
f.Close()
return text
}
}

function getQueryWord()
{
var s = document.selection

if (!s.IsEmpty) { return s.Text }

if (WHOLE_WORD)
{
s.SelectWord()

// hoge|(); → hogeFuga|(); のように補完
if (s.Text.length == 1 && !/\w/.test(s.Text))
{
s.Collapse(meCollapseStart)
s.WordLeft(true)
}
}
else
{
s.WordLeft(true)
}

if (/\A\s+\z/.test(s.Text))
{
s.Collapse(meCollapseEnd)
}

return s.Text
}

function chooseWord(words)
{
if (words && words.length === 1 && typeof words[0] === "string")
{
return words[0]
}

var menu = makeMenu()
var i = menu.Track(0)

return i === -1 ? false : words && words[i - 1]

function makeMenu()
{
var menu = window.CreatePopupMenu()
initMenu(menu)
menu.Add("タグファイルを更新する", -1)
return menu
}

function initMenu(menu)
{
if (!words || words.length == 0) { return }

var n = 0
function addHotkey(word)
{
if (n > 34) { return word }
n++
return "&" + n.toString(36) + ". " + word
}

for (var i = 0; i < words.length; i++)
{
menu.Add(addHotkey(words[i]), i + 1)
}

menu.Add(undefined, 0, meMenuSeparator)
}
}

function jumpToDefinition(def)
{
if (!def) { return }
window.Status = def + "にジャンプします"
var file = def[0]
var line = def[1]

editor.OpenFile(file, 0, meOpenAllowNewWindow)
editor.ActiveDocument.selection.SetActivePoint(mePosLogical, 1, line, false)
editor.ActiveDocument.Activate()
}

function writeWord(word)
{
if (word)
{
document.selection.Text = word
}
}
</source>

タグファイルから補完

2012-10-13T18:09:32Z

Snipsnipsnip: typo

ctagsの生成したtagsファイルから検索して単語のメニューを出します。

項目を選ぶとその単語が挿入されます。

単語が完全な形の場合、タグジャンプを行います。

kazyさんの[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]]とあわせてお使いください。(単独で使ってもタグジャンプ機能はあります)

== インストール ==

#下のスクリプトをコピーして、MeryのMy Macroフォルダなどに保存
#Mery.exeのあるフォルダに[[http://hp.vector.co.jp/authors/VA025040/ctags/ ctags.exe]]を置く
#マクロを登録し、Ctrl+→やCtrl+Shift+SpaceやCtrl+Qキーなどにお好みで設定する

== 使い方 ==

#補完したい単語にカーソルを置き、マクロを起動する
#初回起動の場合、タグファイルの作成を待つ
#すでに単語が完全な場合、メニューを選ぶとその定義にジャンプする
#メニューの項目を選ぶと、その単語が挿入される
#メニューの最後の「タグファイルを更新する」を選ぶと、タグファイルを作り直すことができる

== カスタマイズ ==

変数を変えることで、挙動がいくらかカスタマイズできます。

{| border="1" style="width: 80%; margin-left: 2em; border-collapse: collapse"
! 名前 !! 初期設定 !! 効果
|-
| TAGS || ".merytags" || タグファイルの名前
|-
| CTAGS || "ctags.exe" || ctags.exeの名前

相対パスの場合はmery本体のあるディレクトリのものを使います

"c:\\bin\\ctags.exe" のように絶対パスも指定できます
|-
| CTAGS_FLAGS || "--excmd=number --recurse --fields=+S" || ctagsに与える引数

初期設定の意味は左から
* 位置を行番号で記憶 (タグジャンプに必要)
* フォルダを再帰的に処理
* 関数の引数を記憶
|-
| WHOLE_WORD || true || 単語の途中で補完する際の挙動

trueにするとカーソルの置かれた単語全体から補完

falseにするとカーソルより左から補完します
|-
| CASE_INSENSITIVE || true || 単語の検索の挙動

trueにすると検索時大文字と小文字を区別しません

falseにすると区別します
|-
| DEFAULT_TAGS_DIR || "." || タグを作るフォルダ

"." にすると、編集中のファイルのあるフォルダでタグを作ります

".." などにすると、編集中のファイルの一つ上のフォルダからタグを作ります
|-
| CONFIRM_CREATE_TAGS || true || タグファイルがない場合の挙動

trueにするとタグを作成するフォルダを尋ねます

falseにするとフォルダを尋ねずに無言で作成を始めます
|}

== 更新履歴 ==

* r1～r3: 失念
* r4: ホットキー追加
* r5: C言語の関数で引数を表示、今開いてるファイル中の単語からも補完、文字の大小を区別しないオプション
* r6: 確認せずにctagsを起動するオプション
* r7: 補完候補の単語が1つだけのときうまく補完されないのを修正

== ソース ==

<source lang="javascript">
// タグファイルから補完.js r7 2012-10-24
// http://www.haijin-boys.com/wiki/%E3%82%BF%E3%82%B0%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%8B%E3%82%89%E8%A3%9C%E5%AE%8C

// http://hp.vector.co.jp/authors/VA025040/ctags/ の日本語版ctags 5.8J2 で動作確認しています

/** 設定 **/

// タグファイルの名前
TAGS = ".merytags"

// ctags.exeの名前
// 相対パスの場合はmery本体のあるディレクトリのものを使います
// "c:\\bin\\ctags.exe" のように絶対パスも指定できます
CTAGS = "ctags.exe"

// ctagsに与える引数 (初期設定：位置を行番号で記憶(必須)、フォルダを再帰的に処理、関数の引数を記憶)
CTAGS_FLAGS = "--excmd=number --recurse --fields=+S"

// 単語の途中で補完する際の挙動
// trueにするとカーソルの置かれた単語全体から補完
// falseにするとカーソルより左から補完します
WHOLE_WORD = true

// 単語の検索の挙動
// trueにすると検索時大文字と小文字を区別しません
// falseにすると区別します
CASE_INSENSITIVE = true

// タグを作るフォルダ
// "." にすると、編集中のファイルのあるフォルダでタグを作ります
// ".." などにすると、編集中のファイルの一つ上のフォルダからタグを作ります
DEFAULT_TAGS_DIR = "."

// タグファイルがない場合の挙動
// trueにするとタグを作成するフォルダを尋ねます
// falseにするとフォルダを尋ねずに無言で作成を始めます
CONFIRM_CREATE_TAGS = false

/** 本体 **/

var FileSystem = new ActiveXObject("Scripting.FileSystemObject")
var Shell = new ActiveXObject("WScript.Shell")

main()

function main()
{
var ctags = makeCtags()
var tags = makeTags(ctags)
var query = getQueryWord()
var result = tags.lookup(query)
var word = chooseWord(result)

if ("string" === typeof word)
{
writeWord(word)
}
else if (word === false)
{
tags.update()
}
else
{
jumpToDefinition(word)
}
}

function makeCtags()
{
return { run: run }

function run(dir)
{
var ctags = findCtags()

try
{
Shell.CurrentDirectory = dir
window.Status = 'タグファイルを作成していますお待ちください'
Shell.Run('"' + ctags + '" -o ' + TAGS + " " + CTAGS_FLAGS, 0, true)
}
catch (e)
{
}

window.Status = 'タグファイルを作成しました'
return FileSystem.BuildPath(dir, TAGS)
}

function findCtags()
{
if (FileSystem.FileExists(CTAGS))
{
return CTAGS
}

var dir = FileSystem.GetParentFolderName(editor.FullName)
var ctags = FileSystem.BuildPath(dir, CTAGS)

if (FileSystem.FileExists(ctags))
{
return ctags
}

throw new Error("ctags.exeが見つかりませんでした\nMery本体のディレクトリに置くか、絶対パスを設定してください")
}
}

function makeTags(ctags)
{
var fullname = findTagfile()
var text = loadTagfile()

return { lookup: lookup, update: update }

function getPath()
{
return FileSystem.GetParentFolderName(fullname)
}

function lookup(word)
{
if (/^\s*$/.test(word)) { return }

word = reEscape(word)

var opts = CASE_INSENSITIVE ? "igm" : "gm"
var re = new RegExp("^" + word + ".*$", opts)
var lines = text.match(re)

if (!lines) { return [] }

return calcWords().concat(calcDefinitions(word))

function calcWords()
{
var words = new Array(lines.length)

words[0] = lines[0].substring(0, lines[0].indexOf("\t"))

if (words.length === 1)
{
return words[0] === word ? [] : words
}

var n = 0
for (var i = 1; i < lines.length; i++)
{
var w = lines[i].substring(0, lines[i].indexOf("\t"))

if (words[n] !== w)
{
n++
words[n] = w
}
}

words.length = n + 1

words.sort(function(a, b)
{
return a.localeCompare(b)
})

return words
}

function calcDefinitions(word)
{
var defs = new Array(lines.length)
var n = 0

for (var i = 0; i < lines.length; i++)
{
var line = lines[i]
var tab1 = line.indexOf("\t")

if (tab1 !== word.length) { continue }

var tab2 = line.indexOf("\t", tab1 + 1)
var endnum = line.indexOf(";", tab2 + 1)
var sig = line.indexOf("signature:", endnum + 1)

var name = line.substring(0, tab1)
var filename = line.substring(tab1 + 1, tab2)
var linenum = line.substring(tab2 + 1, endnum)
var signature = sig < 0 ? "" : line.substring(sig + "signature:".length)

var fullname = FileSystem.BuildPath(getPath(), filename)

defs[n] = [fullname, linenum, filename, name + signature]
defs[n].toString = joinme
n++
}

defs.length = n

return defs
}

function joinme()
{
return this[3] + " (" + this[2] + " : " + this[1] + ")"
}
}

function reEscape(w)
{
return w.replace(/[-[\]{}()*+?.,\\^$|#\s]/g, "\\$&")
}

function loadTagfile()
{
if (!fullname)
{
fullname = makeTagfile()
}

return slurp(fullname)
}

function findTagfile()
{
var dir = document.Path

while (FileSystem.FolderExists(dir))
{
var file = FileSystem.BuildPath(dir, TAGS)
if (FileSystem.FileExists(file)) { return file }
dir = FileSystem.GetParentFolderName(dir)
}
}

function makeTagfile()
{
var dir = FileSystem.BuildPath(document.Path, DEFAULT_TAGS_DIR)

if (CONFIRM_CREATE_TAGS)
{
dir = window.Prompt("タグファイル作成フォルダ", dir)
}

if (!dir)
{
window.Quit()
}

return ctags.run(dir)
}

function update()
{
return ctags.run(getPath())
}

function slurp(filename)
{
var f = FileSystem.OpenTextFile(filename)
var text = f.ReadAll()
f.Close()
return text
}
}

function getQueryWord()
{
var s = document.selection

if (!s.IsEmpty) { return s.Text }

if (WHOLE_WORD)
{
s.SelectWord()

// hoge|(); → hogeFuga|(); のように補完
if (s.Text.length == 1 && !/\w/.test(s.Text))
{
s.Collapse(meCollapseStart)
s.WordLeft(true)
}
}
else
{
s.WordLeft(true)
}

if (/\A\s+\z/.test(s.Text))
{
s.Collapse(meCollapseEnd)
}

return s.Text
}

function chooseWord(words)
{
if (words && words.length === 1 && typeof words[0] === "string")
{
return words[0]
}

var menu = makeMenu()
var i = menu.Track(0)

return i === -1 ? false : words && words[i - 1]

function makeMenu()
{
var menu = window.CreatePopupMenu()
initMenu(menu)
menu.Add("タグファイルを更新する", -1)
return menu
}

function initMenu(menu)
{
if (!words || words.length == 0) { return }

var n = 0
function addHotkey(word)
{
if (n > 34) { return word }
n++
return "&" + n.toString(36) + ". " + word
}

for (var i = 0; i < words.length; i++)
{
menu.Add(addHotkey(words[i]), i + 1)
}

menu.Add(undefined, 0, meMenuSeparator)
}
}

function jumpToDefinition(def)
{
if (!def) { return }
window.Status = def + "にジャンプします"
var file = def[0]
var line = def[1]

editor.OpenFile(file, 0, meOpenAllowNewWindow)
editor.ActiveDocument.selection.SetActivePoint(mePosLogical, 1, line, false)
editor.ActiveDocument.Activate()
}

function writeWord(word)
{
if (word)
{
document.selection.Text = word
}
}
</source>

タグファイルから補完

2012-10-13T18:05:58Z

Snipsnipsnip:

ctagsの生成したtagsファイルから検索して単語のメニューを出します。

項目を選ぶとその単語が挿入されます。

単語が完全な形の場合、タグジャンプを行います。

kazyさんの[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]]とあわせてお使いください。(単独で使ってもタグジャンプ機能はあります)

== インストール ==

#下のスクリプトをコピーして、MeryのMy Macroフォルダなどに保存
#Mery.exeのあるフォルダに[[http://hp.vector.co.jp/authors/VA025040/ctags/ ctags.exe]]を置く
#マクロを登録し、Ctrl+→やCtrl+Shift+SpaceやCtrl+Qキーなどにお好みで設定する

== 使い方 ==

#補完したい単語にカーソルを置き、マクロを起動する
#初回起動の場合、タグファイルの作成を待つ
#すでに単語が完全な場合、メニューを選ぶとその定義にジャンプする
#メニューの項目を選ぶと、その単語が挿入される
#メニューの最後の「タグファイルを更新する」を選ぶと、タグファイルを作り直すことができる

== カスタマイズ ==

変数を変えることで、挙動がいくらかカスタマイズできます。

{| border="1" style="width: 80%; margin-left: 2em; border-collapse: collapse"
! 名前 !! 初期設定 !! 効果
|-
| TAGS || ".merytags" || タグファイルの名前
|-
| CTAGS || "ctags.exe" || ctags.exeの名前

相対パスの場合はmery本体のあるディレクトリのものを使います

"c:\\bin\\ctags.exe" のように絶対パスも指定できます
|-
| CTAGS_FLAGS || "--excmd=number --recurse --fields=+S" || ctagsに与える引数

初期設定の意味は左から
* 位置を行番号で記憶 (タグジャンプに必要)
* フォルダを再帰的に処理
* 関数の引数を記憶
|-
| WHOLE_WORD || true || 単語の途中で補完する際の挙動

trueにするとカーソルの置かれた単語全体から補完

falseにするとカーソルより左から補完します
|-
| CASE_INSENSITIVE || true || 単語の検索の挙動

trueにすると検索時大文字と小文字を区別しません

falseにすると区別します
|-
| DEFAULT_TAGS_DIR || "." || タグを作るフォルダ

"." にすると、編集中のファイルのあるフォルダでタグを作ります

".." などにすると、編集中のファイルの一つ上のフォルダからタグを作ります
|-
| CONFIRM_CREATE_TAGS || true || タグファイルがない場合の挙動

trueにするとタグを作成するフォルダを尋ねます

falseにするとフォルダを尋ねずに無言で作成を始めます
|}

== 更新履歴 ==

* r1～r3: 失念
* r4: ホットキー追加
* r5: C言語の関数で引数を表示、今開いてるファイル中の単語からも補完、文字の大小を区別しないオプション
* r6: 確認せずにctagsを起動するオプション
* r7: 補完候補の単語が1つだけのときうまく補完されないのを修正

== ソース ==

<source lang="javascript">
// タグファイルから補完.js r7 2012-10-24
// http://www.haijin-boys.com/wiki/%E3%82%BF%E3%82%B0%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%8B%E3%82%89%E8%A3%9C%E5%AE%8C

// http://hp.vector.co.jp/authors/VA025040/ctags/ の日本語版ctags 5.8J2 で動作確認しています

/** 設定 **/

// タグファイルの名前
TAGS = ".merytags"

// ctags.exeの名前
// 相対パスの場合はmery本体のあるディレクトリのものを使います
// "c:\\bin\\ctags.exe" のように絶対パスも指定できます
CTAGS = "ctags.exe"

// ctagsに与える引数 (初期設定：位置を行番号で記憶(必須)、フォルダを再帰的に処理、関数の引数を記憶)
CTAGS_FLAGS = "--excmd=number --recurse --fields=+S"

// 単語の途中で補完する際の挙動
// trueにするとカーソルの置かれた単語全体から補完
// falseにするとカーソルより左から補完します
WHOLE_WORD = true

// 単語の検索の挙動
// trueにすると検索時大文字と小文字を区別しません
// falseにすると区別します
CASE_INSENSITIVE = true

// タグを作るフォルダ
// "." にすると、編集中のファイルのあるフォルダでタグを作ります
// ".." などにすると、編集中のファイルの一つ上のフォルダからタグを作ります
DEFAULT_TAGS_DIR = "."

// タグファイルがない場合の挙動
// trueにするとタグを作成するフォルダを尋ねます
// falseにするとフォルダを尋ねずに無言で作成を始めます
CONFIRM_CREATE_TAGS = false

/** 本体 **/

var FileSystem = new ActiveXObject("Scripting.FileSystemObject")
var Shell = new ActiveXObject("WScript.Shell")

main()

function main()
{
var ctags = makeCtags()
var tags = makeTags(ctags)
var query = getQueryWord()
var result = tags.lookup(query)
var word = chooseWord(result)

if ("string" === typeof word)
{
writeWord(word)
}
else if (word === false)
{
tags.update()
}
else
{
jumpToDefinition(word)
}
}

function makeCtags()
{
return { run: run }

function run(dir)
{
var ctags = findCtags()

try
{
Shell.CurrentDirectory = dir
window.Status = 'タグファイルを作成していますお待ちください'
Shell.Run('"' + ctags + '" -o ' + TAGS + " " + CTAGS_FLAGS, 0, true)
}
catch (e)
{
}

window.Status = 'タグファイルを作成しました'
return FileSystem.BuildPath(dir, TAGS)
}

function findCtags()
{
if (FileSystem.FileExists(CTAGS))
{
return CTAGS
}

var dir = FileSystem.GetParentFolderName(editor.FullName)
var ctags = FileSystem.BuildPath(dir, CTAGS)

if (FileSystem.FileExists(ctags))
{
return ctags
}

throw new Error("ctags.exeが見つかりませんでした\nMery本体のディレクトリに置くか、絶対パスを設定してください")
}
}

function makeTags(ctags)
{
var fullname = findTagfile()
var text = loadTagfile()

return { lookup: lookup, update: update }

function getPath()
{
return FileSystem.GetParentFolderName(fullname)
}

function lookup(word)
{
if (/^\s*$/.test(word)) { return }

word = reEscape(word)

var opts = CASE_INSENSITIVE ? "igm" : "gm"
var re = new RegExp("^" + word + ".*$", opts)
var lines = text.match(re)

if (!lines) { return [] }

return calcWords().concat(calcDefinitions(word))

function calcWords()
{
var words = new Array(lines.length)

words[0] = lines[0].substring(0, lines[0].indexOf("\t"))

if (words.length === 1)
{
return words[0] === word ? [] : words
}

var n = 0
for (var i = 1; i < lines.length; i++)
{
var w = lines[i].substring(0, lines[i].indexOf("\t"))

if (words[n] !== w)
{
n++
words[n] = w
}
}

words.length = n + 1

words.sort(function(a, b)
{
return a.localeCompare(b)
})

return words
}

function calcDefinitions(word)
{
var defs = new Array(lines.length)
var n = 0

for (var i = 0; i < lines.length; i++)
{
var line = lines[i]
var tab1 = line.indexOf("\t")

if (tab1 !== word.length) { continue }

var tab2 = line.indexOf("\t", tab1 + 1)
var endnum = line.indexOf(";", tab2 + 1)
var sig = line.indexOf("signature:", endnum + 1)

var name = line.substring(0, tab1)
var filename = line.substring(tab1 + 1, tab2)
var line = line.substring(tab2 + 1, endnum)
var signature = sig < 0 ? "" : line.substring(sig + "signature:".length)

var fullname = FileSystem.BuildPath(getPath(), filename)

defs[n] = [fullname, line, filename, name + signature]
defs[n].toString = joinme
n++
}

defs.length = n

return defs
}

function joinme()
{
return this[3] + " (" + this[2] + " : " + this[1] + ")"
}
}

function reEscape(w)
{
return w.replace(/[-[\]{}()*+?.,\\^$|#\s]/g, "\\$&")
}

function loadTagfile()
{
if (!fullname)
{
fullname = makeTagfile()
}

return slurp(fullname)
}

function findTagfile()
{
var dir = document.Path

while (FileSystem.FolderExists(dir))
{
var file = FileSystem.BuildPath(dir, TAGS)
if (FileSystem.FileExists(file)) { return file }
dir = FileSystem.GetParentFolderName(dir)
}
}

function makeTagfile()
{
var dir = FileSystem.BuildPath(document.Path, DEFAULT_TAGS_DIR)

if (CONFIRM_CREATE_TAGS)
{
dir = window.Prompt("タグファイル作成フォルダ", dir)
}

if (!dir)
{
window.Quit()
}

return ctags.run(dir)
}

function update()
{
return ctags.run(getPath())
}

function slurp(filename)
{
var f = FileSystem.OpenTextFile(filename)
var text = f.ReadAll()
f.Close()
return text
}
}

function getQueryWord()
{
var s = document.selection

if (!s.IsEmpty) { return s.Text }

if (WHOLE_WORD)
{
s.SelectWord()

// hoge|(); → hogeFuga|(); のように補完
if (s.Text.length == 1 && !/\w/.test(s.Text))
{
s.Collapse(meCollapseStart)
s.WordLeft(true)
}
}
else
{
s.WordLeft(true)
}

if (/\A\s+\z/.test(s.Text))
{
s.Collapse(meCollapseEnd)
}

return s.Text
}

function chooseWord(words)
{
if (words && words.length === 1 && typeof words[0] === "string")
{
return words[0]
}

var menu = makeMenu()
var i = menu.Track(0)

return i === -1 ? false : words && words[i - 1]

function makeMenu()
{
var menu = window.CreatePopupMenu()
initMenu(menu)
menu.Add("タグファイルを更新する", -1)
return menu
}

function initMenu(menu)
{
if (!words || words.length == 0) { return }

var n = 0
function addHotkey(word)
{
if (n > 34) { return word }
n++
return "&" + n.toString(36) + ". " + word
}

for (var i = 0; i < words.length; i++)
{
menu.Add(addHotkey(words[i]), i + 1)
}

menu.Add(undefined, 0, meMenuSeparator)
}
}

function jumpToDefinition(def)
{
if (!def) { return }
window.Status = def + "にジャンプします"
var file = def[0]
var line = def[1]

editor.OpenFile(file, 0, meOpenAllowNewWindow)
editor.ActiveDocument.selection.SetActivePoint(mePosLogical, 1, line, false)
editor.ActiveDocument.Activate()
}

function writeWord(word)
{
if (word)
{
document.selection.Text = word
}
}
</source>

タグファイルから補完

2012-10-13T17:55:08Z

Snipsnipsnip: r7に更新

ctagsの生成したtagsファイルから検索して単語のメニューを出します。

項目を選ぶとその単語が挿入されます。

単語が完全な形の場合、タグジャンプを行います。

kazyさんの[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]]とあわせてお使いください。(単独で使ってもタグジャンプ機能はあります)

*インストール

#下のスクリプトをコピーして、MeryのMy Macroフォルダなどに保存
#Mery.exeのあるフォルダに[[http://hp.vector.co.jp/authors/VA025040/ctags/ ctags.exe]]を置く
#マクロを登録し、Ctrl+→やCtrl+Shift+SpaceやCtrl+Qキーなどにお好みで設定する

*使い方

#補完したい単語にカーソルを置き、マクロを起動する
#初回起動の場合、タグファイルの作成を待つ
#すでに単語が完全な場合、メニューを選ぶとその定義にジャンプする
#メニューの項目を選ぶと、その単語が挿入される
#メニューの最後の「タグファイルを更新する」を選ぶと、タグファイルを作り直すことができる

*カスタマイズ

変数を変えることで、挙動がいくらかカスタマイズできます。

{| border="1" style="width: 80%; margin-left: 2em; border-collapse: collapse"
! 名前 !! 初期設定 !! 効果
|-
| TAGS || ".merytags" || タグファイルの名前
|-
| CTAGS || "ctags.exe" || ctags.exeの名前

相対パスの場合はmery本体のあるディレクトリのものを使います

"c:\\bin\\ctags.exe" のように絶対パスも指定できます
|-
| CTAGS_FLAGS || "--excmd=number --recurse --fields=+S" || ctagsに与える引数

初期設定の意味は左から
* 位置を行番号で記憶 (タグジャンプに必要)
* フォルダを再帰的に処理
* 関数の引数を記憶
|-
| WHOLE_WORD || true || 単語の途中で補完する際の挙動

trueにするとカーソルの置かれた単語全体から補完

falseにするとカーソルより左から補完します
|-
| CASE_INSENSITIVE || true || 単語の検索の挙動

trueにすると検索時大文字と小文字を区別しません

falseにすると区別します
|-
| DEFAULT_TAGS_DIR || "." || タグを作るフォルダ

"." にすると、編集中のファイルのあるフォルダでタグを作ります

".." などにすると、編集中のファイルの一つ上のフォルダからタグを作ります
|-
| CONFIRM_CREATE_TAGS || true || タグファイルがない場合の挙動

trueにするとタグを作成するフォルダを尋ねます

falseにするとフォルダを尋ねずに無言で作成を始めます
|}

<source lang="javascript">
// タグファイルから補完.js r7 2012-10-24
// http://www.haijin-boys.com/wiki/%E3%82%BF%E3%82%B0%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%8B%E3%82%89%E8%A3%9C%E5%AE%8C

// http://hp.vector.co.jp/authors/VA025040/ctags/ の日本語版ctags 5.8J2 で動作確認しています

/** 設定 **/

// タグファイルの名前
TAGS = ".merytags"

// ctags.exeの名前
// 相対パスの場合はmery本体のあるディレクトリのものを使います
// "c:\\bin\\ctags.exe" のように絶対パスも指定できます
CTAGS = "ctags.exe"

// ctagsに与える引数 (初期設定：位置を行番号で記憶(必須)、フォルダを再帰的に処理、関数の引数を記憶)
CTAGS_FLAGS = "--excmd=number --recurse --fields=+S"

// 単語の途中で補完する際の挙動
// trueにするとカーソルの置かれた単語全体から補完
// falseにするとカーソルより左から補完します
WHOLE_WORD = true

// 単語の検索の挙動
// trueにすると検索時大文字と小文字を区別しません
// falseにすると区別します
CASE_INSENSITIVE = true

// タグを作るフォルダ
// "." にすると、編集中のファイルのあるフォルダでタグを作ります
// ".." などにすると、編集中のファイルの一つ上のフォルダからタグを作ります
DEFAULT_TAGS_DIR = "."

// タグファイルがない場合の挙動
// trueにするとタグを作成するフォルダを尋ねます
// falseにするとフォルダを尋ねずに無言で作成を始めます
CONFIRM_CREATE_TAGS = false

/** 本体 **/

var FileSystem = new ActiveXObject("Scripting.FileSystemObject")
var Shell = new ActiveXObject("WScript.Shell")

main()

function main()
{
var ctags = makeCtags()
var tags = makeTags(ctags)
var query = getQueryWord()
var result = tags.lookup(query)
var word = chooseWord(result)

if ("string" === typeof word)
{
writeWord(word)
}
else if (word === false)
{
tags.update()
}
else
{
jumpToDefinition(word)
}
}

function makeCtags()
{
return { run: run }

function run(dir)
{
var ctags = findCtags()

try
{
Shell.CurrentDirectory = dir
window.Status = 'タグファイルを作成していますお待ちください'
Shell.Run('"' + ctags + '" -o ' + TAGS + " " + CTAGS_FLAGS, 0, true)
}
catch (e)
{
}

window.Status = 'タグファイルを作成しました'
return FileSystem.BuildPath(dir, TAGS)
}

function findCtags()
{
if (FileSystem.FileExists(CTAGS))
{
return CTAGS
}

var dir = FileSystem.GetParentFolderName(editor.FullName)
var ctags = FileSystem.BuildPath(dir, CTAGS)

if (FileSystem.FileExists(ctags))
{
return ctags
}

throw new Error("ctags.exeが見つかりませんでした\nMery本体のディレクトリに置くか、絶対パスを設定してください")
}
}

function makeTags(ctags)
{
var fullname = findTagfile()
var text = loadTagfile()

return { lookup: lookup, update: update }

function getPath()
{
return FileSystem.GetParentFolderName(fullname)
}

function lookup(word)
{
if (/^\s*$/.test(word)) { return }

word = reEscape(word)

var opts = CASE_INSENSITIVE ? "igm" : "gm"
var re = new RegExp("^" + word + ".*$", opts)
var lines = text.match(re)

if (!lines) { return [] }

return calcWords().concat(calcDefinitions(word))

function calcWords()
{
var words = new Array(lines.length)

words[0] = lines[0].substring(0, lines[0].indexOf("\t"))

if (words.length === 1)
{
return words[0] === word ? [] : words
}

var n = 0
for (var i = 1; i < lines.length; i++)
{
var w = lines[i].substring(0, lines[i].indexOf("\t"))

if (words[n] !== w)
{
n++
words[n] = w
}
}

words.length = n + 1

words.sort(function(a, b)
{
return a.localeCompare(b)
})

return words
}

function calcDefinitions(word)
{
var defs = new Array(lines.length)
var n = 0

for (var i = 0; i < lines.length; i++)
{
var line = lines[i]
var tab1 = line.indexOf("\t")

if (tab1 !== word.length) { continue }

var tab2 = line.indexOf("\t", tab1 + 1)
var endnum = line.indexOf(";", tab2 + 1)
var sig = line.indexOf("signature:", endnum + 1)

var name = line.substring(0, tab1)
var filename = line.substring(tab1 + 1, tab2)
var line = line.substring(tab2 + 1, endnum)
var signature = sig < 0 ? "" : line.substring(sig + "signature:".length)

var fullname = FileSystem.BuildPath(getPath(), filename)

defs[n] = [fullname, line, filename, name + signature]
defs[n].toString = joinme
n++
}

defs.length = n

return defs
}

function joinme()
{
return this[3] + " (" + this[2] + " : " + this[1] + ")"
}
}

function reEscape(w)
{
return w.replace(/[-[\]{}()*+?.,\\^$|#\s]/g, "\\$&")
}

function loadTagfile()
{
if (!fullname)
{
fullname = makeTagfile()
}

return slurp(fullname)
}

function findTagfile()
{
var dir = document.Path

while (FileSystem.FolderExists(dir))
{
var file = FileSystem.BuildPath(dir, TAGS)
if (FileSystem.FileExists(file)) { return file }
dir = FileSystem.GetParentFolderName(dir)
}
}

function makeTagfile()
{
var dir = FileSystem.BuildPath(document.Path, DEFAULT_TAGS_DIR)

if (CONFIRM_CREATE_TAGS)
{
dir = window.Prompt("タグファイル作成フォルダ", dir)
}

if (!dir)
{
window.Quit()
}

return ctags.run(dir)
}

function update()
{
return ctags.run(getPath())
}

function slurp(filename)
{
var f = FileSystem.OpenTextFile(filename)
var text = f.ReadAll()
f.Close()
return text
}
}

function getQueryWord()
{
var s = document.selection

if (!s.IsEmpty) { return s.Text }

if (WHOLE_WORD)
{
s.SelectWord()

// hoge|(); → hogeFuga|(); のように補完
if (s.Text.length == 1 && !/\w/.test(s.Text))
{
s.Collapse(meCollapseStart)
s.WordLeft(true)
}
}
else
{
s.WordLeft(true)
}

if (/\A\s+\z/.test(s.Text))
{
s.Collapse(meCollapseEnd)
}

return s.Text
}

function chooseWord(words)
{
if (words && words.length === 1 && typeof words[0] === "string")
{
return words[0]
}

var menu = makeMenu()
var i = menu.Track(0)

return i === -1 ? false : words && words[i - 1]

function makeMenu()
{
var menu = window.CreatePopupMenu()
initMenu(menu)
menu.Add("タグファイルを更新する", -1)
return menu
}

function initMenu(menu)
{
if (!words || words.length == 0) { return }

var n = 0
function addHotkey(word)
{
if (n > 34) { return word }
n++
return "&" + n.toString(36) + ". " + word
}

for (var i = 0; i < words.length; i++)
{
menu.Add(addHotkey(words[i]), i + 1)
}

menu.Add(undefined, 0, meMenuSeparator)
}
}

function jumpToDefinition(def)
{
if (!def) { return }
window.Status = def + "にジャンプします"
var file = def[0]
var line = def[1]

editor.OpenFile(file, 0, meOpenAllowNewWindow)
editor.ActiveDocument.selection.SetActivePoint(mePosLogical, 1, line, false)
editor.ActiveDocument.Activate()
}

function writeWord(word)
{
if (word)
{
document.selection.Text = word
}
}
</source>

オフインデント

2012-09-04T02:03:21Z

Snipsnipsnip: ページの作成：「 <pre> 無いより増しかな…：オフインデントのマクロ「自動インデントを有効にする」にしているとき、 Shift キーを押しな...」

<pre>
無いより増しかな…：オフインデントのマクロ

「自動インデントを有効にする」にしているとき、
Shift キーを押しながら Enter キーを押す（Shift+Enter）と、
インデントをしないで次の行頭にカーソルが移動するマクロ。

オフインデント(Shift+Enter).js

下の内容を、上の名前のファイルにして、My Macros に置く。
そこから Mery で開いて、マクロ - これを選択、
ツール - オプション - キーボードのマクロで Shift+Enter に割り当て。
</pre>

([http://www.haijin-boys.com/index.php?fuseaction=weblog.entryInquire&entry_id=5041fb10749ab2.98527205 ブログのコメント] より転載)

<source lang="javascript">
// - ------------------------ --------------------------------------------------
// オフインデント(Shift+Enter)
// revised inuuik 2012-09-02
// - ------------------------ --------------------------------------------------
{
var s = document.selection;
Redraw = false;
s.NewLine(1);
s.StartOfLine(true, mePosLogical);
if (!s.IsEmpty) {
s.Text = "";
}
Redraw = true;
}
// - ------------------------ --------------------------------------------------
</source>

マクロライブラリ

2012-09-04T02:03:04Z

Snipsnipsnip:

ここは Mery で使用できるマクロを集めたライブラリです

スクリプトを拡張子「js」にして「My Macros」等に保存し、マクロメニューの「選択」や「カスタマイズ」から読み込んで使用してください。マクロライブラリはどなたでも自由に編集できますので、みなさんが作成した便利なマクロをどんどん掲載してください。

*[[可変長を固定長に変換]] (kuro)
*[[CSV のカーソル位置の列を削除]] (kuro)
*[[パスを取得]] (kuro)
*[[テキストブラウザ]] (kuro)
*[[文書から検索]] (kuro)
*[[単語を抽出]] (kuro)
*[[フォルダ内のファイルをすべて開く]] (kuro)
*[[SHA でハッシュ化]] (kuro)
*[[Zen Coding]] (kuro)
*[[ファイルを比較]] (kuro)
*[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]] (kazy)
*[[タグファイルから補完]] (n)
*[[TeraPadのCtrl↑と同じような動作をするマクロ]] (suke)
*[[TeraPadのCtrl↓と同じような動作をするマクロ]] (suke)
*[[Vz 風テキストスタック 2 ストロークキー]] (goat)
*[[ブックマーク一覧ジャンプ]] (goat)
*[[clustalw を用いてアライメントを実行]] (suke)
*[[SAPI 使って単語読み上げ]] (miso)
*[[対応する括弧に移動]] (kuro, kurama)
*[[選択文字列を強調]] (kuro)
*[[旧漢字から新漢字に変換]] (furu)
*[[行頭に移動]] (kuro)
*[[引用の追加]] (kuro)
*[[標準変換]] (kuro)
*[[Yahoo!天気情報]] (kuro)
*[[ファイル名を引数にしてアプリ起動]] (kuro, miso)
*[[このファイルから検索(マッチしない行)]] (kuro)
*[[このファイルから検索(マッチする行)]] (kuro)
*[[バイト数]] (kuro)
*[[昇順で並び替え]] (kuro)
*[[降順で並び替え]] (kuro)
*[[連続する重複行を削除]] (kuro)
*[[日付と時刻を挿入]] (n)
*[[JavaScript を実行]] (n)
*[[拡張子の違うファイルを開く]] (n)
*[[フォルダを開く]] (n)
*[[コマンドプロンプトを開く]] (n)
*[[Eclipse風コメントアウト]] (ks)
*[[非選択状態でも逆インデント]] (papagoat)
*[[オフインデント]] (inuuik)

非選択状態でも逆インデント

2012-09-04T02:01:35Z

Snipsnipsnip: ページの作成：「<pre> 最終書き込み 2012/03/30 の「ちょっとクロさん！！！！！！！！！！！！！(要望) 」でユーケーさんが求めていた非選択...」

<pre>
最終書き込み 2012/03/30 の「ちょっとクロさん！！！！！！！！！！！！！(要望) 」
でユーケーさんが求めていた非選択状態での逆インデント。
選択状態では標準機能の逆インデントを実行するので、Shift + TAB に割り当てでき
ます。カーソルは実行時の文字位置(x位置ではなく)を維持します。

#title="非選択状態でも逆インデント"
</pre>

([http://www.haijin-boys.com/index.php?fuseaction=weblog.entryInquire&entry_id=5041fb10749ab2.98527205 ブログのコメント] より転載)

<source lang="javascript">
(function(){
Redraw = false;
with (document.selection){
var flg = isEmpty;
if(flg){
var curPointX = GetActivePointX(mePosLogical);
var curPointY = GetActivePointY(mePosLogical);
EndOfLine(mePosLogical);
var endPointX = GetActivePointX(mePosLogical);
SelectLine();
}
UnIndent();
if(flg){
var topchar = Text.charAt(0);
Collapse(meCollapseStart);
EndOfLine(mePosLogical);
curPointX -= (endPointX - GetActivePointX(mePosLogical));
SetActivePoint(mePosLogical, curPointX, curPointY, false);
}
}
Redraw = true;
})();
</source>

オフインデント(Shift+Enter)

2012-09-04T02:00:32Z

マクロライブラリ

2012-09-04T01:53:50Z

Snipsnipsnip: リンク追加

タグファイルから補完

2012-08-23T15:01:21Z

Snipsnipsnip:

ctagsの生成したtagsファイルから検索して単語のメニューを出します。

項目を選ぶとその単語が挿入されます。

単語が完全な形の場合、タグジャンプを行います。

kazyさんの[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]]とあわせてお使いください。(単独で使ってもタグジャンプ機能はあります)

*インストール

#下のスクリプトをコピーして、MeryのMy Macroフォルダなどに保存
#Mery.exeのあるフォルダに[[http://hp.vector.co.jp/authors/VA025040/ctags/ ctags.exe]]を置く
#マクロを登録し、Ctrl+→やCtrl+Shift+SpaceやCtrl+Qキーなどにお好みで設定する

*使い方

#補完したい単語にカーソルを置き、マクロを起動する
#初回起動の場合、タグファイルの作成を待つ
#すでに単語が完全な場合、メニューを選ぶとその定義にジャンプする
#メニューの項目を選ぶと、その単語が挿入される
#メニューの最後の「タグファイルを更新する」を選ぶと、タグファイルを作り直すことができる

*カスタマイズ

変数を変えることで、挙動がいくらかカスタマイズできます。

{| border="1"
! 名前 !! 初期設定 !! 効果
|-
| TAGS || ".merytags" || タグファイルの名前
|-
| CTAGS || "ctags.exe" || ctags.exeの名前

相対パスの場合はmery本体のあるディレクトリのものを使います

"c:\\bin\\ctags.exe" のように絶対パスも指定できます
|-
| CTAGS_FLAGS || "--excmd=number --recurse --fields=+S" || ctagsに与える引数

初期設定の意味は左から
* 位置を行番号で記憶 (タグジャンプに必要)
* フォルダを再帰的に処理
* 関数の引数を記憶
|-
| WHOLE_WORD || true || 単語の途中で補完する際の挙動

trueにするとカーソルの置かれた単語全体から補完

falseにするとカーソルより左から補完します
|-
| CASE_INSENSITIVE || true || 単語の検索の挙動

trueにすると検索時大文字と小文字を区別しません

falseにすると区別します
|-
| DEFAULT_TAGS_DIR || "." || タグを作るフォルダ

"." にすると、編集中のファイルのあるフォルダでタグを作ります

".." などにすると、編集中のファイルの一つ上のフォルダからタグを作ります
|-
| CONFIRM_CREATE_TAGS || false || タグファイルがない場合の挙動

trueにするとタグを作成するフォルダを尋ねます

falseにするとフォルダを尋ねずに無言で作成を始めます
|}

<source lang="javascript">
// タグファイルから補完.js r6
// http://www.haijin-boys.com/wiki/%E3%82%BF%E3%82%B0%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%8B%E3%82%89%E8%A3%9C%E5%AE%8C

// http://hp.vector.co.jp/authors/VA025040/ctags/ の ctags ctags5.8J2 で動作確認しています

/** 設定 **/

// タグファイルの名前
TAGS = ".merytags"

// ctags.exeの名前
// 相対パスの場合はmery本体のあるディレクトリのものを使います
// "c:\\bin\\ctags.exe" のように絶対パスも指定できます
CTAGS = "ctags.exe"

// ctagsに与える引数 (初期設定：位置を行番号で記憶(必須)、フォルダを再帰的に処理、関数の引数を記憶)
CTAGS_FLAGS = "--excmd=number --recurse --fields=+S"

// 単語の途中で補完する際の挙動
// trueにするとカーソルの置かれた単語全体から補完
// falseにするとカーソルより左から補完します
WHOLE_WORD = true

// 単語の検索の挙動
// trueにすると検索時大文字と小文字を区別しません
// falseにすると区別します
CASE_INSENSITIVE = true

// タグを作るフォルダ
// "." にすると、編集中のファイルのあるフォルダでタグを作ります
// ".." などにすると、編集中のファイルの一つ上のフォルダからタグを作ります
DEFAULT_TAGS_DIR = "."

// タグファイルがない場合の挙動
// trueにするとタグを作成するフォルダを尋ねます
// falseにするとフォルダを尋ねずに無言で作成を始めます
CONFIRM_CREATE_TAGS = false

/** 本体 **/

var FileSystem = new ActiveXObject("Scripting.FileSystemObject")
var Shell = new ActiveXObject("WScript.Shell")

main()

function main()
{
var ctags = makeCtags()
var tags = makeTags(ctags)
var query = getQueryWord()
var result = tags.lookup(query)
var word = chooseWord(result)

if ("string" === typeof word)
{
writeWord(word)
}
else if (word === false)
{
tags.update()
}
else
{
jumpToDefinition(word)
}
}

function makeCtags()
{
return { run: run }

function run(dir)
{
var ctags = findCtags()

try
{
Shell.CurrentDirectory = dir
window.Status = 'タグファイルを作成していますお待ちください'
Shell.Run('"' + ctags + '" -o ' + TAGS + " " + CTAGS_FLAGS, 0, true)
}
catch (e)
{
}

window.Status = 'タグファイルを作成しました'
return FileSystem.BuildPath(dir, TAGS)
}

function findCtags()
{
if (FileSystem.FileExists(CTAGS))
{
return CTAGS
}

var dir = FileSystem.GetParentFolderName(editor.FullName)
var ctags = FileSystem.BuildPath(dir, CTAGS)

if (FileSystem.FileExists(ctags))
{
return ctags
}

throw new Error("ctags.exeが見つかりませんでした\nMery本体のディレクトリに置くか、絶対パスを設定してください")
}
}

function makeTags(ctags)
{
var fullname = findTagfile()
var text = loadTagfile()

return { lookup: lookup, update: update }

function getPath()
{
return FileSystem.GetParentFolderName(fullname)
}

function lookup(word)
{
if (/^\s*$/.test(word)) { return }

word = reEscape(word)

var re = new RegExp("^" + word + ".*$", CASE_INSENSITIVE ? "igm" : "gm")
var lines = text.match(re)

if (!lines) { return [] }

return calcWords().concat(calcDefinitions(word))

function calcWords()
{
if (lines.length === 1) { return [] }

var words = new Array(lines.length)

words[0] = lines[0].substring(0, lines[0].indexOf("\t"))

var n = 0
for (var i = 1; i < lines.length; i++)
{
var word = lines[i].substring(0, lines[i].indexOf("\t"))

if (words[n] !== word)
{
n++
words[n] = word
}
}

words.length = n + 1

words.sort(function(a, b)
{
return a.localeCompare(b)
})

return words
}

function calcDefinitions(word)
{
var defs = new Array(lines.length)
var n = 0

for (var i = 0; i < lines.length; i++)
{
var tab1 = lines[i].indexOf("\t")

if (tab1 !== word.length) { continue }

var tab2 = lines[i].indexOf("\t", tab1 + 1)
var endnum = lines[i].indexOf(";", tab2 + 1)
var sig = lines[i].indexOf("signature:", endnum + 1)

var name = lines[i].substring(0, tab1)
var filename = lines[i].substring(tab1 + 1, tab2)
var line = lines[i].substring(tab2 + 1, endnum)
var signature = sig < 0 ? "" : lines[i].substring(sig + "signature:".length)

var fullname = FileSystem.BuildPath(getPath(), filename)

defs[n] = [fullname, line, filename, name + signature]
defs[n].toString = joinme
n++
}

defs.length = n

return defs
}

function joinme()
{
return this[3] + " (" + this[2] + " : " + this[1] + ")"
}
}

function reEscape(w)
{
return w.replace(/[-[\]{}()*+?.,\\^$|#\s]/g, "\\$&")
}

function loadTagfile()
{
if (!fullname)
{
fullname = makeTagfile()
}

return slurp(fullname)
}

function findTagfile()
{
var dir = document.Path

while (FileSystem.FolderExists(dir))
{
var file = FileSystem.BuildPath(dir, TAGS)
if (FileSystem.FileExists(file)) { return file }
dir = FileSystem.GetParentFolderName(dir)
}
}

function makeTagfile()
{
var dir = FileSystem.BuildPath(document.Path, DEFAULT_TAGS_DIR)

if (CONFIRM_CREATE_TAGS)
{
dir = window.Prompt("タグファイル作成フォルダ", dir)
}

if (!dir)
{
window.Quit()
}

return ctags.run(dir)
}

function update()
{
return ctags.run(getPath())
}

function slurp(filename)
{
var f = FileSystem.OpenTextFile(filename)
var text = f.ReadAll()
f.Close()
return text
}
}

function getQueryWord()
{
var s = document.selection

if (!s.IsEmpty) { return s.Text }

if (WHOLE_WORD)
{
s.SelectWord()

// hoge|(); → hogeFuga|(); のように補完
if (s.Text.length == 1 && !/\w/.test(s.Text))
{
s.Collapse(meCollapseStart)
s.WordLeft(true)
}
}
else
{
s.WordLeft(true)
}

if (/\A\s+\z/.test(s.Text))
{
s.Collapse(meCollapseEnd)
}

return s.Text
}

function chooseWord(words)
{
if (words && words.length === 1 && typeof words[0] === "string")
{
return words[0]
}

var menu = makeMenu()
var i = menu.Track(0)

return i === -1 ? false : words && words[i - 1]

function makeMenu()
{
var menu = window.CreatePopupMenu()
initMenu(menu)
menu.Add("タグファイルを更新する", -1)
return menu
}

function initMenu(menu)
{
if (!words || words.length == 0) { return }

var n = 0
function addHotkey(word)
{
if (n > 34) { return word }
n++
return "&" + n.toString(36) + ". " + word
}

for (var i = 0; i < words.length; i++)
{
menu.Add(addHotkey(words[i]), i + 1)
}

menu.Add(undefined, 0, meMenuSeparator)
}
}

function jumpToDefinition(def)
{
if (!def) { return }
window.Status = def + "にジャンプします"
var file = def[0]
var line = def[1]

editor.OpenFile(file, 0, meOpenAllowNewWindow)
editor.ActiveDocument.selection.SetActivePoint(mePosLogical, 1, line, false)
editor.ActiveDocument.Activate()
}

function writeWord(word)
{
if (word)
{
document.selection.Text = word
}
}
</source>

タグファイルから補完

2012-08-23T13:57:23Z

Snipsnipsnip:

ctagsの生成したtagsファイルから検索して単語のメニューを出します。

項目を選ぶとその単語が挿入されます。

単語が完全な形の場合、タグジャンプを行います。

kazyさんの[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]]とあわせてお使いください。(単独で使ってもタグジャンプ機能はあります)

*インストール

#下のスクリプトをコピーして、MeryのMy Macroフォルダなどに保存
#マクロを登録し、Ctrl+→やCtrl+Shift+SpaceやCtrl+Qキーなどにお好みで設定する
#Mery.exeのあるフォルダに[[http://hp.vector.co.jp/authors/VA025040/ctags/ ctags.exe]]を置く

*初回起動

#指定したディレクトリ以下のソースファイル全てが再帰的にタグファイルに登録される
#「タグファイルの作成が完了しました」とステータスバーに出るまで待つ

*タグファイルの作成後

#補完したい単語にカーソルを置き、マクロを起動する
#すでに単語が完全な場合、メニューを選ぶとその定義にジャンプする
#メニューの項目を選ぶと、その単語が挿入される
#メニューの最後の「タグファイルを更新する」を選ぶと、タグファイルを作り直すことができる

*カスタマイズ

変数を変えることで、挙動がいくらかカスタマイズできます。

<source lang="javascript">
// タグファイルから補完.js r6
// http://www.haijin-boys.com/wiki/%E3%82%BF%E3%82%B0%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%8B%E3%82%89%E8%A3%9C%E5%AE%8C

// http://hp.vector.co.jp/authors/VA025040/ctags/ の ctags ctags5.8J2 で動作確認しています

/** 設定 **/

// タグファイルの名前
TAGS = ".merytags"

// ctags.exeの名前
// 相対パスの場合はmery本体のあるディレクトリのものを使います
// "c:\\bin\\ctags.exe" のように絶対パスも指定できます
CTAGS = "ctags.exe"

// ctagsに与える引数 (初期設定：位置を行番号で記憶(必須)、フォルダを再帰的に処理、関数の引数を記憶)
CTAGS_FLAGS = "--excmd=number --recurse --fields=+S"

// 単語の途中で補完する際の挙動
// trueにするとカーソルの置かれた単語全体から補完
// falseにするとカーソルより左から補完します
WHOLE_WORD = true

// 単語の検索の挙動
// trueにすると検索時大文字と小文字を区別しません
// falseにすると区別します
CASE_INSENSITIVE = true

// タグを作るフォルダ
// "." にすると、編集中のファイルのあるフォルダでタグを作ります
// ".." などにすると、編集中のファイルの一つ上のフォルダからタグを作ります
DEFAULT_TAGS_DIR = "."

// タグファイルがない場合の挙動
// trueにするとタグを作成するフォルダを尋ねます
// falseにするとフォルダを尋ねずに無言で作成を始めます
CONFIRM_CREATE_TAGS = false

/** 本体 **/

var FileSystem = new ActiveXObject("Scripting.FileSystemObject")
var Shell = new ActiveXObject("WScript.Shell")

main()

function main()
{
var ctags = makeCtags()
var tags = makeTags(ctags)
var query = getQueryWord()
var result = tags.lookup(query)
var word = chooseWord(result)

if ("string" === typeof word)
{
writeWord(word)
}
else if (word === false)
{
tags.update()
}
else
{
jumpToDefinition(word)
}
}

function makeCtags()
{
return { run: run }

function run(dir)
{
var ctags = findCtags()

try
{
Shell.CurrentDirectory = dir
window.Status = 'タグファイルを作成していますお待ちください'
Shell.Run('"' + ctags + '" -o ' + TAGS + " " + CTAGS_FLAGS, 0, true)
}
catch (e)
{
}

window.Status = 'タグファイルを作成しました'
return FileSystem.BuildPath(dir, TAGS)
}

function findCtags()
{
if (FileSystem.FileExists(CTAGS))
{
return CTAGS
}

var dir = FileSystem.GetParentFolderName(editor.FullName)
var ctags = FileSystem.BuildPath(dir, CTAGS)

if (FileSystem.FileExists(ctags))
{
return ctags
}

throw new Error("ctags.exeが見つかりませんでした\nMery本体のディレクトリに置くか、絶対パスを設定してください")
}
}

function makeTags(ctags)
{
var fullname = findTagfile()
var text = loadTagfile()

return { lookup: lookup, update: update }

function getPath()
{
return FileSystem.GetParentFolderName(fullname)
}

function lookup(word)
{
if (/^\s*$/.test(word)) { return }

word = reEscape(word)

var re = new RegExp("^" + word + ".*$", CASE_INSENSITIVE ? "igm" : "gm")
var lines = text.match(re)

if (!lines) { return [] }

return calcWords().concat(calcDefinitions(word))

function calcWords()
{
if (lines.length === 1) { return [] }

var words = new Array(lines.length)

words[0] = lines[0].substring(0, lines[0].indexOf("\t"))

var n = 0
for (var i = 1; i < lines.length; i++)
{
var word = lines[i].substring(0, lines[i].indexOf("\t"))

if (words[n] !== word)
{
n++
words[n] = word
}
}

words.length = n + 1

words.sort(function(a, b)
{
return a.localeCompare(b)
})

return words
}

function calcDefinitions(word)
{
var defs = new Array(lines.length)
var n = 0

for (var i = 0; i < lines.length; i++)
{
var tab1 = lines[i].indexOf("\t")

if (tab1 !== word.length) { continue }

var tab2 = lines[i].indexOf("\t", tab1 + 1)
var endnum = lines[i].indexOf(";", tab2 + 1)
var sig = lines[i].indexOf("signature:", endnum + 1)

var name = lines[i].substring(0, tab1)
var filename = lines[i].substring(tab1 + 1, tab2)
var line = lines[i].substring(tab2 + 1, endnum)
var signature = sig < 0 ? "" : lines[i].substring(sig + "signature:".length)

var fullname = FileSystem.BuildPath(getPath(), filename)

defs[n] = [fullname, line, filename, name + signature]
defs[n].toString = joinme
n++
}

defs.length = n

return defs
}

function joinme()
{
return this[3] + " (" + this[2] + " : " + this[1] + ")"
}
}

function reEscape(w)
{
return w.replace(/[-[\]{}()*+?.,\\^$|#\s]/g, "\\$&")
}

function loadTagfile()
{
if (!fullname)
{
fullname = makeTagfile()
}

return slurp(fullname)
}

function findTagfile()
{
var dir = document.Path

while (FileSystem.FolderExists(dir))
{
var file = FileSystem.BuildPath(dir, TAGS)
if (FileSystem.FileExists(file)) { return file }
dir = FileSystem.GetParentFolderName(dir)
}
}

function makeTagfile()
{
var dir = FileSystem.BuildPath(document.Path, DEFAULT_TAGS_DIR)

if (CONFIRM_CREATE_TAGS)
{
dir = window.Prompt("タグファイル作成フォルダ", dir)
}

if (!dir)
{
window.Quit()
}

return ctags.run(dir)
}

function update()
{
return ctags.run(getPath())
}

function slurp(filename)
{
var f = FileSystem.OpenTextFile(filename)
var text = f.ReadAll()
f.Close()
return text
}
}

function getQueryWord()
{
var s = document.selection

if (!s.IsEmpty) { return s.Text }

if (WHOLE_WORD)
{
s.SelectWord()

// hoge|(); → hogeFuga|(); のように補完
if (s.Text.length == 1 && !/\w/.test(s.Text))
{
s.Collapse(meCollapseStart)
s.WordLeft(true)
}
}
else
{
s.WordLeft(true)
}

if (/\A\s+\z/.test(s.Text))
{
s.Collapse(meCollapseEnd)
}

return s.Text
}

function chooseWord(words)
{
if (words && words.length === 1 && typeof words[0] === "string")
{
return words[0]
}

var menu = makeMenu()
var i = menu.Track(0)

return i === -1 ? false : words && words[i - 1]

function makeMenu()
{
var menu = window.CreatePopupMenu()
initMenu(menu)
menu.Add("タグファイルを更新する", -1)
return menu
}

function initMenu(menu)
{
if (!words || words.length == 0) { return }

var n = 0
function addHotkey(word)
{
if (n > 34) { return word }
n++
return "&" + n.toString(36) + ". " + word
}

for (var i = 0; i < words.length; i++)
{
menu.Add(addHotkey(words[i]), i + 1)
}

menu.Add(undefined, 0, meMenuSeparator)
}
}

function jumpToDefinition(def)
{
if (!def) { return }
window.Status = def + "にジャンプします"
var file = def[0]
var line = def[1]

editor.OpenFile(file, 0, meOpenAllowNewWindow)
editor.ActiveDocument.selection.SetActivePoint(mePosLogical, 1, line, false)
editor.ActiveDocument.Activate()
}

function writeWord(word)
{
if (word)
{
document.selection.Text = word
}
}
</source>

タグファイルから補完

2012-08-23T13:53:37Z

Snipsnipsnip: r6

ctagsの生成したtagsファイルから検索して単語のメニューを出します。

項目を選ぶとその単語が挿入されます。

単語が完全な形の場合、タグジャンプを行います。

kazyさんの[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]]とあわせてお使いください。(単独で使ってもタグジャンプ機能はあります)

*インストール

#下のスクリプトをコピーして、MeryのMy Macroフォルダなどに保存
#マクロを登録し、Ctrl+→やCtrl+Shift+SpaceやCtrl+Qキーなどにお好みで設定する
#Mery.exeのあるフォルダに[[http://hp.vector.co.jp/authors/VA025040/ctags/ ctags.exe]]を置く

*初回起動

#タグファイルが生成されていないので、どこに生成するか尋ねられる
#指定したディレクトリ以下のソースファイル全てが再帰的にタグファイルに登録される
#「タグファイルの作成が完了しました」とステータスバーに出るまで待つ

*タグファイルの作成後

#補完したい単語にカーソルを置き、マクロを起動する
#すでに単語が完全な場合、メニューを選ぶとその定義にジャンプする
#メニューの項目を選ぶと、その単語が挿入される
#メニューの最後の「タグファイルを更新する」を選ぶと、タグファイルを作り直すことができる

<source lang="javascript">
// タグファイルから補完.js r6
// http://www.haijin-boys.com/wiki/%E3%82%BF%E3%82%B0%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%8B%E3%82%89%E8%A3%9C%E5%AE%8C

// http://hp.vector.co.jp/authors/VA025040/ctags/ の ctags ctags5.8J2 で動作確認しています

/** 設定 **/

// タグファイルの名前
TAGS = ".merytags"

// ctags.exeの名前
// 相対パスの場合はmery本体のあるディレクトリのものを使います
// "c:\\bin\\ctags.exe" のように絶対パスも指定できます
CTAGS = "ctags.exe"

// ctagsに与える引数 (初期設定：位置を行番号で記憶(必須)、フォルダを再帰的に処理、関数の引数を記憶)
CTAGS_FLAGS = "--excmd=number --recurse --fields=+S"

// 単語の途中で補完する際の挙動
// trueにするとカーソルの置かれた単語全体から補完
// falseにするとカーソルより左から補完します
WHOLE_WORD = true

// 単語の検索の挙動
// trueにすると検索時大文字と小文字を区別しません
// falseにすると区別します
CASE_INSENSITIVE = true

// タグを作るフォルダ
// "." にすると、編集中のファイルのあるフォルダでタグを作ります
// ".." などにすると、編集中のファイルの一つ上のフォルダからタグを作ります
DEFAULT_TAGS_DIR = "."

// タグファイルがない場合の挙動
// trueにするとタグを作成するフォルダを尋ねます
// falseにするとフォルダを尋ねずに無言で作成を始めます
CONFIRM_CREATE_TAGS = false

/** 本体 **/

var FileSystem = new ActiveXObject("Scripting.FileSystemObject")
var Shell = new ActiveXObject("WScript.Shell")

main()

function main()
{
var ctags = makeCtags()
var tags = makeTags(ctags)
var query = getQueryWord()
var result = tags.lookup(query)
var word = chooseWord(result)

if ("string" === typeof word)
{
writeWord(word)
}
else if (word === false)
{
tags.update()
}
else
{
jumpToDefinition(word)
}
}

function makeCtags()
{
return { run: run }

function run(dir)
{
var ctags = findCtags()

try
{
Shell.CurrentDirectory = dir
window.Status = 'タグファイルを作成していますお待ちください'
Shell.Run('"' + ctags + '" -o ' + TAGS + " " + CTAGS_FLAGS, 0, true)
}
catch (e)
{
}

window.Status = 'タグファイルを作成しました'
return FileSystem.BuildPath(dir, TAGS)
}

function findCtags()
{
if (FileSystem.FileExists(CTAGS))
{
return CTAGS
}

var dir = FileSystem.GetParentFolderName(editor.FullName)
var ctags = FileSystem.BuildPath(dir, CTAGS)

if (FileSystem.FileExists(ctags))
{
return ctags
}

throw new Error("ctags.exeが見つかりませんでした\nMery本体のディレクトリに置くか、絶対パスを設定してください")
}
}

function makeTags(ctags)
{
var fullname = findTagfile()
var text = loadTagfile()

return { lookup: lookup, update: update }

function getPath()
{
return FileSystem.GetParentFolderName(fullname)
}

function lookup(word)
{
if (/^\s*$/.test(word)) { return }

word = reEscape(word)

var re = new RegExp("^" + word + ".*$", CASE_INSENSITIVE ? "igm" : "gm")
var lines = text.match(re)

if (!lines) { return [] }

return calcWords().concat(calcDefinitions(word))

function calcWords()
{
if (lines.length === 1) { return [] }

var words = new Array(lines.length)

words[0] = lines[0].substring(0, lines[0].indexOf("\t"))

var n = 0
for (var i = 1; i < lines.length; i++)
{
var word = lines[i].substring(0, lines[i].indexOf("\t"))

if (words[n] !== word)
{
n++
words[n] = word
}
}

words.length = n + 1

words.sort(function(a, b)
{
return a.localeCompare(b)
})

return words
}

function calcDefinitions(word)
{
var defs = new Array(lines.length)
var n = 0

for (var i = 0; i < lines.length; i++)
{
var tab1 = lines[i].indexOf("\t")

if (tab1 !== word.length) { continue }

var tab2 = lines[i].indexOf("\t", tab1 + 1)
var endnum = lines[i].indexOf(";", tab2 + 1)
var sig = lines[i].indexOf("signature:", endnum + 1)

var name = lines[i].substring(0, tab1)
var filename = lines[i].substring(tab1 + 1, tab2)
var line = lines[i].substring(tab2 + 1, endnum)
var signature = sig < 0 ? "" : lines[i].substring(sig + "signature:".length)

var fullname = FileSystem.BuildPath(getPath(), filename)

defs[n] = [fullname, line, filename, name + signature]
defs[n].toString = joinme
n++
}

defs.length = n

return defs
}

function joinme()
{
return this[3] + " (" + this[2] + " : " + this[1] + ")"
}
}

function reEscape(w)
{
return w.replace(/[-[\]{}()*+?.,\\^$|#\s]/g, "\\$&")
}

function loadTagfile()
{
if (!fullname)
{
fullname = makeTagfile()
}

return slurp(fullname)
}

function findTagfile()
{
var dir = document.Path

while (FileSystem.FolderExists(dir))
{
var file = FileSystem.BuildPath(dir, TAGS)
if (FileSystem.FileExists(file)) { return file }
dir = FileSystem.GetParentFolderName(dir)
}
}

function makeTagfile()
{
var dir = FileSystem.BuildPath(document.Path, DEFAULT_TAGS_DIR)

if (CONFIRM_CREATE_TAGS)
{
dir = window.Prompt("タグファイル作成フォルダ", dir)
}

if (!dir)
{
window.Quit()
}

return ctags.run(dir)
}

function update()
{
return ctags.run(getPath())
}

function slurp(filename)
{
var f = FileSystem.OpenTextFile(filename)
var text = f.ReadAll()
f.Close()
return text
}
}

function getQueryWord()
{
var s = document.selection

if (!s.IsEmpty) { return s.Text }

if (WHOLE_WORD)
{
s.SelectWord()

// hoge|(); → hogeFuga|(); のように補完
if (s.Text.length == 1 && !/\w/.test(s.Text))
{
s.Collapse(meCollapseStart)
s.WordLeft(true)
}
}
else
{
s.WordLeft(true)
}

if (/\A\s+\z/.test(s.Text))
{
s.Collapse(meCollapseEnd)
}

return s.Text
}

function chooseWord(words)
{
if (words && words.length === 1 && typeof words[0] === "string")
{
return words[0]
}

var menu = makeMenu()
var i = menu.Track(0)

return i === -1 ? false : words && words[i - 1]

function makeMenu()
{
var menu = window.CreatePopupMenu()
initMenu(menu)
menu.Add("タグファイルを更新する", -1)
return menu
}

function initMenu(menu)
{
if (!words || words.length == 0) { return }

var n = 0
function addHotkey(word)
{
if (n > 34) { return word }
n++
return "&" + n.toString(36) + ". " + word
}

for (var i = 0; i < words.length; i++)
{
menu.Add(addHotkey(words[i]), i + 1)
}

menu.Add(undefined, 0, meMenuSeparator)
}
}

function jumpToDefinition(def)
{
if (!def) { return }
window.Status = def + "にジャンプします"
var file = def[0]
var line = def[1]

editor.OpenFile(file, 0, meOpenAllowNewWindow)
editor.ActiveDocument.selection.SetActivePoint(mePosLogical, 1, line, false)
editor.ActiveDocument.Activate()
}

function writeWord(word)
{
if (word)
{
document.selection.Text = word
}
}
</source>

タグファイルから補完

2012-08-22T05:55:04Z

Snipsnipsnip:

ctagsの生成したtagsファイルから検索して単語のメニューを出します。

項目を選ぶとその単語が挿入されます。

単語が完全な形の場合、タグジャンプを行います。

kazyさんの[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]]とあわせてお使いください。(単独で使ってもタグジャンプ機能はあります)

*インストール

#下のスクリプトをコピーして、MeryのMy Macroフォルダなどに保存
#マクロを登録し、Ctrl+→やCtrl+Shift+SpaceやCtrl+Qキーなどにお好みで設定する
#Mery.exeのあるフォルダに[[http://hp.vector.co.jp/authors/VA025040/ctags/ ctags.exe]]を置く

*初回起動

#タグファイルが生成されていないので、どこに生成するか尋ねられる
#指定したディレクトリ以下のソースファイル全てが再帰的にタグファイルに登録される
#「タグファイルの作成が完了しました」とステータスバーに出るまで待つ

*タグファイルの作成後

#補完したい単語にカーソルを置き、マクロを起動する
#すでに単語が完全な場合、メニューを選ぶとその定義にジャンプする
#メニューの項目を選ぶと、その単語が挿入される
#メニューの最後の「タグファイルを更新する」を選ぶと、タグファイルを作り直すことができる

<source lang="javascript">
// タグファイルから補完.js r5
// http://www.haijin-boys.com/wiki/%E3%82%BF%E3%82%B0%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%8B%E3%82%89%E8%A3%9C%E5%AE%8C

/** 設定 **/

// タグファイルの名前
var TAGS = "tags"

// ctags.exeの名前
// 相対パスの場合は以下のディレクトリから順に探します
// ・mery本体と同じディレクトリ
var CTAGS = "ctags.exe"

// ctagsに与える引数 (初期設定：位置を行番号で記憶(必須)、フォルダを再帰的に処理、関数の引数を記憶)
var CTAGS_FLAGS = "--excmd=number --recurse --fields=+S"

// 単語の途中で補完する際の挙動
// trueにするとカーソルの置かれた単語全体から補完
// falseにするとカーソルより左から補完します
var WHOLE_WORD = true

// 単語の検索の挙動
// trueにすると検索時大文字と小文字を区別しません
// falseにすると区別します
var CASE_INSENSITIVE = true

/** 本体 **/

var FileSystem = new ActiveXObject("Scripting.FileSystemObject")
var Shell = new ActiveXObject("WScript.Shell")

main()

function main()
{
var ctags = makeCtags()
var tags = makeTags(ctags)
var query = getQueryWord()
var result = tags.lookup(query)
var word = chooseWord(result)

if ("string" === typeof word)
{
writeWord(word)
}
else if (word === false)
{
tags.update()
}
else
{
jumpToDefinition(word)
}
}

function makeCtags()
{
return { run: run }

function run(dir)
{
var ctags = findCtags()

try
{
Shell.CurrentDirectory = dir
window.Status = 'タグファイルを作成していますお待ちください'
Shell.Run(ctags + " -o " + TAGS + " " + CTAGS_FLAGS, 0, true)
}
catch (e)
{
}

window.Status = 'タグファイルを作成しました'
return FileSystem.BuildPath(dir, TAGS)
}

function findCtags()
{
if (FileSystem.FileExists(CTAGS))
{
return '"' + CTAGS + '"'
}

var dir = FileSystem.GetParentFolderName(editor.FullName)
var ctags = FileSystem.BuildPath(dir, CTAGS)

if (FileSystem.FileExists(ctags))
{
return '"' + ctags + '"'
}

throw new Error("ctags.exeが見つかりませんでした\nMery本体のディレクトリに置くか、絶対パスを設定してください")
}
}

function makeTags(ctags)
{
var fullname = findTagfile()
var text = loadTagfile()

return { lookup: lookup, update: update }

function getPath()
{
return FileSystem.GetParentFolderName(fullname)
}

function lookup(word)
{
if (/^\s*$/.test(word)) { return }

word = reEscape(word)

var re = new RegExp("^" + word + ".*$", CASE_INSENSITIVE ? "igm" : "gm")
var lines = text.match(re)

if (!lines) { return [] }

return calcWords().concat(calcDefinitions(word))

function calcWords()
{
if (lines.length === 1) { return [] }

var words = new Array(lines.length)

words[0] = lines[0].substring(0, lines[0].indexOf("\t"))

var n = 0
for (var i = 1; i < lines.length; i++)
{
var word = lines[i].substring(0, lines[i].indexOf("\t"))

if (words[n] !== word)
{
n++
words[n] = word
}
}

words.length = n + 1

words.sort(function(a, b)
{
return a.localeCompare(b)
})

return words
}

function calcDefinitions(word)
{
var defs = new Array(lines.length)
var n = 0

for (var i = 0; i < lines.length; i++)
{
var tab1 = lines[i].indexOf("\t")

if (tab1 !== word.length) { continue }

var tab2 = lines[i].indexOf("\t", tab1 + 1)
var endnum = lines[i].indexOf(";", tab2 + 1)
var sig = lines[i].indexOf("signature:", endnum + 1)

var name = lines[i].substring(0, tab1)
var filename = lines[i].substring(tab1 + 1, tab2)
var line = lines[i].substring(tab2 + 1, endnum)
var signature = sig < 0 ? "" : lines[i].substring(sig + "signature:".length)

var fullname = FileSystem.BuildPath(getPath(), filename)

defs[n] = [fullname, line, filename, name + signature]
defs[n].toString = joinme
n++
}

defs.length = n

return defs
}

function joinme()
{
return this[3] + " (" + this[2] + " : " + this[1] + ")"
}
}

function reEscape(w)
{
return w.replace(/[-[\]{}()*+?.,\\^$|#\s]/g, "\\$&")
}

function loadTagfile()
{
if (!fullname)
{
fullname = makeTagfile()
}

return slurp(fullname)
}

function findTagfile()
{
var dir = document.Path

while (FileSystem.FolderExists(dir))
{
var file = FileSystem.BuildPath(dir, TAGS)
if (FileSystem.FileExists(file)) { return file }
dir = FileSystem.GetParentFolderName(dir)
}
}

function makeTagfile()
{
var dir = window.Prompt("タグファイル作成フォルダ", document.Path)

if (!dir)
{
window.Quit()
}

return ctags.run(dir)
}

function update()
{
return ctags.run(getPath())
}

function slurp(filename)
{
var f = FileSystem.OpenTextFile(filename)
var text = f.ReadAll()
f.Close()
return text
}
}

function getQueryWord()
{
var s = document.selection

if (!s.IsEmpty) { return s.Text }

if (WHOLE_WORD)
{
s.SelectWord()

// hoge|(); → hogeFuga|(); のように補完
if (s.Text.length == 1 && !/\w/.test(s.Text))
{
s.Collapse(meCollapseStart)
s.WordLeft(true)
}
}
else
{
s.WordLeft(true)
}

if (/\A\s+\z/.test(s.Text))
{
s.Collapse(meCollapseEnd)
}

return s.Text
}

function chooseWord(words)
{
if (words && words.length === 1 && typeof words[0] === "string")
{
return words[0]
}

var menu = makeMenu()
var i = menu.Track(0)

return i === -1 ? false : words && words[i - 1]

function makeMenu()
{
var menu = window.CreatePopupMenu()
initMenu(menu)
menu.Add("タグファイルを更新する", -1)
return menu
}

function initMenu(menu)
{
if (!words || words.length == 0) { return }

var n = 0
function addHotkey(word)
{
if (n > 34) { return word }
n++
return "&" + n.toString(36) + ". " + word
}

for (var i = 0; i < words.length; i++)
{
menu.Add(addHotkey(words[i]), i + 1)
}

menu.Add(undefined, 0, meMenuSeparator)
}
}

function jumpToDefinition(def)
{
if (!def) { return }
window.Status = def + "にジャンプします"
var file = def[0]
var line = def[1]

editor.OpenFile(file, 0, meOpenAllowNewWindow)
editor.ActiveDocument.selection.SetActivePoint(mePosLogical, 1, line, false)
editor.ActiveDocument.Activate()
}

function writeWord(word)
{
if (word)
{
document.selection.Text = word
}
}
</source>

タグファイルから補完

2012-08-01T06:42:53Z

Snipsnipsnip:

ctagsの生成したtagsファイルから検索して単語のメニューを出します。

項目を選ぶとその単語が挿入されます。

単語が完全な形の場合、タグジャンプを行います。

kazyさんの[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]]とあわせてお使いください。(単独で使ってもタグジャンプ機能はあります)

*インストール

#下のスクリプトをコピーして、MeryのMy Macroフォルダなどに保存
#マクロを登録し、Ctrl+→やCtrl+Shift+SpaceやCtrl+Qキーなどにお好みで設定する
#Mery.exeのあるフォルダに[[http://hp.vector.co.jp/authors/VA025040/ctags/ ctags.exe]]を置く

*初回起動

#タグファイルが生成されていないので、どこに生成するか尋ねられる
#指定したディレクトリ以下のソースファイル全てが再帰的にタグファイルに登録される
#「タグファイルの作成が完了しました」とステータスバーに出るまで待つ

*タグファイルの作成後

#補完したい単語の右にカーソルを置き、マクロを起動する
#メニューの項目を選ぶと、その単語が挿入される
#メニューの最後の「タグファイルを更新する」を選ぶと、タグファイルを作り直すことができる

<source lang="javascript">
// タグファイルから補完.js r5
// http://www.haijin-boys.com/wiki/%E3%82%BF%E3%82%B0%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%8B%E3%82%89%E8%A3%9C%E5%AE%8C

/** 設定 **/

// タグファイルの名前
var TAGS = "tags"

// ctags.exeの名前
// 相対パスの場合は以下のディレクトリから順に探します
// ・mery本体と同じディレクトリ
var CTAGS = "ctags.exe"

// ctagsに与える引数 (初期設定：位置を行番号で記憶(必須)、フォルダを再帰的に処理、関数の引数を記憶)
var CTAGS_FLAGS = "--excmd=number --recurse --fields=+S"

// 単語の途中で補完する際の挙動
// trueにするとカーソルの置かれた単語全体から補完
// falseにするとカーソルより左から補完します
var WHOLE_WORD = true

// 単語の検索の挙動
// trueにすると検索時大文字と小文字を区別しません
// falseにすると区別します
var CASE_INSENSITIVE = true

/** 本体 **/

var FileSystem = new ActiveXObject("Scripting.FileSystemObject")
var Shell = new ActiveXObject("WScript.Shell")

main()

function main()
{
var ctags = makeCtags()
var tags = makeTags(ctags)
var query = getQueryWord()
var result = tags.lookup(query)
var word = chooseWord(result)

if ("string" === typeof word)
{
writeWord(word)
}
else if (word === false)
{
tags.update()
}
else
{
jumpToDefinition(word)
}
}

function makeCtags()
{
return { run: run }

function run(dir)
{
var ctags = findCtags()

try
{
Shell.CurrentDirectory = dir
window.Status = 'タグファイルを作成していますお待ちください'
Shell.Run(ctags + " -o " + TAGS + " " + CTAGS_FLAGS, 0, true)
}
catch (e)
{
}

window.Status = 'タグファイルを作成しました'
return FileSystem.BuildPath(dir, TAGS)
}

function findCtags()
{
if (FileSystem.FileExists(CTAGS))
{
return '"' + CTAGS + '"'
}

var dir = FileSystem.GetParentFolderName(editor.FullName)
var ctags = FileSystem.BuildPath(dir, CTAGS)

if (FileSystem.FileExists(ctags))
{
return '"' + ctags + '"'
}

throw new Error("ctags.exeが見つかりませんでした\nMery本体のディレクトリに置くか、絶対パスを設定してください")
}
}

function makeTags(ctags)
{
var fullname = findTagfile()
var text = loadTagfile()

return { lookup: lookup, update: update }

function getPath()
{
return FileSystem.GetParentFolderName(fullname)
}

function lookup(word)
{
if (/^\s*$/.test(word)) { return }

word = reEscape(word)

var re = new RegExp("^" + word + ".*$", CASE_INSENSITIVE ? "igm" : "gm")
var lines = text.match(re)

if (!lines) { return [] }

return calcWords().concat(calcDefinitions(word))

function calcWords()
{
if (lines.length === 1) { return [] }

var words = new Array(lines.length)

words[0] = lines[0].substring(0, lines[0].indexOf("\t"))

var n = 0
for (var i = 1; i < lines.length; i++)
{
var word = lines[i].substring(0, lines[i].indexOf("\t"))

if (words[n] !== word)
{
n++
words[n] = word
}
}

words.length = n + 1

words.sort(function(a, b)
{
return a.localeCompare(b)
})

return words
}

function calcDefinitions(word)
{
var defs = new Array(lines.length)
var n = 0

for (var i = 0; i < lines.length; i++)
{
var tab1 = lines[i].indexOf("\t")

if (tab1 !== word.length) { continue }

var tab2 = lines[i].indexOf("\t", tab1 + 1)
var endnum = lines[i].indexOf(";", tab2 + 1)
var sig = lines[i].indexOf("signature:", endnum + 1)

var name = lines[i].substring(0, tab1)
var filename = lines[i].substring(tab1 + 1, tab2)
var line = lines[i].substring(tab2 + 1, endnum)
var signature = sig < 0 ? "" : lines[i].substring(sig + "signature:".length)

var fullname = FileSystem.BuildPath(getPath(), filename)

defs[n] = [fullname, line, filename, name + signature]
defs[n].toString = joinme
n++
}

defs.length = n

return defs
}

function joinme()
{
return this[3] + " (" + this[2] + " : " + this[1] + ")"
}
}

function reEscape(w)
{
return w.replace(/[-[\]{}()*+?.,\\^$|#\s]/g, "\\$&")
}

function loadTagfile()
{
if (!fullname)
{
fullname = makeTagfile()
}

return slurp(fullname)
}

function findTagfile()
{
var dir = document.Path

while (FileSystem.FolderExists(dir))
{
var file = FileSystem.BuildPath(dir, TAGS)
if (FileSystem.FileExists(file)) { return file }
dir = FileSystem.GetParentFolderName(dir)
}
}

function makeTagfile()
{
var dir = window.Prompt("タグファイル作成フォルダ", document.Path)

if (!dir)
{
window.Quit()
}

return ctags.run(dir)
}

function update()
{
return ctags.run(getPath())
}

function slurp(filename)
{
var f = FileSystem.OpenTextFile(filename)
var text = f.ReadAll()
f.Close()
return text
}
}

function getQueryWord()
{
var s = document.selection

if (!s.IsEmpty) { return s.Text }

if (WHOLE_WORD)
{
s.SelectWord()

// hoge|(); → hogeFuga|(); のように補完
if (s.Text.length == 1 && !/\w/.test(s.Text))
{
s.Collapse(meCollapseStart)
s.WordLeft(true)
}
}
else
{
s.WordLeft(true)
}

if (/\A\s+\z/.test(s.Text))
{
s.Collapse(meCollapseEnd)
}

return s.Text
}

function chooseWord(words)
{
if (words && words.length === 1 && typeof words[0] === "string")
{
return words[0]
}

var menu = makeMenu()
var i = menu.Track(0)

return i === -1 ? false : words && words[i - 1]

function makeMenu()
{
var menu = window.CreatePopupMenu()
initMenu(menu)
menu.Add("タグファイルを更新する", -1)
return menu
}

function initMenu(menu)
{
if (!words || words.length == 0) { return }

var n = 0
function addHotkey(word)
{
if (n > 34) { return word }
n++
return "&" + n.toString(36) + ". " + word
}

for (var i = 0; i < words.length; i++)
{
menu.Add(addHotkey(words[i]), i + 1)
}

menu.Add(undefined, 0, meMenuSeparator)
}
}

function jumpToDefinition(def)
{
if (!def) { return }
window.Status = def + "にジャンプします"
var file = def[0]
var line = def[1]

editor.OpenFile(file, 0, meOpenAllowNewWindow)
editor.ActiveDocument.selection.SetActivePoint(mePosLogical, 1, line, false)
editor.ActiveDocument.Activate()
}

function writeWord(word)
{
if (word)
{
document.selection.Text = word
}
}
</source>

タグファイルから補完

2012-08-01T06:40:43Z

Snipsnipsnip: r5に更新

ctagsの生成したtagsファイルから検索して単語のメニューを出します。

項目を選ぶとその単語が挿入されます。

単語が完全な形の場合、タグジャンプを行います。

kazyさんの[[ctags.exeでtagsファイルを生成、タグジャンプを行うマクロ]]とあわせてお使いください。(単独で使ってもタグジャンプ機能はあります)

*インストール

#下のスクリプトをコピーして、MeryのMy Macroフォルダなどに保存
#マクロを登録し、Ctrl+→やCtrl+Shift+SpaceやCtrl+Qキーなどにお好みで設定する
#Mery.exeのあるフォルダに[[http://hp.vector.co.jp/authors/VA025040/ctags/ ctags.exe]]を置く

*初回起動

#タグファイルが生成されていないので、どこに生成するか尋ねられる
#指定したディレクトリ以下のソースファイル全てが再帰的にタグファイルに登録される
#「タグファイルの作成が完了しました」とステータスバーに出るまで待つ

*タグファイルの作成後

#補完したい単語の右にカーソルを置き、マクロを起動する
#メニューの項目を選ぶと、その単語が挿入される
#メニューの最後の「タグファイルを更新する」を選ぶと、タグファイルを作り直すことができる

<source lang="javascript">
// タグファイルから補完.js r5
// http://www.haijin-boys.com/wiki/%E3%82%BF%E3%82%B0%E3%83%95%E3%82%A1%E3%82%A4%E3%83%AB%E3%81%8B%E3%82%89%E8%A3%9C%E5%AE%8C

/** 設定 **/

// タグファイルの名前
var TAGS = "tags"

// ctags.exeの名前
// 相対パスの場合は以下のディレクトリから順に探します
// ・mery本体と同じディレクトリ
var CTAGS = "ctags.exe"

// ctagsに与える引数 (初期設定：位置を行番号で記憶(必須)、フォルダを再帰的に処理、関数の引数を記憶)
var CTAGS_FLAGS = "--excmd=number --recurse --fields=+S"

// 単語の途中で補完する際の挙動
// trueにするとカーソルの置かれた単語全体から補完
// falseにするとカーソルより左から補完します
var WHOLE_WORD = false

// 単語の検索の挙動
// trueにすると検索時大文字と小文字を区別しません
// falseにすると区別します
var CASE_INSENSITIVE = true

/** 本体 **/

var FileSystem = new ActiveXObject("Scripting.FileSystemObject")
var Shell = new ActiveXObject("WScript.Shell")

main()

function main()
{
var ctags = makeCtags()
var tags = makeTags(ctags)
var query = getQueryWord()
var result = tags.lookup(query)
var word = chooseWord(result)

if ("string" === typeof word)
{
writeWord(word)
}
else if (word === false)
{
tags.update()
}
else
{
jumpToDefinition(word)
}
}

function makeCtags()
{
return { run: run }

function run(dir)
{
var ctags = findCtags()

try
{
Shell.CurrentDirectory = dir
window.Status = 'タグファイルを作成していますお待ちください'
Shell.Run(ctags + " -o " + TAGS + " " + CTAGS_FLAGS, 0, true)
}
catch (e)
{
}

window.Status = 'タグファイルを作成しました'
return FileSystem.BuildPath(dir, TAGS)
}

function findCtags()
{
if (FileSystem.FileExists(CTAGS))
{
return '"' + CTAGS + '"'
}

var dir = FileSystem.GetParentFolderName(editor.FullName)
var ctags = FileSystem.BuildPath(dir, CTAGS)

if (FileSystem.FileExists(ctags))
{
return '"' + ctags + '"'
}

throw new Error("ctags.exeが見つかりませんでした\nMery本体のディレクトリに置くか、絶対パスを設定してください")
}
}

function makeTags(ctags)
{
var fullname = findTagfile()
var text = loadTagfile()

return { lookup: lookup, update: update }

function getPath()
{
return FileSystem.GetParentFolderName(fullname)
}

function lookup(word)
{
if (/^\s*$/.test(word)) { return }

word = reEscape(word)

var re = new RegExp("^" + word + ".*$", CASE_INSENSITIVE ? "igm" : "gm")
var lines = text.match(re)

if (!lines) { return [] }

return calcWords().concat(calcDefinitions(word))

function calcWords()
{
if (lines.length === 1) { return [] }

var words = new Array(lines.length)

words[0] = lines[0].substring(0, lines[0].indexOf("\t"))

var n = 0
for (var i = 1; i < lines.length; i++)
{
var word = lines[i].substring(0, lines[i].indexOf("\t"))

if (words[n] !== word)
{
n++
words[n] = word
}
}

words.length = n + 1

words.sort(function(a, b)
{
return a.localeCompare(b)
})

return words
}

function calcDefinitions(word)
{
var defs = new Array(lines.length)
var n = 0

for (var i = 0; i < lines.length; i++)
{
var tab1 = lines[i].indexOf("\t")

if (tab1 !== word.length) { continue }

var tab2 = lines[i].indexOf("\t", tab1 + 1)
var endnum = lines[i].indexOf(";", tab2 + 1)
var sig = lines[i].indexOf("signature:", endnum + 1)

var name = lines[i].substring(0, tab1)
var filename = lines[i].substring(tab1 + 1, tab2)
var line = lines[i].substring(tab2 + 1, endnum)
var signature = sig < 0 ? "" : lines[i].substring(sig + "signature:".length)

var fullname = FileSystem.BuildPath(getPath(), filename)

defs[n] = [fullname, line, filename, name + signature]
defs[n].toString = joinme
n++
}

defs.length = n

return defs
}

function joinme()
{
return this[3] + " (" + this[2] + " : " + this[1] + ")"
}
}

function reEscape(w)
{
return w.replace(/[-[\]{}()*+?.,\\^$|#\s]/g, "\\$&")
}

function loadTagfile()
{
if (!fullname)
{
fullname = makeTagfile()
}

return slurp(fullname)
}

function findTagfile()
{
var dir = document.Path

while (FileSystem.FolderExists(dir))
{
var file = FileSystem.BuildPath(dir, TAGS)
if (FileSystem.FileExists(file)) { return file }
dir = FileSystem.GetParentFolderName(dir)
}
}

function makeTagfile()
{
var dir = window.Prompt("タグファイル作成フォルダ", document.Path)

if (!dir)
{
window.Quit()
}

return ctags.run(dir)
}

function update()
{
return ctags.run(getPath())
}

function slurp(filename)
{
var f = FileSystem.OpenTextFile(filename)
var text = f.ReadAll()
f.Close()
return text
}
}

function getQueryWord()
{
var s = document.selection

if (!s.IsEmpty) { return s.Text }

if (WHOLE_WORD)
{
s.SelectWord()

// hoge|(); → hogeFuga|(); のように補完
if (s.Text.length == 1 && !/\w/.test(s.Text))
{
s.Collapse(meCollapseStart)
s.WordLeft(true)
}
}
else
{
s.WordLeft(true)
}

if (/\A\s+\z/.test(s.Text))
{
s.Collapse(meCollapseEnd)
}

return s.Text
}

function chooseWord(words)
{
if (words && words.length === 1 && typeof words[0] === "string")
{
return words[0]
}

var menu = makeMenu()
var i = menu.Track(0)

return i === -1 ? false : words && words[i - 1]

function makeMenu()
{
var menu = window.CreatePopupMenu()
initMenu(menu)
menu.Add("タグファイルを更新する", -1)
return menu
}

function initMenu(menu)
{
if (!words || words.length == 0) { return }

var n = 0
function addHotkey(word)
{
if (n > 34) { return word }
n++
return "&" + n.toString(36) + ". " + word
}

for (var i = 0; i < words.length; i++)
{
menu.Add(addHotkey(words[i]), i + 1)
}

menu.Add(undefined, 0, meMenuSeparator)
}
}

function jumpToDefinition(def)
{
if (!def) { return }
window.Status = def + "にジャンプします"
var file = def[0]
var line = def[1]

editor.OpenFile(file, 0, meOpenAllowNewWindow)
editor.ActiveDocument.selection.SetActivePoint(mePosLogical, 1, line, false)
editor.ActiveDocument.Activate()
}

function writeWord(word)
{
if (word)
{
document.selection.Text = word
}
}
</source>