高畑唱平のブログ

RubyのWhiteSpaceでは連想配列を使っているので、
吉里吉里verも連想配列を使ってみました。
単純な翻訳ではないので、どっかで不具合でるかもｗ

[iscript]
// 変数なので何回も代入してもたぶんOK
var STACK_MEMBERS =  			1024;
var HEAP_MEMBERS  = 			1024;
var MAX_LABELS 	  = 		200;
var MAX_LABEL_LENGTH =		500;
var MAX_INSTRUCTIONS =		30;
var MAX_INSTRUCTION_LENGTH =    10;
var MAX_NESTED_SUBROUTINES =    20;
[endscript]
[iscript]
class Heap_Model {
  // 連想配列のメンバ
  var m_heap = %[];
  function Heap_Model(){
  }
  function heap_put(p_val,p_key){
    // 数値を文字列に変換
    var s_key=""+p_key;
    // 連想配列に代入
    m_heap[s_key]=p_val;
    return 1;
  }
  function heap_get(p_key){
    // 数値を文字列に変換
    var s_key=""+p_key;
    // 連想配列から取得
    return m_heap[s_key];
  }
}
[endscript]
[iscript]
var heap = new Heap_Model();
heap.heap_put(10,1);
heap.heap_put(20,2);
heap.heap_put(30,3);
heap.heap_put(40,4);
heap.heap_put(50,5);
heap.heap_put(100,10);
heap.heap_put(90,9);
heap.heap_put(80,8);
heap.heap_put(70,7);
heap.heap_put(60,6);
heap.heap_put(100,1);
heap.heap_put(200,2);
heap.heap_put(300,3);
var r1=heap.heap_get(1);
var r2=heap.heap_get(2);
var r3=heap.heap_get(3);
var r4=heap.heap_get(4);
var r5=heap.heap_get(5);
var r6=heap.heap_get(6);
var r7=heap.heap_get(7);
var r8=heap.heap_get(8);
var r9=heap.heap_get(9);
var r10=heap.heap_get(10);
[endscript]
[emb exp="r1"][r]
[emb exp="r2"][r]
[emb exp="r3"][r]
[emb exp="r4"][r]
[emb exp="r5"][r]
[emb exp="r6"][r]
[emb exp="r7"][r]
[emb exp="r8"][r]
[emb exp="r9"][r]
[emb exp="r10"][r]
[p][cm]
[iscript]
// 代入してないので何も表示されない
var r11=heap.heap_get(11);
var r12=heap.heap_get(12);
[endscript]
[emb exp="r11"][r]
[emb exp="r12"][r]

先日、HSPでstackのモジュールを書いたんですけど、
なんか吉里吉里にも翻訳出来そうだったので、
やってみたら出来ました。
吉里吉里出来そうで翻訳しか出来ない疑惑ｗ
でもこういうことやってたら、
真っ白から書けるかもってかんじ。

[iscript]
var STACK_MEMBERS =  			1024;
var HEAP_MEMBERS  = 			1024;
var MAX_LABELS 	  = 		200;
var MAX_LABEL_LENGTH =		500;
var MAX_INSTRUCTIONS =		30;
var MAX_INSTRUCTION_LENGTH =    10;
var MAX_NESTED_SUBROUTINES =    20;
[endscript]
[iscript]
class Stack_Model {
  var m_size;
  var m_current;
  var m_contents = [];
  var m_big;
  function Stack_Model(p_size){
    m_size = p_size;
    m_current = p_size;
    // どこまで代入したか記録
    m_big=p_size;
  }
  function stack_push(p_val){
    if (m_current >= 1) {
      m_current--;
      m_contents[m_current] = p_val;
      if (m_big >= m_current){
        m_big=m_current;
      }
      return 1;
    }
    return -1;
  }
  function stack_pop(){
    if (m_current < m_size){
      m_current++;
      return m_contents[m_current-1];
    }
    return 0;
  }
  function stack_peak(p_depth){
    if ((m_current+p_depth) < m_size){
      return m_contents[m_current + p_depth];
    }
    return 0;
  }
  function stack_look(p_depth){
    if (m_big > p_depth){
      return 0;
    }else{
      return m_contents[p_depth];
    }
  }
}
[endscript]
[iscript]
var stack = new Stack_Model(STACK_MEMBERS);
stack.stack_push(100);
stack.stack_push(200);
stack.stack_push(300);
stack.stack_push(400);
stack.stack_push(500);
stack.stack_push(600);
stack.stack_push(700);
stack.stack_push(800);
var r1=stack.stack_look(1023);
var r2=stack.stack_look(1022);
var r3=stack.stack_look(1021);
var r4=stack.stack_look(1020);
var r5=stack.stack_look(1019);
var r6=stack.stack_look(1018);
var r7=stack.stack_look(1017);
var r8=stack.stack_look(1016);
[endscript]
[emb exp="r1"][r]
[emb exp="r2"][r]
[emb exp="r3"][r]
[emb exp="r4"][r]
[emb exp="r5"][r]
[emb exp="r6"][r]
[emb exp="r7"][r]
[emb exp="r8"][r]
[p][cm]
[iscript]
var r11=stack.stack_peak(2);
var r12=stack.stack_peak(3);
var r13=stack.stack_pop();
var r14=stack.stack_pop();
var r15=stack.stack_peak(2);
var r16=stack.stack_peak(3);
[endscript]
peak 2:[emb exp="r11"][r]
peak 3:[emb exp="r12"][r]
pop:[emb exp="r13"][r]
pop:[emb exp="r14"][r]
peak 2:[emb exp="r15"][r]
peak 3:[emb exp="r16"][r]