Initial commit of OpenSPARC T2 architecture model.

[OpenSPARC-T2-SAM] / sam-t2 / devtools / amd64 / lib / perl5 / 5.8.8 / bytes_heavy.pl

package bytes;

sub length ($) {
   BEGIN { bytes::import() }
   return CORE::length($_[0]);
}

sub substr ($$;$$) {
   BEGIN { bytes::import() }
   return
       @_ == 2 ? CORE::substr($_[0], $_[1]) :
       @_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) :
                 CORE::substr($_[0], $_[1], $_[2], $_[3]) ;
}

sub ord ($) {
   BEGIN { bytes::import() }
   return CORE::ord($_[0]);
}

sub chr ($) {
   BEGIN { bytes::import() }
   return CORE::chr($_[0]);
}

sub index ($$;$) {
   BEGIN { bytes::import() }
   return
       @_ == 2 ? CORE::index($_[0], $_[1]) :
                 CORE::index($_[0], $_[1], $_[2]) ;
}

sub rindex ($$;$) {
   BEGIN { bytes::import() }
   return
       @_ == 2 ? CORE::rindex($_[0], $_[1]) :
                 CORE::rindex($_[0], $_[1], $_[2]) ;
}

1;