File: bin2array.php

<?
/********************************************************************************
 *HEADERING
 */
class bin2array{
    var $abin;                   //array representation (BE)
    var $sbin;                   //string binary
    var $hbin;                   //string hexa
    var $ibin;                   //integer

    var $err;
    var $errnum;
    var $errdesc;
    var $version="0.0";

    function emsgerror($n,$desc){
       $err=1;
       $errnum=$n;
       $errdesc=$desc;
    }

    function erange($val){
       $fret=1;
       if(($val==1||$val==0)){
          $fret=0;
          $this->emsgerror(0,"Bit fuera de rango");
       }
       return $fret;
    }

    function ehex($v){
             //HEX-INT
             switch(strtolower($v)){
                     case "f":
                           $iv=15;
                           break;
                     case "e":
                           $iv=14;
                           break;
                     case "d":
                           $iv=13;
                           break;
                     case "c":
                           $iv=12;
                           break;
                     case "b":
                           $iv=11;
                           break;
                     case "a":
                           $iv=10;
                           break;
                     default:
                             $iv=$v;
             }
             return $iv;
    }

    function etable_hex2bin($hstr){
             //recibe una cadena en hexa y la traduce a binario en cadena
             $vi=0;
             for($i=0;$i<strlen($hstr);$i++){
                $vi+=$this->ehex($hstr[$i])*(pow(16,strlen($hstr)-1-$i));
             }
             return sprintf("%b",$vi);
    }

    function emake_arr($bstr){
             //recibe una cadena binaria, y debe retornar un array
             //return split("",$bstr);
             $a=array();
             for($i=0;$i<strlen($bstr);$i++){
                    $a[$i]=$bstr[$i];
             }
             return $a;
    }

    function etable_bin2hex($bstr){
             //traduce los binarios a hexa
             $vi=0;
             $vi=$this->etable_bin2int($bstr);
             return sprintf("%X",$vi);
    }

    function etable_bin2int($bstr){
             //traduce los binarios a enteros
             $vi=0;
             for($i=0;$i<strlen($bstr);$i++){
                $vi+=$bstr[$i]*(pow(2,strlen($bstr)-1-$i));
             }
             return $vi;
    }

    function emake_str($abin){
             //Recibe un array con la representacion binaria
             $vs="";
             for($i=0;$i<count($abin);$i++)
                $vs.=(($abin[$i])?"1":"0");
             return $vs;
    }

    function echeck_arr($parr){
       for($i=0;$i<count($parr);$i++){
            if($parr[$i]){
               $parr[$i]=1;
            }else{
               $parr[$i]=0;
            }
       }
       return 1;
    }

    function etraduce($from,$dat){
       $fret=1;
       switch($from){
          case "array":
                if($this->echeck_arr(&$dat)){
                   $this->abin=$dat;
                   $this->sbin=$this->emake_str($this->abin);
                   $this->hbin=$this->etable_bin2hex($this->sbin);
                   $this->ibin=$this->etable_bin2int($this->sbin);
                }else{
                   $this->emsgerror(2,"El array posee valores invalidos. 01");
                   $fret=0;
                }
                break;
          case "integer":
                $this->sbin=sprintf("%b",$dat);
                $this->hbin=$this->etable_bin2hex($this->sbin);
                $this->ibin=$this->etable_bin2int($this->sbin);
                $this->abin=$this->emake_arr($this->sbin);
                break;
          case "double":
                $this->etraduce(gettype(intval($dat)),intval($dat));
                break;
          case "boolean":
                $dat=($dat)?1:0;
                $this->sbin=($dat)?"1":"0";
                $this->hbin=($dat)?"1":"0";
                $this->ibin=$dat;
                $this->abin[0]=$dat;
                break;
          case "string":
                if(eregi("[^0-9a-f]",$dat)){
                   $this->emsgerror(2,"La cadena contien valores errones.0-9a-f");
                   $fret=0;
                }else{
                   $dat=eregi_replace("[h-z]","",$dat);
                   if(eregi("[^0-9]",$dat)){
                      $this->hbin=$dat;
                      $this->sbin=$this->etable_hex2bin($dat);
                   }elseif(eregi("[^0-1]",$dat)){
                      $this->ibin=intval($dat);
                      $this->sbin=sprintf("%b",$dat);
                      $this->hbin=$this->etable_bin2hex($this->sbin);
                      $this->ibin=$this->etable_bin2int($this->sbin);
                      $this->abin=$this->emake_arr($this->sbin);
                   }else{
                      $this->hbin=$this->etable_bin2hex($dat);
                      $this->sbin=$dat;
                   }
                   $this->ibin=$this->etable_bin2int($this->sbin);
                   $this->abin=$this->emake_arr($this->sbin);
                }
                break;
          case "object":
                if(!(@$dat->isBin2Array())){
                   $this->emsgerror(1,"Inicializacion erronea");
                   $fret=0;
                }else{
                   $this->abin=$dat->abin;
                   $this->sbin=$dat->sbin;
                   $this->hbin=$dat->hbin;
                   $this->ibin=$dat->ibin;
                }
                break;
          default:
          case "resource":
                $this->emsgerror(1,"Inicializacion erronea");
                $fret=0;
                break;
       }
       return $fret;
    }

