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

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

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

revision 1.1 by wakaba, Tue Jun 24 14:15:43 2008 UTC revision 1.6 by wakaba, Thu Jul 10 06:13:27 2008 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2  use strict;  use strict;
3    
4  my $source_file_name = q[.spec.en.html];  my $source_file_name = shift;
5  my $data_dir_name = q[data/];  my $data_dir_name = q[data/];
6  my $data_suffix = q[.dat];  my $data_suffix = q[.dat];
7  my $result_file_name = q[non-normative.ja.html.u8];  my $result_file_name = shift;
8    
9  sub normalize ($) {  sub normalize ($) {
10    my $s = shift;    my $s = shift;
# Line 16  sub normalize ($) { Line 16  sub normalize ($) {
16    
17  sub create_pattern1 ($) {  sub create_pattern1 ($) {
18    my $s = quotemeta shift;    my $s = quotemeta shift;
19    $s =~ s/\\\*/([^.]+)/g;    $s =~ s/\\\*/(.+)/g;
20    return $s;    return $s;
21  } # create_pattern1  } # create_pattern1
22    
# Line 49  my %pattern; Line 49  my %pattern;
49      }      }
50    }    }
51  }  }
52    my @pattern = sort {length $b <=> length $a} keys %pattern;
53    
54  my $source_text;  my $source_text;
55  {  {
# Line 69  $source_text =~ s{(<(?>p(?>re)?|li|d[td] Line 70  $source_text =~ s{(<(?>p(?>re)?|li|d[td]
70      $tag . q[<span class=ja-translation lang=ja>] . $ja_text . q[</span>];      $tag . q[<span class=ja-translation lang=ja>] . $ja_text . q[</span>];
71    } else {    } else {
72      my $v = $tag . $text;      my $v = $tag . $text;
73      for my $pattern (keys %pattern) {      for my $pattern (@pattern) {
74        if ($n_text =~ /^$pattern$/) {        if ($n_text =~ /^$pattern$/) {
75          $v = $tag . q[<span class=ja-translation lang=ja>] .          $v = $tag . q[<span class=ja-translation lang=ja>] .
76              replace_pattern2 ($pattern{$pattern}, $1, $2, $3, $4, $5) .              replace_pattern2 ($pattern{$pattern}, $1, $2, $3, $4, $5) .
77              q[</span>];              q[</span>];
78            last;
79        }        }
80      }      }
81      $v;      $v;
# Line 90  $source_text =~ s{(<(?>link|img|script)\ Line 92  $source_text =~ s{(<(?>link|img|script)\
92    }    }
93  }ges;  }ges;
94    
95  $source_text =~ s{\[\[([A-Z]+):([^]]+)\]\]}  $source_text =~ s{\[\[([A-Z ]+):([^]]+)\]\]}
96  {<em class=rfc2119 title="$1">$2</em>}gs;  {<em class=rfc2119 title="$1">$2</em>}gs;
97    
98  #$source_text =~ s[<title>][<base href="http://www.whatwg.org/specs/web-apps/current-work/"><title>];  #$source_text =~ s[<title>][<base href="http://www.whatwg.org/specs/web-apps/current-work/"><title>];
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24