Move libuniname/test-names.c to gettext-tools/libuniname/test-names.c.

1 files changed, 0 insertions, 262 deletions

diff --git a/libuniname/test-names.c b/libuniname/test-names.c
deleted file mode 100644
index 19a757c..0000000
--- a/libuniname/test-names.c
+++ /dev/null
@@ -1,262 +0,0 @@
-/* Test the Unicode character name functions.
-   Copyright (C) 2000-2002 Free Software Foundation, Inc.
-
-   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.  */
-
-#if HAVE_CONFIG_H
-# include <config.h>
-#endif
-
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
-
-#include "exit.h"
-#include "xmalloc.h"
-#include "uniname.h"
-
-/* The names according to the UnicodeData.txt file, modified to contain the
-   Hangul syllable names, as described in the Unicode 3.0 book.  */
-const char * unicode_names [0x110000];
-
-/* Maximum length of a field in the UnicodeData.txt file.  */
-#define FIELDLEN 120
-
-/* Reads the next field from STREAM.  The buffer BUFFER has size FIELDLEN.
-   Reads up to (but excluding) DELIM.
-   Returns 1 when a field was successfully read, otherwise 0.  */
-static int
-getfield (FILE *stream, char *buffer, int delim)
-{
-  int count = 0;
-  int c;
-
-  for (; (c = getc (stream)), (c != EOF && c != delim); )
-    {
-      /* Put c into the buffer.  */
-      if (++count >= FIELDLEN - 1)
-	{
-	  fprintf (stderr, "field too long\n");
-	  exit (EXIT_FAILURE);
-	}
-      *buffer++ = c;
-    }
-
-  if (c == EOF)
-    return 0;
-
-  *buffer = '\0';
-  return 1;
-}
-
-/* Stores in unicode_names[] the relevant contents of the UnicodeData.txt
-   file.  */
-static void
-fill_names (const char *unicodedata_filename)
-{
-  unsigned int i;
-  FILE *stream;
-  char field0[FIELDLEN];
-  char field1[FIELDLEN];
-  int lineno = 0;
-
-  for (i = 0; i < 0x110000; i++)
-    unicode_names[i] = NULL;
-
-  stream = fopen (unicodedata_filename, "r");
-  if (stream == NULL)
-    {
-      fprintf (stderr, "error during fopen of '%s'\n", unicodedata_filename);
-      exit (EXIT_FAILURE);
-    }
-
-  for (;;)
-    {
-      int n;
-      int c;
-
-      lineno++;
-      n = getfield (stream, field0, ';');
-      n += getfield (stream, field1, ';');
-      if (n == 0)
-	break;
-      if (n != 2)
-	{
-	  fprintf (stderr, "short line in '%s':%d\n",
-		   unicodedata_filename, lineno);
-	  exit (EXIT_FAILURE);
-	}
-      for (; (c = getc (stream)), (c != EOF && c != '\n'); )
-	;
-      i = strtoul (field0, NULL, 16);
-      if (i >= 0x110000)
-	{
-	  fprintf (stderr, "index too large\n");
-	  exit (EXIT_FAILURE);
-	}
-      unicode_names[i] = xstrdup (field1);
-    }
-  if (ferror (stream) || fclose (stream))
-    {
-      fprintf (stderr, "error reading from '%s'\n", unicodedata_filename);
-      exit (1);
-    }
-}
-
-/* Perform an exhaustive test of the unicode_character_name function.  */
-static int
-test_name_lookup ()
-{
-  int error = 0;
-  unsigned int i;
-  char buf[UNINAME_MAX];
-
-  for (i = 0; i < 0x11000; i++)
-    {
-      char *result = unicode_character_name (i, buf);
-
-      if (unicode_names[i] != NULL)
-	{
-	  if (result == NULL)
-	    {
-	      fprintf (stderr, "\\u%04X name lookup failed!\n", i);
-	      error = 1;
-	    }
-	  else if (strcmp (result, unicode_names[i]) != 0)
-	    {
-	      fprintf (stderr, "\\u%04X name lookup returned wrong name: %s\n",
-			       i, result);
-	      error = 1;
-	    }
-	}
-      else
-	{
-	  if (result != NULL)
-	    {
-	      fprintf (stderr, "\\u%04X name lookup returned wrong name: %s\n",
-			       i, result);
-	      error = 1;
-	    }
-	}
-    }
-
-  for (i = 0x110000; i < 0x1000000; i++)
-    {
-      char *result = unicode_character_name (i, buf);
-
-      if (result != NULL)
-	{
-	  fprintf (stderr, "\\u%04X name lookup returned wrong name: %s\n",
-			   i, result);
-	  error = 1;
-	}
-    }
-
-  return error;
-}
-
-/* Perform a test of the unicode_name_character function.  */
-static int
-test_inverse_lookup ()
-{
-  int error = 0;
-  unsigned int i;
-
-  /* First, verify all valid character names are recognized.  */
-  for (i = 0; i < 0x110000; i++)
-    if (unicode_names[i] != NULL)
-      {
-	unsigned int result = unicode_name_character (unicode_names[i]);
-	if (result != i)
-	  {
-	    if (result == UNINAME_INVALID)
-	      fprintf (stderr, "inverse name lookup of \"%s\" failed\n",
-		       unicode_names[i]);
-	    else
-	      fprintf (stderr,
-		       "inverse name lookup of \"%s\" returned 0x%04X\n",
-		       unicode_names[i], result);
-	    error = 1;
-	  }
-      }
-
-  /* Second, generate random but likely names and verify they are not
-     recognized unless really valid.  */
-  for (i = 0; i < 10000; i++)
-    {
-      unsigned int i1, i2;
-      const char *s1;
-      const char *s2;
-      unsigned int l1, l2, j1, j2;
-      char buf[2*UNINAME_MAX];
-      unsigned int result;
-
-      do i1 = ((rand () % 0x11) << 16)
-	      + ((rand () & 0xff) << 8)
-	      + (rand () & 0xff);
-      while (unicode_names[i1] == NULL);
-
-      do i2 = ((rand () % 0x11) << 16)
-	      + ((rand () & 0xff) << 8)
-	      + (rand () & 0xff);
-      while (unicode_names[i2] == NULL);
-
-      s1 = unicode_names[i1];
-      l1 = strlen (s1);
-      s2 = unicode_names[i2];
-      l2 = strlen (s2);
-
-      /* Concatenate a starting piece of s1 with an ending piece of s2.  */
-      for (j1 = 1; j1 <= l1; j1++)
-	if (j1 == l1 || s1[j1] == ' ')
-	  for (j2 = 0; j2 < l2; j2++)
-	    if (j2 == 0 || s2[j2-1] == ' ')
-	      {
-		memcpy (buf, s1, j1);
-		buf[j1] = ' ';
-		memcpy (buf + j1 + 1, s2 + j2, l2 - j2 + 1);
-
-		result = unicode_name_character (buf);
-		if (result != UNINAME_INVALID
-		    && !(unicode_names[result] != NULL
-			 && strcmp (unicode_names[result], buf) == 0))
-		  {
-		    fprintf (stderr,
-			     "inverse name lookup of \"%s\" returned 0x%04X\n",
-			     unicode_names[i], result);
-		    error = 1;
-		  }
-	      }
-    }
-
-  /* Third, some extreme case that used to loop.  */
-  if (unicode_name_character ("A A") != UNINAME_INVALID)
-    error = 1;
-
-  return error;
-}
-
-int
-main (int argc, char *argv[])
-{
-  int error = 0;
-
-  fill_names (argv[1]);
-
-  error |= test_name_lookup ();
-  error |= test_inverse_lookup ();
-
-  return error;
-}