From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 17 Apr 2003 06:45:26 +0000 (+0000)
Subject: More maneuvering closer to proposed POSIX classes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e6f587345b9c1d67a11dd2bb5a1df7a6bf9eec59;p=p5sagit%2Fp5-mst-13.2.git

More maneuvering closer to proposed POSIX classes
mapping to Unicode: (1) The definitions of "graph" and
"print" are still in flux: move closer back to how Perl
5.8.0 defined it (though drop Co, that did not make sense)
(2) Add U+0085 (NEL) to "space".

p4raw-id: //depot/perl@19244
---

diff --git a/lib/unicore/lib/Graph.pl b/lib/unicore/lib/Graph.pl
index 1eff89d..25739cb 100644
--- a/lib/unicore/lib/Graph.pl
+++ b/lib/unicore/lib/Graph.pl
@@ -277,7 +277,7 @@ return <<'END';
 1FDD	1FEF	
 1FF2	1FF4	
 1FF6	1FFE	
-2010	2029	
+2010	2027	
 2030	2052	
 2057		
 2070	2071	
diff --git a/lib/unicore/lib/Print.pl b/lib/unicore/lib/Print.pl
index ea9c553..3458b77 100644
--- a/lib/unicore/lib/Print.pl
+++ b/lib/unicore/lib/Print.pl
@@ -278,7 +278,7 @@ return <<'END';
 1FF2	1FF4	
 1FF6	1FFE	
 2000	200B	
-2010	2029	
+2010	2027	
 202F	2052	
 2057		
 205F		
diff --git a/lib/unicore/lib/Space.pl b/lib/unicore/lib/Space.pl
index 868c88c..830c960 100644
--- a/lib/unicore/lib/Space.pl
+++ b/lib/unicore/lib/Space.pl
@@ -11,6 +11,7 @@
 return <<'END';
 0009	000D	
 0020		
+0085		
 00A0		
 1680		
 2000	200B	
diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 4c56b0f..0dff509 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -638,7 +638,8 @@ sub UnicodeData_Txt()
                                 || $code == 0x000A  # 000A: LINE FEED
                                 || $code == 0x000B  # 000B: VERTICAL TAB
                                 || $code == 0x000C  # 000C: FORM FEED
-                                || $code == 0x000D; # 000D: CARRIAGE RETURN
+                                || $code == 0x000D  # 000D: CARRIAGE RETURN
+                                || $code == 0x0085; # 0085: NEL
 
 
         $Cat{SpacePerl}->$op($code) if $cat =~ /^Z/
@@ -659,9 +660,10 @@ sub UnicodeData_Txt()
         $Cat{Title}->$op($code) if $cat eq "Lt";
         $Cat{ASCII}->$op($code) if $code <= 0x007F;
         $Cat{Cntrl}->$op($code) if $cat =~ /^C/;
-        $Cat{Graph}->$op($code) if $cat =~ /^[^C]/
+        $Cat{Graph}->$op($code) if $cat =~ /^[LMNPS]/
                                 && $cat ne "Zs";
-        $Cat{Print}->$op($code) if $cat =~ /^[^C]/;
+        $Cat{Print}->$op($code) if $cat =~ /^[LMNPS]/
+                                || $cat eq "Zs";
         $Cat{Punct}->$op($code) if $cat =~ /^P/;
 
         $Cat{XDigit}->$op($code) if ($code >= 0x30 && $code <= 0x39)  ## 0..9