ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/rxvt-unicode/src/gencompose
(Generate patch)

Comparing rxvt-unicode/src/gencompose (file contents):
Revision 1.3 by pcg, Sun Mar 14 23:14:39 2004 UTC vs.
Revision 1.4 by root, Mon Jan 23 23:33:58 2006 UTC

1#!/usr/bin/perl 1#!/usr/bin/perl
2 2
3open UNIDATA, "<", "www.unicode.org/Public/UNIDATA/UnicodeData.txt" 3open UNIDATA, "<", "www.unicode.org/Public/UNIDATA/UnicodeData.txt"
4 or die "www.unicode.org/Public/UNIDATA/UnicodeData.txt: $!"; 4 or die "www.unicode.org/Public/UNIDATA/UnicodeData.txt: $!";
5my %docom = qw(initial | medial | final | isolated | compat | none |); 5#my %docom = qw(initial | medial | final | isolated | compat | none |); #+ arabic
6my %docom = qw(compat | none |);
6 7
7while (<UNIDATA>) { 8while (<UNIDATA>) {
8 my ($code, undef, $category, undef, undef, $decompose, undef) = split /;/; 9 my ($code, undef, $category, undef, undef, $decompose, undef) = split /;/;
9 10
10 push @cat_z, $code if $category =~ /^Z/; 11 push @cat_z, $code if $category =~ /^Z/;

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines