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

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

Parent Directory | Revision Log | View Patch Patch

-revision 1.10 by wakaba,
Sun Oct 26 07:08:12 2008 UTC
+revision 1.11 by wakaba,
Sun Oct 26 08:44:19 2008 UTC
 Line 6 
 my $data2_dir_name = q[data2/];
  my $data2_suffix = q[.dat];
  my $lock_suffix = q[.lock];
  my $fallback_file_name = $data2_dir_name . 'fallback' . $data2_suffix;
+ my $patch_file_name = $data2_dir_name . 'modified.txt';
  our $UseCVS //= 1;
-Line 97 
 sub hash_to_file_name ($) {
+Line 98 
 sub hash_to_file_name ($) {
  } # hash_to_file_name
  my $Entry = {};
+ my $ModifiedHash = {};
  sub get_entry ($) {
    my $hash = shift;
-Line 134 
 sub set_entry ($$$) {
+Line 136 
 sub set_entry ($$$) {
      delete $Entry->{$file_name}->{pattern}->{$hash};
    }
    $Entry->{$file_name}->{modified} = 1;
+   $ModifiedHash->{$hash} = 1;
  } # set_entry
  use Fcntl ':flock';
-Line 153 
 sub lock_entry ($) {
+Line 156 
 sub lock_entry ($) {
  sub commit_entries ($) {
    for my $file_name (keys %{$Entry}) {
      if ($Entry->{$file_name}->{modified}) {
+       delete $Entry->{$file_name}->{modified};
        write_data_file ($file_name => $Entry->{$file_name});
      }
    }
+   open my $file, '>>', $patch_file_name or die "$0: $patch_file_name: $!";
+   for (keys %$ModifiedHash) {
+     print $file "$_\n";
+   }
+   close $file;
    my $msg = shift // $0;
    system_ ('cvs', 'commit', -m => $msg, $data2_dir_name) if $UseCVS;
  } # commit_entries
-Line 183 
 sub get_fallback_entry ($) {
+Line 193 
 sub get_fallback_entry ($) {
    return $FallbackEntry->{$hash} // {};
  } # get_fallback_entry
+ sub get_entry_or_fallback_entry ($) {
+   my $hash = shift;
+   my ($is_pattern, $entry) = get_entry ($hash);
+   unless (defined $entry->{en}) {
+     $entry = get_fallback_entry ($hash);
+   }
+   $entry->{tags} ||= [] if defined $entry->{en};
+   $entry->{isPattern} = 1 if $is_pattern;
+   return $entry;
+ } # get_entry_or_fallback_entry
  sub set_fallback_entry ($$) {
    my ($hash, $value) = @_;
    unless (defined $FallbackEntry) {
-Line 200 
 sub save_fallback_entries () {
+Line 223 
 sub save_fallback_entries () {
        if defined $FallbackEntry;
  } # save_fallback_entries
+ sub get_modified_hashes () {
+   open my $file, '<', $patch_file_name or die "$0: $patch_file_name: $!";
+   return map {tr/\x0D\x0A//d; $_} <$file>;
+ } # get_modified_hashes
+ sub clear_modified_hashes () {
+   open my $file, '>', $patch_file_name;
+   close $file;
+ } # clear_modified_hashes
  sub htescape ($) {
    my $s = shift;
    $s =~ s/&/&amp;/g;

 Legend:



Removed from v.1.10
 


changed lines


 
Added in v.1.11
 Legend:



Removed from v.1.10
 


changed lines


 
Added in v.1.11
-Removed from v.1.10
+Added in v.1.11

[email protected]	ViewVC Help
Powered by ViewVC 1.1.24