「Mery 電卓 (bc コマンド使用版)」を編集中 (節単位)

== ソースコード ==

<syntaxhighlight lang="javascript" copy>
#title = "Mery 電卓 (bc コマンド使用版)"
#include "Common.js"
BeginUndoGroup();

// 事前準備:
//   以下のサイトから busybox64u.exe を入手し、本マクロと同じフォルダーに配置することで動作します。
//   https://frippery.org/busybox/

// 結果をクリップボードにコピーするか
var COPY = true;
// 出力結果をカンマ区切りにするするか
var COMMA = true;

// busybox のパスを取得
const scriptDir = ScriptFullName.replace(/\\[^\\]+$/g, "")
const busyboxPath = scriptDir + "\\busybox64u.exe";
if (!shell.FileExists(busyboxPath)) {
    alert("busybox64u.exe が見つかりません。\nこのマクロを動作させるには、busybox64u.exe を本マクロと同じフォルダーに配置する必要があります。");
    Quit();
}

var sel = document.selection;

if (sel.Count > 1) {
    // マルチカーソル実行時は計算中表示を出してから実行
    ShowTip("計算中... (全 " + sel.Count + " 件)", meShowTipPosCaret);
    doMultiEdit(main);
    ShowTip("", meShowTipHide);
} else {
    main();
}

function main() {
    var isEmpty = sel.IsEmpty;
    var activePointY = sel.GetActivePointY(mePosLogical);
    if (isEmpty) {
        var exp = document.GetLine(activePointY);
    } else {
        var exp = sel.Text;
    }
    // 空白行の場合は何もしない
    if (exp.replace(/[\s　]+/g, "") === "") {
        return;
    }

    // 計算実行
    try {
        var exp_replaced = replaceExpression(exp)
            .replace(/([^;]*%[^;]*)/g, "scale=0; $1; scale=15; "); // 剰余計算を整数にする
        const exec = shell.Exec(busyboxPath + " bc -l", "scale=15; " + exp_replaced);
        if (exec.ExitCode !== 0) {
            throw new Error("計算エラー: " + exec.StdErr);
        }
        // bc の出力のクセに合わせて整形する
        var result_str = exec.StdOut
            .trim()
            .replace(/^(-)?\./gm, "$10.")
            .replace(/(\.[0-9]*?)0+$/gm, "$1")
            .replace(/\.$/gm, "");
    } catch (e) {
        if (exp_replaced === undefined) {
            alert("エラー発生" + "\n------\n" + e)
        } else {
            alert("整形後の数式で計算エラーが発生" + "\n------\n" + e + "\n元の数式: " + exp + "\n整形後の数式: " + exp_replaced);
        }
        var c = Confirm("数式ヘルプを表示しますか？");
        if (c) {
            editor.NewFile();
            var newDoc = editor.ActiveDocument;
            newDoc.Write(help());
            newDoc.selection.SetActivePos(0);
        }
        return;
    }

    // 小数点以上のみカンマ区切り
    if (COMMA && result_str.match(/^[0-9]+(\.[0-9]+)?$/m)) {
        var result_parts = result_str.split(".");
        result_parts[0] = result_parts[0].replace(/(\d)(?=(\d{3})+$)/gm, "$1,");
        if (result_parts.length > 1) {
            result_str = result_parts.join(".");
        } else {
            result_str = result_parts[0];
        }
    }

    // bc コマンドでは複数個の計算出力があると計算結果が複数行になるので1行にまとめる
    result_str = result_str.replace(/\r?\n/g, " ; ");

    // 計算行が = 始まりの場合、= を削除する
    if (isEmpty && exp.match(/^= /)) {
        sel.SetActivePoint(mePosLogical, 1, activePointY, false);
        sel.EndOfLine(true, mePosLogical);
        sel.Text = sel.Text.replace(/^= /, "");
    }

    // 既存の計算結果を上書きするか判定
    var pattern = /^=\s*(-?[0-9.,]+(\s*;\s*)?)*\s*$/;
    var nextLine = document.GetLine(activePointY + 1);
    if (isEmpty && nextLine.match(pattern)) {
        sel.SetActivePoint(mePosLogical, 1, activePointY + 1, false);
        sel.EndOfLine(true, mePosLogical);
        sel.Text = '= ' + result_str
    } else if (isEmpty) {
        sel.LineOpen();
        sel.Text = '= ' + result_str
    } else {
        sel.CharRight();
        const inputExp = exp.replace(/((?!;)\n)/mg, "; ").replace(/;\s*;/g, ";").replace(/　/g, " ").replace(/;\s*$/, "").trim();
        var newLine = "";
        if (exp.slice(-1) !== "\n") {
            newLine = '\n';
        }
        sel.Text = newLine + inputExp + '\n= ' + result_str + '\n';
        sel.CharLeft();
    }

    if (COPY) {
        ClipboardData.SetData(result_str);
        Status = "計算結果 " + result_str + " をコピーしました"
    }
}

