jsaheui on node.js

jsaheui-node.js

// BEGIN PATCH
dump = console.dir;
msg_coordinate = "Coord: ";
msg_character = "Char: ";
msg_input_number = "Type a number. Type !!! to pause the execution.";
msg_input_character = "Type a character or more. Type !!! to pause the execution.";
// END PATCH

//상수, constants
cheossori = new Array("ㄱ", "ㄲ", "ㄴ", "ㄷ", "ㄸ", "ㄹ", "ㅁ", "ㅂ", "ㅃ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅉ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ");
holsori = new Array("ㅏ", "ㅐ", "ㅑ", "ㅒ", "ㅓ", "ㅔ", "ㅕ", "ㅖ", "ㅗ", "ㅘ", "ㅙ", "ㅚ", "ㅛ", "ㅜ", "ㅝ", "ㅞ", "ㅟ", "ㅠ", "ㅡ", "ㅢ", "ㅣ");
batchim = new Array(" ", "ㄱ", "ㄲ", "ㄳ", "ㄴ", "ㄵ", "ㄶ", "ㄷ", "ㄹ", "ㄺ", "ㄻ", "ㄼ", "ㄽ", "ㄾ", "ㄿ", "ㅀ", "ㅁ", "ㅂ", "ㅄ", "ㅅ", "ㅆ", "ㅇ", "ㅈ", "ㅊ", "ㅋ", "ㅌ", "ㅍ", "ㅎ");
batchim_hoek = new Array(0, 2, 4, 4, 2, 5, 5, 3, 5, 7, 9, 9, 7, 9, 9, 8, 4, 4, 6, 2, 4, 1, 3, 4, 3, 4, 4, 3);
required_elem = new Array(0, 0, 2, 2, 2, 2, 1, 0, 1, 0, 1, 0, 2, 0, 1, 0, 2, 2, 0);

