// -*- coding: utf-8 -*- // sp_interpreter.js // 2022-8-13 v18.17 // SPALM Web Interpreter // Modified for Web Application, by H.H(Hamayama Hama). // The original of this program is SPALM for cell-phones. // // This program is free software; you can redistribute it and/or modify // it under the terms of the GNU General Public License as published by // the Free Software Foundation; either version 2 of the License, or // (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // You should have received a copy of the GNU General Public License // along with this program; if not, write to the Free Software // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA // **************************************** // ブラウザ関連処理等 // **************************************** // ***** 汎用 ***** function Alm(msg) { // alert(msg); } function Alm2(msg) { alert(msg); } function DebugShow(msg) { document.getElementById("debug_show1").appendChild(document.createTextNode(msg)); } function DebugShowClear() { document.getElementById("debug_show1").innerHTML = ""; } function BrowserType() { var ua = window.navigator.userAgent; if (ua.indexOf("Opera") >= 0) { return "Opera"; } // MSIEより前にチェックが必要 if (ua.indexOf("MSIE") >= 0) { return "MSIE"; } if (ua.indexOf("Trident") >= 0) { return "MSIE"; } // IE11対策 if (ua.indexOf("Chrome") >= 0) { return "Chrome"; } // Safariより前にチェックが必要 if (ua.indexOf("Safari") >= 0) { return "Safari"; } if (ua.indexOf("Firefox") >= 0) { return "Firefox"; } return ""; } function MobileType() { var ua = window.navigator.userAgent; if (ua.indexOf("Android") >= 0) { return "Android"; } if (ua.indexOf("iPhone") >= 0) { return "iPhone"; } if (ua.indexOf("iPad") >= 0) { return "iPad"; } return ""; } // ***** 初期化 ***** function init_func(load_skip_flag) { var list_id; // ***** FlashCanvas用 ***** if (typeof (FlashCanvas) != "undefined") { DebugShow("FlashCanvas mode.\n"); } else { DebugShow("Native canvas mode.\n"); } // ***** インタープリターの初期化 ***** SP_Interpreter.init(); SP_Interpreter.setrunstatcallback(show_runstat); // ***** プログラムリストの読み込み ***** if (!load_skip_flag) { list_id = get_one_url_para("list"); if (list_id == "") { load_listfile("list0001.txt", false); } else { if (check_id(list_id, 8)) { load_listfile("list" + list_id + ".txt", true); } else { Alm2("init_func:-:リストファイル指定エラー"); } } } // ***** デバッグモードの初期選択 ***** if (get_one_url_para("debug") == "1") { document.getElementById("debug_chk1").checked = true; } return true; } // ***** URLパラメータ1個の取得 ***** function get_one_url_para(key) { var i, j; var para_st, para, val; // ***** 引数のチェック ***** if (key == null) { Alm("get_one_url_para:0001"); return ""; } if (key == "") { Alm("get_one_url_para:0002"); return ""; } // ***** 関数の存在チェック ***** if (typeof (decodeURIComponent) != "function") { Alm("get_one_url_para:0003"); return ""; } // ***** URLパラメータ1個の取得 ***** para_st = window.location.search.substring(1); para = para_st.split("&"); val = ""; for (i = 0; i < para.length; i++) { j = para[i].indexOf("="); if (j > 0 && key == decodeURIComponent(para[i].substring(0, j))) { val = decodeURIComponent(para[i].substring(j + 1)); break; } } return val; } // ***** IDチェック ***** function check_id(id, num) { // ***** 引数のチェック ***** if (id == null) { Alm("check_id:0001"); return false; } if (num == null) { Alm("check_id:0002"); return false; } // ***** IDのチェック ***** if (id.length <= 0 || id.length > num) { return false; } if (!id.match(/^[0-9]+$/)) { return false; } return true; } // ***** プログラムID(複数)の取得 ***** function get_prog_id(list_st) { var i, ch, ch2; var list_st_len; var prog_id = []; var prog_id_count; var split_flag; // ***** 戻り値の初期化 ***** prog_id_count = 0; prog_id[prog_id_count] = ""; // ***** 引数のチェック ***** if (list_st == null) { Alm("get_prog_id:0001"); return prog_id; } if (list_st == "") { Alm("get_prog_id:0002"); return prog_id; } // ***** テキストの分解 ***** split_flag = false; i = 0; list_st_len = list_st.length; while (i < list_st_len) { // ***** 1文字取り出す ***** ch = list_st.charAt(i++); ch2 = list_st.charAt(i); // ***** 空白かタブのとき ***** if (ch == " " || ch == "\t") { split_flag = true; } // ***** 改行のとき ***** if (ch == "\r" || ch == "\n") { split_flag = true; if (ch == "\r" && ch2 == "\n") { i++; } } // ***** コメント「;」のとき ***** if (ch == ";") { split_flag = true; while (i < list_st_len) { // ***** 1文字取り出す ***** ch = list_st.charAt(i++); ch2 = list_st.charAt(i); // ***** 改行のとき ***** if (ch == "\r" || ch == "\n") { if (ch == "\r" && ch2 == "\n") { i++; } break; } } } // ***** プログラムIDの取得 ***** if (split_flag) { split_flag = false; if (check_id(prog_id[prog_id_count], 8)) { prog_id_count++; } prog_id[prog_id_count] = ""; } else { prog_id[prog_id_count] += ch; } } // ***** 最後のIDをチェック ***** if (!check_id(prog_id[prog_id_count], 8)) { prog_id.pop(); } // ***** 戻り値を返す ***** return prog_id; } // ***** リストファイルの読み込み ***** function load_listfile(fname, err_show_flag) { // ***** 引数のチェック ***** if (fname == null) { Alm("load_listfile:0001"); return false; } if (fname == "") { Alm("load_listfile:0002"); return false; } if (err_show_flag == null) { Alm("load_listfile:0003"); return false; } // ***** 要素の存在チェック ***** if (!document.getElementById("prog_sel1")) { Alm("load_listfile:0004"); return false; } // ***** テキストファイルの読み込み ***** load_textfile(fname, function (list_st) { var i, prog_id, elm; // ***** プログラムID(複数)の取得 ***** prog_id = get_prog_id(list_st); // ***** プログラムリストに追加 ***** elm = document.getElementById("prog_sel1"); elm.length = 0; for (i = 0; i < prog_id.length; i++) { elm.length++; elm.options[elm.length - 1].value = prog_id[i]; elm.options[elm.length - 1].text = prog_id[i]; } }, function (err_st) { if (err_show_flag) { Alm2("load_listfile:" + err_st + ":リストファイル読み込みエラー"); } }); return true; } // ***** ソースファイルの読み込み ***** function load_srcfile(fname) { // ***** 引数のチェック ***** if (fname == null) { Alm("load_srcfile:0001"); return false; } if (fname == "") { Alm("load_srcfile:0002"); return false; } // ***** 要素の存在チェック ***** if (!document.getElementById("src_text1")) { Alm("load_srcfile:0003"); return false; } // ***** ロード中にする ***** SP_Interpreter.setloadstat(1); // ***** テキストファイルの読み込み ***** load_textfile(fname, function (src_st) { // ***** ロード中を解除(ロード完了) ***** SP_Interpreter.setloadstat(2); // ***** テキストボックスにセット ***** document.getElementById("src_text1").value = src_st; // ***** スクロールを先頭に移動 ***** if (document.getElementById("src_text1").scrollTop) { document.getElementById("src_text1").scrollTop = 0; } }, function (err_st) { Alm2("load_srcfile:" + err_st + ":ソースファイル読み込みエラー"); // ***** ロード中を解除 ***** SP_Interpreter.setloadstat(0); }); return true; } // ***** テキストファイルの読み込み ***** function load_textfile(fname, ok_func, ng_func) { var http_obj; // ***** 引数のチェック ***** if (fname == null) { Alm("load_textfile:0001"); return false; } if (fname == "") { Alm("load_textfile:0002"); return false; } if (typeof (ok_func) != "function") { Alm("load_textfile:0003"); return false; } if (typeof (ng_func) != "function") { Alm("load_textfile:0004"); return false; } // ***** テキストファイルの読み込み ***** http_obj = createXMLHttpObject(); if (!http_obj) { ng_func("-"); return false; } http_obj.onreadystatechange = function () { var data_st; // ***** IE8対策 ***** // if (http_obj.readyState == 4 && http_obj.status == 200) { if (http_obj.readyState == 4) { if (http_obj.status == 200 || http_obj.status == 0) { data_st = http_obj.responseText; if (data_st) { ok_func(data_st); } else { ng_func("+"); } } else { ng_func("*"); } } }; // ***** IE11対策 ***** // http_obj.open("GET", fname, true); try { http_obj.open("GET", fname, true); } catch (ex1) { ng_func("="); return false; } // (キャッシュの無効化) http_obj.setRequestHeader("Pragma", "no-cache"); http_obj.setRequestHeader("Cache-Control", "no-cache"); http_obj.setRequestHeader("If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT"); // ***** IE8対策 ***** // http_obj.send(null); try { http_obj.send(null); } catch (ex2) { } return true; } // ***** ファイル読み込み用オブジェクトの生成 ***** function createXMLHttpObject() { // ***** IE8対策 ***** if (window.ActiveXObject) { try { return new ActiveXObject("Msxml2.XMLHTTP"); } catch (ex1) { } } try { return new XMLHttpRequest(); } catch (ex2) { } return null; } // ***** プログラム実行状態の表示 ***** function show_runstat() { // ***** 要素の存在チェック ***** if (!document.getElementById("runstat_show1")) { Alm("show_runstat:0001"); return false; } if (!document.getElementById("run_button1")) { Alm("show_runstat:0002"); return false; } if (!document.getElementById("load_button1")) { Alm("show_runstat:0003"); return false; } if (!document.getElementById("prog_sel1")) { Alm("show_runstat:0004"); return false; } if (!document.getElementById("src_text1")) { Alm("show_runstat:0005"); return false; } if (!document.getElementById("dummy_button1")) { Alm("show_runstat:0006"); return false; } // ***** プログラム実行状態の表示 ***** if (SP_Interpreter.getloadstat() == 1) { document.getElementById("runstat_show1").innerHTML = "ロード中"; } else if (SP_Interpreter.getloadstat() == 2) { document.getElementById("runstat_show1").innerHTML = "ロード完了"; } else { if (SP_Interpreter.getrunstat()) { document.getElementById("runstat_show1").innerHTML = "実行中"; } else { document.getElementById("runstat_show1").innerHTML = "停止"; } } // ***** ボタンの有効/無効設定 ***** if (SP_Interpreter.getrunstat() || SP_Interpreter.getloadstat() == 1) { document.getElementById("run_button1").disabled = true; document.getElementById("load_button1").disabled = true; document.getElementById("prog_sel1").disabled = true; document.getElementById("src_text1").disabled = true; // ***** Firefox v26 対策 ***** if (BrowserType() == "Firefox") { document.getElementById("dummy_button1").focus(); } } else { document.getElementById("run_button1").disabled = false; document.getElementById("load_button1").disabled = false; document.getElementById("prog_sel1").disabled = false; document.getElementById("src_text1").disabled = false; } return true; } // ***** ロードボタン ***** function load_button() { var prog_id; // ***** 要素の存在チェック ***** if (!document.getElementById("prog_sel1")) { Alm("load_button:0001"); return false; } // ***** 実行中のチェック ***** if (SP_Interpreter.getrunstat()) { Alm2("load_button:-:プログラム実行中です。停止してからロードしてください。"); return false; } // ***** ロード中のチェック ***** if (SP_Interpreter.getloadstat() == 1) { Alm2("load_button:-:プログラムロード中です。"); return false; } // ***** ソースファイルの読み込み ***** prog_id = document.getElementById("prog_sel1").options[document.getElementById("prog_sel1").selectedIndex].value; if (!check_id(prog_id, 8)) { Alm("load_button:0003"); return false; } load_srcfile("prog" + prog_id + ".txt"); return true; } // ***** 実行ボタン ***** function run_button() { var src_st; var dbg_mode; // ***** 要素の存在チェック ***** if (!document.getElementById("src_text1")) { Alm("run_button:0001"); return false; } if (!document.getElementById("debug_chk1")) { Alm("run_button:0002"); return false; } // ***** 実行中のチェック ***** if (SP_Interpreter.getrunstat()) { Alm2("run_button:-:すでにプログラム実行中です。"); return false; } // ***** ロード中のチェック ***** if (SP_Interpreter.getloadstat() == 1) { Alm2("run_button:-:プログラムロード中です。"); return false; } // ***** ソースの取得 ***** src_st = document.getElementById("src_text1").value; // ***** デバッグモードの設定 ***** if (document.getElementById("debug_chk1").checked) { dbg_mode = 1; } else { dbg_mode = 0; } SP_Interpreter.setdebug(dbg_mode); // ***** 実行 ***** SP_Interpreter.run(src_st); return true; } // ***** 停止ボタン ***** function stop_button() { // ***** 停止 ***** SP_Interpreter.stop(); return true; } // **************************************** // インタープリター // **************************************** // ***** SP_Interpreter(名前空間) ***** // // 公開I/F : // // SP_Interpreter.init() 初期化 // // SP_Interpreter.run(src_st) 実行 // src_st プログラムのソース // // SP_Interpreter.stop() 停止 // // SP_Interpreter.getrunstat() 実行状態取得 // 戻り値 =true:実行中,=false:停止 // // SP_Interpreter.setrunstatcallback(cb_func) 実行状態通知 // cb_func コールバック関数(状態変化時に呼ばれる関数を指定する) // // SP_Interpreter.setloadstat(load_stat) ロード中状態設定 // load_stat =0:非ロード中,=1:ロード中,=2:ロード完了 // // SP_Interpreter.getloadstat() ロード中状態取得 // 戻り値 =0:非ロード中,=1:ロード中,=2:ロード完了 // // SP_Interpreter.setdebug(dbg_mode) デバッグ用 // dbg_mode =0:通常モード,=1:デバッグモード // // SP_Interpreter.setcolor(can1_forecolor, can1_backcolor, can2_forecolor, can2_backcolor) 色設定 // can1_forecolor Canvasの文字色を文字列で指定する("#ffffff" 等。""なら設定しない) // can1_backcolor Canvasの背景色を文字列で指定する("#707070" 等。""なら設定しない) // can2_forecolor ソフトキー表示エリアの文字色を文字列で指定する("#ffffff" 等。""なら設定しない) // can2_backcolor ソフトキー表示エリアの背景色を文字列で指定する("#707070" 等。""なら設定しない) // // SP_Interpreter.setoutdata(no, data) 外部データ設定 // SP_Interpreter.getoutdata(no) 外部データ取得 // // その他 情報等 : // // 各命令の定義は make_func_tbl の中で行っています。 // また、新しい命令の追加は、別ファイルのプラグインで行うことを想定しています。 // // 内部クラス一覧 // Vars 変数用クラス(staticクラス) // // 外部クラス一覧 // Download ファイルダウンロード用クラス(staticクラス) // var SP_Interpreter; (function (SP_Interpreter) { var max_array_size = 10000; // 処理する配列の個数最大値 var max_str_size = 10000; // 処理する文字数最大値 var max_image_size = 4000; // 画像の縦横のサイズ最大値(px) var max_scale_size = 1000; // 座標系の倍率最大値 var max_font_size = 1000; // フォントサイズの最大値(px) var max_font_size2 = 16; // ソフトキー表示エリアのフォントサイズの最大値(px) var can1; // Canvas要素 var ctx1; // Canvasのコンテキスト var can1_width_init = 240; // Canvasの幅(px)の初期値 var can1_height_init = 320; // Canvasの高さ(px)の初期値 var can1_forecolor_init = "#ffffff"; // Canvasの文字色の初期値 var can1_backcolor_init = "#707070"; // Canvasの背景色の初期値 var can2; // ソフトキー表示エリアのCanvas要素 var ctx2; // ソフトキー表示エリアのCanvasのコンテキスト var can2_width_init = 240; // ソフトキー表示エリアの幅(px) var can2_height_init = 18; // ソフトキー表示エリアの高さ(px) var can2_forecolor_init = "#ffffff"; // ソフトキー表示エリアの文字色の初期値 var can2_backcolor_init = "#707070"; // ソフトキー表示エリアの背景色の初期値 var can2_font_size_init = 16; // ソフトキー表示エリアのフォントサイズ(px)の初期値 var can; // 現在の描画先のCanvas要素 var ctx; // 現在の描画先のCanvasコンテキスト var axis = {}; // 座標系情報(連想配列オブジェクト) var font_size; // フォントサイズ(px) var color_val; // 色設定 var line_width; // 線の幅(px) // ***** モバイル仮対応 ***** // (幅と高さがそろったフォント(半角が6x12で全角が12x12等)を指定したいが、 // 現状のモバイルの標準フォントには存在しないもよう) // (2017-7-27) var font_family = "'MS Gothic', Osaka-Mono, monospace"; // フォント指定 // ***** FlashCanvas Pro (将来用) で monospace が横長のフォントになるので対策 ***** if (typeof (FlashCanvas) != "undefined") { font_family = "'MS Gothic', Osaka-Mono"; } var font_size_set = [12, 16, 24, 30]; // フォントサイズの設定値(px)(最小,小,中,大の順) var src; // ソース (文字列) var token = []; // トークン (配列) var token_info = []; // トークン情報(配列)(エラー表示用) var token_len; // トークン数 (token.lengthのキャッシュ用) var code = []; // コード (配列) var code_info = []; // コード情報 (配列)(エラー表示用) var code_str = []; // コード文字列(配列)(表示用とアドレス解決時用) var code_len; // コード数 (code.lengthのキャッシュ用) // var vars = {}; // 変数 (Varsクラスに移行) var imgvars = {}; // 画像変数 (連想配列オブジェクト) var label = {}; // ラベル (連想配列オブジェクト) var func = {}; // 関数 (連想配列オブジェクト) var stack = []; // スタック (配列) var param = []; // 関数の引数 (配列)(ユーザ定義関数のときは逆順に格納) var nothing = 0; // 戻り値なしの組み込み関数の戻り値 var end_token_num = 4; // 終端のトークン数 var pc; // プログラムカウンタ var debugpc; // デバッグ用プログラムカウンタ(エラーの位置を示す) var exec_flag; // 実行フラグ var end_flag; // 終了フラグ var running_flag = false; // 実行中フラグ(GUI用) var loading_mode = 0; // ロード中モード(=0:非ロード中,=1:ロード中,=2:ロード完了) var debug_mode = 0; // デバッグモード(=0:通常モード,=1:デバッグモード) var debugpos1; // デバッグ位置1 var debugpos2; // デバッグ位置2 var sleep_flag; // スリープフラグ var sleep_time; // スリープ時間(msec) var sleep_id = null; // スリープキャンセル用ID var sleep_data = {}; // スリープ時間調整用(連想配列オブジェクト) var loop_time_max = 3000; // 最大ループ時間(msec)(これ以上時間がかかったらエラーとする) var loop_time_start; // ループ開始時間(msec) var loop_nocount_flag; // ループ時間ノーカウントフラグ(ダイアログや時間のかかる処理用) var loop_nocount_extend; // ループ時間ノーカウント延長フラグ(dbgloopset用) var input_flag; // キー入力待ちフラグ1(携帯互換用) var keyinput_flag; // キー入力待ちフラグ2(PC用) var func_back = []; // 関数の呼び出し元のスタック(配列) var gosub_back = []; // gosubの呼び出し元のスタック(配列) var key_press_code; // キープレスコード var key_down_code; // キーダウンコード var key_down_stat = {}; // キーダウン状態(キーごと)(連想配列オブジェクト) var key_scan_stat; // キースキャン状態(携帯互換用) var input_buf_size = 40; // キー入力バッファのサイズ(文字数) var input_buf = []; // キー入力バッファ1(携帯互換用)(配列) var keyinput_buf = []; // キー入力バッファ2(PC用)(配列) var softkeys = []; // ソフトキー情報(配列) var mousex; // マウスX座標(px) var mousey; // マウスY座標(px) var mouse_btn_stat = {}; // マウスボタン状態(ボタンごと)(連想配列オブジェクト) var sp_compati_flag; // 互換モードフラグ var use_local_vars; // ローカル変数使用有無 var varstatement_type; // グローバル/ローカル文のタイプ // (=0:なし,=1:ローカル文,=2:グローバル文) var locvarnames_stack = []; // ローカル変数名情報のスタック(配列) var module_fullname; // モジュール完全名 var module_fullname_stack = []; // モジュール完全名のスタック(配列) var save_data = {}; // セーブデータ(連想配列オブジェクト)(仮) var out_data = {}; // 外部データ(連想配列オブジェクト) var func_tbl = {}; // 組み込み関数の定義情報(連想配列オブジェクト) var const_tbl = {}; // 定数の定義情報(連想配列オブジェクト) var before_run_funcs = {}; // プラグイン用の実行前処理(連想配列オブジェクト) var after_run_funcs = {}; // プラグイン用の実行後処理(連想配列オブジェクト) var clear_var_funcs = {}; // プラグイン用の全変数クリア時処理(連想配列オブジェクト) var constants = { // 組み込み定数 LEFT:4, HCENTER:1, RIGHT:8, TOP:16, VCENTER:2, BASELINE:64, BOTTOM:32, key0:1, key1:2, key2:4, key3:8, key4:16, key5:32, key6:64, key7:128, key8:256, key9:512, keystar:1024, keysharp:2048, keyup:4096, keyleft:8192, keyright:16384, keydown:32768, keyselect:65536, keysoft1:131072, keysoft2:262144, red:0xff0000, green:0x8000, blue:0xff, aqua:0xffff, yellow:0xffff00, gray:0x808080, white:0xffffff, black:0, navy:0x80, teal:0x8080, maroon:0x800000, purple:0x800080, olive:0x808000, silver:0xc0c0c0, lime:0xff00, fuchsia:0xff00ff }; var phone_key_code = { // 携帯のキーコードに変換するテーブル // [0]-[9] (テンキーも含める) 48: (1 << 0), 49: (1 << 1), 50: (1 << 2), 51: (1 << 3), 52: (1 << 4), 53: (1 << 5), 54: (1 << 6), 55: (1 << 7), 56: (1 << 8), 57: (1 << 9), 96: (1 << 0), 97: (1 << 1), 98: (1 << 2), 99: (1 << 3), 100:(1 << 4), 101:(1 << 5), 102:(1 << 6), 103:(1 << 7), 104:(1 << 8), 105:(1 << 9), // [*][#] は [z][x] にする 90: (1 << 10), 88: (1 << 11), // [←][↑][→][↓] 37: (1 << 13), 38: (1 << 12), 39: (1 << 14), 40: (1 << 15), // 決定ボタン は スペースキーとEnterキーとCtrlキー にする 32: (1 << 16), 13: (1 << 16), 17: (1 << 16), // [Soft1][Soft2] は [c][v] にする 67: (1 << 17), 86: (1 << 18) }; var opcode = { // スタックマシンの命令コード push:1, pop:2, dup:3, push0:4, push1:5, load:6, store:7, array:8, address:9, pointer:10, preinc:11, predec:12, postinc:13, postdec:14, add:15, addstr:16, sub:17, mul:18, div:19, divint:20, mod:21, shl:22, shr:23, ushr:24, positive:25, negative:26, and:27, or:28, xor:29, not:30, lognot:31, cmpeq:32, cmpne:33, cmplt:34, cmple:35, cmpgt:36, cmpge:37, label:38, "goto":39, ifgoto:40, ifnotgoto:41, switchgoto:42, gosub:43, "return":44, func:45, funcend:46, callfunc:47, callwait:48, calluser:49, callgoto:50, loadparam:51, end:52 }; var reserved = { // 予約名 "spmode":1, "onlocal":2, "offlocal":3, "defconst":4, "disconst":5, "module":6, "label":7, "goto":8, "gosub":9, "return":10, "end":11, "global":12, "glb":13, "local":14, "loc":15, "func":16, "break":17, "continue":18, "switch":19, "case":20, "default":21, "if":22, "elsif":23, "else":24, "for":25, "while":26, "do":27 }; var operator = { // 演算子(値は命令コードと優先順位) "!": ["lognot", 0], "~": ["not", 0], "+u": ["positive", 0], "-u": ["negative", 0], "++": ["preinc", 0], "--": ["predec", 0], "++p": ["postinc", 0], "--p": ["postdec", 0], "*": ["mul", 40], "/": ["div", 40], "\\": ["divint", 40], "%": ["mod", 40], "+": ["add", 30], ".": ["addstr", 30], "-": ["sub", 30], "==": ["cmpeq", 20], "!=": ["cmpne", 20], "<": ["cmplt", 20], "<=": ["cmple", 20], ">": ["cmpgt", 20], ">=": ["cmpge", 20], "<<": ["shl", 20], ">>": ["shr", 20], ">>>": ["ushr", 20], "&": ["and", 10], "|": ["or", 10], "^": ["xor", 10], "&&": ["", 10], "||": ["", 10], "?": ["", 10], ",": ["", 0], "=": ["", 0], "+=": ["add", 0], "-=": ["sub", 0], "*=": ["mul", 0], "/=": ["div", 0], "\\=": ["divint", 0], "%=": ["mod", 0], ".=": ["addstr", 0], "&=": ["and", 0], "|=": ["or", 0], "^=": ["xor", 0], "<<=": ["shl", 0], ">>=": ["shr", 0], ">>>=": ["ushr", 0], "(": ["", 0], "[": ["", 0] }; // ***** hasOwnPropertyをプロパティ名に使うかもしれない場合の対策 ***** // (変数名、関数名、ラベル名、画像変数名について、 // obj.hasOwnProperty(prop) を hasOwn.call(obj, prop) に置換した) var hasOwn = Object.prototype.hasOwnProperty; // ***** 時間測定高速化用 ***** // (new Date().getTime() より Date.now() の方が高速だが、 // Date.now() が存在しないブラウザもあるのでその対策) if (!Date.now) { Date.now = function () { return new Date().getTime(); }; } // ***** 小数切り捨て関数(ES6) ***** if (!Math.trunc) { Math.trunc = function (x) { return (x < 0) ? Math.ceil(x) : Math.floor(x); }; } // ***** 連想配列オブジェクトの検索効率化 ***** // (プロトタイプチェーンを無効にすることで、 // 連想配列オブジェクトの検索を効率化する。 // 使い方は、obj = {} を obj = hashInit() に置き換えればよい。 // (ただし、常にヒットするような検索では性能は変わらない) // (また、obj.hasOwnProperty() 等のメソッドは 使えなくなる)) var hashInit = (function () { var f = Object.create ? function () { return Object.create(null); } : (function () { var F = function () {}; F.prototype = null; return function () { var r = new F(); if (r.__proto__) { r.__proto__ = null; } return r; }; })(); return f; })(); // **************************************** // 公開I/F // **************************************** // ***** 初期化 ***** function init() { // ***** Canvasの初期化 ***** can1 = document.getElementById("canvas1"); if (!can1 || !can1.getContext) { Alm2("SP_Interpreter.init:-:描画機能が利用できません。"); return false; } // ctx1 = can1.getContext("2d"); can2 = document.getElementById("canvas2"); if (!can2 || !can2.getContext) { Alm2("SP_Interpreter.init:+:描画機能が利用できません。"); return false; } // ctx2 = can2.getContext("2d"); // ***** キーボードイベント登録 ***** if (document.addEventListener) { document.addEventListener("keydown", keydown, false); document.addEventListener("keyup", keyup, false); document.addEventListener("keypress", keypress, false); } else if (document.attachEvent) { // ***** IE8対策 ***** document.attachEvent("onkeydown", keydown); document.attachEvent("onkeyup", keyup); document.attachEvent("onkeypress", keypress); } else { Alm2("SP_Interpreter.init:-:キーボードの状態が取得できません。"); } // ***** マウスイベント登録 ***** if (document.addEventListener) { document.addEventListener("mousedown", mousedown, false); document.addEventListener("mouseup", mouseup, false); document.addEventListener("mousemove", mousemove, false); document.addEventListener("mouseout", mouseout, false); // document.addEventListener("contextmenu", contextmenu, false); // ***** モバイル仮対応 ***** document.addEventListener("touchstart", touchstart, false); document.addEventListener("touchend", touchend, false); document.addEventListener("touchmove", touchmove, false); } else if (document.attachEvent) { // ***** IE8対策 ***** document.attachEvent("onmousedown", mousedown); document.attachEvent("onmouseup", mouseup); document.attachEvent("onmousemove", mousemove); document.attachEvent("onmouseout", mouseout); // document.attachEvent("oncontextmenu", contextmenu); } else { Alm2("SP_Interpreter.init:-:マウスの状態が取得できません。"); } // ***** Canvas内のマウスイベント登録 ***** if (can1.addEventListener) { can1.addEventListener("mousedown", mousedown_canvas, false); can1.addEventListener("contextmenu", contextmenu_canvas, false); } else if (can1.attachEvent) { // ***** IE8対策 ***** can1.attachEvent("onmousedown", mousedown_canvas); can1.attachEvent("oncontextmenu", contextmenu_canvas); } else { Alm2("SP_Interpreter.init:-:Canvas内のマウスの状態が取得できません。"); } // ***** 組み込み関数の定義情報の初期化 ***** func_tbl = {}; // ***** 組み込み関数の定義情報の生成 ***** make_func_tbl(); return true; } SP_Interpreter.init = init; // ***** 実行 ***** function run(src_st) { // ***** 引数のチェック ***** if (src_st == null) { Alm2("SP_Interpreter.run:-:ソースがありません。"); return false; } // if (src_st == "") { Alm2("SP_Interpreter.run:+:ソースがありません。"); return false; } // ***** ソース設定 ***** src = src_st; // ***** 実行開始 ***** run_start(); return true; } SP_Interpreter.run = run; // ***** 停止 ***** function stop() { set_end_flag(true); if (sleep_id != null) { clearTimeout(sleep_id); run_continuously(); } return true; } SP_Interpreter.stop = stop; // ***** 実行状態取得 ***** function getrunstat() { return running_flag; } SP_Interpreter.getrunstat = getrunstat; // ***** 実行状態通知 ***** var runstatchanged = function () { }; function setrunstatcallback(cb_func) { if (typeof (cb_func) != "function") { Alm("SP_Interpreter.setrunstatcallback:0001"); return false; } runstatchanged = cb_func; return true; } SP_Interpreter.setrunstatcallback = setrunstatcallback; // ***** ロード中状態設定 ***** function setloadstat(load_stat) { if (load_stat == null) { Alm("SP_Interpreter.setloadstat:0001"); return false; } loading_mode = load_stat; runstatchanged(); if (loading_mode == 2) { loading_mode = 0; } return true; } SP_Interpreter.setloadstat = setloadstat; // ***** ロード中状態取得 ***** function getloadstat() { return loading_mode; } SP_Interpreter.getloadstat = getloadstat; // ***** デバッグ用 ***** function setdebug(dbg_mode) { if (dbg_mode == null) { Alm("SP_Interpreter.setdebug:0001"); return false; } debug_mode = dbg_mode; return true; } SP_Interpreter.setdebug = setdebug; // ***** 色設定 ***** function setcolor(can1_forecolor, can1_backcolor, can2_forecolor, can2_backcolor) { if (can1_forecolor == null) { Alm("SP_Interpreter.setcolor:0001"); return false; } if (can1_backcolor == null) { Alm("SP_Interpreter.setcolor:0002"); return false; } if (can2_forecolor == null) { Alm("SP_Interpreter.setcolor:0003"); return false; } if (can2_backcolor == null) { Alm("SP_Interpreter.setcolor:0004"); return false; } if (can1_forecolor != "") { can1_forecolor_init = can1_forecolor; } if (can1_backcolor != "") { can1_backcolor_init = can1_backcolor; } if (can2_forecolor != "") { can2_forecolor_init = can2_forecolor; } if (can2_backcolor != "") { can2_backcolor_init = can2_backcolor; } return true; } SP_Interpreter.setcolor = setcolor; // ***** 外部データ設定 ***** function setoutdata(no, data) { if (no == null) { Alm("SP_Interpreter.setoutdata:0001"); return false; } if (data == null) { Alm("SP_Interpreter.setoutdata:0002"); return false; } no |= 0; data = String(data); out_data[no] = data; return true; } SP_Interpreter.setoutdata = setoutdata; // ***** 外部データ取得 ***** function getoutdata(no) { if (no == null) { Alm("SP_Interpreter.getoutdata:0001"); return false; } no |= 0; return out_data.hasOwnProperty(no) ? out_data[no] : ""; } SP_Interpreter.getoutdata = getoutdata; // ***** 公開I/Fはここまで ***** // ***** 以下は内部処理用 ***** // **************************************** // 実行処理 // **************************************** // (コンパイルで生成したスタックマシンのコードを実行する) // ***** 実行開始 ***** function run_start() { var msg; var name; // ***** Canvasのコンテキストを取得 ***** ctx1 = can1.getContext("2d"); ctx2 = can2.getContext("2d"); // ***** Canvasのリサイズ ***** can1.width = can1_width_init; can1.height = can1_height_init; can2.width = can2_width_init; can2.height = can2_height_init; can1.style.width = can1_width_init + "px"; can1.style.height = can1_height_init + "px"; can2.style.width = can2_width_init + "px"; can2.style.height = can2_height_init + "px"; // ***** Canvasの背景色設定 ***** can1.style.backgroundColor = can1_backcolor_init; can2.style.backgroundColor = can2_backcolor_init; // ***** Canvasのクリア ***** ctx1.clearRect(0, 0, can1.width, can1.height); ctx2.clearRect(0, 0, can2.width, can2.height); // ***** フォントサイズの初期化 ***** font_size = font_size_set[1]; // ctx2.font = can2_font_size_init + "px " + font_family; // ***** Canvasの各種設定の初期化 ***** init_canvas_setting(ctx1, 0); // ***** 現在の描画先にセット ***** can = can1; ctx = ctx1; // ***** ソフトキー表示 ***** softkeys[0] = {}; softkeys[1] = {}; softkeys[0].text = ""; softkeys[1].text = ""; softkeys[0].font_size = can2_font_size_init; softkeys[1].font_size = can2_font_size_init; disp_softkeys(); // ***** デバッグ表示クリア ***** DebugShowClear(); // ***** 実行開始 ***** DebugShow("実行開始\n"); // ***** トークン分割 ***** try { tokenize(); } catch (ex1) { DebugShow("token:(" + token_len + "個): " + token.join(" ") + "\n"); DebugShow("tokenize: " + ex1.message + "\n"); debugpos1 = token_len - 1; if (debugpos1 < 0) { debugpos1 = 0; } msg = "エラー場所: " + token_info[debugpos1].line_no + "行"; DebugShow(msg + "\n"); DebugShow("実行終了\n"); return false; } // ***** プリプロセス ***** debugpos1 = 0; debugpos2 = 0; try { preprocess(); } catch (ex2) { DebugShow("token:(" + token_len + "個): " + token.join(" ") + "\n"); DebugShow("preprocess: " + ex2.message + ": debugpos=" + debugpos1 + "\n"); show_err_place(debugpos1, debugpos2); DebugShow("実行終了\n"); return false; } // ***** コンパイル ***** debugpos1 = 0; debugpos2 = 0; try { compile(); } catch (ex3) { DebugShow("token:(" + token_len + "個): " + token.join(" ") + "\n"); DebugShow("code :(" + code_len + "個): " + code_str.join(" ") + "\n"); DebugShow("compile: " + ex3.message + ": debugpos=" + debugpos1 + "\n"); show_err_place(debugpos1, debugpos2); DebugShow("実行終了\n"); return false; } if (debug_mode == 1) { DebugShow("token:(" + token_len + "個): " + token.join(" ") + "\n"); DebugShow("code :(" + code_len + "個): " + code_str.join(" ") + "\n"); } // ***** アドレス解決 ***** debugpos1 = 0; debugpos2 = 0; try { resolveaddress(); } catch (ex4) { DebugShow("label=" + sort_obj_tostr(label, 2) + "\n"); DebugShow("func=" + sort_obj_tostr(func, 2) + "\n"); DebugShow("resolveaddress: " + ex4.message + ": debugpos=" + debugpos1 + "\n"); show_err_place(debugpos1, debugpos2); DebugShow("実行終了\n"); return false; } // if (debug_mode == 1) { // msg = ""; // for (var i = 0; i < code_len; i++) { // msg += code_tostr(code[i], i) + " "; // } // DebugShow("codeX:(" + code_len + "個): " + msg + "\n"); // } // ***** 継続実行 ***** // vars = {}; Vars.init(); imgvars = {}; stack = []; param = []; pc = 0; debugpc = 0; set_end_flag(false); running_flag = true; runstatchanged(); set_sleep_flag(false); sleep_data = {}; loop_nocount_flag = false; loop_nocount_extend = false; input_flag = false; keyinput_flag = false; func_back = []; gosub_back = []; key_press_code = 0; key_down_code = 0; key_down_stat = {}; key_scan_stat = 0; input_buf = []; keyinput_buf = []; mousex = -10000; mousey = -10000; mouse_btn_stat = {}; save_data = {}; // ***** プラグイン用の実行前処理 ***** for (name in before_run_funcs) { if (before_run_funcs.hasOwnProperty(name)) { before_run_funcs[name](); } } // run_continuously(); setTimeout(run_continuously, 10); return true; } // ***** 継続実行 ***** // (本関数は再帰的に呼び出される) function run_continuously() { var name; var err_flag; // ***** コード実行開始 ***** err_flag = false; sleep_id = null; try { // ***** コード実行 ***** execcode(); // ***** スリープおよび継続実行(再帰的に実行) ***** if (sleep_flag) { set_sleep_flag(false); if (!end_flag) { sleep_id = setTimeout(run_continuously, sleep_time); return false; } } } catch (ex) { // ***** エラー処理 ***** err_flag = true; debugpos1 = code_info[debugpc].pos1; debugpos2 = code_info[debugpc].pos2; DebugShow("execcode: " + ex.message + ": debugpos=" + debugpos1 + ", debugpc=" + debugpc + "\n"); show_err_place(debugpos1, debugpos2); } // ***** プラグイン用の実行後処理 ***** for (name in after_run_funcs) { if (after_run_funcs.hasOwnProperty(name)) { after_run_funcs[name](); } } // ***** 終了処理 ***** running_flag = false; runstatchanged(); DebugShow("実行終了\n"); if (err_flag || debug_mode == 1) { DebugShow("globalvars=" + sort_obj_tostr(Vars.getGlobalVars(), 1) + "\n"); DebugShow("localvars=" + sort_obj_tostr(Vars.getLocalVars(), 1) + "\n"); DebugShow("label=" + sort_obj_tostr(label, 2) + "\n"); DebugShow("func=" + sort_obj_tostr(func, 2) + "\n"); DebugShow("stack=" + JSON.stringify(stack) + "\n"); } return !err_flag; } // ***** コード実行 ***** function execcode() { var i; var cod; var num, num2; var var_info; var var_info2; var param_num; var func_body; var func_name; var func_start; var loop_count; var time_diff; // ***** コード実行のループ ***** loop_time_start = Date.now(); loop_count = 10; while (exec_flag) { // ***** コードを取り出す ***** debugpc = pc; cod = code[pc++]; // ***** スタックマシンのコードを実行 ***** switch (cod) { // ( case opcode.xxx: が遅かったので数値を直接指定する) case 1: // push num = code[pc++]; stack.push(num); break; case 2: // pop stack.pop(); break; case 3: // dup num = stack.pop(); stack.push(num); stack.push(num); break; case 4: // push0 stack.push(0); break; case 5: // push1 stack.push(1); break; case 6: // load num = stack.pop(); var_info = stack.pop(); Vars.setVarValue(var_info, num); stack.push(num); break; case 7: // store var_info = stack.pop(); num = Vars.getVarValue(var_info); stack.push(num); break; case 8: // array num = stack.pop(); var_info = stack.pop(); // ***** 配列変数情報の生成 ***** // (変数情報を変更する場合は複製が必要) var_info2 = make_var_array(var_info, num); stack.push(var_info2); break; case 9: // address var_info = stack.pop(); if (var_info.kind == 1) { // ***** ポインタ変数情報の生成 ***** // (変数情報を変更する場合は複製が必要) var_info2 = make_var_pointer(var_info); stack.push(var_info2); break; } stack.push(var_info); break; case 10: // pointer var_info = stack.pop(); var_info2 = Vars.getVarValue(var_info); if (var_info2.sc_no == null) { throw new Error("ポインタの指す先が不正です。(変数のアドレスではなく、'" + code_tostr(var_info2) + "' が入っていました)"); } stack.push(var_info2); break; case 11: // preinc var_info = stack.pop(); num = Vars.getVarValue(var_info); num++; Vars.setVarValue(var_info, num); stack.push(num); break; case 12: // predec var_info = stack.pop(); num = Vars.getVarValue(var_info); num--; Vars.setVarValue(var_info, num); stack.push(num); break; case 13: // postinc var_info = stack.pop(); num = Vars.getVarValue(var_info); stack.push(num); num++; Vars.setVarValue(var_info, num); break; case 14: // postdec var_info = stack.pop(); num = Vars.getVarValue(var_info); stack.push(num); num--; Vars.setVarValue(var_info, num); break; case 15: // add num2 = stack.pop(); num = stack.pop(); num = (+num) + (+num2); // 文字の連結にならないように数値にする stack.push(num); break; case 16: // addstr num2 = stack.pop(); num = stack.pop(); num = String(num) + String(num2); stack.push(num); break; case 17: // sub num2 = stack.pop(); num = stack.pop(); num = num - num2; stack.push(num); break; case 18: // mul num2 = stack.pop(); num = stack.pop(); num = num * num2; stack.push(num); break; case 19: // div num2 = stack.pop(); num = stack.pop(); num = num / num2; stack.push(num); break; case 20: // divint num2 = stack.pop(); num = stack.pop(); num = Math.trunc(num / num2); stack.push(num); break; case 21: // mod num2 = stack.pop(); num = stack.pop(); num = num % num2; stack.push(num); break; case 22: // shl num2 = stack.pop(); num = stack.pop(); num = num << num2; stack.push(num); break; case 23: // shr num2 = stack.pop(); num = stack.pop(); num = num >> num2; stack.push(num); break; case 24: // ushr num2 = stack.pop(); num = stack.pop(); num = num >>> num2; stack.push(num); break; case 25: // positive num = stack.pop(); num = +num; // 文字列等を数値化する意味がある stack.push(num); break; case 26: // negative num = stack.pop(); num = -num; stack.push(num); break; case 27: // and num2 = stack.pop(); num = stack.pop(); num = num & num2; stack.push(num); break; case 28: // or num2 = stack.pop(); num = stack.pop(); num = num | num2; stack.push(num); break; case 29: // xor num2 = stack.pop(); num = stack.pop(); num = num ^ num2; stack.push(num); break; case 30: // not num = stack.pop(); num = ~num; stack.push(num); break; case 31: // lognot num = stack.pop(); num = (num == 0) ? 1 : 0; stack.push(num); break; case 32: // cmpeq num2 = stack.pop(); num = stack.pop(); num = (num == num2) ? 1 : 0; stack.push(num); break; case 33: // cmpne num2 = stack.pop(); num = stack.pop(); num = (num != num2) ? 1 : 0; stack.push(num); break; case 34: // cmplt num2 = stack.pop(); num = stack.pop(); num = (num < num2) ? 1 : 0; stack.push(num); break; case 35: // cmple num2 = stack.pop(); num = stack.pop(); num = (num <= num2) ? 1 : 0; stack.push(num); break; case 36: // cmpgt num2 = stack.pop(); num = stack.pop(); num = (num > num2) ? 1 : 0; stack.push(num); break; case 37: // cmpge num2 = stack.pop(); num = stack.pop(); num = (num >= num2) ? 1 : 0; stack.push(num); break; case 38: // label pc++; break; case 39: // goto pc = code[pc]; break; case 40: // ifgoto num = stack.pop(); if (num != 0) { pc = code[pc]; break; } pc++; break; case 41: // ifnotgoto num = stack.pop(); if (num == 0) { pc = code[pc]; break; } pc++; break; case 42: // switchgoto num2 = stack.pop(); num = stack.pop(); if (num == num2) { pc = code[pc]; break; } stack.push(num); // 条件不成立時は式の値を残す pc++; break; case 43: // gosub gosub_back.push(pc + 1); pc = code[pc]; break; case 44: // return // ***** 関数内のとき ***** if (func_back.length > 0) { // ***** ローカル変数のスコープを1個削除する ***** Vars.deleteLocalScope(); // ***** 呼び出し元に戻る ***** pc = func_back.pop(); break; } // ***** gosubのとき ***** if (gosub_back.length > 0) { // ***** 戻り値を捨てる ***** stack.pop(); // ***** 呼び出し元に戻る ***** pc = gosub_back.pop(); break; } // ***** 呼び出し元がない ***** throw new Error("予期しない return が見つかりました。"); // break; case 45: // func pc = code[pc]; break; case 46: // funcend // ***** 関数内のとき ***** if (func_back.length > 0) { // ***** 戻り値は0とする ***** stack.push(0); // ***** ローカル変数のスコープを1個削除する ***** Vars.deleteLocalScope(); // ***** 呼び出し元に戻る ***** pc = func_back.pop(); break; } // ***** 呼び出し元がない ***** throw new Error("予期しない '}' が見つかりました。"); // break; case 47: // callfunc // ***** 引数の取得 ***** param_num = code[pc++]; param = []; for (i = param_num - 1; i >= 0; i--) { param[i] = stack.pop(); } // ***** 関数の本体を取得 ***** func_body = stack.pop(); // ***** 組み込み関数の呼び出し ***** num = func_body(param); stack.push(num); break; case 48: // callwait // ***** 引数の取得 ***** param_num = code[pc++]; param = []; for (i = param_num - 1; i >= 0; i--) { param[i] = stack.pop(); } // ***** 関数の本体を取得 ***** func_body = stack.pop(); // ***** 組み込み関数の呼び出し ***** num = func_body(param); // ***** 入力待ち状態でなければ完了 ***** if (!(input_flag || keyinput_flag)) { stack.push(num); break; } // ***** 同じ命令を繰り返す ***** stack.push(func_body); for (i = 0; i < param_num; i++) { stack.push(param[i]); } pc -= 2; break; case 49: // calluser // ***** 引数の取得 ***** param_num = code[pc++]; param = []; for (i = 0; i < param_num; i++) { param[i] = stack.pop(); // 逆順に格納 } // ***** 関数名の取得 ***** func_name = get_var_name(stack.pop()); // ***** 関数の存在チェック ***** // if (!func.hasOwnProperty(func_name)) { // if (!hasOwn.call(func, func_name)) { func_start = func[func_name]; if (func_start == null) { throw new Error("関数 '" + func_name + "' の呼び出しに失敗しました(関数が未定義もしくはユーザ定義関数ではない等)。"); } // ***** ローカル変数のスコープを1個生成する ***** Vars.makeLocalScope(); // ***** 関数の呼び出し元を保存 ***** func_back.push(pc); // ***** 関数の呼び出し ***** // pc = func[func_name]; pc = func_start; break; case 50: // callgoto // ***** 引数の取得 ***** param_num = code[pc++]; param = []; for (i = 0; i < param_num; i++) { param[i] = stack.pop(); // 逆順に格納 } // ***** 関数名の取得 ***** func_name = get_var_name(stack.pop()); // ***** 関数内のとき ***** if (func_back.length > 0) { // ***** 関数の存在チェック ***** // if (!func.hasOwnProperty(func_name)) { // if (!hasOwn.call(func, func_name)) { func_start = func[func_name]; if (func_start == null) { throw new Error("関数 '" + func_name + "' の呼び出しに失敗しました(関数が未定義もしくはユーザ定義関数ではない等)。"); } // ***** コールスタックを増加させないで関数を呼び出す ***** // ***** ローカル変数を削除する ***** Vars.clearLocalVars(); // ***** 関数の呼び出し ***** // pc = func[func_name]; pc = func_start; break; } // ***** 関数の外では使用不可 ***** throw new Error("funcgoto はユーザ定義の関数内でなければ使用できません。"); // break; case 51: // loadparam // ***** 引数の値を仮引数にセットする ***** num = (param.length > 0) ? param.pop() : 0; // 逆順に取得 var_info = stack.pop(); Vars.setVarValue(var_info, num); break; case 52: // end set_end_flag(true); break; default: // ***** 命令コードエラー ***** throw new Error("未定義の命令コード (" + code_tostr(cod, pc - 1) + ") が見つかりました。"); // break; } // ***** 処理時間の測定とチェック ***** // (ループ時間ノーカウントフラグがONならば、処理時間を測定しない) if (loop_nocount_flag) { // (ループ時間ノーカウント延長フラグがOFFならば、処理時間の測定をリセットする) if (!loop_nocount_extend) { loop_nocount_flag = false; // loop_time_start = new Date().getTime(); loop_time_start = Date.now(); } } else { // (Date.now()が遅かったので、10回に1回だけ処理時間を測定する) loop_count--; if (!loop_count) { loop_count = 10; // time_diff = new Date().getTime() - loop_time_start; time_diff = Date.now() - loop_time_start; if (time_diff >= loop_time_max) { throw new Error("処理時間オーバーです(" + loop_time_max + "msec以上ブラウザに制御が返らず)。ループ内でsleep関数の利用を検討ください。"); } } } } } // **************************************** // アドレス解決処理 // **************************************** // (コンパイルで生成したラベル等のアドレスを解決する) // ***** アドレス解決 ***** function resolveaddress() { var i, j; var cod; var lbl_name; var func_name; var labelinfo = {}; var funcinfo = {}; var addrinfo = {}; var addrinfo_array = []; var addrinfo_array_len; // ***** アドレス情報の生成 ***** function make_addrinfo(i, debugpos1, cod, lbl_name, func_name) { var addrinfo = {}; addrinfo.i = i; addrinfo.debugpos1 = debugpos1; addrinfo.cod = cod; addrinfo.lbl_name = lbl_name; addrinfo.func_name = func_name; addrinfo_array.push(addrinfo); } // ***** コード解析のループ ***** i = 0; // label = {}; label = hashInit(); // func = {}; func = hashInit(); func_name = ""; addrinfo_array = []; while (i < code_len) { // ***** コードを取り出す ***** debugpos1 = code_info[i].pos1; // cod = code[i++]; cod = code_str[i++]; // ***** ラベルのとき ***** if (cod == "label") { lbl_name = code[i++]; // if (label.hasOwnProperty(lbl_name)) { // if (hasOwn.call(label, lbl_name)) { if (label[lbl_name] != null) { debugpos2 = debugpos1 + 2; throw new Error("ラベル '" + lbl_name + "' の定義が重複しています。"); } label[lbl_name] = i; labelinfo[lbl_name] = {}; labelinfo[lbl_name].func_name = func_name; // ***** アドレス情報の生成 ***** make_addrinfo(i - 1, debugpos1, cod, "", ""); continue; } // ***** 関数の定義開始のとき ***** if (cod == "func") { if (func_name != "") { debugpos2 = debugpos1 + 2; throw new Error("funcの中にfuncを入れることはできません。"); } func_name = code[i++]; // if (func.hasOwnProperty(func_name)) { // if (hasOwn.call(func, func_name)) { if (func[func_name] != null) { debugpos2 = debugpos1 + 2; throw new Error("関数 '" + func_name + "' の定義が重複しています。"); } func[func_name] = i; funcinfo[func_name] = {}; funcinfo[func_name].func_end = code_len - end_token_num; // 終了位置(仮) // ***** アドレス情報の生成 ***** make_addrinfo(i - 1, debugpos1, cod, "", func_name); continue; } // ***** 関数の定義終了のとき ***** if (cod == "funcend") { if (func_name != "") { funcinfo[func_name].func_end = i; // 終了位置(確定) func_name = ""; // 関数名をここでクリア } continue; } // ***** ジャンプのとき ***** if (cod == "goto" || cod == "ifgoto" || cod == "ifnotgoto" || cod == "switchgoto" || cod == "gosub") { if (cod == "gosub" && func_name != "") { debugpos2 = debugpos1 + 2; throw new Error("func内では gosub を使用できません。"); } lbl_name = code[i++]; // ***** アドレス情報の生成 ***** make_addrinfo(i - 1, debugpos1, cod, lbl_name, func_name); continue; } } // ***** 生成したアドレス情報をコードに反映する ***** addrinfo_array_len = addrinfo_array.length; for (i = 0; i < addrinfo_array_len; i++) { // ***** アドレス情報の内容を取り出す ***** addrinfo = addrinfo_array[i]; j = addrinfo.i; debugpos1 = addrinfo.debugpos1; cod = addrinfo.cod; lbl_name = addrinfo.lbl_name; func_name = addrinfo.func_name; // ***** ラベルのとき ***** if (cod == "label") { // ***** アドレスを設定 ***** // (未使用なので0とする) code[j] = 0; continue; } // ***** 関数の定義開始のとき ***** if (cod == "func") { // ***** アドレスを設定 ***** // (関数の定義終了のアドレスを設定) code[j] = funcinfo[func_name].func_end; continue; } // ***** ジャンプのとき ***** if (cod == "goto" || cod == "ifgoto" || cod == "ifnotgoto" || cod == "switchgoto" || cod == "gosub") { // ***** ジャンプ先のチェック ***** // if (!label.hasOwnProperty(lbl_name)) { // if (!hasOwn.call(label, lbl_name)) { if (label[lbl_name] == null) { debugpos2 = debugpos1 + 2; throw new Error("ラベル '" + lbl_name + "' は未定義です。"); } if (func_name != labelinfo[lbl_name].func_name) { debugpos2 = debugpos1 + 2; throw new Error("funcの境界を越えてジャンプすることはできません。"); } // ***** アドレスを設定 ***** // (ジャンプ先のアドレスを設定) code[j] = label[lbl_name]; continue; } } } // **************************************** // コンパイル処理 // **************************************** // (トークンを解析してスタックマシンのコードを生成する) // ***** コンパイル ***** function compile() { // ***** 文(ステートメント)のコンパイル ***** code = []; code_info = []; code_str = []; code_len = 0; varstatement_type = 0; locvarnames_stack = []; module_fullname = ""; module_fullname_stack = []; c_statement(0, token_len, "", ""); } // ***** 文(ステートメント)のコンパイル ***** function c_statement(tok_start, tok_end, break_lbl, continue_lbl) { var i, j, k; var ch; var tok; var var_type; var var_info; var module_name, module_stm, module_end; var func_name, func_stm, func_end; var param_num; var switch_exp, switch_stm, default_stm, switch_end; var case_no; var case_exp = []; var case_stm = []; var case_stm_end; var if_no; var if_exp = []; var if_stm = []; var if_stm_end = []; var else_stm, if_end; var for_exp1, for_exp2, for_exp3, for_stm, for_end; var while_exp, while_stm, while_end; var do_exp, do_stm, do_end; // ***** トークン解析のループ ***** i = tok_start; while (i < tok_end) { // ***** トークンを取り出す ***** debugpos1 = i; tok = token[i]; // ***** セミコロン「;」のとき ***** if (tok == ";") { i++; continue; } // ***** spmode文のとき ***** if (tok == "spmode") { i++; token_match("(", i++); // (符号のトークンを許可(特別扱い)) if (isSign1(token[i])) { i++; } i++; token_match(")", i++); continue; } // ***** onlocal/offlocal文のとき ***** if (tok == "onlocal" || tok == "offlocal") { i++; token_match("(", i++); token_match(")", i++); continue; } // ***** defconst文のとき ***** if (tok == "defconst") { i++; token_match("(", i++); i++; token_match(",", i++); // (符号のトークンを許可(特別扱い)) if (isSign1(token[i])) { i++; } i++; token_match(")", i++); continue; } // ***** disconst文のとき ***** if (tok == "disconst") { i++; token_match("(", i++); i++; token_match(")", i++); continue; } // ***** module文のとき ***** if (tok == "module") { i++; // ***** モジュール名の取得 ***** module_name = token[i++]; // ***** モジュール名のチェック ***** if (!isNameOK(module_name)) { debugpos2 = i; throw new Error("モジュール名が不正です。('" + module_name + "')"); } if (reserved.hasOwnProperty(module_name) || func_tbl.hasOwnProperty(module_name)) { debugpos2 = i; throw new Error("名前 '" + module_name + "' は予約されています。モジュールの定義に失敗しました。"); } // ***** モジュール完全名に追加 ***** module_fullname_stack.push(module_fullname); if (module_fullname != "") { module_fullname += "#" + module_name; } else { module_fullname = module_name; } // ***** 本体の取得 ***** token_match("{", i++); module_stm = i; i = block_search(i, tok_end, "{", "}"); module_end = i; // ***** 文(ステートメント)のコンパイル(再帰的に実行) ***** i = c_statement(module_stm, module_end - 1, break_lbl, continue_lbl); i = module_end; // ***** モジュール完全名から削除 ***** module_fullname = module_fullname_stack.pop(); continue; } // ***** label/goto/gosub文のとき ***** if (tok == "label" || tok == "goto" || tok == "gosub") { i++; code_push(tok, debugpos1, i); // ***** ラベル名のコンパイル ***** i = c_labelname(i); continue; } // ***** return文のとき ***** if (tok == "return") { i++; // ***** 戻り値を取得 ***** // (直後が } のときも戻り値なしとする(過去との互換性維持のため)) // if (token[i] == ";") { if (token[i] == ";" || token[i] == "}") { code_push("push0", debugpos1, i); } else { i = c_expression(i, tok_end); } code_push("return", debugpos1, i); continue; } // ***** end文のとき ***** if (tok == "end") { i++; code_push("end", debugpos1, i); continue; } // ***** グローバル/ローカル文のとき ***** // (この文でグローバル/ローカル変数の宣言を行う) // (loc a,b,c のように、複数の変数をカンマ区切りで一括宣言可能とする) if (tok == "global" || tok == "glb" || tok == "local" || tok == "loc") { i++; var_type = (tok.charAt(0) == "l") ? 1 : 2; while (i < tok_end) { // ***** グローバル/ローカル文のタイプを設定 ***** varstatement_type = var_type; // ***** 因子のコンパイル ***** j = code_len + 1; i = c_factor(i, tok_end); code_push("pop", debugpos1, i); // ***** 変数名のチェック ***** if (j < code_len) { var_info = code[j]; if (var_info.sc_no == null) { debugpos2 = i; throw new Error("変数名が不正です。('" + code_tostr(var_info, j) + "')"); } } // ***** グローバル/ローカル文のタイプを解除 ***** varstatement_type = 0; // ***** カンマ区切りのチェック ***** if (token[i] == ",") { i++; } else { break; } } continue; } // ***** func文のとき ***** if (tok == "func") { i++; code_push("func", debugpos1, i); // ***** 関数名の取得 ***** func_name = token[i++]; // ***** 関数名のチェック ***** if (!isNameOK(func_name)) { debugpos2 = i; throw new Error("関数名が不正です。('" + func_name + "')"); } if (reserved.hasOwnProperty(func_name) || func_tbl.hasOwnProperty(func_name)) { // (一部の関数定義エラーを発生させない(過去との互換性維持のため)) if (!(sp_compati_flag && func_name == "int")) { debugpos2 = i; throw new Error("名前 '" + func_name + "' は予約されています。関数の定義に失敗しました。"); } } // ***** モジュール名の追加 ***** func_name = add_module_name(func_name); // ***** 関数名の設定 ***** code_push('"' + func_name + '"', debugpos1, i); // ***** ローカル変数名情報を1個生成する ***** // if (use_local_vars) { locvarnames_stack.push({}); } if (use_local_vars) { locvarnames_stack.push(hashInit()); } // ***** 仮引数の取得 ***** token_match("(", i++); if (token[i] == ")") { i++; } else { while (i < tok_end) { // ***** 変数名のコンパイル(関数の仮引数) ***** i = c_varname(i, tok_end, true); code_push("loadparam", debugpos1, i); // ***** カンマ区切りのチェック ***** if (token[i] == ",") { i++; } else { break; } } token_match(")", i++); } // ***** 本体の取得 ***** token_match("{", i++); func_stm = i; i = block_search(i, tok_end, "{", "}"); func_end = i; // ***** 文(ステートメント)のコンパイル(再帰的に実行) ***** i = c_statement(func_stm, func_end - 1, "", ""); code_push("funcend", debugpos1, i); i = func_end; // ***** ローカル変数名情報を1個削除する ***** if (use_local_vars) { locvarnames_stack.pop(); } continue; } // ***** funcgoto文のとき ***** if (tok == "funcgoto") { i++; token_match("(", i++); // ***** 関数名の取得 ***** func_name = token[i]; // ***** 関数名または関数ポインタのチェック ***** ch = func_name.charAt(0); if (!(isNameOK(func_name) || ch == "*")) { debugpos2 = i + 1; throw new Error("関数名が不正です。('" + func_name + "')"); } // ***** 変数名のコンパイル ***** i = c_varname(i, tok_end); // ***** 引数の取得 ***** token_match("(", i++); param_num = 0; if (token[i] == ")") { i++; } else { while (i < tok_end) { // ***** 引数のコンパイル ***** i = c_expression(i, tok_end); param_num++; // ***** カンマ区切りのチェック ***** if (token[i] == ",") { i++; } else { break; } } token_match(")", i++); } // ***** 関数の呼び出し ***** code_push("callgoto", debugpos1, i); // ***** 引数の数を設定 ***** code_push(param_num, debugpos1, i); token_match(")", i++); continue; } // ***** break文のとき ***** if (tok == "break") { i++; if (break_lbl == "") { debugpos2 = i; throw new Error("予期しない break が見つかりました。"); } code_push("goto", debugpos1, i); code_push(break_lbl, debugpos1, i); continue; } // ***** continue文のとき ***** if (tok == "continue") { i++; if (continue_lbl == "") { debugpos2 = i; throw new Error("予期しない continue が見つかりました。"); } code_push("goto", debugpos1, i); code_push(continue_lbl, debugpos1, i); continue; } // ***** switch文のとき ***** // switch (式) { case 式: 文 ... case 式: 文 default: 文 } if (tok == "switch") { i++; // ***** 解析とアドレスの取得 ***** j = i; // 式 token_match("(", i++); switch_exp = i; if (token[i] == ")") { debugpos2 = i + 1; throw new Error("switch文の条件式がありません。"); } i = block_search(i, tok_end, "(", ")"); // 文 token_match("{", i++); switch_stm = i; k = 1; case_exp = []; case_stm = []; default_stm = -1; while (i < tok_end) { if (token[i] == "{") { k++; } if (token[i] == "}") { k--; } if (k == 0) { break; } if (k == 1) { if (token[i] == "case") { i++; // 式 case_exp.push(i); if (token[i] == ":") { debugpos2 = i + 1; throw new Error("caseの値がありません。"); } i = block_search(i, tok_end, "?", ":"); // 文 case_stm.push(i); continue; } if (token[i] == "default") { i++; case_exp.push(i); // caseの1個としても登録 token_match(":", i++); // 文 default_stm = i; case_stm.push(i); // caseの1個としても登録 continue; } } i++; } token_match("}", i++); // 終了 switch_end = i; // ***** コードの生成 ***** // 式 i = c_expression2(switch_exp, switch_stm - 2); token_match(")", i++); // 式の終端チェック for (case_no = 0; case_no < case_exp.length; case_no++) { if (case_stm[case_no] == default_stm) { continue; } // (caseの式はカンマ区切りなし) i = c_expression(case_exp[case_no], case_stm[case_no] - 1); token_match(":", i++); // 式の終端チェック code_push("switchgoto", debugpos1, i); code_push('"case' + case_no + '\\' + j + '"', debugpos1, i); } code_push("pop", debugpos1, i); // 式の値を捨てる code_push("goto", debugpos1, i); if (default_stm >= 0) { code_push('"default\\' + j + '"', debugpos1, i); } else { code_push('"switch_end\\' + j + '"', debugpos1, i); } // 文 for (case_no = 0; case_no < case_exp.length; case_no++) { code_push("label", debugpos1, i); if (case_stm[case_no] == default_stm) { code_push('"default\\' + j + '"', debugpos1, i); } else { code_push('"case' + case_no + '\\' + j + '"', debugpos1, i); } if (case_no < case_exp.length - 1) { case_stm_end = case_exp[case_no + 1]; } else { case_stm_end = switch_end; } // ***** 文(ステートメント)のコンパイル(再帰的に実行) ***** i = c_statement(case_stm[case_no], case_stm_end - 1, '"switch_end\\' + j + '"', continue_lbl); } // 終了 code_push("label", debugpos1, i); code_push('"switch_end\\' + j + '"', debugpos1, i); i = switch_end; continue; } // ***** if文のとき ***** // if (式) { 文 } elsif (式) { 文 } ... elsif (式) { 文 } else { 文 } if (tok == "if") { i++; // ***** 解析とアドレスの取得 ***** j = i; // ifまたはelsif if_no = 0; if_exp = []; if_stm = []; if_stm_end = []; while (i < tok_end) { if (if_no == 0 || token[i] == "elsif") { if (if_no > 0) { debugpos1 = i; // エラー表示位置調整 i++; } // 式 token_match("(", i++); if_exp.push(i); if (token[i] == ")") { debugpos2 = i + 1; throw new Error((if_no > 0 ? "els" : "") + "if文の条件式がありません。"); } i = block_search(i, tok_end, "(", ")"); // 文 token_match("{", i++); if_stm.push(i); i = block_search(i, tok_end, "{", "}"); if_stm_end.push(i); if_no++; } else { break; } } // else else_stm = -1; if (token[i] == "else") { debugpos1 = i; // エラー表示位置調整 i++; // 文 token_match("{", i++); else_stm = i; i = block_search(i, tok_end, "{", "}"); } // 終了 if_end = i; // ***** コードの生成 ***** debugpos1 = j - 1; // エラー表示位置調整 // ifまたはelsif for (if_no = 0; if_no < if_exp.length; if_no++) { // 式 if (if_no > 0) { code_push("label", debugpos1, i); code_push('"elsif' + (if_no - 1) + '\\' + j + '"', debugpos1, i); } i = c_expression2(if_exp[if_no], if_stm[if_no] - 2); token_match(")", i++); // 式の終端チェック code_push("ifnotgoto", debugpos1, i); if (if_no < if_exp.length - 1) { code_push('"elsif' + if_no + '\\' + j + '"', debugpos1, i); } else if (else_stm >= 0) { code_push('"else\\' + j + '"', debugpos1, i); } else { code_push('"if_end\\' + j + '"', debugpos1, i); } // 文 // ***** 文(ステートメント)のコンパイル(再帰的に実行) ***** i = c_statement(if_stm[if_no], if_stm_end[if_no] - 1, break_lbl, continue_lbl); if (if_no < if_exp.length - 1 || else_stm >=0) { code_push("goto", debugpos1, i); code_push('"if_end\\' + j + '"', debugpos1, i); } } // else if (else_stm >= 0) { // 文 code_push("label", debugpos1, i); code_push('"else\\' + j + '"', debugpos1, i); // ***** 文(ステートメント)のコンパイル(再帰的に実行) ***** i = c_statement(else_stm, if_end - 1, break_lbl, continue_lbl); } // 終了 code_push("label", debugpos1, i); code_push('"if_end\\' + j + '"', debugpos1, i); i = if_end; continue; } // ***** for文のとき ***** // for (式1; 式2; 式3) { 文 } if (tok == "for") { i++; // ***** 解析とアドレスの取得 ***** j = i; // 式1 token_match("(", i++); for_exp1 = i; i = block_search(i, tok_end, "?", ";", true); // 式2 for_exp2 = i; i = block_search(i, tok_end, "?", ";", true); // 式3 for_exp3 = i; i = block_search(i, tok_end, "(", ")"); // 文 token_match("{", i++); for_stm = i; i = block_search(i, tok_end, "{", "}"); // 終了 for_end = i; // ***** コードの生成 ***** // 式1 if (for_exp1 < for_exp2 - 1) { i = c_expression2(for_exp1, for_exp2 - 1); token_match(";", i++); // 式の終端チェック code_push("pop", debugpos1, i); } // 式2 (空なら無限ループ) code_push("label", debugpos1, i); code_push('"for_exp2\\' + j + '"', debugpos1, i); if (for_exp2 < for_exp3 - 1) { i = c_expression2(for_exp2, for_exp3 - 1); token_match(";", i++); // 式の終端チェック code_push("ifnotgoto", debugpos1, i); code_push('"for_end\\' + j + '"', debugpos1, i); } // 文 // ***** 文(ステートメント)のコンパイル(再帰的に実行) ***** i = c_statement(for_stm, for_end - 1, '"for_end\\' + j + '"', '"for_exp3\\' + j + '"'); // 式3 code_push("label", debugpos1, i); code_push('"for_exp3\\' + j + '"', debugpos1, i); if (for_exp3 < for_stm - 2) { i = c_expression2(for_exp3, for_stm - 2); token_match(")", i++); // 式の終端チェック code_push("pop", debugpos1, i); } code_push("goto", debugpos1, i); code_push('"for_exp2\\' + j + '"', debugpos1, i); // 終了 code_push("label", debugpos1, i); code_push('"for_end\\' + j + '"', debugpos1, i); i = for_end; continue; } // ***** while文のとき ***** // while (式) { 文 } if (tok == "while") { i++; // ***** 解析とアドレスの取得 ***** j = i; // 式 token_match("(", i++); while_exp = i; if (token[i] == ")") { debugpos2 = i + 1; throw new Error("while文の条件式がありません。"); } i = block_search(i, tok_end, "(", ")"); // 文 token_match("{", i++); while_stm = i; i = block_search(i, tok_end, "{", "}"); // 終了 while_end = i; // ***** コードの生成 ***** // 式 code_push("label", debugpos1, i); code_push('"while_exp\\' + j + '"', debugpos1, i); i = c_expression2(while_exp, while_stm - 2); token_match(")", i++); // 式の終端チェック code_push("ifnotgoto", debugpos1, i); code_push('"while_end\\' + j + '"', debugpos1, i); // 文 // ***** 文(ステートメント)のコンパイル(再帰的に実行) ***** i = c_statement(while_stm, while_end - 1, '"while_end\\' + j + '"', '"while_exp\\' + j + '"'); code_push("goto", debugpos1, i); code_push('"while_exp\\' + j + '"', debugpos1, i); // 終了 code_push("label", debugpos1, i); code_push('"while_end\\' + j + '"', debugpos1, i); i = while_end; continue; } // ***** do文のとき ***** // do { 文 } while (式) if (tok == "do") { i++; // ***** 解析とアドレスの取得 ***** j = i; // 文 token_match("{", i++); do_stm = i; i = block_search(i, tok_end, "{", "}"); // キーワード if (token[i] != "while") { debugpos2 = i + 1; throw new Error("do文のwhileがありません。"); } i++; // 式 token_match("(", i++); do_exp = i; if (token[i] == ")") { debugpos2 = i + 1; throw new Error("do文の条件式がありません。"); } i = block_search(i, tok_end, "(", ")"); // 終了 do_end = i; // ***** コードの生成 ***** // 文 code_push("label", debugpos1, i); code_push('"do_stm\\' + j + '"', debugpos1, i); // ***** 文(ステートメント)のコンパイル(再帰的に実行) ***** i = c_statement(do_stm, do_exp - 3, '"do_end\\' + j + '"', '"do_stm\\' + j + '"'); // 式 i = c_expression2(do_exp, do_end - 1); token_match(")", i++); // 式の終端チェック code_push("ifgoto", debugpos1, i); code_push('"do_stm\\' + j + '"', debugpos1, i); // 終了 code_push("label", debugpos1, i); code_push('"do_end\\' + j + '"', debugpos1, i); i = do_end; continue; } // ***** 式のコンパイル ***** i = c_expression(i, tok_end); code_push("pop", debugpos1, i); } // ***** 戻り値を返す ***** return i; } // ***** 式のコンパイル ***** // (priorityは演算子の優先順位を表す。大きいほど優先順位が高い) function c_expression(tok_start, tok_end, priority) { var i, j; var tok; var tri_flag; // ***** 引数のチェック ***** if (priority == null) { priority = 0; } // ***** 因子のコンパイル ***** i = tok_start; i = c_factor(i, tok_end); // ***** 演算子処理のループ ***** tri_flag = false; while (i < tok_end) { // ***** トークンを取り出す ***** // debugpos1 = i; tok = token[i]; // ***** 論理積「&&」のとき(短絡評価) ***** if (tok == "&&" && priority < operator_pri(tok)) { j = i; i++; code_push("ifnotgoto", debugpos1, i); code_push('"and_zero\\' + j + '"', debugpos1, i); i = c_expression(i, tok_end, operator_pri(tok) - 1); // 右結合 code_push("ifnotgoto", debugpos1, i); code_push('"and_zero\\' + j + '"', debugpos1, i); code_push("push1", debugpos1, i); code_push("goto", debugpos1, i); code_push('"and_end\\' + j + '"', debugpos1, i); code_push("label", debugpos1, i); code_push('"and_zero\\' + j + '"', debugpos1, i); code_push("push0", debugpos1, i); code_push("label", debugpos1, i); code_push('"and_end\\' + j + '"', debugpos1, i); tri_flag = false; continue; } // ***** 論理和「||」のとき(短絡評価) ***** if (tok == "||" && priority < operator_pri(tok)) { j = i; i++; code_push("ifgoto", debugpos1, i); code_push('"or_one\\' + j + '"', debugpos1, i); i = c_expression(i, tok_end, operator_pri(tok) - 1); // 右結合 code_push("ifgoto", debugpos1, i); code_push('"or_one\\' + j + '"', debugpos1, i); code_push("push0", debugpos1, i); code_push("goto", debugpos1, i); code_push('"or_end\\' + j + '"', debugpos1, i); code_push("label", debugpos1, i); code_push('"or_one\\' + j + '"', debugpos1, i); code_push("push1", debugpos1, i); code_push("label", debugpos1, i); code_push('"or_end\\' + j + '"', debugpos1, i); tri_flag = false; continue; } // ***** 3項演算子「?:」のとき ***** if (tok == "?" && priority < operator_pri(tok)) { j = i; i++; code_push("ifnotgoto", debugpos1, i); code_push('"tri_zero\\' + j + '"', debugpos1, i); i = c_expression(i, tok_end, operator_pri(tok) - 1); // 右結合 token_match(":", i++); code_push("goto", debugpos1, i); code_push('"tri_end\\' + j + '"', debugpos1, i); code_push("label", debugpos1, i); code_push('"tri_zero\\' + j + '"', debugpos1, i); i = c_expression(i, tok_end, operator_pri(tok) - 1); // 右結合 // (互換モードのときは、3項演算子「?:」の末尾に // セミコロン「;」が必要(過去との互換性維持のため)) if (sp_compati_flag) { token_match(";", i++); } code_push("label", debugpos1, i); code_push('"tri_end\\' + j + '"', debugpos1, i); tri_flag = true; continue; } // ***** 各種2項演算子のとき ***** if ((tok == "&" || tok == "|" || tok == "^" || tok == "<<" || tok == "<" || tok == "<=" || tok == ">>>" || tok == ">>" || tok == ">" || tok == ">=" || tok == "==" || tok == "!=" || tok == "+" || tok == "." || tok == "-" || tok == "*" || tok == "/" || tok == "\\" || tok == "%") && priority < operator_pri(tok)) { // ***** 3項演算子の処理後の特別扱い ***** // (互換モードのときは、3項演算子の処理後に、 // 特定の2項演算子しか処理しない(過去との互換性維持のため)) if (sp_compati_flag && tri_flag && !(tok == "&" || tok == "|" || tok == "^")) { break; } i++; i = c_expression(i, tok_end, operator_pri(tok)); if (sp_compati_flag && tok == "/") { // (互換モードのときは、除算は整数除算にする) code_push(operator_code("\\"), debugpos1, i); } else { code_push(operator_code(tok), debugpos1, i); } tri_flag = false; continue; } // ***** 演算子処理のループを抜ける ***** break; } // ***** 戻り値を返す ***** return i; } // ***** 式のコンパイル2(カンマ区切りありバージョン) ***** function c_expression2(tok_start, tok_end) { var i; // ***** 式のコンパイル ***** i = tok_start; i = c_expression(i, tok_end); // ***** カンマ区切りの処理 ***** while (i < tok_end) { if (token[i] == ",") { i++; code_push("pop", debugpos1, i); i = c_expression(i, tok_end); continue; } break; } // ***** 戻り値を返す ***** return i; } // ***** 因子のコンパイル ***** function c_factor(tok_start, tok_end) { var num; var i; var ch; var tok; var func_name; var param_num; // ***** トークンを取り出す ***** i = tok_start; // debugpos1 = i; tok = token[i]; // ***** 各種単項演算子のとき ***** if (tok == "!" || tok == "~" || tok == "+" || tok == "-") { i++; i = c_factor(i, tok_end); if (tok == "+" || tok == "-") { code_push(operator_code(tok + "u"), debugpos1, i); } else { code_push(operator_code(tok), debugpos1, i); } return i; } // ***** 括弧のとき ***** if (tok == "(") { i++; i = c_expression2(i, tok_end); token_match(")", i++); return i; } // ***** アドレスのとき ***** // (括弧があれば外して、変数名をコンパイルする) if (tok == "&") { i++; if (token[i] == "(") { i++; i = c_varname(i, tok_end); token_match(")", i++); } else { i = c_varname(i, tok_end); } // ***** アドレスの設定 ***** code_push("address", debugpos1, i); return i; } // ***** プレインクリメント/デクリメントのとき ***** if (tok == "++" || tok == "--") { i++; i = c_varname(i, tok_end); code_push(operator_code(tok), debugpos1, i); return i; } // ***** 組み込み関数/組み込み変数のとき ***** if (func_tbl.hasOwnProperty(tok)) { i++; // ***** 関数名の取得 ***** func_name = tok; code_push("push", debugpos1, i); // code_push('"' + func_name + '"', debugpos1, i); code_push('"' + func_name + '"', debugpos1, i, 1); // ***** 組み込み変数のとき ***** if (func_tbl[func_name].param_num == -1) { code_push("callfunc", debugpos1, i); code_push(0, debugpos1, i); return i; } // ***** funcgotoは式の中では使用不可 ***** if (func_name == "funcgoto") { debugpos2 = i; throw new Error("funcgoto は式の中では使用できません。"); } // ***** 組み込み関数のとき ***** token_match("(", i++); // ***** 引数の取得 ***** param_num = 0; if (token[i] == ")") { i++; } else { while (i < tok_end) { // ***** 「変数名をとる引数」のとき ***** if (func_tbl[func_name].param_varname_flag.hasOwnProperty(param_num)) { // ***** 変数名のコンパイル ***** i = c_varname(i, tok_end); } else { // ***** 引数のコンパイル ***** i = c_expression(i, tok_end); } param_num++; // ***** カンマ区切りのチェック ***** if (token[i] == ",") { i++; } else { break; } } token_match(")", i++); } if (param_num < func_tbl[func_name].param_num) { debugpos2 = i; throw new Error(func_name + " 関数の引数の数が足りません。"); } // ***** 関数の呼び出し ***** if (func_name == "input" || func_name == "keyinput") { code_push("callwait", debugpos1, i); } else { code_push("callfunc", debugpos1, i); } // ***** 引数の数を設定 ***** code_push(param_num, debugpos1, i); return i; } // ***** 1文字取り出す ***** ch = tok.charAt(0); // ***** 文字列のとき ***** if (ch == '"') { i++; num = tok; code_push("push", debugpos1, i); code_push(num, debugpos1, i); return i; } // ***** 数値のとき ***** // (符号ありの数値を許可(定数展開の関係で特別扱い)) if (isDigit1(ch) || (isSign1(ch) && isDigit1(tok.charAt(1)))) { i++; num = +tok; // 数値にする code_push("push", debugpos1, i); code_push(num, debugpos1, i); return i; } // ***** 名前かポインタのとき ***** if (isNameOK(tok) || ch == "*") { // ***** 変数名のコンパイル ***** i = c_varname(i, tok_end); // ***** 関数のとき ***** if (token[i] == "(") { i++; // ***** 引数の取得 ***** param_num = 0; if (token[i] == ")") { i++; } else { while (i < tok_end) { // ***** 引数のコンパイル ***** i = c_expression(i, tok_end); param_num++; // ***** カンマ区切りのチェック ***** if (token[i] == ",") { i++; } else { break; } } token_match(")", i++); } // ***** 関数の呼び出し ***** code_push("calluser", debugpos1, i); // ***** 引数の数を設定 ***** code_push(param_num, debugpos1, i); return i; } // ***** 変数の処理 ***** // ***** トークンを取り出す ***** tok = token[i]; // ***** ポストインクリメント/デクリメントのとき ***** if (tok == "++" || tok == "--") { i++; code_push(operator_code(tok + "p"), debugpos1, i); return i; } // ***** 代入のとき ***** if (tok == "=") { i++; i = c_expression(i, tok_end); code_push("load", debugpos1, i); return i; } // ***** 複合代入のとき ***** if (tok == "+=" || tok == "-=" || tok == "*=" || tok == "/=" || tok == "\\=" || tok == "%=" || tok == ".=" || tok == "&=" || tok == "|=" || tok == "^=" || tok == "<<=" || tok == ">>=" || tok == ">>>=") { i++; code_push("dup", debugpos1, i); code_push("store", debugpos1, i); i = c_expression(i, tok_end); if (sp_compati_flag && tok == "/=") { // (互換モードのときは、除算は整数除算にする) code_push(operator_code("\\="), debugpos1, i); } else { code_push(operator_code(tok), debugpos1, i); } code_push("load", debugpos1, i); return i; } // ***** 変数の値を返す ***** code_push("store", debugpos1, i); return i; } // ***** 構文エラー ***** // (一部の構文エラーを発生させない(過去との互換性維持のため)) if (sp_compati_flag && tok == ")") { i++; code_push("push0", debugpos1, i); return i; } debugpos2 = i + 1; throw new Error("構文エラー 予期しない '" + token[i] + "' が見つかりました。"); // ***** 戻り値を返す ***** // i++; // return i; } // ***** 変数名のコンパイル ***** // (arg_flag 関数の仮引数フラグ // var_type グローバル/ローカル変数の明示指定 // (=0:指定なし,=1:ローカル変数,=2:グローバル変数)) function c_varname(tok_start, tok_end, arg_flag, var_type) { var i; var var_name; var loc_flag; // ***** 引数のチェック ***** if (arg_flag == null) { arg_flag = false; } if (var_type == null) { var_type = 0; } // ***** 変数名の取得 ***** i = tok_start; // debugpos1 = i; var_name = token[i++]; // ***** ポインタのとき ***** // (括弧があれば外して、再帰的にコンパイルする) if (var_name == "*") { if (token[i] == "(") { i++; i = c_varname(i, tok_end, arg_flag, var_type); token_match(")", i++); } else { i = c_varname(i, tok_end, arg_flag, var_type); } // ***** ポインタ処理の有無をチェック ***** // (関数の仮引数のときは、ポインタを処理しない) if (!arg_flag) { // ***** ポインタの設定 ***** code_push("pointer", debugpos1, i); // ***** 配列変数のとき ***** while (token[i] == "[") { i++; // i = Math.trunc(c_expression(i, tok_end)); i = c_expression(i, tok_end); // 配列の添字に文字列もあり token_match("]", i++); code_push("array", debugpos1, i); } } return i; } // ***** グローバル/ローカル変数の明示指定ありのとき ***** // (再帰的にコンパイルする) if (var_name == "global" || var_name == "glb" || var_name == "local" || var_name == "loc") { var_type = (var_name.charAt(0) == "l") ? 1 : 2; i = c_varname(i, tok_end, arg_flag, var_type); return i; } // ***** 変数名のチェック ***** if (!isNameOK(var_name)) { debugpos2 = i; throw new Error("変数名が不正です。('" + var_name + "')"); } if (reserved.hasOwnProperty(var_name) || func_tbl.hasOwnProperty(var_name)) { debugpos2 = i; throw new Error("名前 '" + var_name + "' は予約されているため、変数名には使用できません。"); } // ***** ローカル変数のチェック ***** // (グローバル変数の明示指定なし、かつ、グローバル文でない、かつ、 // ローカル変数名情報が存在する、かつ、 // 「ローカル変数の明示指定あり、または、ローカル文である、または、 // ローカル変数名情報に登録済みである、または、関数の仮引数である」 // 場合に、ローカル変数とする) if (var_type != 2 && varstatement_type != 2 && locvarnames_stack.length > 0 && (var_type == 1 || varstatement_type == 1 || // locvarnames_stack[locvarnames_stack.length - 1].hasOwnProperty(var_name) || // hasOwn.call(locvarnames_stack[locvarnames_stack.length - 1], var_name) || locvarnames_stack[locvarnames_stack.length - 1][var_name] != null || arg_flag)) { loc_flag = true; } else { loc_flag = false; } // ***** グローバル/ローカル文のタイプを解除 ***** // (loc y=x のような 代入を持つ宣言に対応するために、 // ここでも解除する必要がある) varstatement_type = 0; // ***** ローカル変数名情報の更新 ***** if (loc_flag && locvarnames_stack.length > 0 && // !locvarnames_stack[locvarnames_stack.length - 1].hasOwnProperty(var_name)) { // !hasOwn.call(locvarnames_stack[locvarnames_stack.length - 1], var_name)) { locvarnames_stack[locvarnames_stack.length - 1][var_name] == null) { locvarnames_stack[locvarnames_stack.length - 1][var_name] = true; } // ***** モジュール名の追加 ***** // (ローカル変数のときは追加しない) if (!loc_flag) { var_name = add_module_name(var_name); } // ***** 変数名の設定 ***** code_push("push", debugpos1, i); // code_push('"' + var_name + '"', debugpos1, i); code_push('"' + var_name + '"', debugpos1, i, (loc_flag ? 11 : 10)); // ***** 配列変数のとき ***** while (token[i] == "[") { i++; // i = Math.trunc(c_expression(i, tok_end)); i = c_expression(i, tok_end); // 配列の添字に文字列もあり token_match("]", i++); code_push("array", debugpos1, i); } // ***** 戻り値を返す ***** return i; } // ***** ラベル名のコンパイル ***** // (ラベル名には数値のみのものも許可する(過去との互換性維持のため)) // (ラベル名にはダブルクォート付きも許可する(過去との互換性維持のため)) function c_labelname(tok_start) { var i; var lbl_name; // ***** ラベル名の取得 ***** i = tok_start; // (符号のトークンを許可(特別扱い)) // lbl_name = token[i++]; if (isSign1(token[i]) && isDigit1(token[i + 1])) { lbl_name = token[i] + token[i + 1]; i += 2; } else { lbl_name = token[i++]; } // (ダブルクォート付きも許可(ここでダブルクォートを外す)) if (lbl_name.charAt(0) == '"') { lbl_name = lbl_name.substring(1, lbl_name.length - 1); } // ***** ラベル名のチェック ***** // (符号ありの数値を許可(ラベル名用に特別扱い)) if (!isLabelNameOK(lbl_name)) { debugpos2 = i; throw new Error("ラベル名が不正です。('" + lbl_name + "')"); } if (reserved.hasOwnProperty(lbl_name) || func_tbl.hasOwnProperty(lbl_name)) { debugpos2 = i; throw new Error("名前 '" + lbl_name + "' は予約されているため、ラベル名には使用できません。"); } // ***** モジュール名の追加 ***** lbl_name = add_module_name(lbl_name); // ***** ラベル名の設定 ***** code_push('"' + lbl_name + '"', debugpos1, i); // ***** 戻り値を返す ***** return i; } // **************************************** // プリプロセス処理 // **************************************** // (互換モードの設定や定数の置き換え等を行う) // ***** プリプロセス ***** function preprocess() { var i; var ch; var tok; var sp_para_st; var sp_para_no; var cst_name; var cst_value; // ***** 互換モードフラグの初期化 ***** sp_compati_flag = false; // ***** ローカル変数使用有無の初期化 ***** use_local_vars = true; // ***** 定数の定義情報の生成 ***** make_const_tbl(); // ***** トークン解析のループ ***** i = 0; while (i < token_len - end_token_num) { // 終端のトークンは対象外 // ***** トークンを取り出す ***** debugpos1 = i; tok = token[i]; // ***** spmode文のとき ***** if (tok == "spmode") { i++; token_match("(", i++); // ***** 定数の置換 ***** replace_const(token[i], i); // ***** 引数の取得 ***** // (符号のトークンを許可(特別扱い)) if (isSign1(token[i]) && isDigit1(token[i + 1])) { sp_para_st = token[i] + token[i + 1]; i += 2; } else { sp_para_st = token[i++]; } // ***** 引数のチェック ***** // (符号ありの数値を許可(定数展開の関係で特別扱い)) ch = sp_para_st.charAt(0); if (!(isDigit1(ch) || (isSign1(ch) && isDigit1(sp_para_st.charAt(1))))) { debugpos2 = i + 1; throw new Error("spmode の引数には数値以外を指定できません。"); } sp_para_no = +sp_para_st; // 数値にする // ***** 互換モードの設定 ***** if (sp_para_no == 1) { sp_compati_flag = true; use_local_vars = false; font_size = font_size_set[0]; } else { sp_compati_flag = false; use_local_vars = true; font_size = font_size_set[1]; } ctx.font = font_size + "px " + font_family; token_match(")", i++); continue; } // ***** onlocal/offlocal文のとき ***** if (tok == "onlocal" || tok == "offlocal") { i++; token_match("(", i++); token_match(")", i++); // ***** ローカル変数使用有無の設定 ***** use_local_vars = (tok == "onlocal"); continue; } // ***** defconst文のとき ***** if (tok == "defconst") { i++; token_match("(", i++); // ***** 定数名の取得 ***** cst_name = token[i++]; // ***** 定数名のチェック ***** if (!isConstNameOK(cst_name)) { debugpos2 = i; throw new Error("定数名が不正です。('" + cst_name + "')"); } token_match(",", i++); // ***** 定数の置換 ***** replace_const(token[i], i); // ***** 値の取得 ***** // (符号のトークンを許可(特別扱い)) // cst_value = token[i++]; if (isSign1(token[i]) && isDigit1(token[i + 1])) { cst_value = token[i] + token[i + 1]; i += 2; } else { cst_value = token[i++]; } // ***** 定数の定義情報を1個生成する ***** const_tbl[cst_name] = cst_value; token_match(")", i++); continue; } // ***** disconst文のとき ***** if (tok == "disconst") { i++; token_match("(", i++); // ***** 定数名の取得 ***** cst_name = token[i++]; // ***** 定数名のチェック ***** if (!isConstNameOK(cst_name)) { debugpos2 = i; throw new Error("定数名が不正です。('" + cst_name + "')"); } // ***** 定数の定義情報を1個削除する ***** delete const_tbl[cst_name]; token_match(")", i++); continue; } // ***** 定数の置換 ***** replace_const(tok, i); i++; } } // ***** 定数の置換 ***** function replace_const(tok, i) { // if (const_tbl.hasOwnProperty(tok)) { if (hasOwn.call(const_tbl, tok)) { token[i] = const_tbl[tok]; } } // ***** 定数の定義情報の生成 ***** function make_const_tbl() { var cst_name; const_tbl = {}; for (cst_name in constants) { // if (constants.hasOwnProperty(cst_name)) { if (hasOwn.call(constants, cst_name)) { const_tbl[cst_name] = String(constants[cst_name]); } } } // **************************************** // トークン分割処理 // **************************************** // (ソースの文字列を解析してトークンに分割する) // ***** トークン分割 ***** function tokenize() { var i; var i_start; var src_len; var ch, ch2, ch3, ch4; var line_no; var line_no_tk; var newline_flag; var newline_flag_temp; var temp_st; var temp_no; var hex_flag; var digit_mode; var sharp_flag; // ***** ソース解析のループ ***** i = 0; line_no = 1; newline_flag = false; newline_flag_temp = false; token = []; token_info = []; token_len = 0; src_len = src.length; while (i < src_len) { // ***** 1文字取り出す ***** ch = src.charAt(i++); ch2 = src.charAt(i); // ***** 空白かタブのとき ***** if (ch == " " || ch == "\t") { continue; } // ***** 改行のとき ***** if (ch == "\r" || ch == "\n") { line_no++; if (ch == "\r" && ch2 == "\n") { i++; } newline_flag_temp = true; continue; } // ***** コメント「//」のとき ***** if (ch == "/" && ch2 == "/") { i++; while (i < src_len) { // ***** 1文字取り出す ***** ch = src.charAt(i++); ch2 = src.charAt(i); // ***** 改行のとき ***** if (ch == "\r" || ch == "\n") { line_no++; if (ch == "\r" && ch2 == "\n") { i++; } break; } } newline_flag_temp = true; continue; } // ***** 改行フラグの更新(1回分遅延させる) ***** newline_flag = newline_flag_temp; newline_flag_temp = false; // ***** コメント「'」のとき ***** if (ch == "'") { while (i < src_len) { // ***** 1文字取り出す ***** ch = src.charAt(i++); ch2 = src.charAt(i); // ***** デリミタのとき ***** if (ch == "'") { break; } // ***** 改行のとき ***** if (ch == "\r" || ch == "\n") { line_no++; if (ch == "\r" && ch2 == "\n") { i++; } } } continue; } // ***** 有効文字のとき ***** i_start = i - 1; line_no_tk = line_no; // ***** 16進数のとき ***** if (ch == "0" && (ch2 == "x" || ch2 == "X")) { i++; hex_flag = false; while (i < src_len) { // ***** 1文字取り出す(iの加算なし) ***** ch = src.charAt(i); // ***** 16進数チェック ***** if (isHex1(ch)) { i++; hex_flag = true; } else { break; } } if (!hex_flag) { // (数値の0および後続の変数名と判断) token_push("0", line_no_tk); i--; continue; } temp_st = src.substring(i_start, i); // ***** 数値に変換してから再度文字列にする ***** temp_no = +temp_st; temp_st = String(temp_no); token_push(temp_st, line_no_tk); continue; } // ***** 10進数のとき ***** if (isDigit1(ch)) { digit_mode = 1; while (i < src_len) { // ***** 1文字取り出す(iの加算なし) ***** ch = src.charAt(i); ch2 = src.charAt(i + 1); // ***** 小数点チェック ***** if (ch == ".") { if (digit_mode == 1 && isDigit1(ch2)) { i++; digit_mode = 2; continue; } // (後続の文字列連結演算子と判断) break; } // ***** 指数表記チェック ***** if (ch == "e" || ch == "E") { i++; // ***** 1文字取り出す(iの加算なし) ***** ch = src.charAt(i); ch2 = src.charAt(i + 1); // ***** 指数チェック ***** // (符号ありの数値を許可) if (digit_mode <= 2 && (isDigit1(ch) || (isSign1(ch) && isDigit1(ch2)))) { i++; digit_mode = 3; continue; } // (後続の変数名と判断) i--; break; } // ***** 数値チェック ***** if (isDigit1(ch)) { i++; } else { break; } } temp_st = src.substring(i_start, i); token_push(temp_st, line_no_tk); continue; } // ***** 名前のとき ***** // (モジュールの区切り記号「#」も含める) if (isName1(ch) || ch == "#") { sharp_flag = (ch == "#"); while (i < src_len) { // ***** 1文字取り出す(iの加算なし) ***** ch = src.charAt(i); // ***** 名前か数字のチェック ***** // (符号ありの数値を許可(ラベル名用に特別扱い)) if (isName1(ch) || isDigit1(ch) || (sharp_flag && isSign1(ch)) || ch == "#") { i++; sharp_flag = (ch == "#"); continue; } break; } temp_st = src.substring(i_start, i); token_push(temp_st, line_no_tk); if (sharp_flag) { throw new Error("#で終了する名前は使用できません。(分割ロード(#～#)には未対応です)"); } continue; } // ***** 文字列のとき ***** if (ch == '"') { ch = ""; // 下で完了をチェックするためクリア while (i < src_len) { // ***** 1文字取り出す ***** ch = src.charAt(i++); ch2 = src.charAt(i); // ***** エスケープのとき ***** if (ch == "\\") { if (ch2 == "\\" || ch2 == '"') { i++; continue; } token_push('"', line_no_tk); throw new Error("文字列のエスケープエラー"); } // ***** デリミタのとき ***** if (ch == '"') { break; } // ***** 改行のとき ***** if (ch == "\r" || ch == "\n") { line_no++; if (ch == "\r" && ch2 == "\n") { i++; } } } temp_st = src.substring(i_start, i); // ***** デリミタがなければ追加する ***** if (ch != '"') { temp_st += '"'; } // ***** エスケープ処理 ***** temp_st = temp_st .replace(/\\"/g, '"') // 「"」のエスケープ .replace(/\\\\/g, "\\"); // 「\」のエスケープ ← これは最後にしないといけない token_push(temp_st, line_no_tk); continue; } // ***** 演算子その他のとき ***** if (ch == "+" || ch == "-" || ch == "&" || ch == "|") { if (ch2 == ch) { i++; } if (ch2 == "=") { i++; } } if (ch == "=" || ch == "!" || ch == "*" || ch == "/" || ch == "%" || ch == "\\" || ch == "." || ch == "^") { if (ch2 == "=") { i++; } } if (ch == "<") { if (ch2 == "=") { i++; } if (ch2 == "<") { i++; ch3 = src.charAt(i); if (ch3 == "=") { i++; } } } if (ch == ">") { if (ch2 == "=") { i++; } if (ch2 == ">") { i++; ch3 = src.charAt(i); if (ch3 == "=") { i++; } if (ch3 == ">") { i++; ch4 = src.charAt(i); if (ch4 == "=") { i++; } } } } temp_st = src.substring(i_start, i); // ***** セミコロン「;」の挿入 ***** // (行頭のポインタ「*」の前にセミコロン「;」を自動挿入する // (これによって、乗算の「*」と解釈されることを防ぐ)) // (ただし、直前が演算子のときは挿入しない) if (temp_st == "*" && newline_flag && token_len > 0 && !operator.hasOwnProperty(token[token_len - 1])) { token_push(";", line_no_tk); } token_push(temp_st, line_no_tk); } // ***** 終端のトークンを追加(安全のため) ***** for (i = 0; i < end_token_num; i++) { token_push("end", line_no); } } // **************************************** // 補助関数等 // **************************************** // ***** 正負と小数と指数も含めた数値チェック(-1.23e4等) ***** function isFullDigit(num_st) { var reg_exp = /^\s*[+\-]?\d+(?:\.\d+)?(?:[eE][+\-]?\d+)?\s*$/; return reg_exp.test(num_st); } // ***** 数値チェック(1文字のみ) ***** function isDigit1(ch) { var c = ch.charCodeAt(0); return (c >= 0x30 && c <= 0x39); } // ***** アルファベットチェック(1文字のみ) ***** function isAlpha1(ch) { var c = ch.charCodeAt(0); return ((c >= 0x41 && c <= 0x5A) || (c >= 0x61 && c <= 0x7A)); } // ***** 16進数チェック(1文字のみ) ***** function isHex1(ch) { var c = ch.charCodeAt(0); return ((c >= 0x30 && c <= 0x39) || (c >= 0x41 && c <= 0x46) || (c >= 0x61 && c <= 0x66)); } // ***** 符号チェック(1文字のみ) ***** function isSign1(ch) { return (ch == "+" || ch == "-"); } // ***** 名前チェック(1文字のみ) ***** function isName1(ch) { var c = ch.charCodeAt(0); return ((c >= 0x41 && c <= 0x5A) || (c >= 0x61 && c <= 0x7A) || ch == "_"); } // ***** 名前チェック(先頭の1～2文字のみ) ***** // (モジュールの区切り記号「#」も含める) function isNameOK(name_st) { var ch = name_st.charAt(0); if (ch == "#") { ch = name_st.charAt(1); } return (isName1(ch) || ch == "#"); } // ***** ラベル名チェック(先頭の1～2文字のみ) ***** // (モジュールの区切り記号「#」も含める) function isLabelNameOK(name_st) { var ch = name_st.charAt(0); if (ch == "#") { ch = name_st.charAt(1); } // (符号ありの数値を許可(ラベル名用に特別扱い)) return (isName1(ch) || isDigit1(ch) || isSign1(ch) || ch == "#"); } // ***** 定数名チェック(先頭の1文字のみ) ***** // (定数名は、モジュールと無関係のため、モジュールの区切り記号「#」は含めない) function isConstNameOK(name_st) { var ch = name_st.charAt(0); return isName1(ch); } // ***** トークン追加 ***** function token_push(tok, line_no) { token[token_len] = tok; token_info[token_len] = {}; token_info[token_len].line_no = line_no; token_len++; } // ***** トークンの一致チェック ***** function token_match(tok, i) { if (i >= token_len) { debugpos2 = token_len; throw new Error("'" + tok + "' が見つかりませんでした。"); } if (tok != token[i]) { debugpos2 = i + 1; throw new Error("'" + tok + "' があるべき所に '" + token[i] + "' が見つかりました。"); } // ***** 加算されないので注意 ***** // i++; } // ***** ブロックの検索 ***** // (ch1とch2に囲まれたブロックを検索して 終了位置+1を返す。 // ブロックのネストにも対応する。 // 先頭のch1は処理済みを前提とする) function block_search(tok_start, tok_end, ch1, ch2, for_exp_flag) { var i, nest; i = tok_start; nest = 1; // 先頭のch1は処理済みを前提とする while (i < tok_end) { // (for文の式でかつ互換モードでないときには、ch1をチェックしない) if (!for_exp_flag || sp_compati_flag) { if (token[i] == ch1) { nest++; } } if (token[i] == ch2) { nest--; } if (nest == 0) { break; } i++; } // (見つからなかったときはエラーとする) token_match(ch2, i++); return i; } // ***** 演算子検索 ***** function operator_code(op) { return operator.hasOwnProperty(op) ? operator[op][0] : ""; } function operator_pri(op) { return operator.hasOwnProperty(op) ? operator[op][1] : 0; } // ***** モジュール名の追加 ***** function add_module_name(name) { /* 「#」で始まり2文字以上なら「#」を削ってグローバル名とする */ if (name.charAt(0) == "#" && name.length > 1) { return name.substring(1); } /* モジュール完全名が空のときはそのまま返す */ if (module_fullname == "") { return name; } /* 「#」が含まれるときはそのまま返す */ if (name.indexOf("#") >= 0) { return name; } /* その他のときはモジュール完全名と「#」を前に付ける */ return module_fullname + "#" + name; } // ***** モジュール名の削除 ***** function del_module_name(name) { var i = name.lastIndexOf("#") + 1; return (i < name.length) ? name.substring(i) : name; } // ***** 終了/スリープフラグ設定 ***** // (実行フラグにも反映する) function set_end_flag(flg) { end_flag = flg; exec_flag = !flg; } function set_sleep_flag(flg) { sleep_flag = flg; exec_flag = !flg; } // ***** エラー場所の表示 ***** function show_err_place(debugpos1, debugpos2) { var i, msg; msg = "エラー場所: " + token_info[debugpos1].line_no + "行: "; if (debugpos2 <= debugpos1) { debugpos2 = debugpos1 + 1; } // 最低でも1個は表示する for (i = debugpos1; i < debugpos2; i++) { if (i >= 0 && i < token_len) { msg += token[i] + " "; } } if (debugpos2 >= token_len) { msg += "- プログラム最後まで検索したが文が完成せず。"; } DebugShow(msg + "\n"); } // ***** オブジェクトのソートと文字列化 ***** // (sort_type ソート方法(=1:キーでソート,=2:値でソート)) function sort_obj_tostr(obj, sort_type) { var i, key, obj1; var temp_array = []; var temp_array_len; var result_array = []; var sort_func1 = function (a, b) { return ((a.k == b.k) ? 0 : (a.k < b.k) ? -1 : 1); }; var sort_func2 = function (a, b) { return ((a.v == b.v) ? 0 : (a.v < b.v) ? -1 : 1); }; for (key in obj) { // if (obj.hasOwnProperty(key)) { if (hasOwn.call(obj, key)) { obj1 = {}; obj1.k = key; obj1.v = obj[key]; temp_array.push(obj1); } } temp_array.sort((sort_type == 1) ? sort_func1 : sort_func2); temp_array_len = temp_array.length; for (i = 0; i < temp_array_len; i++) { obj1 = {}; obj1[temp_array[i].k] = temp_array[i].v; result_array[i] = obj1; } return JSON.stringify(result_array); } // ***** コード追加 ***** // (code_kind コードの種別(=0:通常, // =1:組み込み関数, // =10:グローバル変数, // =11:ローカル変数)) function code_push(tok, pos1, pos2, code_kind) { var func_name; var var_name; // ***** 引数のチェック ***** if (code_kind == null) { code_kind = 0; } // ***** コードの追加 ***** switch (code_kind) { case 0: // 通常 // ***** 命令コードのとき ***** if (opcode.hasOwnProperty(tok)) { // (コードの値を格納) code[code_len] = opcode[tok]; // ***** 文字列のとき ***** } else if (tok.charAt && tok.charAt(0) == '"') { // (ダブルクォートを外して格納) code[code_len] = tok.substring(1, tok.length - 1); // ***** その他のとき ***** } else { // (そのまま格納) code[code_len] = tok; } break; case 1: // 組み込み関数 // (関数の本体を格納) func_name = tok.substring(1, tok.length - 1); // ダブルクォートを外す code[code_len] = func_tbl[func_name].func; break; case 10: // グローバル変数 // (変数情報を生成して格納) var_name = tok.substring(1, tok.length - 1); // ダブルクォートを外す code[code_len] = make_var_info(0, var_name); break; case 11: // ローカル変数 // (変数情報を生成して格納) var_name = tok.substring(1, tok.length - 1); // ダブルクォートを外す code[code_len] = make_var_info(1, var_name); break; default: // その他 debugpos1 = pos1; debugpos2 = pos2; throw new Error("コード生成エラー。"); // break; } // ***** コード情報の追加 ***** // (デバッグ位置の情報を格納) code_info[code_len] = {}; code_info[code_len].pos1 = pos1; code_info[code_len].pos2 = pos2; // ***** コード文字列の追加 ***** if (code_kind == 11) { // ローカル変数 code_str[code_len] = '"' + "l\\" + tok.substring(1); } else { // その他 code_str[code_len] = tok; } code_len++; } // ***** コードの文字列化 ***** function code_tostr(cod, i) { var func_name; // ***** 関数の本体のとき ***** if (typeof (cod) == "function") { if (i != null) { func_name = code_str[i]; func_name = func_name.substring(1, func_name.length - 1); return ""; } return ""; } // ***** その他のとき ***** return JSON.stringify(cod); } // ***** 変数情報の生成 ***** // (グローバル/ローカル変数にアクセスするための情報を生成する) // (変数情報は、生成後に変更してはいけない(複数回参照されるので不具合のもとになる) // 変更が必要な場合には、オブジェクトを複製して、複製したものを変更すること) function make_var_info(kind, name) { var var_info = {}; // 変数情報 var_info.kind = kind; // 変数の種別 // (=0:グローバル変数, // =1:ローカル変数, // =2:ローカル変数かつスコープ有効) var_info.name = name; // 変数名 var_info.sc_no = 0; // 変数が所属するスコープのスコープ番号 // (変数の種別が 2 のときのみ有効) // (現状、このプロパティは、変数情報の識別用にも // 使用(流用)している) var_info.sc_id = 0; // 変数が所属するスコープのスコープID // (変数の種別が 2 のときのみ有効) // (スコープの存在チェック用) return var_info; } // ***** ポインタ変数情報の生成 ***** function make_var_pointer(var_info) { var var_info2 = {}; var_info2.kind = 2; var_info2.name = var_info.name; var_info2.sc_no = Vars.getLocalScopeNum(); var_info2.sc_id = Vars.getLocalScopeID(); return var_info2; } // ***** 配列変数情報の生成 ***** function make_var_array(var_info, index) { var var_info2 = {}; var_info2.kind = var_info.kind; var_info2.name = var_info.name + "$" + index; var_info2.sc_no = var_info.sc_no; var_info2.sc_id = var_info.sc_id; return var_info2; } // ***** 変数情報の取得 ***** function get_var_info(var_info) { // ***** NOP ***** return var_info; } // ***** 変数名の取得 ***** // (画像変数名や関数名を取得するために使用する) function get_var_name(var_info) { return var_info.name; } // ***** 変数用クラス(staticクラス) ***** // (グローバル/ローカル変数の内容を保持するクラス) // (使用前に Vars.init() で初期化が必要) var Vars = (function () { // ***** コンストラクタ(staticクラスのため未使用) ***** function Vars() { } // ***** 内部変数 ***** var vars_scope = []; // グローバル/ローカル変数のスコープ(配列) // (変数の内容はここに格納される) // (配列の0はグローバル変数用) // (配列の1以降はローカル変数用) var vars_scope_id = []; // グローバル/ローカル変数のスコープID // (スコープの存在チェック用) // (配列の0はグローバル変数用(未使用)) // (配列の1以降はローカル変数用) var local_scope_num; // ローカル変数のスコープ数 var local_scope_id; // ローカル変数のスコープID // ***** グローバル/ローカル変数の取得(内部処理用) ***** function getVars(var_info) { switch (var_info.kind) { case 0: // グローバル変数 return vars_scope[0]; case 1: // ローカル変数 return vars_scope[local_scope_num]; case 2: // ローカル変数かつスコープ有効 // スコープの存在をチェック if (var_info.sc_no > local_scope_num || var_info.sc_id != vars_scope_id[var_info.sc_no]) { throw new Error("ポインタの指す先が不正です(スコープエラー)。"); } return vars_scope[var_info.sc_no]; default: // その他 throw new Error("変数の種別エラー。"); } } // ***** 配列変数の一括操作(内部処理用) ***** var controlArray = (function () { var f; if (Object.keys && Array.prototype.filter && Array.prototype.forEach) { f = function (now_vars, var_name, var_name_len, func) { Object.keys(now_vars).filter(function (v) { return (v.substring(0, var_name_len) == var_name); }).forEach(func); }; } else { f = function (now_vars, var_name, var_name_len, func) { var v; for (v in now_vars) { if (v.substring(0, var_name_len) == var_name) { // (ここでは安全のため hasOwn のままにしておく) // if (now_vars.hasOwnProperty(v)) { if (hasOwn.call(now_vars, v)) { // if (now_vars[v] != null) { func(v); } } } }; } return f; })(); // ***** 変数初期化(staticメソッド) ***** Vars.init = function () { vars_scope = []; // グローバル/ローカル変数のスコープ(配列)の初期化 // vars_scope[0] = {}; // グローバル変数のスコープの初期化 vars_scope[0] = hashInit(); // グローバル変数のスコープの初期化 vars_scope_id[0] = 0; // グローバル変数のスコープID(未使用)の初期化 local_scope_num = 0; // ローカル変数のスコープ数の初期化 local_scope_id = 1; // ローカル変数のスコープIDの初期化 }; // ***** グローバル変数を取得する(staticメソッド)(デバッグ用) ***** Vars.getGlobalVars = function () { return vars_scope[0]; }; // ***** ローカル変数を取得する(staticメソッド)(デバッグ用) ***** Vars.getLocalVars = function () { // return (local_scope_num > 0) ? vars_scope[local_scope_num] : {}; return (local_scope_num > 0) ? vars_scope[local_scope_num] : hashInit(); }; // ***** ローカル変数のスコープを1個生成する(staticメソッド) ***** Vars.makeLocalScope = function () { local_scope_num++; // vars_scope[local_scope_num] = {}; vars_scope[local_scope_num] = hashInit(); vars_scope_id[local_scope_num] = local_scope_id++; if (local_scope_id > 1e15) { local_scope_id = 1; } }; // ***** ローカル変数のスコープを1個削除する(staticメソッド) ***** Vars.deleteLocalScope = function () { if (local_scope_num > 0) { vars_scope.pop(); vars_scope_id.pop(); local_scope_num--; } }; // ***** ローカル変数のスコープ数を取得する(staticメソッド) ***** Vars.getLocalScopeNum = function () { return local_scope_num; }; // ***** ローカル変数のスコープIDを取得する(staticメソッド) ***** Vars.getLocalScopeID = function () { return vars_scope_id[local_scope_num]; }; // ***** 全変数を削除する(staticメソッド) ***** Vars.clearVars = function () { var i; for (i = 0; i <= local_scope_num; i++) { // vars_scope[i] = {}; vars_scope[i] = hashInit(); } }; // ***** ローカル変数を削除する(staticメソッド) ***** Vars.clearLocalVars = function () { if (local_scope_num > 0) { // vars_scope[local_scope_num] = {}; vars_scope[local_scope_num] = hashInit(); } }; // ***** 変数を削除する(staticメソッド) ***** Vars.deleteVar = function (var_info) { var now_vars; var var_name; // ***** グローバル/ローカル変数の取得 ***** now_vars = getVars(var_info); // ***** 変数名の取得 ***** var_name = var_info.name; // ***** 変数を削除する ***** delete now_vars[var_name]; }; // ***** 変数の存在チェック(staticメソッド) ***** Vars.checkVar = function (var_info) { var now_vars; var var_name; // ***** グローバル/ローカル変数の取得 ***** now_vars = getVars(var_info); // ***** 変数名の取得 ***** var_name = var_info.name; // ***** 変数の存在チェック ***** // return now_vars.hasOwnProperty(var_name); // return hasOwn.call(now_vars, var_name); return (now_vars[var_name] != null); }; // ***** 変数の値を取得する(staticメソッド) ***** Vars.getVarValue = function (var_info) { var now_vars; var var_name; var num; // ***** グローバル/ローカル変数の取得 ***** now_vars = getVars(var_info); // ***** 変数名の取得 ***** var_name = var_info.name; // ***** 変数の値を取得する ***** // if (now_vars.hasOwnProperty(var_name)) { // if (hasOwn.call(now_vars, var_name)) { // return now_vars[var_name]; // } num = now_vars[var_name]; if (num != null) { return num; } now_vars[var_name] = 0; return 0; }; // ***** 変数の値を設定する(staticメソッド) ***** Vars.setVarValue = function (var_info, num) { var now_vars; var var_name; // ***** グローバル/ローカル変数の取得 ***** now_vars = getVars(var_info); // ***** 変数名の取得 ***** var_name = var_info.name; // ***** 変数の値を設定する ***** now_vars[var_name] = num; }; // ***** 配列変数の一括コピー(staticメソッド) ***** Vars.copyArray = function (var_info, var_info2) { var now_vars; var now_vars2; var var_name; var var_name2; var var_name_len; // ***** グローバル/ローカル変数の取得 ***** now_vars = getVars(var_info); now_vars2 = getVars(var_info2); // ***** 変数名の取得 ***** var_name = var_info.name + "$"; var_name2 = var_info2.name + "$"; // ***** コピー元とコピー先の配列変数のスコープが同じ、かつ、 ***** // ***** 配列変数名が一致する場合には、エラーにする ***** // (例えば、a[]をa[1][]にコピーすると無限ループのおそれがある) if (now_vars == now_vars2 && var_name2.indexOf(var_name) == 0) { var_name = var_name.substring(0, var_name.length - 1); throw new Error("コピー元とコピー先の配列変数名が同一です。('" + var_name + "')"); } // ***** 配列変数の一括コピー ***** var_name_len = var_name.length; controlArray(now_vars, var_name, var_name_len, function (v) { var var_name_to = var_name2 + v.substring(var_name_len); now_vars2[var_name_to] = now_vars[v]; }); }; // ***** 配列変数の一括削除(staticメソッド) ***** Vars.deleteArray = function (var_info) { var now_vars; var var_name; var var_name_len; // ***** グローバル/ローカル変数の取得 ***** now_vars = getVars(var_info); // ***** 変数名の取得 ***** var_name = var_info.name + "$"; // ***** 配列変数の一括削除 ***** var_name_len = var_name.length; controlArray(now_vars, var_name, var_name_len, function (v) { delete now_vars[v]; }); }; // ***** 作成したクラスを返す ***** return Vars; })(); // ***** GUI関連処理等 ***** // ***** キーボード処理 ***** function keydown(ev) { var key_code, num; // ***** キーコードを取得 ***** key_code = ev.keyCode; // ***** プログラム実行中のとき ***** // (ブラウザのスクロール等を抑制する) if (running_flag) { // ***** スペース/矢印/PageUp/PageDown/Home/Endキーを無効化 ***** if (key_code >= 32 && key_code <= 40) { // ***** IE8対策 ***** if (ev.preventDefault) { ev.preventDefault(); } else { ev.returnValue = false; } } } // ***** キーダウン ***** key_down_stat[key_code] = true; key_down_code = key_code; // ***** 携帯のキーコードに変換 ***** if (phone_key_code.hasOwnProperty(key_code)) { num = phone_key_code[key_code]; // ***** キースキャン状態を更新 ***** key_scan_stat |= num; // ビットをON // ***** キー入力バッファ1に追加 ***** if (input_buf.length >= input_buf_size) { input_buf.shift(); } input_buf.push(num); // ***** キー入力待ちならば解除 ***** if (input_flag && sleep_id != null) { clearTimeout(sleep_id); run_continuously(); } } // ***** スペースキーのとき ***** // (スペースキーを上で無効化しており keypress が発生しないので、 // ここで処理する) if (key_code == 32) { keypress(ev); } } function keyup(ev) { var key_code, num; // ***** キーコードを取得 ***** key_code = ev.keyCode; // ***** キーアップ ***** key_down_stat[key_code] = false; key_down_code = 0; key_press_code = 0; // ***** 携帯のキーコードに変換 ***** if (phone_key_code.hasOwnProperty(key_code)) { num = phone_key_code[key_code]; // ***** キースキャン状態を更新 ***** key_scan_stat &= ~num; // ビットをOFF } } function keypress(ev) { var key_code; // ***** キーコードを取得 ***** key_code = ev.keyCode; // ***** キープレス ***** key_press_code = key_code; // ***** キー入力バッファ2に追加 ***** if (keyinput_buf.length >= input_buf_size) { keyinput_buf.shift(); } keyinput_buf.push(key_press_code); // ***** キー入力待ちならば解除 ***** if (keyinput_flag && sleep_id != null) { clearTimeout(sleep_id); run_continuously(); } } // (ダイアログを表示するとkeyupが発生しないことがあるので、 // この関数を呼んでクリア可能とする) function keyclear() { var key_code; // ***** すべてのキー状態をクリア ***** for (key_code in key_down_stat) { if (key_down_stat.hasOwnProperty(key_code)) { key_down_stat[key_code] = false; } } key_scan_stat = 0; key_down_code = 0; key_press_code = 0; } // ***** マウス処理 ***** function mousedown(ev) { var btn_code; // ***** マウスボタンコードを取得 ***** btn_code = ev.button; // ***** FlashCanvas用 ***** if (typeof (FlashCanvas) != "undefined") { if (btn_code == 1) { btn_code = 0; } // 左ボタンを変換 if (btn_code == 2) { btn_code = -1; } // 右ボタンは無効化 if (btn_code == 4) { btn_code = 1; } // 中ボタンを変換 } // ***** マウスボタン状態を設定 ***** if (btn_code >= 0) { mouse_btn_stat[btn_code] = true; } // ***** マウス座標を取得 ***** getmousepos(ev); } function mousedown_canvas(ev) { // ***** プログラム実行中のとき ***** // (Canvas内でのマウスの機能(領域選択等)を抑制する) if (running_flag) { // ***** IE8対策 ***** if (ev.preventDefault) { ev.preventDefault(); } else { ev.returnValue = false; } } } function mouseup(ev) { var btn_code; // ***** マウスボタンコードを取得 ***** btn_code = ev.button; // ***** FlashCanvas用 ***** if (typeof (FlashCanvas) != "undefined") { if (btn_code == 1) { btn_code = 0; } // 左ボタンを変換 if (btn_code == 2) { btn_code = -1; } // 右ボタンは無効化 if (btn_code == 4) { btn_code = 1; } // 中ボタンを変換 } // ***** マウスボタン状態を設定 ***** if (btn_code >= 0) { mouse_btn_stat[btn_code] = false; } // ***** マウス座標を取得 ***** getmousepos(ev); } function mousemove(ev) { // ***** マウス座標を取得 ***** getmousepos(ev); } function mouseout(ev) { // ***** すべてのマウスボタン状態をクリア ***** mousebuttonclear(); // ***** マウス座標を範囲外とする ***** mousex = -10000; mousey = -10000; } function contextmenu_canvas(ev) { // ***** プログラム実行中のとき ***** // (Canvas内でのマウスの機能(メニュー表示等)を抑制する) if (running_flag) { // ***** IE8対策 ***** if (ev.preventDefault) { ev.preventDefault(); } else { ev.returnValue = false; } } } function getmousepos(ev) { var rect; // ***** IE8対策 ***** // rect = ev.target.getBoundingClientRect(); rect = can1.getBoundingClientRect(); // ***** マウス座標を取得 ***** mousex = ev.clientX - rect.left; mousey = ev.clientY - rect.top; } // (マウスカーソルが画面外に出たり ダイアログを表示すると // mouseupが発生しないことがあるので、 // この関数を呼んでクリア可能とする) function mousebuttonclear() { var btn_code; // ***** すべてのマウスボタン状態をクリア ***** for (btn_code in mouse_btn_stat) { if (mouse_btn_stat.hasOwnProperty(btn_code)) { mouse_btn_stat[btn_code] = false; } } } // ***** モバイル仮対応 ***** // ***** タッチ処理 ***** function touchstart(ev) { // ***** マウスボタン状態を設定 ***** mouse_btn_stat[0] = true; // ***** タッチ座標を取得 ***** gettouchpos(ev); } function touchend(ev) { // ***** マウスボタン状態を設定 ***** mouse_btn_stat[0] = false; // ***** タッチ座標を取得 ***** gettouchpos(ev); } function touchmove(ev) { // ***** タッチ座標を取得 ***** gettouchpos(ev); } function gettouchpos(ev) { var tt, rect; // ***** タッチ数をチェック ***** if (ev.targetTouches.length > 0) { tt = ev.targetTouches[0]; // ***** IE8対策 ***** // rect = ev.target.getBoundingClientRect(); rect = can1.getBoundingClientRect(); // ***** タッチ座標を取得 ***** mousex = tt.clientX - rect.left; mousey = tt.clientY - rect.top; } } // ***** Canvasの各種設定の初期化 ***** // (mode 初期化モード(=0:内部変数も初期化する, // =1:内部変数は初期化しない, // =2:内部変数は初期化しない。ただし設定だけは初期化する)) function init_canvas_setting(ctx, mode) { var color_val1, line_width1; // ***** 内部変数の初期化 ***** if (mode == 0) { // ***** フォントサイズの初期化 ***** // (フォントサイズだけは初期化しない(過去との互換性維持のため)) // font_size = sp_compati_flag ? font_size_set[0] : font_size_set[1]; // ***** 色設定の初期化 ***** color_val = can1_forecolor_init; // ***** 線の幅設定の初期化 ***** line_width = 1; // ***** 座標系設定の初期化 ***** axis = {}; axis.originx = 0; // 座標系の原点座標X(px) axis.originy = 0; // 座標系の原点座標Y(px) axis.rotate = 0; // 座標系の回転の角度(rad) axis.rotateox = 0; // 座標系の回転の中心座標X(px) axis.rotateoy = 0; // 座標系の回転の中心座標Y(px) axis.scalex = 1; // 座標系の拡大縮小のX方向倍率 axis.scaley = 1; // 座標系の拡大縮小のY方向倍率 axis.scaleox = 0; // 座標系の拡大縮小の中心座標X(px) axis.scaleoy = 0; // 座標系の拡大縮小の中心座標Y(px) } // ***** 設定値の決定 ***** if (mode == 2) { color_val1 = can1_forecolor_init; line_width1 = 1; } else { color_val1 = color_val; line_width1 = line_width; } // ***** 設定値の反映 ***** // ***** フォント設定 ***** ctx.font = font_size + "px " + font_family; ctx.textAlign = "left"; ctx.textBaseline = "top"; // ***** 色設定 ***** ctx.strokeStyle = color_val1; ctx.fillStyle = color_val1; // ***** 線の幅設定 ***** ctx.lineWidth = line_width1; // ***** 座標系設定 ***** init_canvas_axis(ctx); // 座標系を初期化 if (mode == 1) { set_canvas_axis(ctx); } // 座標系を再設定 // ***** 現在状態を保存 ***** ctx.save(); } // ***** Canvasの各種設定のリセット ***** // (mode 初期化モード(=0:内部変数も初期化する, // =1:内部変数は初期化しない)) function reset_canvas_setting(ctx, mode) { // ***** 前回状態に復帰 ***** // (クリッピング領域の設定も解除する) ctx.restore(); // ***** Canvasの各種設定の初期化 ***** init_canvas_setting(ctx, mode); } // ***** Canvasの座標系の初期化 ***** function init_canvas_axis(ctx) { ctx.setTransform(1, 0, 0, 1, 0, 0); } // ***** Canvasの座標系の設定 ***** // (基本的に座標系を初期化してから呼ぶこと) function set_canvas_axis(ctx) { // ***** 座標系の設定 ***** // (拡大縮小 → 回転 → 平行移動 の順に実行する // (Canvasのマトリックス計算は逆順に実行されるので注意)) ctx.translate( axis.originx, axis.originy); // 平行移動 ctx.translate( axis.rotateox, axis.rotateoy); // 回転の中心座標を元に戻す ctx.rotate(axis.rotate); // 回転 ctx.translate(-axis.rotateox, -axis.rotateoy); // 回転の中心座標を移動 ctx.translate( axis.scaleox, axis.scaleoy); // 拡大縮小の中心座標を元に戻す ctx.scale(axis.scalex, axis.scaley); // 拡大縮小 ctx.translate(-axis.scaleox, -axis.scaleoy); // 拡大縮小の中心座標を移動 } // ***** Canvasの座標変換 ***** // (グラフィックス上の座標(x,y)から、 // 実際の画面上の座標(x1,y1)を計算して、配列にして返す) function conv_axis_point(x, y) { var x1, y1, t; // ***** 座標系の変換の分を補正 ***** x1 = x; y1 = y; x1 -= axis.scaleox; // 拡大縮小の中心座標を移動 y1 -= axis.scaleoy; x1 *= axis.scalex; // 拡大縮小 y1 *= axis.scaley; x1 += axis.scaleox; // 拡大縮小の中心座標を元に戻す y1 += axis.scaleoy; x1 -= axis.rotateox; // 回転の中心座標を移動 y1 -= axis.rotateoy; // (ここでtを使わないと、計算結果がおかしくなるので注意) t = x1 * Math.cos(axis.rotate) - y1 * Math.sin(axis.rotate); // 回転 y1 = x1 * Math.sin(axis.rotate) + y1 * Math.cos(axis.rotate); x1 = t; x1 += axis.rotateox; // 回転の中心座標を元に戻す y1 += axis.rotateoy; x1 += axis.originx; // 平行移動 y1 += axis.originy; x1 |= 0; // 整数化 y1 |= 0; // 整数化 return [x1, y1]; } // ***** ソフトキー表示 ***** function disp_softkeys() { var text_st; // ***** ソフトキー表示エリアのクリアと表示 ***** ctx2.clearRect(0, 0, can2.width, can2.height); ctx2.fillStyle = can2_forecolor_init; ctx2.textAlign = "left"; ctx2.textBaseline = "top"; text_st = softkeys[0].text; if (text_st != "") { ctx2.font = softkeys[0].font_size + "px " + font_family; text_st = (text_st.charAt(0) == "*") ? text_st.substring(1) : ("[c]:" + text_st); ctx2.fillText(text_st, 0, 2); } ctx2.textAlign = "right"; text_st = softkeys[1].text; if (text_st != "") { ctx2.font = softkeys[1].font_size + "px " + font_family; text_st = (text_st.charAt(0) == "*") ? text_st.substring(1) : ("[v]:" + text_st); ctx2.fillText(text_st, can2.width, 2); } } // **************************************** // 命令の定義処理 // **************************************** // ***** 組み込み関数の定義情報の生成 ***** function make_func_tbl() { // ***** 組み込み関数の定義情報を1個ずつ生成 ***** // (第2引数は関数の引数の数を指定する(ただし省略可能な引数は数に入れない)) // (第2引数を-1にすると組み込み変数になり、()なしで呼び出せる) // (第3引数は「変数名をとる引数」がある場合にその引数番号を配列で指定する) // (戻り値なしの組み込み関数の戻り値は nothing とする) make_one_func_tbl("abs", 1, [], function (param) { var a1; a1 = (+param[0]); return Math.abs(a1); }); make_one_func_tbl("acos", 1, [], function (param) { var a1; a1 = (+param[0]); return Math.acos(a1) * 180 / Math.PI; }); make_one_func_tbl("arc", 3, [], function (param) { var a1, a2, a3, a4; var i; var a, b, x0, y0; var r1, c1; a1 = (+param[0]); // X a2 = (+param[1]); // Y a3 = (+param[2]); // W if (param.length <= 3) { a4 = a3; } else { a4 = (+param[3]); // H } if (a3 == a4) { a = a3 / 2; // 半径 x0 = a1 + a; // 中心のX座標 y0 = a2 + a; // 中心のY座標 ctx.beginPath(); ctx.arc(x0, y0, a, 0, 2 * Math.PI); ctx.closePath(); ctx.stroke(); } else { a = a3 / 2; // X方向の半径 b = a4 / 2; // Y方向の半径 x0 = a1 + a; // 中心のX座標 y0 = a2 + b; // 中心のY座標 ctx.beginPath(); ctx.moveTo(a + x0, y0); r1 = 0; c1 = 2 * Math.PI / 100; for (i = 1; i < 100; i++) { // ctx.lineTo(a * Math.cos(2 * Math.PI * i / 100) + x0, b * Math.sin(2 * Math.PI * i / 100) + y0); ctx.lineTo(a * Math.cos(r1) + x0, b * Math.sin(r1) + y0); r1 += c1; } ctx.closePath(); ctx.stroke(); // 以下は不要になったもよう(Chrome v27) // // ***** Chrome v23 で円が閉じない件の対策(中心を0.5ずらしたとき) ***** // ctx.fillRect(a + x0, y0, 0.5, 0.5); } return nothing; }); make_one_func_tbl("arraylen", 1, [0], function (param) { var num; var a1, a2, a3; var i; a1 = get_var_info(param[0]); if (param.length <= 1) { a2 = 0; a3 = null; } else { a2 = Math.trunc(param[1]); if (param.length <= 2) { a3 = null; } else { a3 = Math.trunc(param[2]); } } // ***** NaN対策 ***** a2 |= 0; // ***** 引数のチェック ***** // if (a3 != null && (a3 - a2 + 1 < 1 || a3 - a2 + 1 > max_array_size)) { if (!(a3 == null || (a3 - a2 + 1 >= 1 && a3 - a2 + 1 <= max_array_size))) { throw new Error("処理する配列の個数が不正です。1-" + max_array_size + "の間である必要があります。"); } // ***** カウント処理 ***** num = 0; if (a3 == null) { i = a2; while (Vars.checkVar(make_var_array(a1, i))) { num++; i++; } } else { for (i = a2; i <= a3; i++) { if (Vars.checkVar(make_var_array(a1, i))) { num++; } } } return num; }); make_one_func_tbl("asin", 1, [], function (param) { var a1; a1 = (+param[0]); return Math.asin(a1) * 180 / Math.PI; }); make_one_func_tbl("atan", 1, [], function (param) { var a1; a1 = (+param[0]); return Math.atan(a1) * 180 / Math.PI; }); make_one_func_tbl("atan2", 2, [], function (param) { var a1, a2; a1 = (+param[0]); a2 = (+param[1]); // return Math.atan2(a2, a1) * 180 / Math.PI; return Math.atan2(a1, a2) * 180 / Math.PI; }); make_one_func_tbl("ceil", 1, [], function (param) { var a1; a1 = (+param[0]); return Math.ceil(a1); }); make_one_func_tbl("chkvar", 1, [0], function (param) { var a1; a1 = get_var_info(param[0]); return Vars.checkVar(a1) ? 1 : 0; }); make_one_func_tbl("clear", 4, [], function (param) { var a1, a2, a3, a4; a1 = Math.trunc(param[0]); // X a2 = Math.trunc(param[1]); // Y a3 = Math.trunc(param[2]); // W a4 = Math.trunc(param[3]); // H ctx.clearRect(a1, a2, a3, a4); return nothing; }); make_one_func_tbl("clearkey", 0, [], function (param) { input_buf = []; keyinput_buf = []; return nothing; }); make_one_func_tbl("clearvar", 0, [], function (param) { var name; // vars = {}; Vars.clearVars(); imgvars = {}; // ***** プラグイン用の全変数クリア時処理 ***** for (name in clear_var_funcs) { if (clear_var_funcs.hasOwnProperty(name)) { clear_var_funcs[name](); } } return nothing; }); make_one_func_tbl("clip", 4, [], function (param) { var a1, a2, a3, a4; a1 = Math.trunc(param[0]); // X a2 = Math.trunc(param[1]); // Y a3 = Math.trunc(param[2]); // W a4 = Math.trunc(param[3]); // H // ***** Canvasの各種設定のリセット ***** // (クリッピング領域の設定も解除する) reset_canvas_setting(ctx, 1); ctx.beginPath(); ctx.rect(a1, a2, a3, a4); ctx.clip(); return nothing; }); make_one_func_tbl("cls", 0, [], function (param) { // ***** 画面クリア ***** // ctx.clearRect(-axis.originx, -axis.originy, can.width, can.height); init_canvas_axis(ctx); // 座標系を初期化 ctx.clearRect(0, 0, can.width, can.height); // 画面クリア set_canvas_axis(ctx); // 座標系を再設定 return nothing; }); make_one_func_tbl("col", 1, [], function (param) { var a1; var col_r, col_g, col_b; a1 = Math.trunc(param[0]); // RGB col_r = (a1 & 0xff0000) >> 16; // R col_g = (a1 & 0x00ff00) >> 8; // G col_b = (a1 & 0x0000ff); // B color_val = "rgb(" + col_r + "," + col_g + "," + col_b + ")"; ctx.strokeStyle = color_val; ctx.fillStyle = color_val; return nothing; }); make_one_func_tbl("color", 3, [], function (param) { var a1, a2, a3; a1 = Math.trunc(param[0]); // R a2 = Math.trunc(param[1]); // G a3 = Math.trunc(param[2]); // B color_val = "rgb(" + a1 + "," + a2 + "," + a3 + ")"; ctx.strokeStyle = color_val; ctx.fillStyle = color_val; return nothing; }); make_one_func_tbl("copy", 5, [0, 2], function (param) { var a1, a2, a3, a4, a5, a6; var i; var i_start, i_end, i_plus; a1 = get_var_info(param[0]); a2 = Math.trunc(param[1]); a3 = get_var_info(param[2]); a4 = Math.trunc(param[3]); a5 = Math.trunc(param[4]); // ***** NaN対策 ***** a2 |= 0; a4 |= 0; a5 |= 0; // ***** 引数のチェック ***** // if (a5 > max_array_size) { if (!(a5 <= max_array_size)) { throw new Error("処理する配列の個数が不正です。" + max_array_size + "以下である必要があります。"); } if (a5 <= 0) { return nothing; } // ***** コピー処理 ***** // if (a1 == a3 && a2 < a4) { if (a1.name == a3.name && a2 < a4) { // (後から処理) i_start = a5 - 1; i_end = 0; i_plus = -1; } else { // (前から処理) i_start = 0; i_end = a5 - 1; i_plus = 1; } i = i_start; while (true) { // // ***** 配列の存在チェック ***** // if (!Vars.checkVar(make_var_array(a1, a2 + i))) { break; } // a6 = vars[a1 + "[" + (a2 + i) + "]"]; a6 = Vars.getVarValue(make_var_array(a1, a2 + i)); // vars[a3 + "[" + (a4 + i) + "]"] = a6; Vars.setVarValue(make_var_array(a3, a4 + i), a6); i += i_plus; if ((i_plus > 0 && i <= i_end) || (i_plus < 0 && i >= i_end)) { continue; } break; } return nothing; }); make_one_func_tbl("copyall", 2, [0, 1], function (param) { var a1, a2; a1 = get_var_info(param[0]); a2 = get_var_info(param[1]); // ***** 配列変数の一括コピー ***** Vars.copyArray(a1, a2); return nothing; }); make_one_func_tbl("cos", 1, [], function (param) { var a1; a1 = (+param[0]); if (sp_compati_flag) { return Math.trunc(Math.cos(a1 * Math.PI / 180) * 100); } return Math.cos(a1 * Math.PI / 180); }); make_one_func_tbl("day", -1, [], function (param) { return new Date().getDate(); }); make_one_func_tbl("dayofweek", -1, [], function (param) { return new Date().getDay() + 1; // =1:日曜日,=2:月曜日 ... =7:土曜日 }); make_one_func_tbl("dbgdrawfix", 0, [], function (param) { var a1; // ***** Chrome v57 の Canvas の 不具合対策 ***** // Chrome で GPU使用あり設定 (accelerated-2d-canvas : ON) のとき、 // 256x256 より大きい Canvas を生成して、getImageData → drawImage // の順に実行すると、Canvas の表示が更新されない状態になる。 // このとき、HTML上で何か表示を変更すると、復旧する。 // (Intel HD Graphics 5500 で確認) // (本不具合は、Chrome v57 のマイナーバージョンアップ(v57.0.2987.133)で // 修正されたが、しばらく対策は残しておく) a1 = document.getElementById("draw_fix1").textContent; document.getElementById("draw_fix1").textContent = (a1 != ".") ? "." : ""; return nothing; }); make_one_func_tbl("dbgloopset", 1, [], function (param) { var a1; a1 = Math.trunc(param[0]); if (a1 == 0) { loop_nocount_flag = true; // (ループ時間ノーカウント延長フラグをOFFにして、処理時間の測定をリセットする) loop_nocount_extend = false; } else { loop_nocount_flag = true; // (ループ時間ノーカウント延長フラグをONにして、ノーカウントの状態を延長する) loop_nocount_extend = true; } return nothing; }); make_one_func_tbl("dbgpointer", 1, [0], function (param) { var a1, a2; var var_info; var text_st; a1 = get_var_info(param[0]); if (param.length <= 1) { a2 = 0; } else { a2 = Math.trunc(param[1]); } var_info = Vars.getVarValue(a1); text_st = a1.name + " = " + code_tostr(var_info); if (a2 == 1) { DebugShow(text_st); } else if (a2 != 2) { DebugShow(text_st + "\n"); } return text_st; }); make_one_func_tbl("dbgprint", 1, [], function (param) { var a1, a2; a1 = String(param[0]); if (param.length <= 1) { a2 = 0; } else { a2 = Math.trunc(param[1]); } if (a2 == 1) { DebugShow(a1); } else if (a2 != 2) { DebugShow(a1 + "\n"); } return nothing; }); make_one_func_tbl("dbgstop", 0, [], function (param) { var a1; var text_st; if (param.length <= 0) { a1 = ""; } else { a1 = String(param[0]); } text_st = "dbgstop 命令で停止しました。"; if (a1 != "") { text_st += "('" + a1 + "')"; } throw new Error(text_st); // return nothing; }); make_one_func_tbl("dbgtest", 3, [], function (param) { var a1, a2, a3, a4, a5; var text_st; var ok_flag; a1 = String(param[0]); a2 = param[1]; a3 = param[2]; if (param.length <= 3) { a4 = 0; a5 = 0; } else { a4 = (+param[3]); if (param.length <= 4) { a5 = 0; } else { a5 = Math.trunc(param[4]); } } if (a4 == 0) { // (誤差を許さないテスト) ok_flag = (a2 == a3); } else { // (誤差を許すテスト) ok_flag = (Math.abs(a2 - a3) < a4); } if (ok_flag) { text_st = "OK"; } else { text_st = "NG (a = " + code_tostr(a2) + " , b = " + code_tostr(a3) + ")"; } if ((a5 == 1 && !ok_flag) || (a5 != 1 && a5 != 2)) { DebugShow(a1 + " : " + text_st + "\n"); } return ok_flag ? 0 : 1; }); make_one_func_tbl("dcos", 1, [], function (param) { var a1; a1 = (+param[0]); return Math.cos(a1 * Math.PI / 180); }); make_one_func_tbl("devpixratio", -1, [], function (param) { return window.devicePixelRatio || 0; }); make_one_func_tbl("disarray", 1, [0], function (param) { var a1, a2, a3; var i; a1 = get_var_info(param[0]); if (param.length <= 1) { a2 = null; a3 = 0; } else { a2 = Math.trunc(param[1]); if (param.length <= 2) { a3 = a2 - 1; a2 = 0; } else { a3 = Math.trunc(param[2]); } } // ***** 引数のチェック ***** // if (a2 != null && (a3 - a2 + 1 < 1 || a3 - a2 + 1 > max_array_size)) { if (!(a2 == null || (a3 - a2 + 1 >= 1 && a3 - a2 + 1 <= max_array_size))) { throw new Error("処理する配列の個数が不正です。1-" + max_array_size + "の間である必要があります。"); } if (a2 == null) { // ***** 配列変数の一括削除 ***** Vars.deleteArray(a1); } else { for (i = a2; i <= a3; i++) { // delete vars[a1 + "[" + i + "]"]; Vars.deleteVar(make_var_array(a1, i)); } } return nothing; }); make_one_func_tbl("disimg", 1, [0], function (param) { var a1; a1 = get_var_name(param[0]); // 画像変数名取得 delete imgvars[a1]; // for (var prop in imgvars) { DebugShow(prop + " "); } DebugShow("\n"); return nothing; }); make_one_func_tbl("disvar", 1, [0], function (param) { var a1; a1 = get_var_info(param[0]); // delete vars[a1]; Vars.deleteVar(a1); return nothing; }); make_one_func_tbl("download", 1, [], function (param) { var a1, a2, a3; a1 = String(param[0]); if (param.length <= 1) { a2 = ""; a3 = 0; } else { a2 = String(param[1]); if (param.length <= 2) { a3 = 0; } else { a3 = Math.trunc(param[2]); } } if (a3 != 1) { if (typeof (Download) == "function") { Download.download(a1, a2); } else { window.location.href = "data:application/octet-stream," + encodeURIComponent(a1); } } return "data:text/plain;charset=utf-8," + encodeURIComponent(a1); }); make_one_func_tbl("downloadimg", 0, [], function (param) { var a1, a2; if (param.length <= 0) { a1 = ""; a2 = 0; } else { a1 = String(param[0]); if (param.length <= 1) { a2 = 0; } else { a2 = Math.trunc(param[1]); } } if (a2 != 1) { if (typeof (Download) == "function") { Download.downloadCanvas(can, a1); } else { window.location.href = can.toDataURL("image/png").replace("image/png", "image/octet-stream"); } } return can.toDataURL("image/png"); }); make_one_func_tbl("dpow", 2, [], function (param) { var a1, a2; a1 = (+param[0]); a2 = (+param[1]); return Math.pow(a1, a2); }); make_one_func_tbl("drawarea", 7, [0], function (param) { var a1, a2, a3, a4, a5, a6, a7; var can0; a1 = get_var_name(param[0]); // 画像変数名取得 a2 = Math.trunc(param[1]); // 先X a3 = Math.trunc(param[2]); // 先Y a4 = Math.trunc(param[3]); // 元X a5 = Math.trunc(param[4]); // 元Y a6 = Math.trunc(param[5]); // W a7 = Math.trunc(param[6]); // H // ***** 引数のチェック ***** if (del_module_name(a1) == "screen") { // (表示画面をコピー元とする) can0 = can1; } else { // if (!imgvars.hasOwnProperty(a1)) { if (!hasOwn.call(imgvars, a1)) { throw new Error("Image変数 '" + a1 + "' は作成されていません。"); } // (画像変数をコピー元とする) can0 = imgvars[a1].can; } // ***** 画像を描画 ***** ctx.drawImage(can0, a4, a5, a6, a7, a2, a3, a6, a7); return nothing; }); make_one_func_tbl("drawimg", 4, [0], function (param) { var a1, a2, a3, a4; var can0; a1 = get_var_name(param[0]); // 画像変数名取得 a2 = Math.trunc(param[1]); // X a3 = Math.trunc(param[2]); // Y a4 = Math.trunc(param[3]); // アンカー // ***** 引数のチェック ***** if (del_module_name(a1) == "screen") { // (表示画面をコピー元とする) can0 = can1; } else { // if (!imgvars.hasOwnProperty(a1)) { if (!hasOwn.call(imgvars, a1)) { throw new Error("Image変数 '" + a1 + "' は作成されていません。"); } // (画像変数をコピー元とする) can0 = imgvars[a1].can; } // ***** 水平方向 ***** // if (a4 & 4) { } // 左 if (a4 & 8) { a2 -= can0.width; } // 右 else if (a4 & 1) { a2 -= can0.width / 2; } // 中央 // ***** 垂直方向 ***** // if (a4 & 16) { } // 上 if (a4 & 32) { a3 -= can0.height; } // 下 else if (a4 & 2) { a3 -= can0.height / 2; } // 中央 // ***** 画像を描画 ***** ctx.drawImage(can0, a2, a3); return nothing; }); make_one_func_tbl("drawimgex", 9, [0], function (param) { var a1, a2, a3, a4, a5, a6, a7, a8, a9; var can0; var img_w, img_h; a1 = get_var_name(param[0]); // 画像変数名取得 a2 = Math.trunc(param[1]); // 元X a3 = Math.trunc(param[2]); // 元Y a4 = Math.trunc(param[3]); // 元W a5 = Math.trunc(param[4]); // 元H a6 = Math.trunc(param[5]); // 変換 a7 = Math.trunc(param[6]); // 先X a8 = Math.trunc(param[7]); // 先Y a9 = Math.trunc(param[8]); // アンカー // ***** 引数のチェック ***** if (del_module_name(a1) == "screen") { // (表示画面をコピー元とする) can0 = can1; } else { // if (!imgvars.hasOwnProperty(a1)) { if (!hasOwn.call(imgvars, a1)) { throw new Error("Image変数 '" + a1 + "' は作成されていません。"); } // (画像変数をコピー元とする) can0 = imgvars[a1].can; } // ***** アンカーの座標を計算 ***** if (a6 >= 4 && a6 <= 7) { // 90度か270度回転のとき img_w = a5; img_h = a4; } else { img_w = a4; img_h = a5; } // (水平方向の座標を計算) // if (a9 & 4) { } // 左 if (a9 & 8) { a7 -= img_w; } // 右 else if (a9 & 1) { a7 -= img_w / 2; } // 中央 // (垂直方向の座標を計算) // if (a9 & 16) { } // 上 if (a9 & 32) { a8 -= img_h; } // 下 else if (a9 & 2) { a8 -= img_h / 2; } // 中央 // ***** 描画処理 ***** ctx.save(); ctx.translate(a7, a8); // 平行移動 switch (a6) { // case 0: // 回転なし // break; case 1: // 上下反転(=左右反転+180度回転) ctx.translate(0, a5); ctx.scale(1, -1); break; case 2: // 左右反転(=左右反転+回転なし) ctx.translate(a4, 0); ctx.scale(-1, 1); break; case 3: // 180度回転(=左右反転+上下反転) ctx.translate(a4, a5); ctx.scale(-1, -1); break; case 4: // 左右反転+270度回転 ctx.rotate(-Math.PI / 2); ctx.scale(-1, 1); break; case 5: // 90度回転 ctx.translate(a5, 0); ctx.rotate(Math.PI / 2); break; case 6: // 270度回転 ctx.translate(0, a4); ctx.rotate(-Math.PI / 2); break; case 7: // 左右反転+90度回転 ctx.translate(a5, a4); ctx.rotate(Math.PI / 2); ctx.scale(-1, 1); break; } // ctx.drawImage(can0, a2, a3, a4, a5, a7, a8, a4, a5); ctx.drawImage(can0, a2, a3, a4, a5, 0, 0, a4, a5); ctx.restore(); return nothing; }); make_one_func_tbl("drawscaledimg", 9, [0], function (param) { var a1, a2, a3, a4, a5, a6, a7, a8, a9; var can0; a1 = get_var_name(param[0]); // 画像変数名取得 a2 = Math.trunc(param[1]); // 先X a3 = Math.trunc(param[2]); // 先Y a4 = Math.trunc(param[3]); // 先W a5 = Math.trunc(param[4]); // 先H a6 = Math.trunc(param[5]); // 元X a7 = Math.trunc(param[6]); // 元Y a8 = Math.trunc(param[7]); // 元W a9 = Math.trunc(param[8]); // 元H // ***** 引数のチェック ***** if (del_module_name(a1) == "screen") { // (表示画面をコピー元とする) can0 = can1; } else { // if (!imgvars.hasOwnProperty(a1)) { if (!hasOwn.call(imgvars, a1)) { throw new Error("Image変数 '" + a1 + "' は作成されていません。"); } // (画像変数をコピー元とする) can0 = imgvars[a1].can; } // ***** 画像を描画 ***** ctx.drawImage(can0, a6, a7, a8, a9, a2, a3, a4, a5); return nothing; }); make_one_func_tbl("dsin", 1, [], function (param) { var a1; a1 = (+param[0]); return Math.sin(a1 * Math.PI / 180); }); make_one_func_tbl("dtan", 1, [], function (param) { var a1; a1 = (+param[0]); return Math.tan(a1 * Math.PI / 180); }); make_one_func_tbl("exp", 1, [], function (param) { var a1; a1 = (+param[0]); return Math.exp(a1); }); make_one_func_tbl("farc", 3, [], function (param) { var a1, a2, a3, a4; var i; var a, b, x0, y0; var r1, c1; a1 = (+param[0]); // X a2 = (+param[1]); // Y a3 = (+param[2]); // W if (param.length <= 3) { a4 = a3; } else { a4 = (+param[3]); // H } if (a3 == a4) { a = a3 / 2; // 半径 x0 = a1 + a; // 中心のX座標 y0 = a2 + a; // 中心のY座標 ctx.beginPath(); ctx.arc(x0, y0, a, 0, 2 * Math.PI); ctx.closePath(); ctx.fill(); } else { a = a3 / 2; // X方向の半径 b = a4 / 2; // Y方向の半径 x0 = a1 + a; // 中心のX座標 y0 = a2 + b; // 中心のY座標 ctx.beginPath(); ctx.moveTo(a + x0, y0); r1 = 0; c1 = 2 * Math.PI / 100; for (i = 1; i < 100; i++) { // ctx.lineTo(a * Math.cos(2 * Math.PI * i / 100) + x0, b * Math.sin(2 * Math.PI * i / 100) + y0); ctx.lineTo(a * Math.cos(r1) + x0, b * Math.sin(r1) + y0); r1 += c1; } ctx.closePath(); // 以下は不要になったもよう(Chrome v27) // // ***** Chrome v23 で塗りつぶさない件の対策 ***** // ctx.rect(x0, y0, 1, 1); // 真ん中に小さな四角を描くと、塗りつぶしエリアが反転するもよう ctx.fill(); // 以下は不要になったもよう(Chrome v24) // ctx.fillRect(x0, y0, 1, 1); // 反転して抜けた真ん中の小さな四角をさらに塗りつぶす } return nothing; }); make_one_func_tbl("floor", 1, [], function (param) { var a1; a1 = (+param[0]); return Math.floor(a1); }); make_one_func_tbl("foval", 6, [], function (param) { var a1, a2, a3, a4, a5, a6; var i; var a, b, x0, y0; var rad1, rad2; var r1, c1; a1 = (+param[0]); // X a2 = (+param[1]); // Y a3 = (+param[2]); // W a4 = (+param[3]); // H a5 = (+param[4]); // 開始角 a6 = (+param[5]); // 描画角 a = a3 / 2; // X方向の半径 b = a4 / 2; // Y方向の半径 x0 = a1 + a; // 中心のX座標 y0 = a2 + b; // 中心のY座標 rad1 = - a5 * Math.PI / 180; // PC上の角度は逆方向なのでマイナスを付ける rad2 = - a6 * Math.PI / 180; // PC上の角度は逆方向なのでマイナスを付ける if (rad2 < 0) { // パスを右巻きに統一する rad1 += rad2; rad2 = -rad2; } ctx.beginPath(); ctx.moveTo(x0, y0); r1 = rad1; c1 = rad2 / 100; for (i = 0; i <= 100; i++) { // ctx.lineTo(a * Math.cos(rad1 + rad2 * i / 100) + x0, b * Math.sin(rad1 + rad2 * i / 100) + y0); ctx.lineTo(a * Math.cos(r1) + x0, b * Math.sin(r1) + y0); r1 += c1; } ctx.closePath(); // 以下は不要になったもよう(Chrome v27) // // ***** Chrome v23 で塗りつぶさない件の対策 ***** // ctx.rect(x0, y0, 1, 1); // 真ん中に小さな四角を描くと、塗りつぶしエリアが反転するもよう ctx.fill(); // 以下は不要になったもよう(Chrome v24) // ctx.fillRect(x0, y0, 1, 1); // 反転して抜けた真ん中の小さな四角をさらに塗りつぶす return nothing; }); make_one_func_tbl("frect", 4, [], function (param) { var a1, a2, a3, a4; a1 = (+param[0]); // X a2 = (+param[1]); // Y a3 = (+param[2]); // W a4 = (+param[3]); // H ctx.fillRect(a1, a2, a3, a4); return nothing; }); make_one_func_tbl("fround", 6, [], function (param) { var a1, a2, a3, a4, a5, a6; var rx, ry; a1 = (+param[0]); // X a2 = (+param[1]); // Y a3 = (+param[2]); // W a4 = (+param[3]); // H a5 = (+param[4]); // RX a6 = (+param[5]); // RY rx = a5; ry = a6; ctx.beginPath(); ctx.moveTo(a1 + rx , a2); ctx.lineTo(a1 + a3 - rx, a2); ctx.quadraticCurveTo(a1 + a3 , a2, a1 + a3, a2 + ry); ctx.lineTo(a1 + a3 , a2 + a4 - ry); ctx.quadraticCurveTo(a1 + a3 , a2 + a4, a1 + a3 - rx, a2 + a4); ctx.lineTo(a1 + rx , a2 + a4); ctx.quadraticCurveTo(a1, a2 + a4, a1, a2 + a4 -ry); ctx.lineTo(a1 , a2 + ry); ctx.quadraticCurveTo(a1, a2, a1 + rx, a2); ctx.closePath(); // 以下は不要になったもよう(Chrome v27) // // ***** Chrome v23 でカーブを描画しない件の対策 ***** // ctx.rotate(45 * Math.PI / 180); // 回転させるとなぜか描画する ctx.fill(); // 以下は不要になったもよう(Chrome v27) // init_canvas_axis(ctx); // 座標系を初期化 // set_canvas_axis(ctx); // 座標系を再設定 return nothing; }); make_one_func_tbl("funccall", 1, [1], function (param) { var a1, a2; a1 = param[0]; if (param.length >= 2) { a2 = get_var_info(param[1]); // vars[a2] = a1; Vars.setVarValue(a2, a1); } return nothing; }); make_one_func_tbl("funcgoto", 1, [], function (param) { // ***** NOP ***** return nothing; }); make_one_func_tbl("gc", 0, [], function (param) { // ***** NOP ***** return nothing; }); make_one_func_tbl("getoutdata", 1, [], function (param) { var a1; a1 = Math.trunc(param[0]); return out_data.hasOwnProperty(a1) ? out_data[a1] : ""; }); make_one_func_tbl("getpixel", 2, [], function (param) { var a1, a2; var x1, y1; var ret_array = []; var img_data = {}; a1 = (+param[0]); // X a2 = (+param[1]); // Y // ***** 座標系の変換の分を補正 ***** ret_array = conv_axis_point(a1, a2); x1 = ret_array[0]; y1 = ret_array[1]; // ***** 座標のチェック ***** // if (x1 < 0 || x1 >= can.width || y1 < 0 || y1 >= can.height) { return 0; } if (!(x1 >= 0 && x1 < can.width && y1 >= 0 && y1 < can.height)) { return 0; } // ***** 画像データの取得 ***** img_data = ctx.getImageData(x1, y1, 1, 1); // ***** 色情報を取得 ***** return (img_data.data[0] << 16) | (img_data.data[1] << 8) | img_data.data[2]; }); make_one_func_tbl("height", -1, [], function (param) { return can1.height; }); make_one_func_tbl("hour", -1, [], function (param) { return new Date().getHours(); }); make_one_func_tbl("imgheight", 1, [0], function (param) { var a1; a1 = get_var_name(param[0]); // 画像変数名取得 // return imgvars.hasOwnProperty(a1) ? imgvars[a1].can.height : 0; return hasOwn.call(imgvars, a1) ? imgvars[a1].can.height : 0; }); make_one_func_tbl("imgwidth", 1, [0], function (param) { var a1; a1 = get_var_name(param[0]); // 画像変数名取得 // return imgvars.hasOwnProperty(a1) ? imgvars[a1].can.width : 0; return hasOwn.call(imgvars, a1) ? imgvars[a1].can.width : 0; }); make_one_func_tbl("index", 2, [], function (param) { var a1, a2, a3; a1 = String(param[0]); a2 = String(param[1]); if (param.length <= 2) { a3 = 0; } else { a3 = Math.trunc(param[2]); } return a1.indexOf(a2, a3); }); make_one_func_tbl("input", 0, [], function (param) { var a1; var repeat_flag; if (param.length <= 0) { a1 = 0; repeat_flag = true; } else { a1 = Math.trunc(param[0]); repeat_flag = false; } // ***** キー入力ありのとき ***** if (input_buf.length > 0) { input_flag = false; return input_buf.shift(); } // ***** キー入力なしのとき ***** if (repeat_flag) { input_flag = true; set_sleep_flag(true); sleep_time = 1000; return 0; } if (a1 > 0 && !input_flag) { input_flag = true; set_sleep_flag(true); sleep_time = a1; return 0; } input_flag = false; return 0; }); make_one_func_tbl("inputdlg", 1, [], function (param) { var num; var a1, a2, a3, a4; a1 = String(param[0]); if (param.length <= 1) { a2 = ""; } else { a2 = String(param[1]); if (param.length <= 3) { a3 = 0; // 未使用 a4 = 0; // 未使用 } else { a3 = Math.trunc(param[2]); // 未使用 a4 = Math.trunc(param[3]); // 未使用 } } num = prompt(a1, a2) || ""; // nullのときは空文字列にする keyclear(); mousebuttonclear(); loop_nocount_flag = true; return num; }); make_one_func_tbl("int", 1, [], function (param) { var a1; a1 = (+param[0]); return Math.trunc(a1); }); make_one_func_tbl("join", 2, [0], function (param) { var num; var a1, a2, a3, a4; var i; a1 = get_var_info(param[0]); a2 = String(param[1]); if (param.length <= 2) { a3 = 0; a4 = null; } else { a3 = Math.trunc(param[2]); if (param.length <= 3) { a4 = null; } else { a4 = Math.trunc(param[3]); } } // ***** NaN対策 ***** a3 |= 0; // ***** 引数のチェック ***** // if (a4 != null && (a4 - a3 + 1 < 1 || a4 - a3 + 1 > max_array_size)) { if (!(a4 == null || (a4 - a3 + 1 >= 1 && a4 - a3 + 1 <= max_array_size))) { throw new Error("処理する配列の個数が不正です。1-" + max_array_size + "の間である必要があります。"); } // ***** 連結処理 ***** num = ""; i = a3; if ((a4 != null && i <= a4) || (a4 == null && Vars.checkVar(make_var_array(a1, i)))) { // num = vars[a1 + "[" + i + "]"]; num = Vars.getVarValue(make_var_array(a1, i)); i++; while ((a4 != null && i <= a4) || (a4 == null && Vars.checkVar(make_var_array(a1, i)))) { // num += a2 + vars[a1 + "[" + i + "]"]; num += a2 + Vars.getVarValue(make_var_array(a1, i)); i++; } } return num; }); make_one_func_tbl("keydowncode", -1, [], function (param) { return key_down_code; }); make_one_func_tbl("keyinput", 0, [], function (param) { var a1; var repeat_flag; if (param.length <= 0) { a1 = 0; repeat_flag = true; } else { a1 = Math.trunc(param[0]); repeat_flag = false; } // ***** キー入力ありのとき ***** if (keyinput_buf.length > 0) { keyinput_flag = false; return keyinput_buf.shift(); } // ***** キー入力なしのとき ***** if (repeat_flag) { keyinput_flag = true; set_sleep_flag(true); sleep_time = 1000; return 0; } if (a1 > 0 && !keyinput_flag) { keyinput_flag = true; set_sleep_flag(true); sleep_time = a1; return 0; } keyinput_flag = false; return 0; }); make_one_func_tbl("keypresscode", -1, [], function (param) { return key_press_code; }); make_one_func_tbl("keyscan", 1, [], function (param) { var a1; a1 = Math.trunc(param[0]); return key_down_stat[a1] ? 1 : 0; }); make_one_func_tbl("line", 4, [], function (param) { var a1, a2, a3, a4; a1 = (+param[0]); // X1 a2 = (+param[1]); // Y1 a3 = (+param[2]); // X2 a4 = (+param[3]); // Y2 ctx.beginPath(); ctx.moveTo(a1, a2); ctx.lineTo(a3, a4); ctx.stroke(); return nothing; }); make_one_func_tbl("linewidth", 1, [], function (param) { var a1; a1 = (+param[0]); // W line_width = a1; ctx.lineWidth = line_width; return nothing; }); make_one_func_tbl("load", 0, [], function (param) { var num; var a1; if (param.length <= 0) { a1 = 0; } else { a1 = Math.trunc(param[0]); } num = save_data.hasOwnProperty(a1) ? save_data[a1] : "0"; // ***** 正負と小数と指数も含めた数値チェック(-1.23e4等) ***** if (isFullDigit(num)) { num = +num; // 数値にする } return num; }); make_one_func_tbl("loadimg", 2, [0], function (param) { var a1, a2; var i, j, k; var g_data = []; var col_num; var col_data = []; var trans_col_no; var col_no; var img_w, img_h; var img_data = {}; a1 = get_var_name(param[0]); // 画像変数名取得 a2 = String(param[1]); // 画像データ文字列 // ***** FlashCanvas用 ***** if (!ctx.createImageData) { throw new Error("画像生成機能が利用できません。"); } // ***** 画像データの取得 ***** g_data = a2.split(","); i = 0; col_num = Math.trunc(g_data[i++]); col_data = []; for (j = 0; j < col_num; j++) { col_data[j] = {}; col_data[j].r = Math.trunc(g_data[i++]); col_data[j].g = Math.trunc(g_data[i++]); col_data[j].b = Math.trunc(g_data[i++]); } trans_col_no = Math.trunc(g_data[i++]); img_w = Math.trunc(g_data[i++]); img_h = Math.trunc(g_data[i++]); // ***** 画像サイズのチェック ***** // if (img_w <= 0 || img_w > max_image_size || img_h <= 0 || img_h > max_image_size) { if (!(img_w > 0 && img_w <= max_image_size && img_h > 0 && img_h <= max_image_size)) { throw new Error("画像の縦横のサイズが不正です。1-" + max_image_size + "の間である必要があります。"); } // ***** 画像データの設定 ***** img_data = ctx.createImageData(img_w, img_h); k = 0; while (i < g_data.length) { col_no = Math.trunc(g_data[i++]); if ((col_no >=0 && col_no < col_num) && (col_no != trans_col_no)) { img_data.data[k++] = col_data[col_no].r; img_data.data[k++] = col_data[col_no].g; img_data.data[k++] = col_data[col_no].b; img_data.data[k++] = 255; } else { img_data.data[k++] = 0; img_data.data[k++] = 0; img_data.data[k++] = 0; img_data.data[k++] = 0; } } // ***** Canvasの生成 ***** imgvars[a1] = {}; imgvars[a1].can = document.createElement("canvas"); // ***** FlashCanvas Pro (将来用) で必要 ***** if (typeof (FlashCanvas) != "undefined") { imgvars[a1].can.style.backgroundColor = can1_backcolor_init; document.getElementById("body1").appendChild(imgvars[a1].can); FlashCanvas.initElement(imgvars[a1].can); } imgvars[a1].can.width = img_w; imgvars[a1].can.height = img_h; imgvars[a1].ctx = imgvars[a1].can.getContext("2d"); // ***** Canvasの各種設定の初期化 ***** init_canvas_setting(imgvars[a1].ctx, 2); // ***** 画像データを格納 ***** imgvars[a1].ctx.putImageData(img_data, 0, 0); return nothing; }); make_one_func_tbl("loadimgdata", 2, [0], function (param) { var a1, a2; var img_obj = {}; a1 = get_var_name(param[0]); // 画像変数名取得 a2 = String(param[1]); // 画像データ文字列(data URI scheme) // ***** Canvasの生成 ***** imgvars[a1] = {}; imgvars[a1].can = document.createElement("canvas"); // ***** FlashCanvas Pro (将来用) で必要 ***** if (typeof (FlashCanvas) != "undefined") { imgvars[a1].can.style.backgroundColor = can1_backcolor_init; document.getElementById("body1").appendChild(imgvars[a1].can); FlashCanvas.initElement(imgvars[a1].can); } imgvars[a1].can.width = 16; imgvars[a1].can.height = 16; imgvars[a1].ctx = imgvars[a1].can.getContext("2d"); // ***** Canvasの各種設定の初期化 ***** init_canvas_setting(imgvars[a1].ctx, 2); // ***** デバッグ用 ***** imgvars[a1].ctx.fillRect(0,0,16,16); // ***** 画像ロード中フラグをセット ***** imgvars[a1].loading = true; // ***** 画像データの取得 ***** // (非同期のため完了までに時間がかかるので注意) img_obj = new Image(); img_obj.onload = function () { // ***** Canvasのリサイズ ***** imgvars[a1].can.width = img_obj.width; imgvars[a1].can.height = img_obj.height; // ***** Canvasの各種設定の初期化 ***** init_canvas_setting(imgvars[a1].ctx, 2); // ***** 画像を描画 ***** imgvars[a1].ctx.drawImage(img_obj, 0, 0); // alert(img_obj.complete); // ***** 画像ロード中フラグをリセット ***** imgvars[a1].loading = false; }; img_obj.src = a2; // 常にonloadより後にsrcをセットすること return nothing; }); make_one_func_tbl("loadimgstat", 1, [0], function (param) { var a1; a1 = get_var_name(param[0]); // 画像変数名取得 // ***** 画像ロード中フラグをチェックして返す ***** // return (imgvars.hasOwnProperty(a1) && imgvars[a1].loading) ? 1 : 0; return (hasOwn.call(imgvars, a1) && imgvars[a1].loading) ? 1 : 0; }); make_one_func_tbl("lock", 0, [], function (param) { // ***** NOP ***** return nothing; }); make_one_func_tbl("log", 1, [], function (param) { var a1, a2; a1 = (+param[0]); if (param.length <= 1) { a2 = 0; } else { a2 = (+param[1]); } if (a2 == 0) { return Math.log(a1); } return Math.log(a1) / Math.log(a2); }); make_one_func_tbl("makearray", 2, [0], function (param) { var a1, a2, a3, a4; var i; a1 = get_var_info(param[0]); a2 = Math.trunc(param[1]); if (param.length <= 2) { a3 = a2 - 1; a2 = 0; a4 = 0; } else { a3 = Math.trunc(param[2]); if (param.length <= 3) { a4 = 0; } else { a4 = param[3]; } } // ***** 引数のチェック ***** // if (a3 - a2 + 1 < 1 || a3 - a2 + 1 > max_array_size) { if (!(a3 - a2 + 1 >= 1 && a3 - a2 + 1 <= max_array_size)) { throw new Error("処理する配列の個数が不正です。1-" + max_array_size + "の間である必要があります。"); } for (i = a2; i <= a3; i++) { // vars[a1 + "[" + i + "]"] = a4; Vars.setVarValue(make_var_array(a1, i), a4); } return nothing; }); make_one_func_tbl("makeimg", 3, [0], function (param) { var a1, a2, a3; a1 = get_var_name(param[0]); // 画像変数名取得 a2 = Math.trunc(param[1]); // W a3 = Math.trunc(param[2]); // H // ***** 引数のチェック ***** // if (a2 <= 0 || a2 > max_image_size || a3 <= 0 || a3 > max_image_size) { if (!(a2 > 0 && a2 <= max_image_size && a3 > 0 && a3 <= max_image_size)) { throw new Error("画像の縦横のサイズが不正です。1-" + max_image_size + "の範囲で指定してください。"); } // ***** Canvasの生成 ***** imgvars[a1] = {}; imgvars[a1].can = document.createElement("canvas"); // ***** FlashCanvas Pro (将来用) で必要 ***** if (typeof (FlashCanvas) != "undefined") { imgvars[a1].can.style.backgroundColor = can1_backcolor_init; document.getElementById("body1").appendChild(imgvars[a1].can); FlashCanvas.initElement(imgvars[a1].can); } imgvars[a1].can.width = a2; imgvars[a1].can.height = a3; imgvars[a1].ctx = imgvars[a1].can.getContext("2d"); // ***** Canvasの各種設定の初期化 ***** init_canvas_setting(imgvars[a1].ctx, 2); return nothing; }); make_one_func_tbl("max", 2, [], function (param) { var num; var a1, a2, a3; var i; a1 = (+param[0]); a2 = (+param[1]); num = Math.max(a1, a2); for (i = 2; i < param.length; i++) { a3 = (+param[i]); num = Math.max(num, a3); } return num; }); make_one_func_tbl("millisecond", -1, [], function (param) { return new Date().getMilliseconds(); }); make_one_func_tbl("min", 2, [], function (param) { var num; var a1, a2, a3; var i; a1 = (+param[0]); a2 = (+param[1]); num = Math.min(a1, a2); for (i = 2; i < param.length; i++) { a3 = (+param[i]); num = Math.min(num, a3); } return num; }); make_one_func_tbl("minute", -1, [], function (param) { return new Date().getMinutes(); }); make_one_func_tbl("month", -1, [], function (param) { return new Date().getMonth() + 1; // 1から12にするため1を加算 }); make_one_func_tbl("mousex", -1, [], function (param) { return mousex; }); make_one_func_tbl("mousey", -1, [], function (param) { return mousey; }); make_one_func_tbl("mousebtn", -1, [], function (param) { var num; num = 0; if (mouse_btn_stat[0]) { num |= 1; } // 左ボタン if (mouse_btn_stat[1]) { num |= 4; } // 中ボタン(2ではないので注意) if (mouse_btn_stat[2]) { num |= 2; } // 右ボタン(4ではないので注意) return num; }); make_one_func_tbl("msgdlg", 1, [], function (param) { var a1; a1 = String(param[0]); if (param.length >= 2) { a1 = String(param[1]); } alert(a1); keyclear(); mousebuttonclear(); loop_nocount_flag = true; return nothing; }); make_one_func_tbl("origin", 2, [], function (param) { var a1, a2; a1 = Math.trunc(param[0]); // X a2 = Math.trunc(param[1]); // Y // ***** 座標系の原点座標設定 ***** axis.originx = a1; axis.originy = a2; init_canvas_axis(ctx); // 座標系を初期化 set_canvas_axis(ctx); // 座標系を再設定 return nothing; }); make_one_func_tbl("oval", 6, [], function (param) { var a1, a2, a3, a4, a5, a6; var i; var a, b, x0, y0; var rad1, rad2; var r1, c1; a1 = (+param[0]); // X a2 = (+param[1]); // Y a3 = (+param[2]); // W a4 = (+param[3]); // H a5 = (+param[4]); // 開始角 a6 = (+param[5]); // 描画角 a = a3 / 2; // X方向の半径 b = a4 / 2; // Y方向の半径 x0 = a1 + a; // 中心のX座標 y0 = a2 + b; // 中心のY座標 rad1 = - a5 * Math.PI / 180; // PC上の角度は逆方向なのでマイナスを付ける rad2 = - a6 * Math.PI / 180; // PC上の角度は逆方向なのでマイナスを付ける ctx.beginPath(); r1 = rad1; c1 = rad2 / 100; // ctx.moveTo(a * Math.cos(rad1) + x0, b * Math.sin(rad1) + y0); ctx.moveTo(a * Math.cos(r1) + x0, b * Math.sin(r1) + y0); r1 += c1; for (i = 1; i <= 100; i++) { // ctx.lineTo(a * Math.cos(rad1 + rad2 * i / 100) + x0, b * Math.sin(rad1 + rad2 * i / 100) + y0); ctx.lineTo(a * Math.cos(r1) + x0, b * Math.sin(r1) + y0); r1 += c1; } ctx.stroke(); // 以下は不要になったもよう(Chrome v27) // // ***** Chrome v23 で円が閉じない件の対策(中心を0.5ずらしたとき) ***** // ctx.fillRect(a * Math.cos(rad1) + x0, b * Math.sin(rad1) + y0, 0.5, 0.5); return nothing; }); make_one_func_tbl("PI", -1, [], function (param) { return Math.PI; }); make_one_func_tbl("point", 2, [], function (param) { var a1, a2; a1 = (+param[0]); // X a2 = (+param[1]); // Y ctx.fillRect(a1, a2, 1, 1); return nothing; }); make_one_func_tbl("pow", 2, [], function (param) { var a1, a2; a1 = (+param[0]); a2 = (+param[1]); return Math.pow(a1, a2); }); make_one_func_tbl("rand", -1, [], function (param) { // min から max までの整数の乱数を返す // (Math.round() を用いると、非一様分布になるのでNG) // return Math.floor(Math.random() * (max - min + 1)) + min; return Math.floor(Math.random() * (2147483647 - (-2147483648) + 1)) + (-2147483648); }); make_one_func_tbl("random", -1, [], function (param) { return Math.random(); }); make_one_func_tbl("rect", 4, [], function (param) { var a1, a2, a3, a4; a1 = (+param[0]); // X a2 = (+param[1]); // Y a3 = (+param[2]); // W a4 = (+param[3]); // H ctx.beginPath(); ctx.rect(a1, a2, a3, a4); ctx.stroke(); return nothing; }); make_one_func_tbl("replace", 3, [], function (param) { var num; var a1, a2, a3, a4, a5; var i, j, k; a1 = String(param[0]); a2 = String(param[1]); a3 = String(param[2]); if (param.length <= 3) { a4 = 0; a5 = -1; } else { a4 = Math.trunc(param[3]); if (param.length <= 4) { a5 = -1; } else { a5 = Math.trunc(param[4]); } } if (a1.length == 0 || a2.length == 0) { return a1; } i = 0; j = a4; k = 0; num = a1.substring(0, j); while (k >= 0) { if (a5 >= 0 && i >= a5) { break; } k = a1.indexOf(a2, j); if (k >= 0) { num += a1.substring(j, k) + a3; i++; j = k + a2.length; } } num += a1.substring(j); return num; }); make_one_func_tbl("rotate", 1, [], function (param) { var a1, a2, a3; a1 = (+param[0]); // 角度 if (param.length <= 2) { a2 = 0; a3 = 0; } else { a2 = (+param[1]); // 中心座標X a3 = (+param[2]); // 中心座標Y } // ***** 座標系の角度設定 ***** axis.rotate = a1 * Math.PI / 180; axis.rotateox = a2; axis.rotateoy = a3; init_canvas_axis(ctx); // 座標系を初期化 set_canvas_axis(ctx); // 座標系を再設定 return nothing; }); make_one_func_tbl("round", 6, [], function (param) { var a1, a2, a3, a4, a5, a6; var rx, ry; a1 = (+param[0]); // X a2 = (+param[1]); // Y a3 = (+param[2]); // W a4 = (+param[3]); // H a5 = (+param[4]); // RX a6 = (+param[5]); // RY rx = a5; ry = a6; ctx.beginPath(); ctx.moveTo(a1 + rx , a2); ctx.lineTo(a1 + a3 - rx, a2); ctx.quadraticCurveTo(a1 + a3 , a2, a1 + a3, a2 + ry); ctx.lineTo(a1 + a3 , a2 + a4 - ry); ctx.quadraticCurveTo(a1 + a3 , a2 + a4, a1 + a3 - rx, a2 + a4); ctx.lineTo(a1 + rx , a2 + a4); ctx.quadraticCurveTo(a1, a2 + a4, a1, a2 + a4 -ry); ctx.lineTo(a1 , a2 + ry); ctx.quadraticCurveTo(a1, a2, a1 + rx, a2); ctx.closePath(); // 以下は不要になったもよう(Chrome v27) // // ***** Chrome v23 でカーブを描画しない件の対策 ***** // ctx.rotate(45 * Math.PI / 180); // 回転させるとなぜか描画する ctx.stroke(); // 以下は不要になったもよう(Chrome v27) // init_canvas_axis(ctx); // 座標系を初期化 // set_canvas_axis(ctx); // 座標系を再設定 return nothing; }); make_one_func_tbl("save", 1, [], function (param) { var a1, a2; a1 = String(param[0]); if (param.length <= 1) { a2 = 0; } else { a2 = Math.trunc(param[1]); } save_data[a2] = a1; return nothing; }); make_one_func_tbl("scale", 1, [], function (param) { var a1, a2, a3, a4; a1 = (+param[0]); // X方向倍率 if (param.length <= 1) { a2 = a1; a3 = 0; a4 = 0; } else { a2 = (+param[1]); // Y方向倍率 if (param.length <= 3) { a3 = 0; a4 = 0; } else { a3 = (+param[2]); // 中心座標X a4 = (+param[3]); // 中心座標Y } } // ***** 引数のチェック ***** // if (a1 < -max_scale_size || a1 > max_scale_size || a2 < -max_scale_size || a2 > max_scale_size) { if (!(a1 >= -max_scale_size && a1 <= max_scale_size && a2 >= -max_scale_size && a2 <= max_scale_size)) { throw new Error("座標系の倍率の値が不正です。-" + max_scale_size + "から" + max_scale_size + "までの数値を指定してください。"); } // ***** 座標系の倍率設定 ***** axis.scalex = a1; axis.scaley = a2; axis.scaleox = a3; axis.scaleoy = a4; init_canvas_axis(ctx); // 座標系を初期化 set_canvas_axis(ctx); // 座標系を再設定 return nothing; }); make_one_func_tbl("scan", -1, [], function (param) { return key_scan_stat; }); make_one_func_tbl("second", -1, [], function (param) { return new Date().getSeconds(); }); make_one_func_tbl("setfont", 1, [], function (param) { var a1; a1 = String(param[0]).toUpperCase(); switch (a1) { case "L": font_size = font_size_set[3]; break; case "M": font_size = font_size_set[2]; break; case "S": font_size = font_size_set[1]; break; case "T": font_size = font_size_set[0]; break; default: font_size = font_size_set[1]; // break; } ctx.font = font_size + "px " + font_family; return nothing; }); make_one_func_tbl("setfontsize", 1, [], function (param) { var a1; a1 = Math.trunc(param[0]); // ***** 引数のチェック ***** // if (a1 <= 0 || a1 > max_font_size) { if (!(a1 > 0 && a1 <= max_font_size)) { throw new Error("フォントサイズが不正です。1-" + max_font_size + "の範囲で指定してください。"); } font_size = a1; ctx.font = font_size + "px " + font_family; return nothing; }); make_one_func_tbl("setoutdata", 2, [], function (param) { var a1, a2; a1 = Math.trunc(param[0]); a2 = String(param[1]); out_data[a1] = a2; return nothing; }); make_one_func_tbl("setpixel", 3, [], function (param) { var a1, a2, a3; var col_r, col_g, col_b; a1 = (+param[0]); // X a2 = (+param[1]); // Y a3 = Math.trunc(param[2]); // RGB col_r = (a3 & 0xff0000) >> 16; // R col_g = (a3 & 0x00ff00) >> 8; // G col_b = (a3 & 0x0000ff); // B ctx.fillStyle = "rgb(" + col_r + "," + col_g + "," + col_b + ")"; ctx.fillRect(a1, a2, 1, 1); ctx.fillStyle = color_val; return nothing; }); make_one_func_tbl("setscl", 1, [], function (param) { var a1, a2; var scl; a1 = (+param[0]); if (param.length <= 1) { a2 = 0; } else { a2 = (+param[1]); } if (a2 == 0) { return Math.round(a1); } scl = Math.pow(10, a2); return Math.round(a1 * scl) / scl; }); make_one_func_tbl("setscsize", 2, [], function (param) { var a1, a2, a3, a4; a1 = Math.trunc(param[0]); // W a2 = Math.trunc(param[1]); // H if (param.length <= 3) { a3 = a1; a4 = a2; } else { a3 = Math.trunc(param[2]); // W2 a4 = Math.trunc(param[3]); // H2 } // ***** 引数のチェック ***** // if (a1 <= 0 || a1 > max_image_size || a2 <= 0 || a2 > max_image_size || // a3 <= 0 || a3 > max_image_size || a4 <= 0 || a4 > max_image_size) { if (!(a1 > 0 && a1 <= max_image_size && a2 > 0 && a2 <= max_image_size && a3 > 0 && a3 <= max_image_size && a4 > 0 && a4 <= max_image_size)) { throw new Error("縦横のサイズの値が不正です。1-" + max_image_size + "の範囲で指定してください。"); } // ***** 画面サイズ設定 ***** can1.width = a1; can1.height = a2; can1.style.width = a3 + "px"; can1.style.height = a4 + "px"; // ***** ソフトキー表示 ***** if (a3 > can2_width_init) { can2.width = a3; can2.style.width = a3 + "px"; } else { can2.width = can2_width_init; can2.style.width = can2_width_init + "px"; } disp_softkeys(); // ***** Canvasの各種設定のリセット ***** // (クリッピング領域の設定も解除する) reset_canvas_setting(ctx1, 0); return nothing; }); make_one_func_tbl("sign", 1, [], function (param) { var a1; a1 = (+param[0]); if (a1 > 0) { return 1; } if (a1 < 0) { return -1; } return 0; }); make_one_func_tbl("sign2", 1, [], function (param) { var a1; a1 = (+param[0]); if (a1 >= 0) { return 1; } return -1; }); make_one_func_tbl("sin", 1, [], function (param) { var a1; a1 = (+param[0]); if (sp_compati_flag) { return Math.trunc(Math.sin(a1 * Math.PI / 180) * 100); } return Math.sin(a1 * Math.PI / 180); }); make_one_func_tbl("sleep", 1, [], function (param) { var a1; a1 = Math.trunc(param[0]); set_sleep_flag(true); sleep_time = a1; return nothing; }); make_one_func_tbl("sleepsync", 1, [], function (param) { var a1, a2; var t_new; var t_diff; a1 = Math.trunc(param[0]); if (param.length <= 1) { a2 = 0; } else { a2 = Math.trunc(param[1]); } t_new = Date.now(); if (sleep_data.hasOwnProperty(a2)) { t_diff = t_new - sleep_data[a2]; if (t_diff >= -a1 && t_diff < a1) { sleep_time = a1 - t_diff; } else if (t_diff >= a1 && t_diff < a1 * 50) { sleep_time = 1; } else { sleep_time = a1; } } else { sleep_time = a1; } sleep_data[a2] = t_new + sleep_time; set_sleep_flag(true); return nothing; }); make_one_func_tbl("soft1", 1, [], function (param) { var a1, a2; a1 = String(param[0]); if (param.length <= 1) { a2 = can2_font_size_init; } else { a2 = Math.trunc(param[1]); } // ***** 引数のチェック ***** // if (a2 <= 0 || a2 > max_font_size2) { if (!(a2 > 0 && a2 <= max_font_size2)) { throw new Error("フォントサイズが不正です。1-" + max_font_size2 + "の範囲で指定してください。"); } // ***** ソフトキー表示 ***** softkeys[0].text = a1; softkeys[0].font_size = a2; disp_softkeys(); return nothing; }); make_one_func_tbl("soft2", 1, [], function (param) { var a1, a2; a1 = String(param[0]); if (param.length <= 1) { a2 = can2_font_size_init; } else { a2 = Math.trunc(param[1]); } // ***** 引数のチェック ***** // if (a2 <= 0 || a2 > max_font_size2) { if (!(a2 > 0 && a2 <= max_font_size2)) { throw new Error("フォントサイズが不正です。1-" + max_font_size2 + "の範囲で指定してください。"); } // ***** ソフトキー表示 ***** softkeys[1].text = a1; softkeys[1].font_size = a2; disp_softkeys(); return nothing; }); make_one_func_tbl("split", 3, [0], function (param) { var a1, a2, a3, a4; var i, j, k; a1 = get_var_info(param[0]); a2 = String(param[1]); a3 = String(param[2]); if (param.length <= 3) { a4 = 0; } else { a4 = Math.trunc(param[3]); } if (a2.length == 0 || a3.length == 0) { return 0; } i = 0; j = 0; k = 0; while (k >= 0) { if (a4 > 0 && i >= (a4 - 1)) { break; } k = a2.indexOf(a3, j); if (k >= 0) { // vars[a1 + "[" + i + "]"] = a2.substring(j, k); Vars.setVarValue(make_var_array(a1, i), a2.substring(j, k)); i++; j = k + 1; } } // vars[a1 + "[" + i + "]"] = a2.substring(j); Vars.setVarValue(make_var_array(a1, i), a2.substring(j)); return i + 1; }); make_one_func_tbl("sptype", -1, [], function (param) { return "spweb"; }); make_one_func_tbl("sqrt", 1, [], function (param) { var a1; a1 = (+param[0]); return Math.sqrt(a1); }); make_one_func_tbl("sthigh", -1, [], function (param) { return font_size; }); make_one_func_tbl("strat", 2, [], function (param) { var a1, a2; a1 = String(param[0]); a2 = Math.trunc(param[1]); return a1.charAt(a2); }); make_one_func_tbl("strlen", 1, [], function (param) { var a1; a1 = String(param[0]); return a1.length; }); make_one_func_tbl("stwide", 1, [], function (param) { var a1; a1 = String(param[0]); return ctx.measureText(a1).width; }); make_one_func_tbl("substr", 2, [], function (param) { var a1, a2, a3; a1 = String(param[0]); a2 = Math.trunc(param[1]); if (param.length <= 2) { a3 = a1.length; } else { a3 = Math.trunc(param[2]); } return a1.substr(a2, a3); }); make_one_func_tbl("tan", 1, [], function (param) { var a1; a1 = (+param[0]); if (sp_compati_flag) { return Math.trunc(Math.tan(a1 * Math.PI / 180) * 100); } return Math.tan(a1 * Math.PI / 180); }); make_one_func_tbl("text", 1, [], function (param) { var a1, a2, a3, a4; a1 = String(param[0]); // 以下は不要になったもよう(Chrome v84) // // ***** Chrome v24 で全角スペースが半角のサイズで表示される件の対策 ***** // a1 = a1.replace(/　/g, " "); // 全角スペースを半角スペース2個に変換 if (param.length >= 4) { a2 = Math.trunc(param[1]); // X a3 = Math.trunc(param[2]); // Y a4 = Math.trunc(param[3]); // アンカー } else if (param.length == 3) { a2 = Math.trunc(param[1]); // X a3 = Math.trunc(param[2]); // Y a4 = 0; // アンカー } else if (param.length == 2) { a2 = Math.trunc(param[1]); // X a3 = 0; // Y a4 = 0; // アンカー } else { a2 = 0; // X a3 = 0; // Y a4 = 0; // アンカー } // ***** 水平方向 ***** // if (a4 & 4) { ctx.textAlign = "left"; } // 左 if (a4 & 8) { ctx.textAlign = "right"; } // 右 else if (a4 & 1) { ctx.textAlign = "center"; } // 中央 else { ctx.textAlign = "left"; } // その他 // ***** 垂直方向 ***** // if (a4 & 16) { ctx.textBaseline = "top"; } // 上 if (a4 & 32) { ctx.textBaseline = "bottom"; } // 下 else if (a4 & 2) { ctx.textBaseline = "middle"; } // 中央 else if (a4 & 64) { ctx.textBaseline = "alphabetic"; } // ベースライン else { ctx.textBaseline = "top"; } // その他 // ***** 文字列表示 ***** ctx.fillText(a1, a2, a3); return nothing; }); make_one_func_tbl("tick", -1, [], function (param) { // return new Date().getTime(); return Date.now(); }); make_one_func_tbl("trgt", 1, [0], function (param) { var a1; a1 = get_var_name(param[0]); // 画像変数名取得 // ***** 引数のチェック ***** if (del_module_name(a1) == "off") { // (表示画面を描画先とする) can = can1; ctx = ctx1; } else { // if (!imgvars.hasOwnProperty(a1)) { if (!hasOwn.call(imgvars, a1)) { throw new Error("Image変数 '" + a1 + "' は作成されていません。"); } // (画像変数を描画先とする) can = imgvars[a1].can; ctx = imgvars[a1].ctx; } // ***** Canvasの各種設定のリセット ***** // (クリッピング領域の設定も解除する) reset_canvas_setting(ctx, 0); return nothing; }); make_one_func_tbl("trim", 1, [], function (param) { var a1; a1 = String(param[0]); return a1.replace(/^\s+|\s+$/g, ""); }); make_one_func_tbl("unlock", 0, [], function (param) { var a1; if (param.length <= 0) { a1 = 0; // 未使用 } else { a1 = Math.trunc(param[0]); // 未使用 } // ***** NOP ***** return nothing; }); make_one_func_tbl("week", -1, [], function (param) { return new Date().getDay() + 1; // =1:日曜日,=2:月曜日 ... =7:土曜日 }); make_one_func_tbl("width", -1, [], function (param) { return can1.width; }); make_one_func_tbl("year", -1, [], function (param) { return new Date().getFullYear(); }); make_one_func_tbl("yndlg", 1, [], function (param) { var num; var a1; a1 = String(param[0]); if (param.length >= 2) { a1 = String(param[1]); } num = confirm(a1) ? "YES" : "NO"; keyclear(); mousebuttonclear(); loop_nocount_flag = true; return num; }); make_one_func_tbl("@", 1, [0], function (param) { var a1, a2; var i; a1 = get_var_info(param[0]); for (i = 1; i < param.length; i++) { a2 = param[i]; // vars[a1 + "[" + (i - 1) + "]"] = a2; Vars.setVarValue(make_var_array(a1, i - 1), a2); } return nothing; }); } // ***** 組み込み関数の定義情報1個の生成 ***** function make_one_func_tbl(name, param_num, param_varname_indexes, func) { var i; // ***** すでに存在する場合はスキップする ***** if (func_tbl.hasOwnProperty(name)) { return false; } // ***** 定義情報1個の生成 ***** func_tbl[name] = {}; // (引数の数を設定(ただし省略可能な引数は数に入れない)) // (これを-1にすると組み込み変数になり、()なしで呼び出せる) func_tbl[name].param_num = param_num; // (「変数名をとる引数」の指定フラグを生成) func_tbl[name].param_varname_flag = {}; if (param_varname_indexes && param_varname_indexes.length) { for (i = 0; i < param_varname_indexes.length; i++) { func_tbl[name].param_varname_flag[param_varname_indexes[i]] = true; } } // (関数の本体を設定) func_tbl[name].func = func; return true; } // **************************************** // プラグイン用 // **************************************** // (必要に応じてインタープリターの内部情報を公開する) SP_Interpreter.add_before_run_funcs = function (name, func) { before_run_funcs[name] = func; }; SP_Interpreter.add_after_run_funcs = function (name, func) { after_run_funcs[name] = func; }; SP_Interpreter.add_clear_var_funcs = function (name, func) { clear_var_funcs[name] = func; }; SP_Interpreter.make_one_func_tbl = make_one_func_tbl; SP_Interpreter.Vars = Vars; SP_Interpreter.make_var_array = make_var_array; SP_Interpreter.get_var_info = get_var_info; SP_Interpreter.get_var_name = get_var_name; SP_Interpreter.init_canvas_axis = init_canvas_axis; SP_Interpreter.set_canvas_axis = set_canvas_axis; SP_Interpreter.conv_axis_point = conv_axis_point; SP_Interpreter.max_array_size = max_array_size; SP_Interpreter.max_str_size = max_str_size; SP_Interpreter.nothing = nothing; SP_Interpreter.get_can = function () { return can; }; SP_Interpreter.get_ctx = function () { return ctx; }; SP_Interpreter.get_imgvars = function () { return imgvars; }; SP_Interpreter.get_font_size = function () { return font_size; }; SP_Interpreter.set_color_val = function (v) { color_val = v; }; SP_Interpreter.set_loop_nocount = function () { loop_nocount_flag = true; }; })(SP_Interpreter || (SP_Interpreter = {})); // ***** 以下は外部クラス ***** // ***** ファイルダウンロード用クラス(staticクラス) ***** var Download = (function () { // ***** コンストラクタ(staticクラスのため未使用) ***** function Download() { } // ***** Blobオブジェクトの取得 ***** var Blob = window.Blob; // ***** Blobセーブ用オブジェクトの取得(IE10用) ***** // (window.saveBlobではないので、呼び出し時にはcallを用いて、 // saveBlob.call(navigator, blob, fname) とする必要がある) var saveBlob = null; if (window.navigator) { saveBlob = navigator.saveBlob || navigator.msSaveBlob; } // ***** URLオブジェクトの取得 ***** var URL = window.URL || window.webkitURL; // ***** ダウンロード処理(内部処理用) ***** // (fname ファイル名 // make_blob_func Blobの生成を行う関数 // make_url_func URLの生成を行う関数) function download_sub(fname, make_blob_func, make_url_func) { var url; var blob; var elm, ev; var link_download_flag; // ***** リンク要素の生成 ***** elm = document.createElement("a"); // ***** リンク要素でダウンロード可能か(Chrome用) ***** if (elm.download != null && document.createEvent && elm.dispatchEvent) { link_download_flag = true; } else { link_download_flag = false; } // ***** Blobの生成 ***** if (Blob && (saveBlob || link_download_flag)) { blob = make_blob_func(); } else { blob = null; } // ***** Blobをセーブ(IE10用) ***** if (blob && saveBlob) { // saveBlob(blob, fname); saveBlob.call(navigator, blob, fname); return true; } // ***** URLの生成 ***** if (blob && URL && URL.createObjectURL) { url = URL.createObjectURL(blob); } else { url = make_url_func(); } // ***** リンク要素でダウンロード(Chrome用) ***** if (link_download_flag) { elm.href = url; elm.download = fname; ev = document.createEvent("MouseEvents"); ev.initMouseEvent("click", true, true, window, 0, 0, 0, 0, 0, false, false, false, false, 0, null); elm.dispatchEvent(ev); return true; } // ***** それ以外のときはURLにジャンプ(ファイル名は指定不可) ***** window.location.href = url; return true; } // ***** データをダウンロードする(staticメソッド) ***** // (基本的に data には文字列を渡すこと) Download.download = function (data, fname) { // ***** 引数のチェック ***** if (data == null) { return false; } if (!fname) { fname = "download"; } // ***** ダウンロード処理 ***** return download_sub(fname, function () { // ***** Blobの生成 ***** return new Blob([data], {type : "application/octet-stream"}); }, function () { // ***** URLの生成 ***** return "data:application/octet-stream," + encodeURIComponent(data); }); }; // ***** Canvasの画像をダウンロードする(staticメソッド) ***** Download.downloadCanvas = function (can, fname) { // ***** 引数のチェック ***** if (!can) { return false; } if (!fname) { fname = "download.png"; } // ***** ダウンロード処理 ***** return download_sub(fname, function () { var i; var data_url; var bin_st; // バイナリデータ文字列 var bin_st_len; // バイナリデータ文字列の長さ var uint8_arr; // バイナリデータ(型付配列) // ***** Blobの生成 ***** data_url = can.toDataURL("image/png"); bin_st = atob(data_url.split(",")[1]); bin_st_len = bin_st.length; uint8_arr = new Uint8Array(bin_st_len); for (i = 0; i < bin_st_len; i++) { uint8_arr[i] = bin_st.charCodeAt(i); } return new Blob([uint8_arr.buffer], {type : "image/octet-stream"}); }, function () { // ***** URLの生成 ***** return can.toDataURL("image/png").replace("image/png", "image/octet-stream"); }); }; // ***** 作成したクラスを返す ***** return Download; })();