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 *
#	Content
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;