Ejemplo n.º 1
0
 public function moveby($count)
 {
     $this->_position += $count;
     if ($this->_position < 0) {
         die("Error in instruction " . WhirlParser::instance()->getInstructionNumber() . ": Memory index out of bounds. The memory index was decreased beyond zero.");
     }
     if (!isset($this->_values[$this->_position])) {
         $this->_values[$this->_position] = 0;
     }
 }
Ejemplo n.º 2
0
 protected function RINGFUNC_AscIO()
 {
     if ($this->_getValue() === 0) {
         WhirlMemory::instance()->setValue((int) ord(WhirlParser::instance()->input()));
     } else {
         WhirlParser::instance()->output(chr(WhirlMemory::instance()->getValue()));
     }
 }