Imported Debian patch 0.63.0-6

[hcoop/debian/courier-authlib.git] / unicode / xtest.c

diff --git a/unicode/xtest.c b/unicode/xtest.c
new file mode 100644 (file)
index 0000000..1faf7d3
--- /dev/null
+++ b/unicode/xtest.c
@@ -0,0 +1,65 @@
+
+/*
+** Copyright 2000 Double Precision, Inc.
+** See COPYING for distribution information.
+**
+** $Id: xtest.c,v 1.2 2002/11/18 00:54:22 mrsam Exp $
+*/
+
+#include "unicode.h"
+
+/*
+** This map is for testing purposes.  Funny stuff.
+*/
+
+extern const struct unicode_info unicode_ISO8859_1;
+
+static unicode_char *c2u(const struct unicode_info *u, const char *cp, int *ip)
+{
+       unicode_char *uc= (*unicode_ISO8859_1.c2u)(&unicode_ISO8859_1, cp, ip);
+       int i;
+
+       for (i=0; uc && uc[i]; i++)
+               if (uc[i] >= 0x40 && uc[i] <= 0x7d)
+                       uc[i] ^= 1;
+       return (uc);
+}
+
+static char *u2c(const struct unicode_info *u, const unicode_char *cp, int *ip)
+{
+       char *uc= (*unicode_ISO8859_1.u2c)(&unicode_ISO8859_1,cp, ip);
+
+       int i;
+
+       for (i=0; uc && uc[i]; i++)
+               if (uc[i] >= 0x40 && uc[i] <= 0x7d)
+                       uc[i] ^= 1;
+       return (uc);
+}
+
+static char *toupper_func(const struct unicode_info *u,
+                         const char *cp, int *ip)
+{
+       return ( (*unicode_ISO8859_1.toupper_func)(&unicode_ISO8859_1,cp, ip));
+}
+
+static char *tolower_func(const struct unicode_info *u,
+                         const char *cp, int *ip)
+{
+       return ( (*unicode_ISO8859_1.tolower_func)(&unicode_ISO8859_1,cp, ip));
+}
+
+static char *totitle_func(const struct unicode_info *u,
+                         const char *cp, int *ip)
+{
+       return ( (*unicode_ISO8859_1.totitle_func)(&unicode_ISO8859_1,cp, ip));
+}
+
+const struct unicode_info unicode_XTEST = {
+       "X-TEST",
+       0,
+       c2u,
+       u2c,
+       toupper_func,
+       tolower_func,
+       totitle_func};