From 88afa58a5b1f01cbefd89795c4dab371fb31f9c3 Mon Sep 17 00:00:00 2001
From: nobody <nobody@localhost>
Date: Sat, 19 May 2001 12:49:14 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'GAL_0_8'.

svn path=/tags/GAL_0_8/; revision=9892
---
 doc/update_translation.pl | 240 ----------------------------------------------
 1 file changed, 240 deletions(-)
 delete mode 100755 doc/update_translation.pl

(limited to 'doc/update_translation.pl')

diff --git a/doc/update_translation.pl b/doc/update_translation.pl
deleted file mode 100755
index 0023b069d1..0000000000
--- a/doc/update_translation.pl
+++ /dev/null
@@ -1,240 +0,0 @@
-#!/usr/bin/perl -w 
-#
-#  Script that translates .sgml files using the .po files generated from
-#  the script update_po.pl
-#
-#  Copyright (C) 2001 Héctor García Álvarez.
-#
-#  This library is free software; you can redistribute it and/or
-#  modify it under the terms of the GNU General Public License as
-#  published by the Free Software Foundation; either version 2 of the
-#  License, or (at your option) any later version.
-#
-#  This script is distributed in the hope that it will be useful,
-#  but WITHOUT ANY WARRANTY; without even the implied warranty of
-#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-#  General Public License for more details.
-#
-#  You should have received a copy of the GNU General Public License
-#  along with this library; if not, write to the Free Software
-#  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#
-#
-#  Authors: Héctor García Álvarez <hector@scouts-es.org>
-
-## Loaded modules
-use File::Basename;
-use Getopt::Long;
-
-my $LANG = $ARGV[0];
-
-my %string;
-my $texto_original="";
-my $texto_traducido="";
-
-if (! $LANG){
-    print "Usage: update_translation.pl LANGCODE\n";
-    exit;
-}
-
-chdir ("./C");
-
-## Reading the po file
-#print "Loading ".$LANG.".po\n";
-#&load_translated_strings ($LANG.".po");
-
-## Checking for the lang dir
-if ( !(-d "../".$LANG) ) { mkdir ("../".$LANG, 0755) ; }
-
-open FILES, "<POTFILES.in" ;
-while (<FILES>) {
-	undef %string;
-	s/\n//g;
-	$Original_file = $_ ;
-	s/.\///g;
-	$Translated_file = "../".$LANG."/".$_;
-#	print $Original_file."\n";
-#	print $Translated_file."\n";
-	&load_translated_strings ("../".$LANG.".po/".$_.".po");
-	print "Translating ".$Original_file ;
-	system "rm -f $Translated_file";
-	&translate_file ($Translated_file , $Original_file);
-	print ".\n";
-}
-close FILES;							    
-
-exit 0;
-
-
-
-
-sub load_translated_strings () 
-{
-	my $FILE=$_[0];
-	open (IN, "<$FILE") || die "I can't find $FILE";
-
-	while (<IN>) {
-	        if ( /#: /) {
-			&original;
-			&traduccion;
-#               print "Original \n##".$texto_original."##\n";
-#               print "Traducción \n##".$texto_traducido."##\n";
-	                $string{$texto_original} = $texto_traducido;
-		}
-	}
-	close (IN);
-}
-
-sub translate_file ()
-{
-	my $OUTFILE=$_[0];
-	my $INFILE=$_[1];
-	
-	open OUT, ">>$OUTFILE";
-	open (IN, "<$INFILE") || die "can't open $INFILE: $!";
-
-	while (<IN>) {
-		my $imprimir = 0;
-		if ( /<!--/ ) {
-			$Salida =  $_ ;
-			if ( !(/-->/) ) {
-				while (<IN>) {
-					$Salida .=  $_ ;
-					if ( /-->/ ) { last ; }
-				}
-			}
-			$imprimir = 1;
-		}
-		elsif ( /<para>/ ) {
-			my $number_of_para = 1;
-			$Salida = $_ ;
-			if ( !(/<\/para>/) ) {
-				while (<IN>) {
-					if ( /<para>/ ) { $number_of_para++; }
-					$Salida .=  $_ ;
-					if ( /<\/para>/ ) {
-						$number_of_para--;
-						if ( $number_of_para==0) {last ; }
-					}
-				}
-			}
-			$imprimir = 1;
-		}
-		elsif ( /<title>/ ) {
-			$Salida = $_ ;
-			if ( !(/<\/title>/) ) {
-				while (<IN>) {
-					$Salida .=  $_ ;
-					if ( /<\/title>/ ) { last ; }
-				}
-			}
-			$imprimir = 1;
-		}
-		elsif ( /<glossterm>/ ) {
-			$Salida = $_ ;
-			if ( !(/<\/glossterm>/) ) {
-				while (<IN>) {
-					$Salida .=  $_ ;
-					if ( /<\/glossterm>/ ) { last ; }
-				}
-			}
-			$imprimir = 1;
-		}
-		elsif ( /<guilabel>/ ) {
-			$Salida = $_ ;
-			if ( !(/<\/guilabel>/) ) {
-				while (<IN>) {
-					$Salida .=  $_ ;
-					if ( /<\/guilabel>/ ) { last ; }
-				}
-			}
-			$imprimir = 1;
-		}
-	        if ( $imprimir == 0 ) {  print (OUT $_); }
-		else { 
-			my $impreso=0;
-			foreach my $theMessage (sort keys %string) {
-				if (!($theMessage cmp $Salida)) {
-					my $tag = $string{$Salida} ;
-					
-					if ( $tag cmp "") {
-						$tag =~ s/\\"/"/mg ;
-						print (OUT $tag);
-					}
-					else {
-						print (OUT $Salida);
-					}
-					$impreso=1;
-				}
-			}
-			if ( $impreso == 0) {
-				print "No lo encuentro\n##".$Salida."##\n";
-				$impreso=0;
-			} 
-			$imprimir = 0;
-		}
-	}
-	close IN;
-	close OUT;
-}
-#exit 0;
-
-sub original () 
-{
-	my $tmp = "";
-	while (<IN>) {
-		if ( !(/^#: /) ) {
-			if ( /msgid ""/) { s/msgid ""\n//; }
-			if ( /msgstr/) {
-				$tmp =~ s/\\n/\n/sg ;
-				$tmp =~ s/\\t/\t/sg ;
-				$tmp =~ s/\\"/"/sg ;
-				$texto_original = $tmp;
-				last ;
-			}
-			s/msgid "//;
-			s/\s*"// ;
-			s/"\n// ;
-			s/\n// ;
-			$tmp .=  $_;
-		}
-	}
-}
-		
-sub traduccion ()
-{
-        my $tmp = "";
-	my $first = 0;
-	if ( /msgstr "/) {
-		if ( /msgstr ""/) {
-			$tmp = "";
-			$first = 1;
-		} else {
-			$tmp = $_;
-			$tmp =~ s/msgstr "//;
-			$tmp =~ s/"\n// ;
-		}
-	}
-	while (<IN>) {
-	
-		if ( !($_ cmp "\n") )  {
-			$tmp =~ s/\\n/\n/sg ;
-			$tmp =~ s/\\t/\t/sg ;
-			$tmp =~ s/\"/"/sg ;
-			if ( $first == 1 ) { $texto_traducido = "" ; }
-			else { $texto_traducido = $tmp; }
-			last ;
-		}
-		$first = 0;
-		s/msgstr "//;
-		s/"\n// ;
-		s/\s*"// ;
-		$tmp .=  $_;	
-	}
-	if ( eof IN ) {
-		$tmp =~ s/\\n/\n/sg ;
-		$tmp =~ s/\\t/\t/sg ;
-		$tmp =~ s/\"/"/sg ;
-		$texto_traducido = $tmp; 
-	}
-}
-- 
cgit v1.2.3