Changeset 11321

Timestamp:

2006-03-09T15:07:34+13:00 (18 years ago)

Author:

mdewsnip

Message:

Added support for the XML files used for the tutorial exercises.

File:

• trunk/gsdl/bin/script/gti.pl (modified) (12 diffs)

trunk/gsdl/bin/script/gti.pl

@@ -948 +948 @@
 {
     my $source_file = shift(@_);  # Not used
-    my $source_file_lines = shift(@_);
+    my @source_file_lines = @{shift(@_)};
     my $source_file_key_to_text_mapping = shift(@_);
     my $target_file = shift(@_);
-    my $target_file_lines = shift(@_);  # Not used
+    my @target_file_lines = @{shift(@_)};
     my $target_file_key_to_text_mapping = shift(@_);
     my $target_file_key_to_comment_date_mapping = shift(@_);
@@ -957 +957 @@
 
     # Build a mapping from source file line to chunk key
-    my %source_file_key_to_line_mapping = &build_key_to_line_mapping_for_macrofile(@$source_file_lines);
+    my %source_file_key_to_line_mapping = &build_key_to_line_mapping_for_macrofile(@source_file_lines);
     my %source_file_line_to_key_mapping = ();
     foreach my $chunk_key (keys(%source_file_key_to_line_mapping)) {
@@ -966 +966 @@
 
     # Build a mapping from target file line to chunk key
-    my %target_file_key_to_line_mapping = &build_key_to_line_mapping_for_macrofile(@$target_file_lines);
+    my %target_file_key_to_line_mapping = &build_key_to_line_mapping_for_macrofile(@target_file_lines);
     my %target_file_line_to_key_mapping = ();
     foreach my $chunk_key (keys(%target_file_key_to_line_mapping)) {
@@ -984 +984 @@
     my $target_file_chunk_starting_line_number = (split(/-/, $target_file_line_keys[0]))[0];
     while ($target_file_line_number < $target_file_chunk_starting_line_number) {
-        my $target_file_line = @$target_file_lines[$target_file_line_number];
+        my $target_file_line = $target_file_lines[$target_file_line_number];
         last if ($target_file_line =~ /^\# -- Missing translation: /);  # We don't want to get into the macros
         print TARGET_FILE $target_file_line;
@@ -999 +999 @@
     my $source_file_chunk_finishing_line_number = (split(/-/, $line_key))[1];
     while ($source_file_line_number < $source_file_chunk_starting_line_number) {
-        print TARGET_FILE @$source_file_lines[$source_file_line_number];
+        print TARGET_FILE $source_file_lines[$source_file_line_number];
         $source_file_line_number++;
     }
@@ -1018 +1018 @@
 
     # Grab the source chunk text
-    my $source_file_chunk = @$source_file_lines[$source_file_chunk_starting_line_number];
+    my $source_file_chunk = $source_file_lines[$source_file_chunk_starting_line_number];
     for (my $l = ($source_file_chunk_starting_line_number + 1); $l <= $source_file_chunk_finishing_line_number; $l++) {
-        $source_file_chunk .= @$source_file_lines[$l];
+        $source_file_chunk .= $source_file_lines[$l];
     }
 
@@ -1065 +1065 @@
     my (@file_lines) = @_;
 
-    my %key_to_line_mapping = ();
+    my %chunk_key_to_line_mapping = ();
     for (my $i = 0; $i < scalar(@file_lines); $i++) {
     my $line = $file_lines[$i];
@@ -1075 +1075 @@
 
         # Map from chunk key to line
-        $key_to_line_mapping{$chunk_key} = $i . "-" . $i;
-    }
-    }
-
-    return %key_to_line_mapping;
+        $chunk_key_to_line_mapping{$chunk_key} = $i . "-" . $i;
+    }
+    }
+
+    return %chunk_key_to_line_mapping;
 }
 
@@ -1119 +1119 @@
 {
     my $source_file = shift(@_);  # Not used
-    my $source_file_lines = shift(@_);
+    my @source_file_lines = @{shift(@_)};
     my $source_file_key_to_text_mapping = shift(@_);
     my $target_file = shift(@_);
-    my $target_file_lines = shift(@_);  # Not used
+    my @target_file_lines = @{shift(@_)};  # Not used
     my $target_file_key_to_text_mapping = shift(@_);
     my $target_file_key_to_comment_date_mapping = shift(@_);
@@ -1128 +1128 @@
 
     # Build a mapping from chunk key to source file line, and from source file line to chunk key
-    my %source_file_key_to_line_mapping = &build_key_to_line_mapping_for_resource_bundle(@$source_file_lines);
+    my %source_file_key_to_line_mapping = &build_key_to_line_mapping_for_resource_bundle(@source_file_lines);
     my %source_file_line_to_key_mapping = ();
     foreach my $chunk_key (keys(%source_file_key_to_line_mapping)) {
@@ -1147 +1147 @@
     my $source_file_chunk_finishing_line_number = (split(/-/, $line_key))[1];
     while ($source_file_line_number < $source_file_chunk_starting_line_number) {
-        print TARGET_FILE @$source_file_lines[$source_file_line_number];
+        print TARGET_FILE $source_file_lines[$source_file_line_number];
         $source_file_line_number++;
     }
@@ -1173 +1173 @@
 
 
+# ==========================================================================================
+#   GREENSTONE XML FUNCTIONS
+
+sub build_key_to_line_mapping_for_greenstone_xml
+{
+    my (@file_lines) = @_;
+
+    my %chunk_key_to_line_mapping = ();
+    for (my $i = 0; $i < scalar(@file_lines); $i++) {
+    my $line = $file_lines[$i];
+    $line =~ s/(\s*)$//;  # Remove any nasty whitespace, carriage returns etc.
+
+    # Line contains a string to translate
+    if ($line =~ /^\s*<Text id=\"(.*?)\">/) {
+        my $chunk_key = $1;
+        $line =~ s/\s*([^\\]\#[^\}]+)?$//;  # Remove any comments and nasty whitespace
+
+        # While there is still text of the string to go...
+        my $startline = $i;
+        while ($line !~ /<\/Text>$/) {
+        $i++;
+        if ($i == scalar(@file_lines)) {
+            &throw_fatal_error("Could not find end of string $chunk_key.");
+        }
+        $line = $file_lines[$i];
+        $line =~ s/\s*([^\\]\#[^\}]+)?$//;  # Remove any comments and nasty whitespace
+        }
+
+        # Map from chunk key to line
+        $chunk_key_to_line_mapping{$chunk_key} = $startline . "-" . $i;
+    }
+    }
+
+    return %chunk_key_to_line_mapping;
+}
+
+
+sub import_chunk_from_greenstone_xml
+{
+    my ($chunk_text) = @_;
+
+    # Simple: just remove the Text tags
+    $chunk_text =~ s/^\s*<Text .*id=\"(.*?)\".*?>(\s*)//;
+    $chunk_text =~ s/<\/Text>$//;
+
+    return $chunk_text;
+}
+
+
+sub get_greenstone_xml_chunk_comment_date
+{
+    my ($chunk_text) = @_;
+
+    # Check for an "Updated DD-MMM-YYYY" comment at the end of the chunk
+    # !! TO DO
+
+    return undef;
+}
+
+
+sub is_greenstone_xml_chunk_automatically_translated
+{
+    # No greenstone XML chunks are automatically translated
+    return 0;
+}
+
+
+sub write_translated_greenstone_xml
+{
+    my $source_file = shift(@_);  # Not used
+    my @source_file_lines = @{shift(@_)};
+    my $source_file_key_to_text_mapping = shift(@_);
+    my $target_file = shift(@_);
+    my @target_file_lines = @{shift(@_)};  # Not used
+    my $target_file_key_to_text_mapping = shift(@_);
+    my $target_file_key_to_comment_date_mapping = shift(@_);
+    my $target_language_code = shift(@_);  # Not used
+
+    # Build a mapping from chunk key to source file line, and from source file line to chunk key
+    my %source_file_key_to_line_mapping = &build_key_to_line_mapping_for_greenstone_xml(@source_file_lines);
+    my %source_file_line_to_key_mapping = ();
+    foreach my $chunk_key (keys(%source_file_key_to_line_mapping)) {
+    $source_file_line_to_key_mapping{$source_file_key_to_line_mapping{$chunk_key}} = $chunk_key;
+    }
+
+    # Write the new target file
+    my $target_file_path = &util::filename_cat($gsdl_root_directory, $target_file);
+    if (!open(TARGET_FILE, ">$target_file_path")) {
+    &throw_fatal_error("Could not write target file $target_file_path.");
+    }
+
+    # Model the new target file on the source file, with the target file translations
+    my $source_file_line_number = 0;
+    foreach my $line_key (sort sort_by_line (keys(%source_file_line_to_key_mapping))) {
+    # Fill in the gaps before this chunk starts
+    my $source_file_chunk_starting_line_number = (split(/-/, $line_key))[0];
+    my $source_file_chunk_finishing_line_number = (split(/-/, $line_key))[1];
+    while ($source_file_line_number < $source_file_chunk_starting_line_number) {
+        print TARGET_FILE $source_file_lines[$source_file_line_number];
+        $source_file_line_number++;
+    }
+    $source_file_line_number = $source_file_chunk_finishing_line_number + 1;
+
+    my $chunk_key = $source_file_line_to_key_mapping{$line_key};
+    my $source_file_chunk_text = $source_file_key_to_text_mapping->{$chunk_key};
+    my $target_file_chunk_text = $target_file_key_to_text_mapping->{$chunk_key} || "";
+
+    # If no translation exists for this chunk, show this, and move on
+    if ($source_file_chunk_text ne "" && $target_file_chunk_text eq "") {
+        print TARGET_FILE "<!-- Missing translation: $chunk_key -->\n";
+        next;
+    }
+
+    print TARGET_FILE "<Text id=\"$chunk_key\">$target_file_chunk_text</Text>";
+    if ($target_file_key_to_comment_date_mapping->{$chunk_key}) {
+        # print TARGET_FILE "  # Updated " . $target_file_key_to_comment_date_mapping->{$chunk_key};
+    }
+    print TARGET_FILE "\n";
+    }
+
+    # Fill in the end of the file
+    while ($source_file_line_number < scalar(@source_file_lines)) {
+    print TARGET_FILE $source_file_lines[$source_file_line_number];
+    $source_file_line_number++;
+    }
+
+    close(TARGET_FILE);
+}
+
+
 &main(@ARGV);