/**
 * 数式を置換する
 */
function replaceExpression(exp) {
    // コメント扱いの記載を削除
    let exp_replaced = exp.replace(/`[^`]*`/g, " ")

    // 他の言語で対応する演算子などはあらかじめエラーにする
    const invalidOperators = ["\\*\\*", "//"];
    for (var i = 0; i < invalidOperators.length; i++) {
        var operator = invalidOperators[i];
        if (exp.match(new RegExp(operator))) {
            throw new Error("演算子「" + operator + "」はサポートされていません");
        }
    }

    exp_replaced = exp_replaced.trim()
        // 先頭の = を削除
        .replace(/^= /, "")
        // 改行を ; に置換
        .replace(/\n/g, ";")
        // 非ASCII文字を削除
        .replace(/[^\x20-\x7e]/g, " ")
        // 全角スペースを半角スペースに変換
        .replace(/　/g, " ")
        // 数字内のカンマを取り除く。j(1, 2) では削除しない
        .replace(/j *\(\d+, *\d+\)|,/g, function (match) {
            return match.match(/j/) ? match : "";
        })
        // 変数形式を退避してからドル記号削除
        .replace(/(\$[a-zA-Z][a-zA-Z0-9]*)/g, " %%%$1%%% ")
        .replace(/\$/g, "")
        // 空の括弧を削除
        .replace(/\(\s*\)|\[\s*\]|\{\s*\}/g, " ")
        // 対応関数以外の文字列は削除
        .replace(/[a-zA-Z]+/g, function (match) {
            const functions = ["s", "c", "a", "l", "e", "sqrt", "j"];
            for (var i = 0; i < functions.length; i++) {
                var f = functions[i];
                if (match === f) {
                    return match;
                }
            }
            return " ";
        })
        // `/hour` などの文字列があるとスラッシュだけ残るためスラッシュを削除
        .replace(/\/\s*([,+\-*\/%^&~|<>?/)\];\n]|$)/g, "$1")
        // 退避文字を復元
        .replace(/ %%%\$([a-zA-Z][a-zA-Z0-9]*)%%% /g, " $1 ")
        .replace(/ %%%([^%]+)%%% /g, " $1 ")

    return exp_replaced;
}

function help() {
    return "【Mery 電卓 (bc コマンド使用版) で使用可能な演算子と関数】\n" +
        "\n■基本演算子:\n" +
        "`+` (加算), `-` (減算), `*` (乗算), `/` (除算), `%` (剰余), `^` (べき乗)\n" +
        "\n■比較演算子:\n" +
        "`==` (等しい), `!=` (等しくない), `<` (より小さい), `<=` (以下), `>` (より大きい), `>=` (以上)\n" +
        "\n■代入演算子:\n" +
        "`=`, `+=`, `-=`, `*=`, `/=`, `%=`, `^=`\n" +
        "\n■インクリメント・デクリメント:\n" +
        "`++`, `--`\n" +
        "\n■数学関数 (要 `-l` オプション):\n" +
        "- `s(x)`: サイン（引数はラジアン）\n" +
        "- `c(x)`: コサイン（引数はラジアン）\n" +
        "- `a(x)`: アークタンジェント（返り値はラジアン）\n" +
        "- `l(x)`: 自然対数\n" +
        "- `e(x)`: 指数関数\n" +
        "- `sqrt(x)`: 平方根\n" +
        "- `j(n,x)`: n次ベッセル関数\n" +
        "\n■変数の使い方:\n" +
        "- 変数への代入: $<変数名> = <値> （例: $a = 5, $pi = 4*a(1)）\n" +
        "- 変数の参照: 変数名を数式に記述 （例: $a + 3, $b * 2）\n" +
        "- 複数の式を実行: セミコロン ; で区切る （例: $a = 3; $b = 2; $a + $b）";
}
</syntaxhighlight>