コード例 #1
0
ファイル: WhirlMemory.php プロジェクト: michaelprem/phc
 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;
     }
 }
コード例 #2
0
ファイル: WhirlOpsRing.php プロジェクト: michaelprem/phc
 protected function RINGFUNC_AscIO()
 {
     if ($this->_getValue() === 0) {
         WhirlMemory::instance()->setValue((int) ord(WhirlParser::instance()->input()));
     } else {
         WhirlParser::instance()->output(chr(WhirlMemory::instance()->getValue()));
     }
 }