// BEGIN PATCH
exports.Env = function(code, input, debug_mode) {
// END PATCH

//변수, variables
var code_gonggan = new Array; //codespace
var stack = new Array(28);
var stack_index = new Number;

var x = new Number;
var y = new Number;
var dx = new Number;
var dy = new Number;
var timer = new Number;
var debug = new Boolean(true);
var meomchum = new Boolean(true); //is_stopped
var input_buffer = new String;

//함수, functions

function haechae(c){ //disassembles a Hangul character into parts
    if(c < 0xAC00 || c > 0xD7A3) return "";
    c -= 0xAC00;
    return new Array(Math.floor(c/28/21), Math.floor(c/28) % 21, c % 28);
}

function push(i, n){
    switch(i){
        case 27: break; //ㅎ
        default: stack[i].push(parseInt(n));
    }
}

function pop(i){
    switch(i){
        case 21: return parseInt(stack[i].shift()); //ㅇ
        case 27: break;                             //ㅎ
        default: return parseInt(stack[i].pop());
    }
}

// BEGIN PATCH
//function output(obj){
//  document.forms[0].output.value += obj;
//}
function output(obj) {
    process.stdout.write(obj.toString());
}

var inputOffset = 0;
function prompt(msg) {
    if (inputOffset < input.length)
        return input[inputOffset++];
    else
        return '!!!';
}
// END PATCH

function debug_sseo(){ //write debug info
    str = msg_coordinate + "(" + x + ", " + y + ")" + '\n' + msg_character + code_gonggan[y].charAt(x) + '\n';
    for(i=0; i<28; i++){
        if(i == stack_index) str += '>';
        stack[i].reverse();
        str += String.fromCharCode(0xc544 + i) + ": " + stack[i] + '\n';
        stack[i].reverse();
    }
    // BEGIN PATCH
    //document.forms[0].dumps.value = str;
    dump(str);
    // END PATCH
}

function chogi(){ //initialize
    meomchum = true;
    clearTimeout(timer);

    input_buffer = "";

    x = 0; dx = 0;
    y = 0; dx = 0;
    // BEGIN PATCH
    //code_gonggan = document.forms[0].aheui.value.split('\n');
    code_gonggan = code.split('\n');
    // END PATCH

    stack_index = 0;
    for(i=0; i<28; i++) stack[i] = new Array;

    // BEGIN PATCH
    //document.forms[0].output.value = "";
    //document.forms[0].dumps.value = "";
    // END PATCH
}

function cursor_omgyeo(){ //move cursor
    x+=dx; y+=dy;
    
    if(y<0) y = code_gonggan.length-1;
    if(y>=code_gonggan.length) y = 0;

    if(x<0) x = code_gonggan[y].length-1;
    if(x>=code_gonggan[y].length && dx!=0) x = 0;
}

function dan_gye(han_beon){ //step; han_beon means whether it executes a single step
    if(!han_beon){
        if(meomchum){ clearTimeout(timer); return; }
        if(timer) clearTimeout(timer);
    }

    // BEGIN PATCH
    //code_gonggan = document.forms[0].aheui.value.split('\n');
    code_gonggan = code.split('\n');
    // END PATCH

    k = han_beon ? 1 : 100;
    while(k-- > 0){
        if(!han_beon && meomchum) break;

        if(x >= code_gonggan[y].length){
            cursor_omgyeo();
            continue;
        }
        c = code_gonggan[y].charCodeAt(x);
        if(c < 0xac00 || c > 0xd7a3){
            cursor_omgyeo();
            continue;
        }
        ch = haechae(c);

        switch(ch[1]){
            case 0:  dx=1;  dy=0;  break; //ㅏ
            case 2:  dx=2;  dy=0;  break; //ㅑ
            case 4:  dx=-1; dy=0;  break; //ㅓ
            case 6:  dx=-2; dy=0;  break; //ㅕ
            case 8:  dx=0;  dy=-1; break; //ㅗ
            case 12: dx=0;  dy=-2; break; //ㅛ
            case 13: dx=0;  dy=1;  break; //ㅜ
            case 17: dx=0;  dy=2;  break; //ㅠ

            case 18: dy=-dy;         break; //ㅡ
            case 19: dx=-dx; dy=-dy; break; //ㅢ
            case 20: dx=-dx;         break; //ㅣ

            case 1:  //ㅐ
            case 3:  //ㅒ
            case 5:  //ㅔ
            case 7:  //ㅖ
            case 9:  //ㅘ
            case 10: //ㅙ
            case 11: //ㅚ
            case 14: //ㅝ
            case 15: //ㅞ
            case 16: //ㅟ
            default:
        }

        if(stack[stack_index].length < required_elem[ch[0]]){ dx=-dx; dy=-dy; }
        else switch(ch[0]){
            case 2:  a = pop(stack_index); b = pop(stack_index); push(stack_index, b/a);          break; //ㄴ
            case 3:  a = pop(stack_index); b = pop(stack_index); push(stack_index, b+a);          break; //ㄷ
            case 4:  a = pop(stack_index); b = pop(stack_index); push(stack_index, b*a);          break; //ㄸ
            case 5:  a = pop(stack_index); b = pop(stack_index); push(stack_index, b%a);          break; //ㄹ
            case 6:                                                                                      //ㅁ
                switch(ch[2]){
                    case 21: output(pop(stack_index));                      break; //ㅇ
                    case 27: output(String.fromCharCode(pop(stack_index))); break; //ㅎ
                    default: pop(stack_index);
                }
                break;
            case 7:                                                                                      //ㅂ
                switch(ch[2]){
                    case 21:
                        k = prompt(msg_input_number);
                        if(k == "!!!"){ meomchum=true; return; }
                        push(stack_index, k);                        break; //ㅇ
                    case 27:
                        while(!input_buffer){
                            input_buffer = prompt(msg_input_character);
                            if(input_buffer == "!!!"){ meomchum=true; return; }
                        }
                        push(stack_index, input_buffer.charCodeAt(0));
                        input_buffer = input_buffer.substring(1);    break; //ㅎ
                    default: push(stack_index, batchim_hoek[ch[2]]); break;
                }
                break;
            case 8:                                                                                      //ㅃ
                switch(stack_index){
                    case 21: stack[21].unshift(stack[21][0]); break; //ㅇ
                    case 27:                                  break; //ㅎ
                    default: stack[stack_index].push(stack[stack_index][stack[stack_index].length-1]);
                }
                break;
            case 9:  stack_index = ch[2];                                                         break; //ㅅ
            case 10: push(ch[2], pop(stack_index));                                               break; //ㅆ
            case 12: a = pop(stack_index); b = pop(stack_index); push(stack_index, (b>=a) ? 1:0); break; //ㅈ
            case 14: if(pop(stack_index) == 0){ dx=-dx; dy=-dy; }                                 break; //ㅊ
            case 16: a = pop(stack_index); b = pop(stack_index); push(stack_index, b-a);          break; //ㅌ
            case 17:                                                                                     //ㅍ
                switch(stack_index){
                    case 21: a = stack[21][0]; stack[21][0] = stack[21][1]; stack[21][1] = a; break; //ㅇ
                    case 27:                                                                  break; //ㅎ
                    default: a = pop(stack_index); b = pop(stack_index); push(stack_index, a); push(stack_index, b);
                }
                break; //ㅍ
            case 18: meomchum = true;                                                             break; //ㅎ

            case 0:  //ㄱ
            case 1:  //ㄲ
            case 11: //ㅇ
            case 13: //ㅉ
            case 15: //ㅋ
            default:
        }

        // BEGIN PATCH
        //if(document.forms[0].debug.checked) debug_sseo();
        if(debug_mode) debug_sseo();
        // END PATCH
        cursor_omgyeo();
    }

    // BEGIN PATCH
    //if(!han_beon && !meomchum) timer = setTimeout('dan_gye(false)', 0);
    if(!han_beon && !meomchum) timer = setTimeout(function(){dan_gye(false)}, 0);
    // END PATCH
}

function silhaeng(){ //execute
    chogi();

    meomchum = false;
    dan_gye(false);
}

// BEGIN PATCH
    return {execute: silhaeng};
}
// END PATCH

run.js

var fs = require('fs'),
    aheui = require('./jsaheui-node');

var path = process.argv[2];
var env = new aheui.Env(fs.readFileSync(path, 'utf8'), '', false);
env.execute();