| #! /usr/bin/perl -w |
| |
| use strict; |
| use IO::File; |
| |
| |
| my $locale = $ARGV[0]; |
| |
| |
| my $long_name = `/home/weiv/src/icu/source/extra/colprobe/longname $locale`; |
| print "Long name is $long_name\n"; |
| my $pageTitle = $locale." collation"; |
| my $filename = $locale.".html"; |
| |
| open TABLE, ">$filename"; |
| |
| |
| print TABLE <<"EndOfTemplate"; |
| <html> |
| |
| <head> |
| <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> |
| <title>$pageTitle</title> |
| <style> |
| <!-- |
| table { border-spacing: 0; border-collapse: collapse; width: 100%; |
| border: 1px solid black } |
| td, th { width: 10%; border-spacing: 0; border-collapse: collapse; color: black; |
| vertical-align: top; border: 1px solid black } |
| --> |
| </style> |
| </head> |
| |
| <body bgcolor="#FFFFFF"> |
| |
| <p><b><font color="#FF0000">Collation:</font> $locale ($long_name) <a href="http://oss.software.ibm.com/cgi-bin/icu/lx/en/?_=$locale">Demo</a>, |
| |
| <a href="../../comparison_charts.html">Cover |
| Page</a>, <a href="../main/index.html">Locale Diffs Index</a>, <a href="index.html">Collation Diffs Index</a></b></p> |
| <table> |
| <tr> |
| EndOfTemplate |
| |
| my $dirCommon = "icucollations"; |
| my $refCommon = $dirCommon."/UCARules.txt"; |
| my $nameCommon = $dirCommon."/".$locale."_collation.html"; |
| my $colorCommon = "#AD989D"; |
| |
| my $loc = $locale; |
| |
| if(!(-e $nameCommon)) { |
| $locale =~ /_/; |
| $loc = $`; |
| $nameCommon = "$dirCommon/$loc"."_collation.html"; |
| } |
| |
| print "Common is $nameCommon\n"; |
| |
| print TABLE " <th bgcolor=\"$colorCommon\">COMMON ("; |
| if(-e $nameCommon) { |
| print TABLE "<a href=\"../../common/collation/$loc.xml\">xml</a> "; |
| } |
| print TABLE "<a href=\"../../common/collation/root.xml\">UCA</a>)</th>\n"; |
| |
| my $dirLinux = "linuxcollations"; |
| my $refLinux = $dirLinux."/".$locale.".utf8_default_raw.html"; |
| my $rawLinux = $dirLinux."/".$locale.".utf8_raw.html"; |
| my $defLinux = $dirLinux."/".$locale; |
| my $nameLinux = "$dirLinux/$locale"."_collation.html"; |
| my $colorLinux = "#1191F1"; |
| |
| print TABLE " <th bgcolor=\"$colorLinux\">LINUX"; |
| if (!(-e $nameLinux)) { |
| #try the variant that has @euro stuck in |
| $nameLinux = "$dirLinux/$locale".'.utf8@euro_collation.html'; |
| if(-e $nameLinux) { |
| $refLinux = $dirLinux."/".$locale.'.utf8@euro_default_raw.html'; |
| $rawLinux = $dirLinux."/".$locale.'.utf8@euro_raw.html'; |
| } |
| } |
| if (-e $nameLinux) { |
| print TABLE " (<a href=\"../../linux/collation/$locale.xml\">xml</a>"; |
| my $linuxBase = &getBaseLocale("$dirLinux/base", $locale); |
| if($linuxBase ne "") { |
| print TABLE " <a href=\"../../linux/collation/$linuxBase.xml\">Base ($linuxBase)</a>"; |
| } |
| print TABLE ")"; |
| } |
| print TABLE "</th>\n"; |
| |
| |
| my $dirWin = "w2kcollations"; |
| my $refWin = $dirWin."/".$locale."_default_raw.html"; |
| my $rawWin = $dirWin."/".$locale."_raw.html"; |
| my $nameWin = "$dirWin/$locale"."_collation.html"; |
| my $colorWin = "#98FB98"; |
| $loc = $locale; |
| #try fallback for windows |
| print TABLE " <th bgcolor=\"$colorWin\">WINDOWS"; |
| if(!(-e $nameWin)) { |
| $locale =~ /_/; |
| $loc = $`; |
| $nameWin = "$dirWin/$loc"."_collation.html"; |
| } |
| |
| print "Windows loc is $loc\n"; |
| |
| if (-e $nameWin) { |
| print TABLE " (<a href=\"../../windows/collation/$loc.xml\">xml</a>"; |
| my $winBase = &getBaseLocale("$dirWin/base", $locale); |
| if($winBase ne "") { |
| print TABLE "<a href=\"../../windows/collation/$winBase.xml\">base ($winBase)</a>"; |
| } |
| print TABLE ")"; |
| } |
| print TABLE "</th>\n"; |
| print TABLE " </tr>\n <tr>"; |
| |
| |
| readRules($nameCommon, "#AD989D", "Same as the UCA."); |
| readRules($nameLinux, "#1191F1", "No data available."); |
| readRules($nameWin, "#98FB98", "No data available."); |
| |
| |
| print TABLE <<"EndOfFooter"; |
| </tr> |
| </table> |
| |
| </body> |
| </html> |
| EndOfFooter |
| |
| |
| sub readRules { |
| # readRules($file, $color) |
| my $filename = shift; |
| my $color = shift; |
| my $comment = shift; |
| my $noLines = 0; |
| my $printOut = 0; |
| |
| my $file; |
| |
| if(-e $filename) { |
| open($file, "<$filename") || die "something very strange happened\n"; |
| print TABLE "<td bgcolor=\"$color\">\n"; |
| while (<$file>) { |
| if (/\}\<br\>$/) { |
| $printOut = 0; |
| |
| } |
| if ($printOut) { |
| if(!/^$/ && !/ <br>$/) { |
| print TABLE $_; |
| $noLines++; |
| } |
| } |
| if (/Sequence/) { |
| $printOut = 1; |
| print "found sequence\n"; |
| $noLines = 0; |
| } |
| |
| } |
| if (!$noLines) { |
| print TABLE "Same ordering as base\n"; |
| } |
| print TABLE "</td>\n"; |
| } else { |
| print TABLE "<td bgcolor=\"$color\">\n$comment</td>\n"; |
| } |
| } |
| |
| sub getBaseLocale(){ |
| my $basefile = shift; |
| my $locale = shift; |
| my $baseFH = IO::File->new($basefile,"r") |
| or die "could not open the file $basefile for reading: $! \n"; |
| my $bse; |
| my $loc; |
| while(defined ( my $line = <$baseFH>)){ |
| if( $line =~ /\<$locale\>/){ |
| ($loc,$bse) = split (/\>/, $line); |
| $bse =~ s/^\s+\<//; |
| return $bse; |
| } |
| } |
| } |
| |
| |
| # Tasting of food product |
| # 650-574-4551 $50 1 hour |
| |
| |
| # <td bgcolor="#AD989D">1.0-alpha</td> |
| # <td bgcolor="#FF6633">1.0</td> |
| # <td bgcolor="#FF6633">=</td> |
| # <td bgcolor="#FF6633"><span title="006E {LATIN SMALL LETTER N}">&n</span><br> |
| # <span title="006E 0079 {LATIN SMALL LETTER N} {LATIN SMALL LETTER Y}"> < ny</span><br> |
| |
| # <span title="006E 006E 0079 {LATIN SMALL LETTER N} {LATIN SMALL LETTER N} {LATIN SMALL LETTER Y} / 006E 0079 {LATIN SMALL LETTER N} {LATIN SMALL LETTER Y}"> = nny / ny</span><br> |
| # <span title="006E 0059 {LATIN SMALL LETTER N} {LATIN CAPITAL LETTER Y}"> <<< nY</span><br> |
| # </td> |
| # <td bgcolor="#FF6633">=</td> |
| # <td bgcolor="#FFFF33">1.2</td> |
| |
| # <td bgcolor="#98FB98">Windows XP</td> |
| # <td bgcolor="#FF6633">=</td> |
| # <td bgcolor="#FF6633">=</td> |
