gb_conv.c

证券交易系统

/*===============================================================================
|| purpose: translate EBCDIC to ASCII or ASCII to EBCDIC including
||          simplified Chinese
||   Usage:
||          gb_conv(int direct,char *InStr,char *OutStr);
||  where : direct : E2A ,A2E
||	 InStr: input string,must end by '\0'
||	OutStr: translated string,end by '\0'
||Revision: May ,1999: Yaojie,Advanced Business Solutions Co. Ltd. 
||                            
||          July,1999: QuanMaoHong,Bank-of-china software Center.
||                            
||Modify: Nov, 1999: Yaojie   Add function SimTranslate, SimNumber
===============================================================================*/
#ifndef A2E
	#define E2A 0     /* EBCDIC TO ASCII */
	#define A2E 1     /* ASCII TO EBCDIC */
	#define NC  2     /* DO NOT CONVERT  */
#endif

#include <stdio.h>
#include <string.h>
#include <iconv.h>

#define SIZE_OF_A2E_TAB_IDX      92
#define SIZE_OF_E2A_TAB_IDX     142

struct tab_idx{
   unsigned short start;
   unsigned short n;
};

static unsigned short a2e_tab[]={
   0x4344,0x4341,0x4345,0x4545,0x4546,0x4460,0x445b,0x445d,
   0x444a,0x43a1,0x447c,0x447f,0x4461,0x4471,0x4462,0x4472,
   0x4463,0x4473,0x4464,0x4474,0x4465,0x4475,0x4342,0x4343,
   0x4442,0x4443,0x455b,0x455c,0x4466,0x4476,0x444b,0x447a,
   0x447b,0x4562,0x4563,0x4564,0x4565,0x4566,0x4567,0x4568,
   0x4569,0x456a,0x456b,0x456c,0x456d,0x456e,0x456f,0x4570,
   0x4571,0x4572,0x4573,0x4574,0x4575,0x4576,0x4577,0x444c,
   0x4579,0x457a,0x4467,0x4477,0x444d,0x4478,0x4468,0x4469,
   0x4479,0x44ed,0x44ee,0x44ef,0x444e,0x42e0,0x4588,0x434a,
   0x424a,0x458b,0x446a,0x446e,0x44e5,0x44e6,0x44e0,0x44e1,
   0x44e4,0x44e7,0x44e8,0x44e9,0x44ea,0x44e2,0x44e3,0x446b,
   0x44f0,0x44f1,0x44f2,0x44f3,0x447d,0x45b1,0x45b2,0x45b3,
   0x45b4,0x45b5,0x45b6,0x45b7,0x45b8,0x45b9,0x45ba,0x45bb,
   0x45ac,0x45bd,0x45be,0x45bf,0x45c0,0x45c1,0x45c2,0x45c3,
   0x45c4,0x45c5,0x45c6,0x45c7,0x45c8,0x45c9,0x45ca,0x45cb,
   0x45cc,0x45cd,0x45ce,0x45cf,0x45d0,0x45d1,0x45d2,0x45d3,
   0x45d4,0x45d5,0x45d6,0x45d7,0x45d8,0x45e1,0x45e2,0x45e3,
   0x45e4,0x45e5,0x45e6,0x45e7,0x45e8,0x45e9,0x45ea,0x45f1,
   0x45f2,0x45f3,0x45f4,0x45f5,0x45f6,0x45f7,0x45f8,0x45f9,
   0x45fa,0x41f1,0x41f2,0x41f3,0x41f4,0x41f5,0x41f6,0x41f7,
   0x41f8,0x41f9,0x41fa,0x41fb,0x41fc,0x425a,0x427f,0x427b,
   0x425b,0x426c,0x4250,0x4450,0x424d,0x425d,0x425c,0x424e,
   0x426b,0x4260,0x424b,0x4261,0x42f0,0x42f1,0x42f2,0x42f3,
   0x42f4,0x42f5,0x42f6,0x42f7,0x42f8,0x42f9,0x427a,0x425e,
   0x424c,0x427e,0x426e,0x426f,0x427c,0x42c1,0x42c2,0x42c3,
   0x42c4,0x42c5,0x42c6,0x42c7,0x42c8,0x42c9,0x42d1,0x42d2,
   0x42d3,0x42d4,0x42d5,0x42d6,0x42d7,0x42d8,0x42d9,0x42e2,
   0x42e3,0x42e4,0x42e5,0x42e6,0x42e7,0x42e8,0x42e9,0x4444,
   0x43e0,0x4445,0x4470,0x426d,0x4279,0x4281,0x4282,0x4283,
   0x4284,0x4285,0x4286,0x4287,0x4288,0x4289,0x4291,0x4292,
   0x4293,0x4294,0x4295,0x4296,0x4297,0x4298,0x4299,0x42a2,
   0x42a3,0x42a4,0x42a5,0x42a6,0x42a7,0x42a8,0x42a9,0x42c0,
   0x424f,0x42d0,0x42a1,0x4447,0x4481,0x4448,0x4482,0x4449,
   0x4483,0x4451,0x4484,0x4452,0x4485,0x4486,0x44c0,0x4487,
   0x44c1,0x4488,0x44c2,0x4489,0x44c3,0x448a,0x44c4,0x448c,
   0x44c5,0x448d,0x44c6,0x448e,0x44c7,0x448f,0x44c8,0x4490,
   0x44c9,0x4491,0x44ca,0x4492,0x44cb,0x4456,0x4493,0x44cc,
   0x4494,0x44cd,0x4495,0x44ce,0x4496,0x4497,0x4498,0x4499,
   0x449a,0x449d,0x44cf,0x44d5,0x449e,0x44d0,0x44d6,0x449f,
   0x44d1,0x44d7,0x44a2,0x44d2,0x44d8,0x44a3,0x44d3,0x44d9,
   0x44a4,0x44a5,0x44a6,0x44a7,0x44a8,0x4453,0x44a9,0x4454,
   0x44aa,0x4455,0x44ac,0x44ad,0x44ae,0x44af,0x44ba,0x44bb,
   0x4457,0x44bc,0x44da,0x44db,0x4446,0x44bd,0x4347,0x4381,
   0x4348,0x4382,0x4349,0x4383,0x4351,0x4384,0x4352,0x4385,
   0x4386,0x43c0,0x4387,0x43c1,0x4388,0x43c2,0x4389,0x43c3,
   0x438a,0x43c4,0x438c,0x43c5,0x438d,0x43c6,0x438e,0x43c7,
   0x438f,0x43c8,0x4390,0x43c9,0x4391,0x43ca,0x4392,0x43cb,
   0x4356,0x4393,0x43cc,0x4394,0x43cd,0x4395,0x43ce,0x4396,
   0x4397,0x4398,0x4399,0x439a,0x439d,0x43cf,0x43d5,0x439e,
   0x43d0,0x43d6,0x439f,0x43d1,0x43d7,0x43a2,0x43d2,0x43d8,
   0x43a3,0x43d3,0x43d9,0x43a4,0x43a5,0x43a6,0x43a7,0x43a8,
   0x4353,0x43a9,0x4354,0x43aa,0x4355,0x43ac,0x43ad,0x43ae,
   0x43af,0x43ba,0x43bb,0x4357,0x43bc,0x43da,0x43db,0x4346,
   0x43bd,0x43d4,0x4359,0x435a,0x4161,0x4162,0x4163,0x4164,
   0x4165,0x4166,0x4167,0x4168,0x4169,0x416a,0x416b,0x416c,
   0x416d,0x416e,0x416f,0x4170,0x4171,0x4172,0x4173,0x4174,
   0x4175,0x4176,0x4177,0x4178,0x4141,0x4142,0x4143,0x4144,
   0x4145,0x4146,0x4147,0x4148,0x4149,0x414a,0x414b,0x414c,
   0x414d,0x414e,0x414f,0x4150,0x4151,0x4152,0x4153,0x4154,
   0x4155,0x4156,0x4157,0x4158,0x41c0,0x41c1,0x41c2,0x41c3,
   0x41c4,0x41c5,0x41c6,0x41c7,0x41c8,0x41c9,0x41ca,0x41cb,
   0x41cc,0x41cd,0x41ce,0x41cf,0x41d0,0x41d1,0x41d2,0x41d3,
   0x41d4,0x41d5,0x41d6,0x41d7,0x41d8,0x41d9,0x41da,0x41db,
   0x41dc,0x41dd,0x41de,0x41df,0x41e0,0x4180,0x4181,0x4182,
   0x4183,0x4184,0x4185,0x4186,0x4187,0x4188,0x4189,0x418a,
   0x418b,0x418c,0x418d,0x418e,0x418f,0x4190,0x4191,0x4192,
   0x4193,0x4194,0x4195,0x4196,0x4197,0x4198,0x4199,0x419a,
   0x419b,0x419c,0x419d,0x419e,0x419f,0x41a0,0x4641,0x4642,
   0x4643,0x4644,0x4645,0x4646,0x4647,0x4648,0x4649,0x464a,
   0x464b,0x464c,0x464d,0x464e,0x464f,0x4650,0x4651,0x4652,
   0x4653,0x4654,0x4655,0x4656,0x4657,0x4658,0x4659,0x465a,
   0x465b,0x465c,0x465d,0x465e,0x465f,0x4660,0x4661,0x4662,
   0x4663,0x4664,0x4665,0x4666,0x4667,0x4668,0x4669,0x466a,
   0x466b,0x466c,0x466d,0x466e,0x466f,0x4670,0x4671,0x4672,
   0x4673,0x4674,0x4675,0x4676,0x4677,0x4678,0x4679,0x467a,
   0x467b,0x467c,0x467d,0x467e,0x467f,0x4680,0x4681,0x4682,
   0x4683,0x4684,0x4685,0x4686,0x4687,0x4688,0x4689,0x468a,
   0x468b,0x468c,0x468d,0x468e,0x468f,0x4690,0x4691,0x4692,
   0x4693,0x4694,0x4695,0x4696,0x4697,0x4698,0x4699,0x469a,
   0x469b,0x469c,0x469d,0x469e,0x46a1,0x46a2,0x46a3,0x46a4,
   0x46a5,0x46a6,0x46a7,0x46a8,0x46a9,0x46aa,0x46ab,0x46ac,
   0x46ad,0x46ae,0x46af,0x46b0,0x46b1,0x46b2,0x46b3,0x46b4,
   0x46b5,0x46b6,0x46b7,0x46b8,0x46b9,0x46ba,0x46bb,0x46bc,
   0x46bd,0x46be,0x46bf,0x46c0,0x46c1,0x46c2,0x46c3,0x46c4,
   0x46c5,0x46c6,0x46c7,0x46c8,0x46c9,0x46ca,0x46cb,0x46cc,
   0x46cd,0x46ce,0x46cf,0x46d0,0x46d1,0x46d2,0x46d3,0x46d4,
   0x46d5,0x46d6,0x46d7,0x46d8,0x46d9,0x46da,0x46db,0x46dc,
   0x46dd,0x46de,0x46df,0x46e0,0x46e1,0x46e2,0x46e3,0x46e4,
   0x46e5,0x46e6,0x46e7,0x46e8,0x46e9,0x46ea,0x46eb,0x46ec,
   0x46ed,0x46ee,0x46ef,0x46f0,0x46f1,0x46f2,0x46f3,0x46f4,
   0x46f5,0x46f6,0x46f7,0x46f8,0x46f9,0x46fa,0x46fb,0x46fc,
   0x46fd,0x46fe,0x48a0,0x48a1,0x48a2,0x48a3,0x48a4,0x48a5,
   0x48a6,0x48a7,0x48a8,0x48a9,0x48aa,0x48ab,0x48ac,0x48ad,
   0x48ae,0x48af,0x48b0,0x48b1,0x48b2,0x48b3,0x48b4,0x48b5,
   0x48b6,0x48b7,0x48b8,0x48b9,0x48ba,0x48bb,0x48bc,0x48bd,
   0x48be,0x48bf,0x48c0,0x48c1,0x48c2,0x48c3,0x48c4,0x48c5,
   0x48c6,0x48c7,0x48c8,0x48c9,0x48ca,0x48cb,0x48cc,0x48cd,
   0x48ce,0x48cf,0x48d0,0x48d1,0x48d2,0x48d3,0x48d4,0x48d5,
   0x48d6,0x48d7,0x48d8,0x48d9,0x48da,0x48db,0x48dc,0x48dd,
   0x48de,0x48df,0x48e0,0x48e1,0x48e2,0x48e3,0x48e4,0x48e5,
   0x48e6,0x48e7,0x48e8,0x48e9,0x48ea,0x48eb,0x48ec,0x48ed,
   0x48ee,0x48ef,0x48f0,0x48f1,0x48f2,0x48f3,0x48f4,0x48f5,
   0x48f6,0x48f7,0x48f8,0x48f9,0x48fa,0x48fb,0x48fc,0x48fd,
   0x4941,0x4942,0x4943,0x4944,0x4945,0x4946,0x4947,0x4948,
   0x4949,0x494a,0x494b,0x494c,0x494d,0x494e,0x494f,0x4950,
   0x4951,0x4952,0x4953,0x4954,0x4955,0x4956,0x4957,0x4958,
   0x4959,0x495a,0x495b,0x495c,0x495d,0x495e,0x495f,0x4960,
   0x4961,0x4962,0x4963,0x4964,0x4965,0x4966,0x4967,0x4968,
   0x4969,0x496a,0x496b,0x496c,0x496d,0x496e,0x496f,0x4970,
   0x4971,0x4972,0x4973,0x4974,0x4975,0x4976,0x4977,0x4978,
   0x4979,0x497a,0x497b,0x497c,0x497d,0x497e,0x497f,0x4981,
   0x4982,0x4983,0x4984,0x4985,0x4986,0x4987,0x4988,0x4989,
   0x498a,0x498b,0x498c,0x498d,0x498e,0x498f,0x4990,0x4991,
   0x4992,0x4993,0x4994,0x4995,0x4996,0x4997,0x4998,0x4999,
   0x499a,0x499b,0x499c,0x499d,0x499e,0x499f,0x49a0,0x49a1,
   0x49a2,0x49a3,0x49a4,0x49a5,0x49a6,0x49a7,0x49a8,0x49a9,
   0x49aa,0x49ab,0x49ac,0x49ad,0x49ae,0x49af,0x49b0,0x49b1,
   0x49b2,0x49b3,0x49b4,0x49b5,0x49b6,0x49b7,0x49b8,0x49b9,
   0x49ba,0x49bb,0x49bc,0x49bd,0x49be,0x49bf,0x49c0,0x49c1,
   0x49c2,0x49c3,0x49c4,0x49c5,0x49c6,0x49c7,0x49c8,0x49c9,
   0x49ca,0x49cb,0x49cc,0x49cd,0x49ce,0x49cf,0x49d0,0x49d1,
   0x49d2,0x49d3,0x49d4,0x49d5,0x49d6,0x49d7,0x49d8,0x49d9,
   0x49da,0x49db,0x49dc,0x49dd,0x49de,0x49df,0x49e0,0x49e1,
   0x49e2,0x49e3,0x49e4,0x49e5,0x49e6,0x49e7,0x49e8,0x49e9,
   0x49ea,0x49eb,0x49ec,0x49ed,0x49ee,0x49ef,0x49f0,0x49f1,
   0x49f2,0x49f3,0x49f4,0x49f5,0x49f6,0x49f7,0x49f8,0x49f9,
   0x49fa,0x49fb,0x49fc,0x49fd,0x4a41,0x4a42,0x4a43,0x4a44,
   0x4a45,0x4a46,0x4a47,0x4a48,0x4a49,0x4a4a,0x4a4b,0x4a4c,
   0x4a4d,0x4a4e,0x4a4f,0x4a50,0x4a51,0x4a52,0x4a53,0x4a54,
   0x4a55,0x4a56,0x4a57,0x4a58,0x4a59,0x4a5a,0x4a5b,0x4a5c,
   0x4a5d,0x4a5e,0x4a5f,0x4a60,0x4a61,0x4a62,0x4a63,0x4a64,
   0x4a65,0x4a66,0x4a67,0x4a68,0x4a69,0x4a6a,0x4a6b,0x4a6c,
   0x4a6d,0x4a6e,0x4a6f,0x4a70,0x4a71,0x4a72,0x4a73,0x4a74,
   0x4a75,0x4a76,0x4a77,0x4a78,0x4a79,0x4a7a,0x4a7b,0x4a7c,
   0x4a7d,0x4a7e,0x4a7f,0x4a81,0x4a82,0x4a83,0x4a84,0x4a85,
   0x4a86,0x4a87,0x4a88,0x4a89,0x4a8a,0x4a8b,0x4a8c,0x4a8d,
   0x4a8e,0x4a8f,0x4a90,0x4a91,0x4a92,0x4a93,0x4a94,0x4a95,
   0x4a96,0x4a97,0x4a98,0x4a99,0x4a9a,0x4a9b,0x4a9c,0x4a9d,
   0x4a9e,0x4a9f,0x4aa0,0x4aa1,0x4aa2,0x4aa3,0x4aa4,0x4aa5,
   0x4aa6,0x4aa7,0x4aa8,0x4aa9,0x4aaa,0x4aab,0x4aac,0x4aad,
   0x4aae,0x4aaf,0x4ab0,0x4ab1,0x4ab2,0x4ab3,0x4ab4,0x4ab5,
   0x4ab6,0x4ab7,0x4ab8,0x4ab9,0x4aba,0x4abb,0x4abc,0x4abd,
   0x4abe,0x4abf,0x4ac0,0x4ac1,0x4ac2,0x4ac3,0x4ac4,0x4ac5,
   0x4ac6,0x4ac7,0x4ac8,0x4ac9,0x4aca,0x4acb,0x4acc,0x4acd,
   0x4ace,0x4acf,0x4ad0,0x4ad1,0x4ad2,0x4ad3,0x4ad4,0x4ad5,
   0x4ad6,0x4ad7,0x4ad8,0x4ad9,0x4ada,0x4adb,0x4adc,0x4add,
   0x4ade,0x4adf,0x4ae0,0x4ae1,0x4ae2,0x4ae3,0x4ae4,0x4ae5,
   0x4ae6,0x4ae7,0x4ae8,0x4ae9,0x4aea,0x4aeb,0x4aec,0x4aed,
   0x4aee,0x4aef,0x4af0,0x4af1,0x4af2,0x4af3,0x4af4,0x4af5,
   0x4af6,0x4af7,0x4af8,0x4af9,0x4afa,0x4afb,0x4afc,0x4afd,
   0x4b41,0x4b42,0x4b43,0x4b44,0x4b45,0x4b46,0x4b47,0x4b48,
   0x4b49,0x4b4a,0x4b4b,0x4b4c,0x4b4d,0x4b4e,0x4b4f,0x4b50,
   0x4b51,0x4b52,0x4b53,0x4b54,0x4b55,0x4b56,0x4b57,0x4b58,
   0x4b59,0x4b5a,0x4b5b,0x4b5c,0x4b5d,0x4b5e,0x4b5f,0x4b60,
   0x4b61,0x4b62,0x4b63,0x4b64,0x4b65,0x4b66,0x4b67,0x4b68,
   0x4b69,0x4b6a,0x4b6b,0x4b6c,0x4b6d,0x4b6e,0x4b6f,0x4b70,
   0x4b71,0x4b72,0x4b73,0x4b74,0x4b75,0x4b76,0x4b77,0x4b78,
   0x4b79,0x4b7a,0x4b7b,0x4b7c,0x4b7d,0x4b7e,0x4b7f,0x4b81,
   0x4b82,0x4b83,0x4b84,0x4b85,0x4b86,0x4b87,0x4b88,0x4b89,
   0x4b8a,0x4b8b,0x4b8c,0x4b8d,0x4b8e,0x4b8f,0x4b90,0x4b91,
   0x4b92,0x4b93,0x4b94,0x4b95,0x4b96,0x4b97,0x4b98,0x4b99,
   0x4b9a,0x4b9b,0x4b9c,0x4b9d,0x4b9e,0x4b9f,0x4ba0,0x4ba1,
   0x4ba2,0x4ba3,0x4ba4,0x4ba5,0x4ba6,0x4ba7,0x4ba8,0x4ba9,
   0x4baa,0x4bab,0x4bac,0x4bad,0x4bae,0x4baf,0x4bb0,0x4bb1,
   0x4bb2,0x4bb3,0x4bb4,0x4bb5,0x4bb6,0x4bb7,0x4bb8,0x4bb9,
   0x4bba,0x4bbb,0x4bbc,0x4bbd,0x4bbe,0x4bbf,0x4bc0,0x4bc1,
   0x4bc2,0x4bc3,0x4bc4,0x4bc5,0x4bc6,0x4bc7,0x4bc8,0x4bc9,
   0x4bca,0x4bcb,0x4bcc,0x4bcd,0x4bce,0x4bcf,0x4bd0,0x4bd1,
   0x4bd2,0x4bd3,0x4bd4,0x4bd5,0x4bd6,0x4bd7,0x4bd8,0x4bd9,
   0x4bda,0x4bdb,0x4bdc,0x4bdd,0x4bde,0x4bdf,0x4be0,0x4be1,
   0x4be2,0x4be3,0x4be4,0x4be5,0x4be6,0x4be7,0x4be8,0x4be9,
   0x4bea,0x4beb,0x4bec,0x4bed,0x4bee,0x4bef,0x4bf0,0x4bf1,
   0x4bf2,0x4bf3,0x4bf4,0x4bf5,0x4bf6,0x4bf7,0x4bf8,0x4bf9,
   0x4bfa,0x4bfb,0x4bfc,0x4bfd,0x4c41,0x4c42,0x4c43,0x4c44,
   0x4c45,0x4c46,0x4c47,0x4c48,0x4c49,0x4c4a,0x4c4b,0x4c4c,
   0x4c4d,0x4c4e,0x4c4f,0x4c50,0x4c51,0x4c52,0x4c53,0x4c54,
   0x4c55,0x4c56,0x4c57,0x4c58,0x4c59,0x4c5a,0x4c5b,0x4c5c,
   0x4c5d,0x4c5e,0x4c5f,0x4c60,0x4c61,0x4c62,0x4c63,0x4c64,
   0x4c65,0x4c66,0x4c67,0x4c68,0x4c69,0x4c6a,0x4c6b,0x4c6c,
   0x4c6d,0x4c6e,0x4c6f,0x4c70,0x4c71,0x4c72,0x4c73,0x4c74,
   0x4c75,0x4c76,0x4c77,0x4c78,0x4c79,0x4c7a,0x4c7b,0x4c7c,
   0x4c7d,0x4c7e,0x4c7f,0x4c81,0x4c82,0x4c83,0x4c84,0x4c85,
   0x4c86,0x4c87,0x4c88,0x4c89,0x4c8a,0x4c8b,0x4c8c,0x4c8d,
   0x4c8e,0x4c8f,0x4c90,0x4c91,0x4c92,0x4c93,0x4c94,0x4c95,
   0x4c96,0x4c97,0x4c98,0x4c99,0x4c9a,0x4c9b,0x4c9c,0x4c9d,
   0x4c9e,0x4c9f,0x4ca0,0x4ca1,0x4ca2,0x4ca3,0x4ca4,0x4ca5,
   0x4ca6,0x4ca7,0x4ca8,0x4ca9,0x4caa,0x4cab,0x4cac,0x4cad,
   0x4cae,0x4caf,0x4cb0,0x4cb1,0x4cb2,0x4cb3,0x4cb4,0x4cb5,
   0x4cb6,0x4cb7,0x4cb8,0x4cb9,0x4cba,0x4cbb,0x4cbc,0x4cbd,
   0x4cbe,0x4cbf,0x4cc0,0x4cc1,0x4cc2,0x4cc3,0x4cc4,0x4cc5,