diff options
| author | fukachan <fukachan> | 2001-12-23 12:19:13 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-12-23 12:19:13 +0000 |
| commit | a03cf6933bf9427138c6c455fcda7d369db4e923 (patch) | |
| tree | 9af7bad11540f3ead8ee3b21977522c9aa46a1cb /fml/lib/FML/Language | |
| parent | 39768e2dbb6a1dc782be8da2e6bf78d9ddce2164 (diff) | |
| download | fml8-a03cf6933bf9427138c6c455fcda7d369db4e923.tar.gz fml8-a03cf6933bf9427138c6c455fcda7d369db4e923.tar.bz2 fml8-a03cf6933bf9427138c6c455fcda7d369db4e923.zip | |
update documents, comments
Diffstat (limited to 'fml/lib/FML/Language')
| -rw-r--r-- | fml/lib/FML/Language/Japanese/String.pm | 14 | ||||
| -rw-r--r-- | fml/lib/FML/Language/Japanese/Utils.pm | 26 |
2 files changed, 32 insertions, 8 deletions
diff --git a/fml/lib/FML/Language/Japanese/String.pm b/fml/lib/FML/Language/Japanese/String.pm index f64a29d2..c1a59a95 100644 --- a/fml/lib/FML/Language/Japanese/String.pm +++ b/fml/lib/FML/Language/Japanese/String.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: String.pm,v 1.2 2001/07/31 14:19:41 fukachan Exp $ +# $FML: String.pm,v 1.3 2001/12/22 09:21:08 fukachan Exp $ # package FML::Language::Japanese::String; @@ -45,6 +45,10 @@ require Exporter; use Jcode; +# Descriptions: convert string to Japanese EUC +# Arguments: STR($str) +# Side Effects: none +# Return Value: STR sub STR2EUC { my ($str) = @_; @@ -53,6 +57,10 @@ sub STR2EUC } +# Descriptions: convert string to Japanese JIS +# Arguments: STR($str) +# Side Effects: none +# Return Value: STR sub STR2JIS { my ($str) = @_; @@ -61,6 +69,10 @@ sub STR2JIS } +# Descriptions: convert string to Japanese SJIS +# Arguments: STR($str) +# Side Effects: none +# Return Value: STR sub STR2SJIS { my ($str) = @_; diff --git a/fml/lib/FML/Language/Japanese/Utils.pm b/fml/lib/FML/Language/Japanese/Utils.pm index 4cac8bbf..cac2a509 100644 --- a/fml/lib/FML/Language/Japanese/Utils.pm +++ b/fml/lib/FML/Language/Japanese/Utils.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Utils.pm,v 1.3 2001/09/23 11:34:42 fukachan Exp $ +# $FML: Utils.pm,v 1.4 2001/12/22 09:21:08 fukachan Exp $ # package FML::Language::Japanese::Utils; @@ -40,6 +40,10 @@ require Exporter; @EXPORT_OK = qw(is_iso2022jp_string); +# Descriptions: $buf looks like Japanese or not ? +# Arguments: STR($buf) +# Side Effects: none +# Return Value: 1 or 0 sub is_iso2022jp_string { my ($buf) = @_; @@ -47,10 +51,14 @@ sub is_iso2022jp_string } -# based on fml-support: 07020, 07029 -# Koji Sudo <koji@cherry.or.jp> -# Takahiro Kambe <taca@sky.yamashina.kyoto.jp> -# check the given buffer has unusual Japanese (not ISO-2022-JP) +# Descriptions: $buf looks like Japanese or not ? +# based on fml-support: 07020, 07029 +# Koji Sudo <koji@cherry.or.jp> +# Takahiro Kambe <taca@sky.yamashina.kyoto.jp> +# check the given buffer has unusual Japanese (not ISO-2022-JP) +# Arguments: OBJ($buf) +# Side Effects: none +# Return Value: 1 or 0 sub _look_not_iso2022jp_string { my ($buf) = @_; @@ -87,8 +95,12 @@ return 1 if found or 0 if not. =cut -# XXX fml 4.0: EUCCompare($buf, $pat) -# XXX where $pat should be $& (matched pattern) +# Descriptions: compare Japanese EUC strings +# fml 4.0: EUCCompare($buf, $pat) +# where $pat should be $& (matched pattern) +# Arguments: OBJ($self) STR($a) STR($pat) +# Side Effects: none +# Return Value: 1 or 0 sub compare_euc_string { my ($self, $a, $pat) = @_; |