1 61f5c35c 2004-05-15 devnull #include	"rune.h"
  2 61f5c35c 2004-05-15 devnull 
  3 61f5c35c 2004-05-15 devnull enum
  4 61f5c35c 2004-05-15 devnull {
  5 61f5c35c 2004-05-15 devnull 	Bit1	= 7,
  6 61f5c35c 2004-05-15 devnull 	Bitx	= 6,
  7 61f5c35c 2004-05-15 devnull 	Bit2	= 5,
  8 61f5c35c 2004-05-15 devnull 	Bit3	= 4,
  9 61f5c35c 2004-05-15 devnull 	Bit4	= 3,
 10 61f5c35c 2004-05-15 devnull 
 11 61f5c35c 2004-05-15 devnull 	T1	= ((1<<(Bit1+1))-1) ^ 0xFF,	/* 0000 0000 */
 12 61f5c35c 2004-05-15 devnull 	Tx	= ((1<<(Bitx+1))-1) ^ 0xFF,	/* 1000 0000 */
 13 61f5c35c 2004-05-15 devnull 	T2	= ((1<<(Bit2+1))-1) ^ 0xFF,	/* 1100 0000 */
 14 61f5c35c 2004-05-15 devnull 	T3	= ((1<<(Bit3+1))-1) ^ 0xFF,	/* 1110 0000 */
 15 61f5c35c 2004-05-15 devnull 	T4	= ((1<<(Bit4+1))-1) ^ 0xFF,	/* 1111 0000 */
 16 61f5c35c 2004-05-15 devnull 
 17 61f5c35c 2004-05-15 devnull 	Rune1	= (1<<(Bit1+0*Bitx))-1,		/* 0000 0000 0111 1111 */
 18 61f5c35c 2004-05-15 devnull 	Rune2	= (1<<(Bit2+1*Bitx))-1,		/* 0000 0111 1111 1111 */
 19 61f5c35c 2004-05-15 devnull 	Rune3	= (1<<(Bit3+2*Bitx))-1,		/* 1111 1111 1111 1111 */
 20 61f5c35c 2004-05-15 devnull 
 21 61f5c35c 2004-05-15 devnull 	Maskx	= (1<<Bitx)-1,			/* 0011 1111 */
 22 61f5c35c 2004-05-15 devnull 	Testx	= Maskx ^ 0xFF,			/* 1100 0000 */
 23 61f5c35c 2004-05-15 devnull 
 24 61f5c35c 2004-05-15 devnull 	Bad	= Runeerror,
 25 61f5c35c 2004-05-15 devnull };
 26 61f5c35c 2004-05-15 devnull 
 27 61f5c35c 2004-05-15 devnull int
 28 61f5c35c 2004-05-15 devnull chartorune(Rune *rune, char *str)
 29 61f5c35c 2004-05-15 devnull {
 30 61f5c35c 2004-05-15 devnull 	int c, c1, c2;
 31 61f5c35c 2004-05-15 devnull 	long l;
 32 61f5c35c 2004-05-15 devnull 
 33 61f5c35c 2004-05-15 devnull 	/*
 34 61f5c35c 2004-05-15 devnull 	 * one character sequence
 35 61f5c35c 2004-05-15 devnull 	 *	00000-0007F => T1
 36 61f5c35c 2004-05-15 devnull 	 */
 37 61f5c35c 2004-05-15 devnull 	c = *(unsigned char*)str;
 38 61f5c35c 2004-05-15 devnull 	if(c < Tx) {
 39 61f5c35c 2004-05-15 devnull 		*rune = c;
 40 61f5c35c 2004-05-15 devnull 		return 1;
 41 61f5c35c 2004-05-15 devnull 	}
 42 61f5c35c 2004-05-15 devnull 
 43 61f5c35c 2004-05-15 devnull 	/*
 44 61f5c35c 2004-05-15 devnull 	 * two character sequence
 45 61f5c35c 2004-05-15 devnull 	 *	0080-07FF => T2 Tx
 46 61f5c35c 2004-05-15 devnull 	 */
 47 61f5c35c 2004-05-15 devnull 	c1 = *(unsigned char*)(str+1) ^ Tx;
 48 61f5c35c 2004-05-15 devnull 	if(c1 & Testx)
 49 61f5c35c 2004-05-15 devnull 		goto bad;
 50 61f5c35c 2004-05-15 devnull 	if(c < T3) {
 51 61f5c35c 2004-05-15 devnull 		if(c < T2)
 52 61f5c35c 2004-05-15 devnull 			goto bad;
 53 61f5c35c 2004-05-15 devnull 		l = ((c << Bitx) | c1) & Rune2;
 54 61f5c35c 2004-05-15 devnull 		if(l <= Rune1)
 55 61f5c35c 2004-05-15 devnull 			goto bad;
 56 61f5c35c 2004-05-15 devnull 		*rune = l;
 57 61f5c35c 2004-05-15 devnull 		return 2;
 58 61f5c35c 2004-05-15 devnull 	}
 59 61f5c35c 2004-05-15 devnull 
 60 61f5c35c 2004-05-15 devnull 	/*
 61 61f5c35c 2004-05-15 devnull 	 * three character sequence
 62 61f5c35c 2004-05-15 devnull 	 *	0800-FFFF => T3 Tx Tx
 63 61f5c35c 2004-05-15 devnull 	 */
 64 61f5c35c 2004-05-15 devnull 	c2 = *(unsigned char*)(str+2) ^ Tx;
 65 61f5c35c 2004-05-15 devnull 	if(c2 & Testx)
 66 61f5c35c 2004-05-15 devnull 		goto bad;
 67 61f5c35c 2004-05-15 devnull 	if(c < T4) {
 68 61f5c35c 2004-05-15 devnull 		l = ((((c << Bitx) | c1) << Bitx) | c2) & Rune3;
 69 61f5c35c 2004-05-15 devnull 		if(l <= Rune2)
 70 61f5c35c 2004-05-15 devnull 			goto bad;
 71 61f5c35c 2004-05-15 devnull 		*rune = l;
 72 61f5c35c 2004-05-15 devnull 		return 3;
 73 61f5c35c 2004-05-15 devnull 	}
 74 61f5c35c 2004-05-15 devnull 
 75 61f5c35c 2004-05-15 devnull 	/*
 76 61f5c35c 2004-05-15 devnull 	 * bad decoding
 77 61f5c35c 2004-05-15 devnull 	 */
 78 61f5c35c 2004-05-15 devnull bad:
 79 61f5c35c 2004-05-15 devnull 	*rune = Bad;
 80 61f5c35c 2004-05-15 devnull 	return 1;
 81 61f5c35c 2004-05-15 devnull }
 82 61f5c35c 2004-05-15 devnull 
 83 61f5c35c 2004-05-15 devnull int
 84 61f5c35c 2004-05-15 devnull runetochar(char *str, Rune *rune)
 85 61f5c35c 2004-05-15 devnull {
 86 61f5c35c 2004-05-15 devnull 	long c;
 87 61f5c35c 2004-05-15 devnull 
 88 61f5c35c 2004-05-15 devnull 	/*
 89 61f5c35c 2004-05-15 devnull 	 * one character sequence
 90 61f5c35c 2004-05-15 devnull 	 *	00000-0007F => 00-7F
 91 61f5c35c 2004-05-15 devnull 	 */
 92 61f5c35c 2004-05-15 devnull 	c = *rune;
 93 61f5c35c 2004-05-15 devnull 	if(c <= Rune1) {
 94 61f5c35c 2004-05-15 devnull 		str[0] = c;
 95 61f5c35c 2004-05-15 devnull 		return 1;
 96 61f5c35c 2004-05-15 devnull 	}
 97 61f5c35c 2004-05-15 devnull 
 98 61f5c35c 2004-05-15 devnull 	/*
 99 61f5c35c 2004-05-15 devnull 	 * two character sequence
100 61f5c35c 2004-05-15 devnull 	 *	0080-07FF => T2 Tx
101 61f5c35c 2004-05-15 devnull 	 */
102 61f5c35c 2004-05-15 devnull 	if(c <= Rune2) {
103 61f5c35c 2004-05-15 devnull 		str[0] = T2 | (c >> 1*Bitx);
104 61f5c35c 2004-05-15 devnull 		str[1] = Tx | (c & Maskx);
105 61f5c35c 2004-05-15 devnull 		return 2;
106 61f5c35c 2004-05-15 devnull 	}
107 61f5c35c 2004-05-15 devnull 
108 61f5c35c 2004-05-15 devnull 	/*
109 61f5c35c 2004-05-15 devnull 	 * three character sequence
110 61f5c35c 2004-05-15 devnull 	 *	0800-FFFF => T3 Tx Tx
111 61f5c35c 2004-05-15 devnull 	 */
112 61f5c35c 2004-05-15 devnull 	str[0] = T3 |  (c >> 2*Bitx);
113 61f5c35c 2004-05-15 devnull 	str[1] = Tx | ((c >> 1*Bitx) & Maskx);
114 61f5c35c 2004-05-15 devnull 	str[2] = Tx |  (c & Maskx);
115 61f5c35c 2004-05-15 devnull 	return 3;
116 61f5c35c 2004-05-15 devnull }
117 61f5c35c 2004-05-15 devnull 
118 61f5c35c 2004-05-15 devnull int
119 61f5c35c 2004-05-15 devnull runelen(long c)
120 61f5c35c 2004-05-15 devnull {
121 61f5c35c 2004-05-15 devnull 	Rune rune;
122 61f5c35c 2004-05-15 devnull 	char str[10];
123 61f5c35c 2004-05-15 devnull 
124 61f5c35c 2004-05-15 devnull 	rune = c;
125 61f5c35c 2004-05-15 devnull 	return runetochar(str, &rune);
126 61f5c35c 2004-05-15 devnull }
127 61f5c35c 2004-05-15 devnull 
128 61f5c35c 2004-05-15 devnull int
129 61f5c35c 2004-05-15 devnull fullrune(char *str, int n)
130 61f5c35c 2004-05-15 devnull {
131 61f5c35c 2004-05-15 devnull 	int c;
132 61f5c35c 2004-05-15 devnull 
133 61f5c35c 2004-05-15 devnull 	if(n > 0) {
134 61f5c35c 2004-05-15 devnull 		c = *(unsigned char*)str;
135 61f5c35c 2004-05-15 devnull 		if(c < Tx)
136 61f5c35c 2004-05-15 devnull 			return 1;
137 61f5c35c 2004-05-15 devnull 		if(n > 1)
138 61f5c35c 2004-05-15 devnull 			if(c < T3 || n > 2)
139 61f5c35c 2004-05-15 devnull 				return 1;
140 61f5c35c 2004-05-15 devnull 	}
141 61f5c35c 2004-05-15 devnull 	return 0;
142 61f5c35c 2004-05-15 devnull }