/[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.12 by wakaba, Tue Jul 29 15:12:02 2008 UTC revision 1.13 by wakaba, Sun Aug 10 04:16:33 2008 UTC
# Line 6  BEGIN { require 'common.pl' } Line 6  BEGIN { require 'common.pl' }
6  my $source_file_name = shift;  my $source_file_name = shift;
7  my $result_file_name = shift;  my $result_file_name = shift;
8  my $status_file_name = shift;  my $status_file_name = shift;
9    my $tbt_file_name = shift;
10    
11  my %data;  my %data;
12  my %pattern;  my %pattern;
# Line 25  my $source_text; Line 26  my $source_text;
26    $source_text = <$source_file>;    $source_text = <$source_file>;
27  }  }
28    
29    open my $tbt_file, '>:utf8', $tbt_file_name or die "$0: $tbt_file_name: $!";
30    
31  my $status = {};  my $status = {};
32    
33  warn "Generating...\n";  warn "Generating...\n";
# Line 43  $source_text =~ s{(<(?>p(?>re)?|li|d[td] Line 46  $source_text =~ s{(<(?>p(?>re)?|li|d[td]
46        $tag . q[<span class=ja-translation lang=ja>] . $ja_text . q[</span>];        $tag . q[<span class=ja-translation lang=ja>] . $ja_text . q[</span>];
47      } else {      } else {
48        my $v = $tag . $text;        my $v = $tag . $text;
49          my $has_ja;
50        for my $pattern (@pattern) {        for my $pattern (@pattern) {
51          if ($n_text =~ /^$pattern$/) {          if ($n_text =~ /^$pattern$/) {
52            $status->{ja}++;            $status->{ja}++;
53            $v = $tag . q[<span class=ja-translation lang=ja>] .            $v = $tag . q[<span class=ja-translation lang=ja>] .
54                replace_pattern2 ($pattern{$pattern}, $1, $2, $3, $4, $5) .                replace_pattern2 ($pattern{$pattern}, $1, $2, $3, $4, $5) .
55                q[</span>];                q[</span>];
56              $has_ja = 1;
57            last;            last;
58          }          }
59        }        }
60    
61          unless ($has_ja) {
62            $text =~ s/^\s+//;
63            $text =~ s/\s+\z//;
64            $text =~ s/\x0D?\x0A(?:\x0D?\x0A)+/\n/g;
65            print $tbt_file $text;
66            print $tbt_file "\n\n";
67          }
68    
69        $v;        $v;
70      }      }
71    } else {    } else {
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24