From cbf68b47f3506dc4a11d8e8476142e3f091a9580 Mon Sep 17 00:00:00 2001 From: Diego Pino Garcia Date: Sat, 7 Nov 2009 19:14:13 +0100 Subject: [PATCH] ItEr33S13ArquitecturaServidorItEr32S16: Add --java option to gettext script for parsing annotations messages using hibernate validator. Moved the script from navalplanner-webapp/script to scripts/ directory. --- .../src/scripts/gettext_zul.pl | 271 ------------------ scripts/gettext-keys-generator.pl | 0 2 files changed, 271 deletions(-) delete mode 100755 navalplanner-webapp/src/scripts/gettext_zul.pl create mode 100755 scripts/gettext-keys-generator.pl diff --git a/navalplanner-webapp/src/scripts/gettext_zul.pl b/navalplanner-webapp/src/scripts/gettext_zul.pl deleted file mode 100755 index 06162ae09..000000000 --- a/navalplanner-webapp/src/scripts/gettext_zul.pl +++ /dev/null @@ -1,271 +0,0 @@ -#!/usr/bin/perl - -# Copyright (C) 2009 Diego Pino García -# -# This program 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 program 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 program; if not, write to the Free Software -# Foundation, Inc., 51 Franklin Street, Fifth Floor, -# Boston, MA 02110-1301, USA. - -# Parses ZUL files for REG_EXPS and adds ENTRIES to a keys.pot file -# (respecting keys.pot format) -# -# If keys.pot exists, appends new elements to it -# -# If a msgid exists inside keys.pot file, updates its list of files -# pointing to that entry -# -# Options: -# --keys, -k point to an existing keys.pot file, creates a new one otherwise -# --dir, -d path to root file containing ZUL files, gets everything under - -use File::Spec; -use Getopt::Long qw(:config gnu_getopt no_ignore_case); -use Date::Format; - -my $DEBUG = 1; -my $TOKEN = 'i18n:_'; -my @REG_EXPS = qw(i18n:_{1,2}\\('(.*?)'.*?\\) \$OPTS{'DIR'}, - 'help|h!' => \$OPTS{'HELP'}, - 'keys|k=s' => \$OPTS{'KEYS'}); - -if ($OPTS{'HELP'} || !$OPTS{'DIR'}) { - &help(); -} - -if (!$OPTS{'KEYS'}) { - $OPTS{'KEYS'} = $DEFAULT_KEYS_FILE; -} - -# keys.pot file exists -if (-s $OPTS{'KEYS'} != 0) { - &parse_KEYS($OPTS{'KEYS'}); - $header = &get_keys_header($OPTS{'KEYS'}); - &create_keys_file($OPTS{'KEYS'}, $header) || die("Could not create file: $OPTS{'KEYS'}"); -} else { - &create_keys_file($OPTS{'KEYS'}) || die("Could not create file: $OPTS{'KEYS'}"); -} - -# Find all .zul files from dir -@filenames = split "\n", `find $OPTS{'DIR'} -name "*.zul" | grep -v target`; -# Parse all files and store parsed elements into %ENTRIES -map {&parse_ZUL($_)} @filenames; -&debug("Total entries: ".scalar keys %ENTRIES); - -# Open keys.pot file to append -open FILE, ">>$OPTS{'KEYS'}" || die("Could not open file: $OPTS{'KEYS'}"); -# Print ENTRIES to file -foreach $msgid (keys %ENTRIES) { - foreach $filename (@{$ENTRIES{$msgid}}) { - print FILE "\#: $filename\n"; - } - print FILE "msgid $msgid\n"; - print FILE "msgstr \"\"\n\n"; -} - -close FILE; - -########################################################## - -sub create_keys_file() -{ - my ($filename, $header) = @_; - - if ($filename eq "") { -# &debug("filename: $filename"); - $filename = $DEFAULT_KEYS_FILE; - } - if ($header eq "") { -# &debug("header: $header"); - $header = &get_default_keys_header(); - } - - open FILE, ">$filename"; - print FILE $header; - close FILE; -} - -sub get_default_keys_header() -{ - $creation_date = time2str("%Y-%m-%d %H:%M %z", time); - - # Create file - open FOUT, ">$OPTS{'KEYS'}"; -print FOUT qq#\# SOME DESCRIPTIVE TITLE. -\# Copyright (C) YEAR THE PACKAGE'S COPYRIGHT HOLDER -\# This file is distributed under the same license as the PACKAGE package. -\# FIRST AUTHOR , YEAR. -\# -\#, fuzzy -msgid "" -msgstr "" -"Project-Id-Version: PACKAGE VERSION\\n" -"Report-Msgid-Bugs-To: \\n" -"POT-Creation-Date: $creation_date\\n" -"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\\n" -"Last-Translator: FULL NAME \\n" -"Language-Team: LANGUAGE \\n" -"MIME-Version: 1.0\\n" -"Content-Type: text/plain; charset=CHARSET\\n" -"Content-Transfer-Encoding: 8bit\\n" -\n#; -} - -## -# Gets a keys.pot header from keys.pot file -# -# A keys.pot header happens at the beggining of the keys.pot file till the first occurrence -# of an entry (marked by the symbol #: -# -sub get_keys_header() -{ - my ($filename) = @_; - - open FILE, $filename; - while ( ($line = ) && !($line =~ /^#:\s+/) ) { - $header .= $line; - } - close FILE; - - return $header; -} - -## -# Parse a key.pot file. A keys.pot file has the following structure -# -# (#: filename:line)+ -# msgid "_msgid_" -# -sub parse_KEYS() -{ - my ($keys_filename) = @_; - my @filenames = (); - my $key = ""; - - open FILE, $keys_filename; - while () { - chomp; - if (/^#:\s+(.*)/) { -# &debug("filenames: ".$1); - push @filenames, $1; - } - if (/^msgid "(.*?)"$/) { -# &debug("msgid: $1"); - $key = "\"$1\""; - } - if (/^"(.*?)"$/) { - $key .= "\n"."\"$1\""; - } - if (/^msgstr/) { - &debug("msgid: $key"); - $ENTRIES{$key} = [@filenames]; - @filenames = (); - } - } - close FILE; -} - -## -# Parses ZUL file and stores elements successfully parsed into ENTRIES array -# -# %ENTRIES is an associative array storing: -# -# key, msgid (Message identifier, must be unique in a keys.pot file) -# value, array of filenames that references that entry -# -# Every element in array of filenames, is an entry of the following format: -# absolute_path_of_file:line_number -# -# @param filename ZUL file to parse -# -sub parse_ZUL() -{ - my($filename) = @_; - $filename = File::Spec->rel2abs(&trim($filename)); - - open FILE, $filename; - @lines = ; - close FILE; - - my $line = 1; - foreach $line (@lines) { - $line = &trim($line); - foreach $regexp (@REG_EXPS) { - ($msgid) = $line =~ /$regexp/; - - if ($msgid ne "") { - $msgid = "\"$msgid\""; - &addEntry($msgid, $filename.":".$line); - } - } - $line++; - } -} - -sub addEntry() -{ - my($msgid, $filename) = @_; - - if (!$ENTRIES{$msgid}) { - # Create new array with element filename - $ENTRIES{$msgid} = [($filename)]; - } else { - if (!&in_array($filename, @{$ENTRIES{$msgid}})) { - # Append filename to array of filenames in that entry - $ENTRIES{$msgid} = [(@{$ENTRIES{$msgid}}, $filename)]; - } - } -} - -sub in_array() -{ - my ($needle, @haystack) = @_; - - foreach (@haystack) { - if ($_ eq $needle) { - return 1; - } - } - return 0; -} - -sub debug() -{ - my($string) = @_; - - if ($DEBUG) { - print $string."\n"; - } -} - -sub trim($) -{ - my $string = shift; - $string =~ s/^\s+//; - $string =~ s/\s+$//; - return $string; -} - -sub help() -{ - print "Parses ZUL files searching for gettext ENTRIES and append to keys.pot file\n"; - print "\t--dir, -d\tMANDATORY\tBase directory\n"; - print "\t--keys, -k\tOPTIONAL\tPath to keys.pot file\n"; - print "\t--help, -h\tOPTIONAL\tShow this help\n"; - - exit(); -} diff --git a/scripts/gettext-keys-generator.pl b/scripts/gettext-keys-generator.pl new file mode 100755 index 000000000..e69de29bb