perl/lib/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;
Revision:	1.1
Committed:	Thu Jun 30 14:27:08 2005 UTC (21 years, 3 months ago) by root
Content type:	text/plain
Branch:	MAIN
CVS Tags:	PERL-5-8-7, HEAD
Branch point for:	PERL
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	package bytes;
2
3			sub length ($) {
4			BEGIN { bytes::import() }
5			return CORE::length($_[0]);
6			}
7
8			sub substr ($$;$$) {
9			BEGIN { bytes::import() }
10			return
11			@_ == 2 ? CORE::substr($_[0], $_[1]) :
12			@_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) :
13			CORE::substr($_[0], $_[1], $_[2], $_[3]) ;
14			}
15
16			sub ord ($) {
17			BEGIN { bytes::import() }
18			return CORE::ord($_[0]);
19			}
20
21			sub chr ($) {
22			BEGIN { bytes::import() }
23			return CORE::chr($_[0]);
24			}
25
26			sub index ($$;$) {
27			BEGIN { bytes::import() }
28			return
29			@_ == 2 ? CORE::index($_[0], $_[1]) :
30			CORE::index($_[0], $_[1], $_[2]) ;
31			}
32
33			sub rindex ($$;$) {
34			BEGIN { bytes::import() }
35			return
36			@_ == 2 ? CORE::rindex($_[0], $_[1]) :
37			CORE::rindex($_[0], $_[1], $_[2]) ;
38			}
39
40			1;