Gecko [ www.finalhopeacademy.com ]

Name	Size	Permission
InetBase	[ DIR ]	drwxr-xr-x
Util	[ DIR ]	drwxr-xr-x
UtilPP	[ DIR ]	drwxr-xr-x
_compV6.al	1 KB	-rw-r--r--
_compact_v6.al	1.01 KB	-rw-r--r--
_splitplan.al	2.91 KB	-rw-r--r--
_splitref.al	936 B	-rw-r--r--
autosplit.ix	373 B	-rw-r--r--
coalesce.al	1.35 KB	-rw-r--r--
compactref.al	1.67 KB	-rw-r--r--
do_prefix.al	891 B	-rw-r--r--
hostenum.al	329 B	-rw-r--r--
mod_version.al	427 B	-rw-r--r--
nprefix.al	603 B	-rw-r--r--
prefix.al	605 B	-rw-r--r--
re.al	1.4 KB	-rw-r--r--
re6.al	1.83 KB	-rw-r--r--
short.al	500 B	-rw-r--r--
wildcard.al	485 B	-rw-r--r--

Code Editor : compactref.al

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

#line 1147 "blib/lib/NetAddr/IP.pm (autosplit into blib/lib/auto/NetAddr/IP/compactref.al)"
sub compactref($) {
#  my @r = sort { NetAddr::IP::Lite::comp_addr_mask($a,$b) } @{$_[0]}		# use overload 'cmp' function
#	or return [];
#  return [] unless @r;

my @r;
  {
    my $unr  = [];
    my $args = $_[0];

if (ref $_[0] eq __PACKAGE__ and ref $_[1] eq 'ARRAY') {
      # ->compactref(\@list)
      #
      $unr = [$_[0], @{$_[1]}]; # keeping structures intact
    }
    else {
      # Compact(@list) or ->compact(@list) or Compact(\@list)
      #
      $unr = $args;
    }

return [] unless @$unr;

foreach(@$unr) {
      $_->{addr} = $_->network->{addr};
    }

@r = sort @$unr;
  }

my $changed;
  do {
    $changed = 0;
    for(my $i=0; $i <= $#r -1;$i++) {
      if ($r[$i]->contains($r[$i +1])) {
        splice(@r,$i +1,1);
        ++$changed;
        --$i;
      }
      elsif ((notcontiguous($r[$i]->{mask}))[1] == (notcontiguous($r[$i +1]->{mask}))[1]) {		# masks the same
        if (hasbits($r[$i]->{addr} ^ $r[$i +1]->{addr})) {	# if not the same netblock
          my $upnet = $r[$i]->copy;
          $upnet->{mask} = shiftleft($upnet->{mask},1);
          if ($upnet->contains($r[$i +1])) {					# adjacent nets in next net up
      $r[$i] = $upnet;
      splice(@r,$i +1,1);
      ++$changed;
      --$i;
          }
        } else {									# identical nets
          splice(@r,$i +1,1);
          ++$changed;
          --$i;
        }
      }
    }
  } while $changed;
  return \@r;
}

# end of NetAddr::IP::compactref
1;

${this.title}

Code Editor : compactref.al