ACIL FM

Nama	Ukuran	Aksi
add128.al	590 B	View DL Edit
addconst.al	714 B	View DL Edit
autosplit.ix	547 B	View DL Edit
bcd2bin.al	450 B	View DL Edit
bcdn2bin.al	884 B	View DL Edit
bcdn2txt.al	835 B	View DL Edit
bin2bcd.al	440 B	View DL Edit
bin2bcdn.al	765 B	View DL Edit
comp128.al	939 B	View DL Edit
hasbits.al	529 B	View DL Edit
ipanyto6.al	554 B	View DL Edit
ipv4to6.al	486 B	View DL Edit
ipv6to4.al	477 B	View DL Edit
mask4to6.al	543 B	View DL Edit
maskanyto6.al	614 B	View DL Edit
notcontiguous.al	820 B	View DL Edit
shiftleft.al	706 B	View DL Edit
simple_pack.al	471 B	View DL Edit
slowadd128.al	524 B	View DL Edit
sub128.al	607 B	View DL Edit
_128x2.al	998 B	View DL Edit
_128x10.al	525 B	View DL Edit
_bcd2bin.al	778 B	View DL Edit
_bcdcheck.al	912 B	View DL Edit
_bin2bcdn.al	1.13 MB	View DL Edit
_deadlen.al	509 B	View DL Edit
_sa128.al	912 B	View DL Edit

Edit file: /home/.cpan/build/NetAddr-IP-4.079-0/blib/lib/auto/NetAddr/IP/UtilPP/_bin2bcdn.al

# NOTE: Derived from ../../blib/lib/NetAddr/IP/UtilPP.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package NetAddr::IP::UtilPP;

#line 523 "../../blib/lib/NetAddr/IP/UtilPP.pm (autosplit into ../../blib/lib/auto/NetAddr/IP/UtilPP/_bin2bcdn.al)"
sub _bin2bcdn {
  my($b128) = @_;
  my @binary = unpack('N4',$b128);
  my @nbcd = (0,0,0,0,0);	# 5 - 32 bit registers
  my ($add3, $msk8, $bcd8, $carry, $tmp);
  my $j = 0;
  my $k = -1;
  my $binmsk = 0;
  foreach(0..127) {
    unless ($binmsk) {
      $binmsk = 0x80000000;
      $k++;
    }
    $carry = $binary[$k] & $binmsk;
    $binmsk >>= 1;
    next unless $carry || $j;				# skip leading zeros
    foreach(4,3,2,1,0) {
      $bcd8 = $nbcd[$_];
      $add3 = 3;
      $msk8 = 8;

$j = 0;
      while ($j < 8) {
	$tmp = $bcd8 + $add3;
	if ($tmp & $msk8) {
	  $bcd8 = $tmp;
	}
	$add3 <<= 4;
	$msk8 <<= 4;
	$j++;
      }
      $tmp = $bcd8 & 0x80000000;	# propagate carry
      $bcd8 <<= 1;			# x2
      if ($carry) {
	$bcd8 += 1;
      }
      $nbcd[$_] = $bcd8;
      $carry = $tmp;
    }
  }
  pack('N5',@nbcd);
}

# end of NetAddr::IP::UtilPP::_bin2bcdn
1;

Batal