equal
deleted
inserted
replaced
1 |
1 # |
2 # Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies). |
2 # Copyright (c) 1997-2009 Nokia Corporation and/or its subsidiary(-ies). |
3 # All rights reserved. |
3 # All rights reserved. |
4 # This component and the accompanying materials are made available |
4 # This component and the accompanying materials are made available |
5 # under the terms of the License "Eclipse Public License v1.0" |
5 # under the terms of "Eclipse Public License v1.0" |
6 # which accompanies this distribution, and is available |
6 # which accompanies this distribution, and is available |
7 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
7 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
8 # |
8 # |
9 # Initial Contributors: |
9 # Initial Contributors: |
10 # Nokia Corporation - initial contribution. |
10 # Nokia Corporation - initial contribution. |
11 # |
11 # |
12 # Contributors: |
12 # Contributors: |
13 # |
13 # |
14 # Description: |
14 # Description: |
15 # Case Equivalence |
15 # Case Equivalence |
16 # Given the unicode data file, work out the case equivalence classes |
16 # Given the unicode data file, work out the case equivalence classes |
17 # i.e. the equivalence classes for the transitive closure of ~ defined as |
17 # i.e. the equivalence classes for the transitive closure of ~ defined as |
18 # follows: |
18 # follows: |
19 # a~b if Uppercase(a) == b || Lowercase(a) == b || Titlecase(a) == b |
19 # a~b if Uppercase(a) == b || Lowercase(a) == b || Titlecase(a) == b |
20 # Usage: perl CaseEquivalence <UnicodeData.txt |
20 # Usage: perl CaseEquivalence <UnicodeData.txt |
21 # |
|
22 # |
21 # |
23 |
22 |
24 use strict; |
23 use strict; |
25 my @Name = (); |
24 my @Name = (); |
26 my @Upper = (); |
25 my @Upper = (); |