summaryrefslogtreecommitdiff
path: root/gnu/dist/gettext/gettext-tools/src/format-csharp.c
diff options
context:
space:
mode:
authorchristos <christos@NetBSD.org>2016-01-13 01:59:22 +0000
committerchristos <christos@NetBSD.org>2016-01-13 01:59:22 +0000
commitceb99fff3a910a1efe2f446026eaf8d0ed4086b2 (patch)
treedd0e396e41faf55eaed78cab2c289c172037a537 /gnu/dist/gettext/gettext-tools/src/format-csharp.c
parent466ecc77ee315b281b3c0a350304f6f5d1bc8fa7 (diff)
gettext has moved.
Diffstat (limited to 'gnu/dist/gettext/gettext-tools/src/format-csharp.c')
-rw-r--r--gnu/dist/gettext/gettext-tools/src/format-csharp.c282
1 files changed, 0 insertions, 282 deletions
diff --git a/gnu/dist/gettext/gettext-tools/src/format-csharp.c b/gnu/dist/gettext/gettext-tools/src/format-csharp.c
deleted file mode 100644
index 6a847236676..00000000000
--- a/gnu/dist/gettext/gettext-tools/src/format-csharp.c
+++ /dev/null
@@ -1,282 +0,0 @@
-/* C# format strings.
- Copyright (C) 2003-2004 Free Software Foundation, Inc.
- Written by Bruno Haible <bruno@clisp.org>, 2003.
-
- 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, 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
-#ifdef HAVE_CONFIG_H
-# include <config.h>
-#endif
-
-#include <stdbool.h>
-#include <stdlib.h>
-
-#include "format.h"
-#include "c-ctype.h"
-#include "xalloc.h"
-#include "xerror.h"
-#include "gettext.h"
-
-#define _(str) gettext (str)
-
-/* C# format strings are described in the description of the .NET System.String
- class and implemented in
- pnetlib-0.5.6/runtime/System/String.cs
- and
- mcs-0.28/class/corlib/System/String.cs
- A format string consists of literal text (that is output verbatim), doubled
- braces ('{{' and '}}', that lead to a single brace when output), and
- directives.
- A directive
- - starts with '{',
- - is followed by a nonnegative integer m,
- - is optionally followed by ',' and an integer denoting a width,
- - is optionally followed by ':' and a sequence of format specifiers.
- (But the interpretation of the format specifiers is up to the IFormattable
- implementation, depending on the argument's runtime value. New classes
- implementing IFormattable can be defined by the user.)
- - is finished with '}'.
- */
-
-struct spec
-{
- unsigned int directives;
- unsigned int numbered_arg_count;
-};
-
-static void *
-format_parse (const char *format, bool translated, char **invalid_reason)
-{
- struct spec spec;
- struct spec *result;
-
- spec.directives = 0;
- spec.numbered_arg_count = 0;
-
- for (; *format != '\0';)
- {
- char c = *format++;
-
- if (c == '{')
- {
- if (*format == '{')
- format++;
- else
- {
- /* A directive. */
- unsigned int number;
-
- spec.directives++;
-
- if (!c_isdigit (*format))
- {
- *invalid_reason =
- xasprintf (_("In the directive number %u, '{' is not followed by an argument number."), spec.directives);
- return NULL;
- }
- number = 0;
- do
- {
- number = 10 * number + (*format - '0');
- format++;
- }
- while (c_isdigit (*format));
-
- if (*format == ',')
- {
- /* Parse width. */
- format++;
- if (*format == '-')
- format++;
- if (!c_isdigit (*format))
- {
- *invalid_reason =
- xasprintf (_("In the directive number %u, ',' is not followed by a number."), spec.directives);
- return NULL;
- }
- do
- format++;
- while (c_isdigit (*format));
- }
-
- if (*format == ':')
- {
- /* Parse format specifiers. */
- do
- format++;
- while (*format != '\0' && *format != '}');
- }
-
- if (*format == '\0')
- {
- *invalid_reason =
- xstrdup (_("The string ends in the middle of a directive: found '{' without matching '}'."));
- return NULL;
- }
-
- if (*format != '}')
- {
- *invalid_reason =
- (c_isprint (*format)
- ? xasprintf (_("The directive number %u ends with an invalid character '%c' instead of '}'."), spec.directives, *format)
- : xasprintf (_("The directive number %u ends with an invalid character instead of '}'."), spec.directives));
- return NULL;
- }
-
- format++;
-
- if (spec.numbered_arg_count <= number)
- spec.numbered_arg_count = number + 1;
- }
- }
- else if (c == '}')
- {
- if (*format == '}')
- format++;
- else
- {
- *invalid_reason =
- (spec.directives == 0
- ? xstrdup (_("The string starts in the middle of a directive: found '}' without matching '{'."))
- : xasprintf (_("The string contains a lone '}' after directive number %u."), spec.directives));
- return NULL;
- }
- }
- }
-
- result = (struct spec *) xmalloc (sizeof (struct spec));
- *result = spec;
- return result;
-}
-
-static void
-format_free (void *descr)
-{
- struct spec *spec = (struct spec *) descr;
-
- free (spec);
-}
-
-static int
-format_get_number_of_directives (void *descr)
-{
- struct spec *spec = (struct spec *) descr;
-
- return spec->directives;
-}
-
-static bool
-format_check (void *msgid_descr, void *msgstr_descr, bool equality,
- formatstring_error_logger_t error_logger,
- const char *pretty_msgstr)
-{
- struct spec *spec1 = (struct spec *) msgid_descr;
- struct spec *spec2 = (struct spec *) msgstr_descr;
- bool err = false;
-
- /* Check that the argument counts are the same. */
- if (equality
- ? spec1->numbered_arg_count != spec2->numbered_arg_count
- : spec1->numbered_arg_count < spec2->numbered_arg_count)
- {
- if (error_logger)
- error_logger (_("number of format specifications in 'msgid' and '%s' does not match"),
- pretty_msgstr);
- err = true;
- }
-
- return err;
-}
-
-
-struct formatstring_parser formatstring_csharp =
-{
- format_parse,
- format_free,
- format_get_number_of_directives,
- format_check
-};
-
-
-#ifdef TEST
-
-/* Test program: Print the argument list specification returned by
- format_parse for strings read from standard input. */
-
-#include <stdio.h>
-#include "getline.h"
-
-static void
-format_print (void *descr)
-{
- struct spec *spec = (struct spec *) descr;
- unsigned int i;
-
- if (spec == NULL)
- {
- printf ("INVALID");
- return;
- }
-
- printf ("(");
- for (i = 0; i < spec->numbered_arg_count; i++)
- {
- if (i > 0)
- printf (" ");
- printf ("*");
- }
- printf (")");
-}
-
-int
-main ()
-{
- for (;;)
- {
- char *line = NULL;
- size_t line_size = 0;
- int line_len;
- char *invalid_reason;
- void *descr;
-
- line_len = getline (&line, &line_size, stdin);
- if (line_len < 0)
- break;
- if (line_len > 0 && line[line_len - 1] == '\n')
- line[--line_len] = '\0';
-
- invalid_reason = NULL;
- descr = format_parse (line, false, &invalid_reason);
-
- format_print (descr);
- printf ("\n");
- if (descr == NULL)
- printf ("%s\n", invalid_reason);
-
- free (invalid_reason);
- free (line);
- }
-
- return 0;
-}
-
-/*
- * For Emacs M-x compile
- * Local Variables:
- * compile-command: "/bin/sh ../libtool --mode=link gcc -o a.out -static -O -g -Wall -I.. -I../lib -I../intl -DHAVE_CONFIG_H -DTEST format-csharp.c ../lib/libgettextlib.la"
- * End:
- */
-
-#endif /* TEST */