1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
package Text::CharWidth;
use 5.008;
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(mbwidth mbswidth mblen);
our @EXPORT = qw();
our %EXPORT_TAGS = ('all' => [ @EXPORT_OK ]);
our $VERSION = '0.04';
require XSLoader;
XSLoader::load('Text::CharWidth', $VERSION);
# Preloaded methods go here.
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
Text::CharWidth - Get number of occupied columns of a string on terminal
=head1 SYNOPSIS
use Text::CharWidth qw(mbwidth mbswidth mblen);
mbwidth(string);
mbswidth(string);
mblen(string);
=head1 DESCRIPTION
This module supplies features similar as wcwidth(3) and wcswidth(3)
in C language.
Characters have its own width on terminal depending on locale.
For example, ASCII characters occupy one column per character,
east Asian fullwidth characters (like Hiragana or Han Ideograph)
occupy two columns per character, and combining characters (apperaring
in ISO-8859-11 Thai, Unicode, and so on) occupy zero columns per
character. mbwidth() gives the width of the first character of
the given string and mbswidth() gives the width of the whole given
string.
The names of mbwidth and mbswidth came from "multibyte" versions
of wcwidth and wcswidth which are "wide character" versions.
I<mblen(string)> returns number of bytes of the first character of the
string. Please note that a character may consist of multiple
bytes in multibyte encodings such as UTF-8, EUC-JP, EUC-KR,
GB2312, or Big5.
I<mbwidth(string)> returns the width of the first character of the
string. I<mbswidth(string)> returns the width of the whole string.
Parameters are to be given in locale encodings, not always in UTF-8.
=head1 SEE ALSO
locale(5), wcwidth(3), wcswidth(3)
=head1 AUTHOR
Tomohiro KUBOTA, E<lt>kubota@debian.orgE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2003 by Tomohiro KUBOTA
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
|
