/[suikacvs]/markup/html/html5/spec-ja/common.pl
Suika

Diff of /markup/html/html5/spec-ja/common.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by wakaba, Mon Oct 27 05:00:33 2008 UTC revision 1.19 by wakaba, Wed Nov 5 01:29:08 2008 UTC
# Line 1  Line 1 
1  use strict;  use strict;
2    use utf8;
3    
4  my $data_dir_name = q[data/];  my $data_dir_name = q[data/];
5  my $data2_dir_name = q[data2/];  my $data2_dir_name = q[data2/];
# Line 56  sub write_data_file ($$) { Line 57  sub write_data_file ($$) {
57    
58    require Data::Dumper;    require Data::Dumper;
59    local $Data::Dumper::Sortkeys = 1;    local $Data::Dumper::Sortkeys = 1;
60      local $Data::Dumper::Useqq = 1;
61      local *Data::Dumper::qquote = sub {
62        my $s = shift;
63        $s =~ s/([\x24\x27\x40\x5C])/sprintf '\x%02X', ord $1/ge;
64        return q<qq'> . $s . q<'>;
65      }; # Data::Dumper::qquote
66      
67    my $had_file = -f $file_name;    my $had_file = -f $file_name;
68    open my $file, '>:encoding(utf8)', $file_name or die "$0: $file_name: $!";    open my $file, '>:encoding(utf8)', $file_name or die "$0: $file_name: $!";
69      print $file "use utf8;\n";
70    print $file Data::Dumper::Dumper ($data);    print $file Data::Dumper::Dumper ($data);
71    close $file;    close $file;
72    unless ($had_file) {    unless ($had_file) {
# Line 226  sub get_modified_hashes () { Line 234  sub get_modified_hashes () {
234    return map {tr/\x0D\x0A//d; $_} <$file>;    return map {tr/\x0D\x0A//d; $_} <$file>;
235  } # get_modified_hashes  } # get_modified_hashes
236    
237    sub normalize_width ($) {
238      my $s = shift;
239      $s =~ tr{\x{3000}\x{FF01}-\x{FF5E}\x{FF61}-\x{FF9F}\x{FFE0}-\x{FFE6}}
240              { !-~。「」、・ヲァィゥェォャュョッーアイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモヤユヨラリルレロワン\x{3099}\x{309A}\xA2\xA3\xAC\xAF\xA6\xA5\x{20A9}};
241      return $s;
242    } # normalize_width
243    
244  sub htescape ($) {  sub htescape ($) {
245    my $s = shift;    my $s = shift;
246    $s =~ s/&/&amp;/g;    $s =~ s/&/&amp;/g;
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.19
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24