改行コードをLFに統一。

[fswiki/fswiki.git] / lib / Jcode / Constants.pm

diff --git a/lib/Jcode/Constants.pm b/lib/Jcode/Constants.pm
index bea866b..1aa9d7b 100644 (file)
--- a/lib/Jcode/Constants.pm
+++ b/lib/Jcode/Constants.pm
@@ -1,60 +1,60 @@
-#\r
-# $Id: Constants.pm,v 1.2 2007/03/11 11:45:47 takezoe Exp $\r
-#\r
-\r
-package Jcode::Constants;\r
-\r
-use vars qw($RCSID $VERSION);\r
-\r
-$RCSID = q$Id: Constants.pm,v 1.2 2007/03/11 11:45:47 takezoe Exp $;\r
-$VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };\r
-\r
-use Carp;\r
-\r
-use Exporter;\r
-use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);\r
-@ISA         = qw(Exporter);\r
-@EXPORT      = qw();\r
-@EXPORT_OK   = qw(%CHARCODE %ESC %RE);\r
-%EXPORT_TAGS = ( 'all' => [ @EXPORT_OK, @EXPORT ] );\r
-\r
-use vars qw(%CHARCODE %ESC %RE);\r
-\r
-my %_0208 = (\r
-              1978 => '\e\$\@',\r
-              1983 => '\e\$B',\r
-              1990 => '\e&\@\e\$B',\r
-               );\r
-\r
-%CHARCODE = (\r
-            UNDEF_EUC  =>     "\xa2\xae",  # ¢® in EUC\r
-            UNDEF_SJIS =>     "\x81\xac",  # ¢® in SJIS\r
-            UNDEF_JIS  =>     "\xa2\xf7",  # ¢÷ -- used in unicode\r
-            UNDEF_UNICODE  => "\x20\x20",  # ¢÷ -- used in unicode\r
-        );\r
-\r
-%ESC =  (\r
-        JIS_0208 => "\e\$B",\r
-        JIS_0212 => "\e\$(D",\r
-        ASC      => "\e\(B",\r
-        KANA     => "\e\(I",\r
-        );\r
-\r
-%RE =\r
-    (\r
-     ASCII     => '[\x00-\x7f]',\r
-     BIN       => '[\x00-\x06\x7f\xff]',\r
-     EUC_0212  => '\x8f[\xa1-\xfe][\xa1-\xfe]',\r
-     EUC_C     => '[\xa1-\xfe][\xa1-\xfe]',\r
-     EUC_KANA  => '\x8e[\xa1-\xdf]',\r
-     JIS_0208  =>  "$_0208{1978}|$_0208{1983}|$_0208{1990}",\r
-     JIS_0212  => "\e" . '\$\(D',\r
-     JIS_ASC   => "\e" . '\([BJ]',     \r
-     JIS_KANA  => "\e" . '\(I',\r
-     SJIS_C    => '[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]',\r
-     SJIS_KANA => '[\xa1-\xdf]',\r
-     UTF8      => '[\xc0-\xdf][\x80-\xbf]|[\xe0-\xef][\x80-\xbf][\x80-\xbf]'\r
-     );\r
-\r
-1;\r
-\r
+#
+# $Id: Constants.pm,v 1.2 2007/03/11 11:45:47 takezoe Exp $
+#
+
+package Jcode::Constants;
+
+use vars qw($RCSID $VERSION);
+
+$RCSID = q$Id: Constants.pm,v 1.2 2007/03/11 11:45:47 takezoe Exp $;
+$VERSION = do { my @r = (q$Revision: 1.2 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+
+use Carp;
+
+use Exporter;
+use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+@ISA         = qw(Exporter);
+@EXPORT      = qw();
+@EXPORT_OK   = qw(%CHARCODE %ESC %RE);
+%EXPORT_TAGS = ( 'all' => [ @EXPORT_OK, @EXPORT ] );
+
+use vars qw(%CHARCODE %ESC %RE);
+
+my %_0208 = (
+              1978 => '\e\$\@',
+              1983 => '\e\$B',
+              1990 => '\e&\@\e\$B',
+               );
+
+%CHARCODE = (
+            UNDEF_EUC  =>     "\xa2\xae",  # ¢® in EUC
+            UNDEF_SJIS =>     "\x81\xac",  # ¢® in SJIS
+            UNDEF_JIS  =>     "\xa2\xf7",  # ¢÷ -- used in unicode
+            UNDEF_UNICODE  => "\x20\x20",  # ¢÷ -- used in unicode
+        );
+
+%ESC =  (
+        JIS_0208 => "\e\$B",
+        JIS_0212 => "\e\$(D",
+        ASC      => "\e\(B",
+        KANA     => "\e\(I",
+        );
+
+%RE =
+    (
+     ASCII     => '[\x00-\x7f]',
+     BIN       => '[\x00-\x06\x7f\xff]',
+     EUC_0212  => '\x8f[\xa1-\xfe][\xa1-\xfe]',
+     EUC_C     => '[\xa1-\xfe][\xa1-\xfe]',
+     EUC_KANA  => '\x8e[\xa1-\xdf]',
+     JIS_0208  =>  "$_0208{1978}|$_0208{1983}|$_0208{1990}",
+     JIS_0212  => "\e" . '\$\(D',
+     JIS_ASC   => "\e" . '\([BJ]',     
+     JIS_KANA  => "\e" . '\(I',
+     SJIS_C    => '[\x81-\x9f\xe0-\xfc][\x40-\x7e\x80-\xfc]',
+     SJIS_KANA => '[\xa1-\xdf]',
+     UTF8      => '[\xc0-\xdf][\x80-\xbf]|[\xe0-\xef][\x80-\xbf][\x80-\xbf]'
+     );
+
+1;
+