    function egetinteger($dat){
       $otmp=new bin2array($dat);
       $ival=$otmp->ibin;
       $otmp->destroy();
       unset($otmp);
       return $ival;
    }

    function op($opcode,$data){
        switch(strtolower($opcode)){
               case "add":
                     $this->add($data);
                     break;
               case "mul":
                     $this->mul($data);
                     break;
               case "div":
                     $this->div($data);
                     break;
               case "nul":
                     return 0;
                     break;
               default:

        }
    }

    function add($dat){
       $ival=$this->egetinteger($dat);
       $this->etraduce(gettype($this->ibin+$ival),$this->ibin+$ival);
    }

    function mul($dat){
       $ival=$this->egetinteger($dat);
       $this->etraduce(gettype($this->ibin*$ival),$this->ibin*$ival);
    }

    function div($dat){
       $ival=$this->egetinteger($dat);
       $this->etraduce(gettype($this->ibin/$ival),$this->ibin/$ival);
    }

    function sub($dat){
       $ival=$this->egetinteger($dat);
       $this->etraduce(gettype($this->ibin-$ival),$this->ibin-$ival);
    }

    function isBin2Array(){
             return 1;
    }

    function bin2array($p1){
       $fret=1;
       $fret=$this->etraduce(gettype($p1),$p1);
       return $fret;
    }

    function destroy(){
             return 1;
    }
}

/***********************************************************************
 *[04/06/2002]-Roberto, Celestino. <rcelestino@claxson.com>
 *
 * Name: bin2array
 */
/***********************************************************************
 * EXAMPLE SECTION
 */
/*
$sb1= new bin2array("11111111");                                        //initialize with a string of a number in binary representation
$sb1= new bin2array("255");                                             //initialize with a string of decimal number
$sb1= new bin2array("FF");                                              //initialize with a string of hexa number
$sb1= new bin2array($sb3);                                              //copy constructor
$sb1= new bin2array(true);                                              //initialize with a simple value as boolean variable 1:0
$sb1= new bin2array(array(1,1,1,1,1,1,1,1));                            //initialize with an array of binary M7....M0 (BE)
$sb1= new bin2array(15.5);                                              //initialize with a float value (this will be casted to integer)
$sb1->add(15);                                                          //add a decimal value
$sb1->add("FF");                                                        //add, in hexa string
$sb1->add("15");                                                        //add, in decimal string
$sb1->add("1111");                                                      //add, in binary string
$sb1->add($sb1);                                                        //add, two objects
$sb1->op("add","15");                                                   //operation main
$sb1->destroy();                                                        //destructor, call for convention (remember unset($nameobj);)
*/


?>