File: xtest.c

package info (click to toggle)
cone 0.75-1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 31,040 kB
  • ctags: 13,930
  • sloc: ansic: 90,648; cpp: 79,781; sh: 18,355; perl: 3,218; makefile: 1,611; yacc: 289; sed: 16
file content (65 lines) | stat: -rw-r--r-- 1,411 bytes parent folder | download | duplicates (12)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
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};