xref: /dragonfly/tools/tools/locale/tools/charmaps.pm (revision 0db87cb7) 
1#!/usr/local/bin/perl -w
2
3#
4# $FreeBSD$
5#
6
7use strict;
8use XML::Parser;
9use Data::Dumper;
10
11my %data = ();
12my %d = ();
13my $index = -1;
14
15sub get_xmldata {
16	my $etcdir = shift;
17
18	open(FIN, "$etcdir/charmaps.xml");
19	my @xml = <FIN>;
20	chomp(@xml);
21	close(FIN);
22
23	my $xml = new XML::Parser(Handlers => {
24					Start	=> \&h_start,
25					End	=> \&h_end,
26					Char	=> \&h_char
27					});
28	$xml->parse(join("", @xml));
29	return %d;
30}
31
32sub h_start {
33	my $expat = shift;
34	my $element = shift;
35	my @attrs = @_;
36	my %attrs = ();
37
38
39	while ($#attrs >= 0) {
40		$attrs{$attrs[0]} = $attrs[1];
41		shift(@attrs);
42		shift(@attrs);
43	}
44
45	$data{element}{++$index} = $element;
46
47	if ($index == 2
48	 && $data{element}{1} eq "languages"
49	 && $element eq "language") {
50		my $name = $attrs{name};
51		my $countries = $attrs{countries};
52		my $encoding = $attrs{encoding};
53		my $family = $attrs{family};
54		my $f = defined $attrs{family} ? $attrs{family} : "x";
55		my $nc_link = $attrs{namecountry_link};
56		my $e_link = $attrs{encoding_link};
57		my $fallback = $attrs{fallback};
58		my $definitions = $attrs{definitions};
59
60		$d{L}{$name}{$f}{fallback} = $fallback;
61		$d{L}{$name}{$f}{e_link} = $e_link;
62		$d{L}{$name}{$f}{nc_link} = $nc_link;
63		$d{L}{$name}{$f}{family} = $family;
64		$d{L}{$name}{$f}{encoding} = $encoding;
65		$d{L}{$name}{$f}{definitions} = $definitions;
66		$d{L}{$name}{$f}{countries} = $countries;
67		foreach my $c (split(" ", $countries)) {
68			if (defined $encoding) {
69				foreach my $e (split(" ", $encoding)) {
70					$d{L}{$name}{$f}{data}{$c}{$e} = undef;
71					$d{E}{$e} = 0;	# not read
72				}
73			}
74			$d{L}{$name}{$f}{data}{$c}{"UTF-8"} = undef;
75		}
76		return;
77	}
78
79	if ($index == 2
80	 && $data{element}{1} eq "translations"
81	 && $element eq "translation") {
82		foreach my $e (split(" ", $attrs{encoding})) {
83			if (defined $attrs{hex}) {
84				my $k = $attrs{cldr};
85				my $hs = $attrs{hex};
86				$d{T}{$e}{$k}{hex} = $hs;
87			}
88			if (defined $attrs{string}) {
89				my $s = "";
90				for (my $i = 0; $i < length($attrs{string}); $i++) {
91					$s .= sprintf("%02x",
92					    ord(substr($attrs{string}, $i, 1)));
93				}
94				$d{T}{$e}{$attrs{cldr}}{hex} = $s;
95			}
96			if (defined $attrs{unicode}) {
97				my $k = $attrs{cldr};
98				my $uc = $attrs{unicode};
99				$d{T}{$e}{$k}{unicode} = $uc;
100			}
101			if (defined $attrs{ucc}) {
102				my $k = $attrs{cldr};
103				my $uc = $attrs{ucc};
104				$d{T}{$e}{$k}{ucc} = $uc;
105			}
106		}
107		return;
108	}
109
110	if ($index == 2
111	 && $data{element}{1} eq "alternativemonths"
112	 && $element eq "language") {
113		my $name = $attrs{name};
114		my $countries = $attrs{countries};
115
116		$data{fields}{name} = $name;
117		$data{fields}{countries} = $countries;
118		$data{fields}{text} = "";
119
120		return;
121	}
122}
123
124sub h_end {
125	my $expat = shift;
126	my $element = shift;
127
128	if ($index == "2") {
129		if ($data{element}{1} eq "alternativemonths"
130		 && $data{element}{2} eq "language") {
131			foreach my $c (split(/,/, $data{fields}{countries})) {
132				my $m = $data{fields}{text};
133
134				$m =~ s/^[\t ]//g;
135				$m =~ s/[\t ]$//g;
136				$d{AM}{$data{fields}{name}}{$c} = $m;
137			}
138			$data{fields} = ();
139		}
140	}
141
142	$index--;
143}
144
145sub h_char {
146	my $expat = shift;
147	my $string = shift;
148
149	if ($index == "2") {
150		if ($data{element}{1} eq "alternativemonths"
151		 && $data{element}{2} eq "language") {
152			$data{fields}{text} .= $string;
153		}
154	}
155}
156
157#use Data::Dumper;
158#my %D = get_xmldata();
159#print Dumper(%D);
1601;
161