开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > 查看源码
wchar.c
资源名称：postgresql-6.5.2.tar.gz　[点击查看]
上传用户：blenddy
上传日期：2007-01-07
资源大小：6495k
文件大小：8k
源码类别：

数据库系统

开发平台：

Unix_Linux

wchar.c：源码内容
  1. /*
  2.  * conversion functions between pg_wchar and multi-byte streams.
  3.  * Tatsuo Ishii
  4.  * $Id: wchar.c,v 1.9 1999/07/11 22:47:20 ishii Exp $
  5.  *
  6.  * WIN1250 client encoding updated by Pavel Behal
  7.  *
  8.  */
  10. #include "mb/pg_wchar.h"
  12. /*
  13.  * conversion to pg_wchar is done by "table driven."
  14.  * to add an encoding support, define mb2wchar_with_len(), mblen()
  15.  * for the particular encoding. Note that if the encoding is only
  16.  * supported in the client, you don't need to define
  17.  * mb2wchar_with_len() function (SJIS is the case).
  18.  */
  20. /*
  21.  * SQL/ASCII
  22.  */
  23. static void pg_ascii2wchar_with_len
  24. (const unsigned char *from, pg_wchar * to, int len)
  25. {
  26. while (*from && len > 0)
  27. {
  28. *to++ = *from++;
  29. len--;
  30. }
  31. *to = 0;
  32. }
  34. static int
  35. pg_ascii_mblen(const unsigned char *s)
  36. {
  37. return (1);
  38. }
  40. /*
  41.  * EUC
  42.  */
  44. static void pg_euc2wchar_with_len
  45. (const unsigned char *from, pg_wchar * to, int len)
  46. {
  47. while (*from && len > 0)
  48. {
  49. if (*from == SS2)
  50. {
  51. from++;
  52. len--;
  53. *to = 0xff & *from++;
  54. len--;
  55. }
  56. else if (*from == SS3)
  57. {
  58. from++;
  59. *to = *from++ << 8;
  60. *to |= 0x3f & *from++;
  61. len -= 3;
  62. }
  63. else if (*from & 0x80)
  64. {
  65. *to = *from++ << 8;
  66. *to |= *from++;
  67. len -= 2;
  68. }
  69. else
  70. {
  71. *to = *from++;
  72. len--;
  73. }
  74. to++;
  75. }
  76. *to = 0;
  77. }
  79. static int
  80. pg_euc_mblen(const unsigned char *s)
  81. {
  82. int len;
  84. if (*s == SS2)
  85. len = 2;
  86. else if (*s == SS3)
  87. len = 3;
  88. else if (*s & 0x80)
  89. len = 2;
  90. else
  91. len = 1;
  92. return (len);
  93. }
  95. /*
  96.  * EUC_JP
  97.  */
  98. static void pg_eucjp2wchar_with_len
  99. (const unsigned char *from, pg_wchar * to, int len)
  100. {
  101. pg_euc2wchar_with_len(from, to, len);
  102. }
  104. static int
  105. pg_eucjp_mblen(const unsigned char *s)
  106. {
  107. return (pg_euc_mblen(s));
  108. }
  110. /*
  111.  * EUC_KR
  112.  */
  113. static void pg_euckr2wchar_with_len
  114. (const unsigned char *from, pg_wchar * to, int len)
  115. {
  116. pg_euc2wchar_with_len(from, to, len);
  117. }
  119. static int
  120. pg_euckr_mblen(const unsigned char *s)
  121. {
  122. return (pg_euc_mblen(s));
  123. }
  125. /*
  126.  * EUC_CN
  127.  */
  128. static void pg_euccn2wchar_with_len
  129. (const unsigned char *from, pg_wchar * to, int len)
  130. {
  131. while (*from && len > 0)
  132. {
  133. if (*from == SS2)
  134. {
  135. from++;
  136. len--;
  137. *to = 0x3f00 & (*from++ << 8);
  138. *to = *from++;
  139. len -= 2;
  140. }
  141. else if (*from == SS3)
  142. {
  143. from++;
  144. *to = *from++ << 8;
  145. *to |= 0x3f & *from++;
  146. len -= 3;
  147. }
  148. else if (*from & 0x80)
  149. {
  150. *to = *from++ << 8;
  151. *to |= *from++;
  152. len -= 2;
  153. }
  154. else
  155. {
  156. *to = *from++;
  157. len--;
  158. }
  159. to++;
  160. }
  161. *to = 0;
  162. }
  164. static int
  165. pg_euccn_mblen(const unsigned char *s)
  166. {
  167. int len;
  169. if (*s == SS2)
  170. len = 3;
  171. else if (*s == SS3)
  172. len = 3;
  173. else if (*s & 0x80)
  174. len = 2;
  175. else
  176. len = 1;
  177. return (len);
  178. }
  180. /*
  181.  * EUC_TW
  182.  */
  183. static void pg_euctw2wchar_with_len
  184. (const unsigned char *from, pg_wchar * to, int len)
  185. {
  186. while (*from && len > 0)
  187. {
  188. if (*from == SS2)
  189. {
  190. from++;
  191. len--;
  192. *to = *from++ << 16;
  193. *to |= *from++ << 8;
  194. *to |= *from++;
  195. len -= 3;
  196. }
  197. else if (*from == SS3)
  198. {
  199. from++;
  200. *to = *from++ << 8;
  201. *to |= 0x3f & *from++;
  202. len -= 3;
  203. }
  204. else if (*from & 0x80)
  205. {
  206. *to = *from++ << 8;
  207. *to |= *from++;
  208. len -= 2;
  209. }
  210. else
  211. {
  212. *to = *from++;
  213. len--;
  214. }
  215. to++;
  216. }
  217. *to = 0;
  218. }
  220. static int
  221. pg_euctw_mblen(const unsigned char *s)
  222. {
  223. int len;
  225. if (*s == SS2)
  226. len = 4;
  227. else if (*s == SS3)
  228. len = 3;
  229. else if (*s & 0x80)
  230. len = 2;
  231. else
  232. len = 1;
  233. return (len);
  234. }
  236. /*
  237.  * convert UTF-8 to pg_wchar (UCS-2)
  238.  * caller should allocate enough space for "to"
  239.  * len: length of from.
  240.  * "from" not necessarily null terminated.
  241.  */
  242. static void
  243. pg_utf2wchar_with_len(const unsigned char *from, pg_wchar * to, int len)
  244. {
  245. unsigned char c1,
  246. c2,
  247. c3;
  249. while (*from && len > 0)
  250. {
  251. if ((*from & 0x80) == 0)
  252. {
  253. *to = *from++;
  254. len--;
  255. }
  256. else if ((*from & 0xe0) == 0xc0)
  257. {
  258. c1 = *from++ & 0x1f;
  259. c2 = *from++ & 0x3f;
  260. len -= 2;
  261. *to = c1 << 6;
  262. *to |= c2;
  263. }
  264. else if ((*from & 0xe0) == 0xe0)
  265. {
  266. c1 = *from++ & 0x0f;
  267. c2 = *from++ & 0x3f;
  268. c3 = *from++ & 0x3f;
  269. len -= 3;
  270. *to = c1 << 12;
  271. *to |= c2 << 6;
  272. *to |= c3;
  273. }
  274. else
  275. {
  276. *to = *from++;
  277. len--;
  278. }
  279. to++;
  280. }
  281. *to = 0;
  282. }
  284. static int
  285. pg_utf_mblen(const unsigned char *s)
  286. {
  287. int len = 1;
  289. if ((*s & 0x80) == 0)
  290. len = 1;
  291. else if ((*s & 0xe0) == 0xc0)
  292. len = 2;
  293. else if ((*s & 0xe0) == 0xe0)
  294. len = 3;
  295. return (len);
  296. }
  298. /*
  299.  * convert mule internal code to pg_wchar
  300.  * caller should allocate enough space for "to"
  301.  * len: length of from.
  302.  * "from" not necessarily null terminated.
  303.  */
  304. static void
  305. pg_mule2wchar_with_len(const unsigned char *from, pg_wchar * to, int len)
  306. {
  307. while (*from && len > 0)
  308. {
  309. if (IS_LC1(*from))
  310. {
  311. *to = *from++ << 16;
  312. *to |= *from++;
  313. len -= 2;
  314. }
  315. else if (IS_LCPRV1(*from))
  316. {
  317. from++;
  318. *to = *from++ << 16;
  319. *to |= *from++;
  320. len -= 3;
  321. }
  322. else if (IS_LC2(*from))
  323. {
  324. *to = *from++ << 16;
  325. *to |= *from++ << 8;
  326. *to |= *from++;
  327. len -= 3;
  328. }
  329. else if (IS_LCPRV2(*from))
  330. {
  331. from++;
  332. *to = *from++ << 16;
  333. *to |= *from++ << 8;
  334. *to |= *from++;
  335. len -= 4;
  336. }
  337. else
  338. { /* assume ASCII */
  339. *to = (unsigned char) *from++;
  340. len--;
  341. }
  342. to++;
  343. }
  344. *to = 0;
  345. }
  347. int
  348. pg_mule_mblen(const unsigned char *s)
  349. {
  350. int len;
  352. if (IS_LC1(*s))
  353. len = 2;
  354. else if (IS_LCPRV1(*s))
  355. len = 3;
  356. else if (IS_LC2(*s))
  357. len = 3;
  358. else if (IS_LCPRV2(*s))
  359. len = 4;
  360. else
  361. { /* assume ASCII */
  362. len = 1;
  363. }
  364. return (len);
  365. }
  367. /*
  368.  * ISO8859-1
  369.  */
  370. static void
  371. pg_latin12wchar_with_len(const unsigned char *from, pg_wchar * to, int len)
  372. {
  373. while (*from && len-- > 0)
  374. *to++ = *from++;
  375. *to = 0;
  376. }
  378. static int
  379. pg_latin1_mblen(const unsigned char *s)
  380. {
  381. return (1);
  382. }
  384. /*
  385.  * SJIS
  386.  */
  387. static int
  388. pg_sjis_mblen(const unsigned char *s)
  389. {
  390. int len;
  392. if (*s >= 0xa1 && *s <= 0xdf)
  393. { /* 1 byte kana? */
  394. len = 1;
  395. }
  396. else if (*s > 0x7f)
  397. { /* kanji? */
  398. len = 2;
  399. }
  400. else
  401. { /* should be ASCII */
  402. len = 1;
  403. }
  404. return (len);
  405. }
  407. /*
  408.  * Big5
  409.  */
  410. static int
  411. pg_big5_mblen(const unsigned char *s)
  412. {
  413. int len;
  415. if (*s > 0x7f)
  416. { /* kanji? */
  417. len = 2;
  418. }
  419. else
  420. { /* should be ASCII */
  421. len = 1;
  422. }
  423. return (len);
  424. }
  426. pg_wchar_tbl pg_wchar_table[] = {
  427. {pg_ascii2wchar_with_len, pg_ascii_mblen}, /* 0 */
  428. {pg_eucjp2wchar_with_len, pg_eucjp_mblen}, /* 1 */
  429. {pg_euccn2wchar_with_len, pg_euccn_mblen}, /* 2 */
  430. {pg_euckr2wchar_with_len, pg_euckr_mblen}, /* 3 */
  431. {pg_euctw2wchar_with_len, pg_euctw_mblen}, /* 4 */
  432. {pg_utf2wchar_with_len, pg_utf_mblen}, /* 5 */
  433. {pg_mule2wchar_with_len, pg_mule_mblen}, /* 6 */
  434. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 7 */
  435. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 8 */
  436. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 9 */
  437. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 10 */
  438. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 11 */
  439. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 12 */
  440. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 13 */
  441. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 14 */
  442. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 15 */
  443. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 16 */
  444. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 17 */
  445. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 18 */
  446. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 19 */
  447. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 20 */
  448. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 21 */
  449. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 22 */
  450. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 23 */
  451. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 24 */
  452. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 25 */
  453. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 26 */
  454. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 27 */
  455. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 28 */
  456. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 29 */
  457. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 30 */
  458. {pg_latin12wchar_with_len, pg_latin1_mblen}, /* 31 */
  459. {0, pg_sjis_mblen}, /* 32 */
  460. {0, pg_big5_mblen}, /* 33 */
  461. {pg_latin12wchar_with_len, pg_latin1_mblen} /* 34 */
  462. };
  464. /* returns the byte length of a word for mule internal code */
  465. int
  466. pg_mic_mblen(const unsigned char *mbstr)
  467. {
  468. return (pg_mule_mblen(mbstr));
  469. }