diff options
Diffstat (limited to 'gettext-tools/src/x-glade.c')
| -rw-r--r-- | gettext-tools/src/x-glade.c | 613 |
1 files changed, 0 insertions, 613 deletions
diff --git a/gettext-tools/src/x-glade.c b/gettext-tools/src/x-glade.c deleted file mode 100644 index 36b62e5..0000000 --- a/gettext-tools/src/x-glade.c +++ /dev/null @@ -1,613 +0,0 @@ -/* xgettext glade backend. - Copyright (C) 2002-2003, 2005-2009, 2013, 2015 Free Software - Foundation, Inc. - - This file was written by Bruno Haible <haible@clisp.cons.org>, 2002. - - 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 3 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, see <http://www.gnu.org/licenses/>. */ - -#ifdef HAVE_CONFIG_H -# include "config.h" -#endif - -/* Specification. */ -#include "x-glade.h" - -#include <errno.h> -#include <stdbool.h> -#include <stdint.h> -#include <stdio.h> -#include <stdlib.h> -#include <string.h> - -#include "message.h" -#include "xgettext.h" -#include "error.h" -#include "xerror.h" -#include "xvasprintf.h" -#include "basename.h" -#include "progname.h" -#include "xalloc.h" -#include "hash.h" -#include "po-charset.h" -#include "gettext.h" -#include "libexpat-compat.h" - -#define _(s) gettext(s) - - -/* Glade is an XML based format with three variants. The syntax for - each format is defined as follows. - - - Glade 1 - Some example files are contained in libglade-0.16. - - - Glade 2 - See http://library.gnome.org/devel/libglade/unstable/libglade-dtd.html - - - GtkBuilder - See https://developer.gnome.org/gtk3/stable/GtkBuilder.html#BUILDER-UI */ - - -/* ====================== Keyword set customization. ====================== */ - -/* If true extract all strings. */ -static bool extract_all = false; - -/* The keywords correspond to the translatable elements in Glade 1. - For Glade 2 and GtkBuilder, translatable content is determined by - the translatable="..." attribute, thus those keywords are not used. */ -static hash_table keywords; -static bool default_keywords = true; - - -void -x_glade_extract_all () -{ - extract_all = true; -} - - -void -x_glade_keyword (const char *name) -{ - if (name == NULL) - default_keywords = false; - else - { - if (keywords.table == NULL) - hash_init (&keywords, 100); - - hash_insert_entry (&keywords, name, strlen (name), NULL); - } -} - -/* Finish initializing the keywords hash table. - Called after argument processing, before each file is processed. */ -static void -init_keywords () -{ - if (default_keywords) - { - /* When adding new keywords here, also update the documentation in - xgettext.texi! */ - x_glade_keyword ("label"); - x_glade_keyword ("title"); - x_glade_keyword ("text"); - x_glade_keyword ("format"); - x_glade_keyword ("copyright"); - x_glade_keyword ("comments"); - x_glade_keyword ("preview_text"); - x_glade_keyword ("tooltip"); - default_keywords = false; - } -} - - - -/* ============================= XML parsing. ============================= */ - -#if DYNLOAD_LIBEXPAT || HAVE_LIBEXPAT - -/* Accumulator for the extracted messages. */ -static message_list_ty *mlp; - -/* Logical filename, used to label the extracted messages. */ -static char *logical_file_name; - -/* XML parser. */ -static XML_Parser parser; - -struct element_state -{ - bool extract_string; - bool extract_context; /* used by Glade 2 */ - char *extracted_comment; /* used by Glade 2 or GtkBuilder */ - char *extracted_context; /* used by GtkBuilder */ - int lineno; - char *buffer; - size_t bufmax; - size_t buflen; -}; -static struct element_state *stack; -static size_t stack_size; - -/* Ensures stack_size >= size. */ -static void -ensure_stack_size (size_t size) -{ - if (size > stack_size) - { - stack_size = 2 * stack_size; - if (stack_size < size) - stack_size = size; - stack = - (struct element_state *) - xrealloc (stack, stack_size * sizeof (struct element_state)); - } -} - -static size_t stack_depth; - -/* Parser logic for each Glade compatible file format. */ -struct element_parser -{ - void (*start_element) (struct element_state *p, const char *name, - const char **attributes); - void (*end_element) (struct element_state *p, const char *name); -}; -static struct element_parser *element_parser; - -static void -start_element_null (struct element_state *p, const char *name, - const char **attributes) -{ -} - -static void -end_element_null (struct element_state *p, const char *name) -{ -} - -static void -start_element_glade1 (struct element_state *p, const char *name, - const char **attributes) -{ - void *hash_result; - - /* In Glade 1, a few specific elements are translatable without - --extract-all option. */ - p->extract_string = extract_all; - if (!p->extract_string) - p->extract_string = - (hash_find_entry (&keywords, name, strlen (name), &hash_result) == 0); -} - -static void -end_element_glade1 (struct element_state *p, const char *name) -{ - lex_pos_ty pos; - - pos.file_name = logical_file_name; - pos.line_number = p->lineno; - - if (p->buffer != NULL) - { - remember_a_message (mlp, NULL, p->buffer, - null_context, &pos, - p->extracted_comment, savable_comment); - p->buffer = NULL; - } -} - -static void -start_element_glade2 (struct element_state *p, const char *name, - const char **attributes) -{ - /* In Glade 2, all <property> and <atkproperty> elements are translatable - that have the attribute translatable="yes". - See <http://library.gnome.org/devel/libglade/unstable/libglade-dtd.html>. - The translator comment is found in the attribute comments="...". - See <http://live.gnome.org/TranslationProject/DevGuidelines/Use comments>. - If the element has the attribute context="yes", the content of - the element is in the form "msgctxt|msgid". */ - if (strcmp (name, "property") == 0 || strcmp (name, "atkproperty") == 0) - { - bool has_translatable = false; - bool has_context = false; - const char *extracted_comment = NULL; - const char **attp = attributes; - while (*attp != NULL) - { - if (strcmp (attp[0], "translatable") == 0) - has_translatable = (strcmp (attp[1], "yes") == 0); - else if (strcmp (attp[0], "comments") == 0) - extracted_comment = attp[1]; - else if (strcmp (attp[0], "context") == 0) - has_context = (strcmp (attp[1], "yes") == 0); - attp += 2; - } - p->extract_string = has_translatable; - p->extract_context = has_context; - p->extracted_comment = - (has_translatable && extracted_comment != NULL - ? xstrdup (extracted_comment) - : NULL); - } - - /* In Glade 2, the attribute description="..." of <atkaction> - element is also translatable. */ - if (strcmp (name, "atkaction") == 0) - { - const char **attp = attributes; - while (*attp != NULL) - { - if (strcmp (attp[0], "description") == 0) - { - if (strcmp (attp[1], "") != 0) - { - lex_pos_ty pos; - - pos.file_name = logical_file_name; - pos.line_number = XML_GetCurrentLineNumber (parser); - - remember_a_message (mlp, NULL, xstrdup (attp[1]), - null_context, &pos, - NULL, savable_comment); - } - break; - } - attp += 2; - } - } -} - -static void -end_element_glade2 (struct element_state *p, const char *name) -{ - lex_pos_ty pos; - char *msgid = NULL; - char *msgctxt = NULL; - - pos.file_name = logical_file_name; - pos.line_number = p->lineno; - - if (p->extract_context) - { - char *separator = strchr (p->buffer, '|'); - - if (separator == NULL) - { - error_with_progname = false; - error_at_line (0, 0, - pos.file_name, - pos.line_number, - _("\ -Missing context for the string extracted from '%s' element"), - name); - error_with_progname = true; - } - else - { - *separator = '\0'; - msgid = xstrdup (separator + 1); - msgctxt = xstrdup (p->buffer); - } - } - else - { - msgid = p->buffer; - p->buffer = NULL; - } - - if (msgid != NULL) - remember_a_message (mlp, msgctxt, msgid, - null_context, &pos, - p->extracted_comment, savable_comment); -} - -static void -start_element_gtkbuilder (struct element_state *p, const char *name, - const char **attributes) -{ - /* In GtkBuilder (used by Glade 3), all elements are translatable - that have the attribute translatable="yes". - See <https://developer.gnome.org/gtk3/stable/GtkBuilder.html#BUILDER-UI>. - The translator comment is found in the attribute comments="..." - and context is found in the attribute context="...". */ - bool has_translatable = false; - const char *extracted_comment = NULL; - const char *extracted_context = NULL; - const char **attp = attributes; - while (*attp != NULL) - { - if (strcmp (attp[0], "translatable") == 0) - has_translatable = (strcmp (attp[1], "yes") == 0); - else if (strcmp (attp[0], "comments") == 0) - extracted_comment = attp[1]; - else if (strcmp (attp[0], "context") == 0) - extracted_context = attp[1]; - attp += 2; - } - p->extract_string = has_translatable; - p->extracted_comment = - (has_translatable && extracted_comment != NULL - ? xstrdup (extracted_comment) - : NULL); - p->extracted_context = - (has_translatable && extracted_context != NULL - ? xstrdup (extracted_context) - : NULL); -} - -static void -end_element_gtkbuilder (struct element_state *p, const char *name) -{ - lex_pos_ty pos; - - pos.file_name = logical_file_name; - pos.line_number = p->lineno; - - if (p->buffer != NULL) - { - remember_a_message (mlp, p->extracted_context, p->buffer, - null_context, &pos, - p->extracted_comment, savable_comment); - p->buffer = NULL; - p->extracted_context = NULL; - } -} - -static struct element_parser element_parser_null = -{ - start_element_null, - end_element_null -}; - -static struct element_parser element_parser_glade1 = -{ - start_element_glade1, - end_element_glade1 -}; - -static struct element_parser element_parser_glade2 = -{ - start_element_glade2, - end_element_glade2 -}; - -static struct element_parser element_parser_gtkbuilder = -{ - start_element_gtkbuilder, - end_element_gtkbuilder -}; - -/* Callback called when <element> is seen. */ -static void -start_element_handler (void *userData, const char *name, - const char **attributes) -{ - struct element_state *p; - - if (!stack_depth) - { - if (strcmp (name, "GTK-Interface") == 0) - element_parser = &element_parser_glade1; - else if (strcmp (name, "glade-interface") == 0) - element_parser = &element_parser_glade2; - else if (strcmp (name, "interface") == 0) - element_parser = &element_parser_gtkbuilder; - else - { - element_parser = &element_parser_null; - error_with_progname = false; - error_at_line (0, 0, - logical_file_name, - XML_GetCurrentLineNumber (parser), - _("\ -The root element <%s> is not allowed in a valid Glade file"), - name); - error_with_progname = true; - } - } - - /* Increase stack depth. */ - stack_depth++; - ensure_stack_size (stack_depth + 1); - - /* Don't extract a string for the containing element. */ - stack[stack_depth - 1].extract_string = false; - - p = &stack[stack_depth]; - p->extract_string = false; - p->extract_context = false; - p->extracted_comment = NULL; - p->extracted_context = NULL; - - element_parser->start_element (p, name, attributes); - - p->lineno = XML_GetCurrentLineNumber (parser); - p->buffer = NULL; - p->bufmax = 0; - p->buflen = 0; - if (!p->extract_string) - savable_comment_reset (); -} - -/* Callback called when </element> is seen. */ -static void -end_element_handler (void *userData, const char *name) -{ - struct element_state *p = &stack[stack_depth]; - - /* Actually extract string. */ - if (p->extract_string) - { - /* Don't extract the empty string. */ - if (p->buflen > 0) - { - if (p->buflen == p->bufmax) - p->buffer = (char *) xrealloc (p->buffer, p->buflen + 1); - p->buffer[p->buflen] = '\0'; - - element_parser->end_element (p, name); - } - } - - /* Free memory for this stack level. */ - if (p->extracted_comment != NULL) - free (p->extracted_comment); - if (p->extracted_context != NULL) - free (p->extracted_context); - if (p->buffer != NULL) - free (p->buffer); - - /* Decrease stack depth. */ - stack_depth--; - - savable_comment_reset (); -} - -/* Callback called when some text is seen. */ -static void -character_data_handler (void *userData, const char *s, int len) -{ - struct element_state *p = &stack[stack_depth]; - - /* Accumulate character data. */ - if (len > 0) - { - if (p->buflen + len > p->bufmax) - { - p->bufmax = 2 * p->bufmax; - if (p->bufmax < p->buflen + len) - p->bufmax = p->buflen + len; - p->buffer = (char *) xrealloc (p->buffer, p->bufmax); - } - memcpy (p->buffer + p->buflen, s, len); - p->buflen += len; - } -} - -/* Callback called when some comment text is seen. */ -static void -comment_handler (void *userData, const char *data) -{ - /* Split multiline comment into lines, and remove leading and trailing - whitespace. */ - char *copy = xstrdup (data); - char *p; - char *q; - - for (p = copy; (q = strchr (p, '\n')) != NULL; p = q + 1) - { - while (p[0] == ' ' || p[0] == '\t') - p++; - while (q > p && (q[-1] == ' ' || q[-1] == '\t')) - q--; - *q = '\0'; - savable_comment_add (p); - } - q = p + strlen (p); - while (p[0] == ' ' || p[0] == '\t') - p++; - while (q > p && (q[-1] == ' ' || q[-1] == '\t')) - q--; - *q = '\0'; - savable_comment_add (p); - free (copy); -} - - -static void -do_extract_glade (FILE *fp, - const char *real_filename, const char *logical_filename, - msgdomain_list_ty *mdlp) -{ - mlp = mdlp->item[0]->messages; - - /* expat feeds us strings in UTF-8 encoding. */ - xgettext_current_source_encoding = po_charset_utf8; - - logical_file_name = xstrdup (logical_filename); - - init_keywords (); - - parser = XML_ParserCreate (NULL); - if (parser == NULL) - error (EXIT_FAILURE, 0, _("memory exhausted")); - - XML_SetElementHandler (parser, start_element_handler, end_element_handler); - XML_SetCharacterDataHandler (parser, character_data_handler); - XML_SetCommentHandler (parser, comment_handler); - - stack_depth = 0; - element_parser = &element_parser_null; - - while (!feof (fp)) - { - char buf[4096]; - int count = fread (buf, 1, sizeof buf, fp); - - if (count == 0) - { - if (ferror (fp)) - error (EXIT_FAILURE, errno, _("\ -error while reading \"%s\""), real_filename); - /* EOF reached. */ - break; - } - - if (XML_Parse (parser, buf, count, 0) == 0) - error (EXIT_FAILURE, 0, _("%s:%lu:%lu: %s"), logical_filename, - (unsigned long) XML_GetCurrentLineNumber (parser), - (unsigned long) XML_GetCurrentColumnNumber (parser) + 1, - XML_ErrorString (XML_GetErrorCode (parser))); - } - - if (XML_Parse (parser, NULL, 0, 1) == 0) - error (EXIT_FAILURE, 0, _("%s:%lu:%lu: %s"), logical_filename, - (unsigned long) XML_GetCurrentLineNumber (parser), - (unsigned long) XML_GetCurrentColumnNumber (parser) + 1, - XML_ErrorString (XML_GetErrorCode (parser))); - - XML_ParserFree (parser); - - /* Close scanner. */ - logical_file_name = NULL; - parser = NULL; -} - -#endif - -void -extract_glade (FILE *fp, - const char *real_filename, const char *logical_filename, - flag_context_list_table_ty *flag_table, - msgdomain_list_ty *mdlp) -{ -#if DYNLOAD_LIBEXPAT || HAVE_LIBEXPAT - if (LIBEXPAT_AVAILABLE ()) - do_extract_glade (fp, real_filename, logical_filename, mdlp); - else -#endif - { - multiline_error (xstrdup (""), - xasprintf (_("\ -Language \"glade\" is not supported. %s relies on expat.\n\ -This version was built without expat.\n"), - basename (program_name))); - exit (EXIT_FAILURE); - } -} |