「Mery 電卓」を編集中 (節単位)

== ソースコード ==

<syntaxhighlight lang="javascript" copy>
#title = "Mery 電卓"
#language = "v8"
#include "Common.js"
#include "math_v15.0.0.js"
Redraw = false;
BeginUndoGroup();

// 以下のようなCDNから math.js 本体を入手し、マクロフォルダに配置して利用している。
// https://unpkg.com/mathjs@15.0.0/lib/browser/math.js
// 以下の math.js 関数リファレンス掲載の関数を式内で利用することができる。
// https://mathjs.org/docs/reference/functions.html

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

var sel = document.selection;

// math.js 初期設定
math.config({
    number: 'BigNumber',  // デフォルトの数値型を BigNumber に設定
    precision: 64         // 有効桁数 (デフォルトは64桁)
})
const lowerAndUpperExp = { lowerExp: -7, upperExp: 15 };

doMultiEdit(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.match(/^\s*$/)) {
        return;
    }


    // 計算実行
    try {
        var exp_replaced = replaceExpression(exp);
        var result_str = math.format(math.evaluate(exp_replaced), lowerAndUpperExp);
    } catch (e) {
        if (exp_replaced === undefined) {
            alert("エラー発生" + "\n------\n" + e)
        } else {
            alert("整形後の数式で計算エラーが発生" + "\n------\n" + e + "\n元の数式: " + exp + "\n整形後の数式: " + exp_replaced)
        }
        return;
    }

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

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

    // 既存の計算結果を上書きするか判定
    var pattern = /^=\s*(-?[0-9.,]|true|false|\[[0-9., \[\]]+\])*\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();
        if (exp.slice(-1) === "\n") {
            sel.Text = inputExp + '\n= ' + result_str + '\n';
        } else {
            sel.Text = '\n' + 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 = ["**", "//"];
    invalidOperators.forEach(operator => {
        if (exp.includes(operator)) {
            throw new Error(`「${operator}」はサポートされていません`);
        }
    });

    exp_replaced = exp_replaced.trim()
        // 先頭の = を削除
        .replace(/^= /, "")
        // 改行を ; に置換
        .replace(/(?<!;)\n/mg, ";")
        // 非ASCII文字を削除
        .replace(/[^\x20-\x7e]/g, " ")
        // 全角スペースを半角スペースに変換
        .replace(/　/g, " ")
        // 数字内のカンマを取り除く。[1,2] [1, 2] {a: 1, b: 2} mod(1, 2) のような形式では削除しない
        .replace(/(\d),(?=\d{3})/g, '$1')
        // 予約語を退避
        .replace(/(?:^|\s)(PI|true|false)(?:$|\s)/g, " %%%$1%%% ")
        .replace(/([0-9]+|\$[a-zA-Z0-9]+) (mod|and|or|xor) ([0-9]+|\$[a-zA-Z0-9]+)/g, "$1 %%%$2%%% $3")
        .replace(/not ([0-9]+|\$[a-zA-Z0-9]+)/g, " %%%$1%%% $2")
        // 指数形式を退避
        .replace(/([0-9]+(?:\.[0-9]+)?[eE][+\-]?[0-9]+)/g, " %%%$1%%% ")
        // 変数形式を退避してからドル記号削除
        .replace(/(\$[a-zA-Z][a-zA-Z0-9]*)/g, " %%%$1%%% ")
        .replace(/\$/g, "")
        // 空の括弧を削除
        .replace(/\(\s*\)|\[\s*\]|\{\s*\}/g, " ")
        // 関数形式になっていない文字列を削除
        .replace(/([ ,+\-*\/%^&~|<>?])([a-zA-Z][a-zA-Z0-9]*)(%%% |\()?/g, (match, p1, p2, p3) => {
            return p3 ? p1 + p2 + p3 : p1 + " ";
        })
        // `/hour` などの文字列があるとスラッシュだけ残るためスラッシュを削除
        .replace(/\/\s*([,+\-*\/%^&~|<>?/)\];\n]|$)/g, "$1")
        // 退避文字を復元
        .replace(/ %%%\$([a-zA-Z][a-zA-Z0-9]*)%%% /g, " $1 ")
        .replace(/ %%%([^%]+)%%% /g, " $1 ")

    return exp_replaced;
}
</syntaxhighlight>