Ejemplo n.º 1
0
 public function PrettyPrint()
 {
     /**
      * Output the variable header key value pairs.
      */
     mbus_utils::mylog("========================================================");
     mbus_utils::mylog("----               Frame Information                ----");
     mbus_utils::mylog("--------------------------------------------------------");
     foreach ($this->varframe as $key => $value) {
         mbus_utils::mylog(str_pad(" {$key} ", 30) . $value);
     }
     mbus_utils::mylog(str_pad(" Data ", 30) . "");
     mbus_utils::outputByteString($this->data);
     mbus_utils::mylog("--------------------------------------------------------");
     /**
      * Output the variable header key value pairs.
      */
     mbus_utils::mylog("========================================================");
     mbus_utils::mylog("----               Slave Information                ----");
     mbus_utils::mylog("--------------------------------------------------------");
     foreach ($this->varheader as $key => $value) {
         mbus_utils::mylog(str_pad(" {$key} ", 30) . $value);
     }
     mbus_utils::mylog("--------------------------------------------------------");
     /**
      * Output the variable records key value pairs.
      */
     mbus_utils::mylog("========================================================");
     mbus_utils::mylog("----               Record Information               ----");
     foreach ($this->varrecords as $key1 => $record) {
         mbus_utils::mylog("--------------------------------------------------------");
         mbus_utils::mylog(str_pad("Record Number ", 30) . $key1);
         mbus_utils::mylog("General");
         $difgeneralarray = $record['general'];
         foreach ($difgeneralarray as $dif_general_key => $dif_general_value) {
             mbus_utils::mylog(str_pad(" {$dif_general_key} ", 30) . $dif_general_value);
         }
         //$sbp = $record['general']['StartBytePosition'];
         //mbus_utils::mylog(str_pad(" StartByte ", 30) . dechex($this->dataarray[$sbp]));
         //$ebp = $record['general']['EndBytePosition'];
         //mbus_utils::mylog(str_pad(" EndByte ", 30) . dechex($this->dataarray[$ebp]));
         mbus_utils::mylog("DIF found");
         $difarray = $record['dif'];
         foreach ($difarray as $dif_key => $dif_value) {
             mbus_utils::mylog(str_pad(" {$dif_key} ", 30) . $dif_value);
         }
         $difearray = $record["dife"];
         if (isset($difearray)) {
             mbus_utils::mylog("DIFe found");
             foreach ($difearray as $dife_key => $dife_value) {
                 foreach ($dife_value as $dife_key2 => $dife_value2) {
                     mbus_utils::mylog(str_pad(" {$dife_key2} ", 30) . $dife_value2);
                 }
             }
         } else {
             mbus_utils::mylog("No DIFe");
         }
         $vifarray = $record["vif"];
         if (isset($vifarray)) {
             mbus_utils::mylog("VIF found");
             foreach ($vifarray as $vif_key => $vif_value) {
                 mbus_utils::mylog(str_pad(" {$vif_key} ", 30) . $vif_value);
             }
         } else {
             mbus_utils::mylog("No VIF");
         }
         $vifearray = $record["vife"];
         if (isset($vifearray)) {
             mbus_utils::mylog("VIFe found");
             foreach ($vifearray as $vife_key => $vife_value) {
                 foreach ($vife_value as $vife_key2 => $vife_value2) {
                     mbus_utils::mylog(str_pad(" {$vife_key2} ", 30) . $vife_value2);
                 }
             }
         } else {
             mbus_utils::mylog("No VIFe");
         }
         mbus_utils::mylog("Data");
         $value = $record['Value'];
         if (isset($value)) {
             mbus_utils::mylog(str_pad(" Value ", 30) . $value);
         } else {
             mbus_utils::mylog(" No Value");
         }
         $dataarray = $record['data'];
         if (isset($dataarray)) {
             $data = "";
             foreach ($dataarray as $data_key => $data_value) {
                 $data .= mbus_utils::ByteToHex($data_value);
             }
             mbus_utils::mylog(str_pad(" Raw Bytes ", 30) . $data);
         } else {
             mbus_utils::mylog(str_pad(" Raw Bytes ", 30) . "No data");
         }
     }
     mbus_utils::mylog("--------------------------------------------------------");
 }