codecnv.c

   1 /*=============================================================================\r
   2 *\r
   3 *                                                       \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\81^\89ü\8ds\83R\81[\83h\95Ï\8a·\r
   4 *\r
   5 ===============================================================================\r
   6 / Copyright (C) 1997-2007 Sota. All rights reserved.\r
   7 /\r
   8 / Redistribution and use in source and binary forms, with or without \r
   9 / modification, are permitted provided that the following conditions \r
  10 / are met:\r
  11 /\r
  12 /  1. Redistributions of source code must retain the above copyright \r
  13 /     notice, this list of conditions and the following disclaimer.\r
  14 /  2. Redistributions in binary form must reproduce the above copyright \r
  15 /     notice, this list of conditions and the following disclaimer in the \r
  16 /     documentation and/or other materials provided with the distribution.\r
  17 /\r
  18 / THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR \r
  19 / IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES \r
  20 / OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. \r
  21 / IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, \r
  22 / INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, \r
  23 / BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF \r
  24 / USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON \r
  25 / ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT \r
  26 / (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF \r
  27 / THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.\r
  28 /============================================================================*/\r
  29 \r
  30 #define STRICT\r
  31 #include <stdio.h>\r
  32 #include <stdlib.h>\r
  33 #include <string.h>\r
  34 #include <winsock.h>\r
  35 #include <mbstring.h>\r
  36 #include <windowsx.h>\r
  37 \r
  38 #include "common.h"\r
  39 #include "resource.h"\r
  40 \r
  41 \r
  42 \r
  43 #define CONV_ASCII              0               /* ASCII\95¶\8e\9a\8f\88\97\9d\92\86 */\r
  44 #define CONV_KANJI              1               /* \8a¿\8e\9a\8f\88\97\9d\92\86 */\r
  45 #define CONV_KANA               2               /* \94¼\8ap\83J\83^\83J\83i\8f\88\97\9d\92\86 */\r
  46 \r
  47 \r
  48 /*===== \83v\83\8d\83g\83^\83C\83v =====*/\r
  49 \r
  50 static char *ConvEUCtoSJISkanaProc(CODECONVINFO *cInfo, char Dt, char *Put);\r
  51 static char *ConvJIStoSJISkanaProc(CODECONVINFO *cInfo, char Dt, char *Put);\r
  52 static char *ConvSJIStoEUCkanaProc(CODECONVINFO *cInfo, char Dt, char *Put);\r
  53 static char *ConvSJIStoJISkanaProc(CODECONVINFO *cInfo, char Dt, char *Put);\r
  54 static int HanKataToZen(char Ch);\r
  55 static int AskDakuon(char Ch, char Daku);\r
  56 \r
  57 static int CheckOnSJIS(uchar *Pos, uchar *Btm);\r
  58 static int CheckOnEUC(uchar *Pos, uchar *Btm);\r
  59 static int ConvertIBMExtendedChar(int code);\r
  60 \r
  61 \r
  62 \r
  63 #if 0\r
  64 /*----- \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\82Ì\83e\83X\83g\83v\83\8d\83O\83\89\83\80 ------------------------------------*/\r
  65 \r
  66 void CodeCnvTest(void)\r
  67 {\r
  68         #define BUFBUF  43\r
  69         #define BUFBUF2 BUFBUF+3\r
  70 \r
  71         CODECONVINFO cInfo;\r
  72         char Buf[BUFBUF];\r
  73         char Buf2[BUFBUF2];\r
  74         FILE *Strm1;\r
  75         FILE *Strm2;\r
  76         int Byte;\r
  77         int Continue;\r
  78 \r
  79 //      DoPrintf("---START ZEN");\r
  80 \r
  81         Strm1 = fopen("in.txt", "rb");\r
  82         Strm2 = fopen("out_zen.txt", "wb");\r
  83 \r
  84         InitCodeConvInfo(&cInfo);\r
  85         cInfo.KanaCnv = YES;\r
  86 \r
  87 \r
  88         while((Byte = fread(Buf, 1, BUFBUF, Strm1)) != 0)\r
  89         {\r
  90                 cInfo.Str = Buf;\r
  91                 cInfo.StrLen = Byte;\r
  92                 cInfo.Buf = Buf2;\r
  93                 cInfo.BufSize = BUFBUF2;\r
  94 \r
  95 //              DoPrintf("READ %d", Byte);\r
  96 \r
  97                 do\r
  98                 {\r
  99 //                      Continue = ConvEUCtoSJIS(&cInfo);\r
 100 //                      Continue = ConvJIStoSJIS(&cInfo);\r
 101 //                      Continue = ConvSJIStoEUC(&cInfo);\r
 102 //                      Continue = ConvSJIStoJIS(&cInfo);\r
 103                         Continue = ConvSMBtoSJIS(&cInfo);\r
 104 //                      Continue = ConvSJIStoSMB_HEX(&cInfo);\r
 105 //                      Continue = ConvSJIStoSMB_CAP(&cInfo);\r
 106 \r
 107                         fwrite(Buf2, cInfo.OutLen, 1, Strm2);\r
 108 //                      DoPrintf("WRITE %d", cInfo.OutLen);\r
 109 \r
 110                 }\r
 111                 while(Continue == YES);\r
 112         }\r
 113 \r
 114         cInfo.Buf = Buf2;\r
 115         cInfo.BufSize = BUFBUF2;\r
 116         FlushRestData(&cInfo);\r
 117         fwrite(Buf2, cInfo.OutLen, 1, Strm2);\r
 118 //      DoPrintf("WRITE %d", cInfo.OutLen);\r
 119 \r
 120 \r
 121         fclose(Strm1);\r
 122         fclose(Strm2);\r
 123 \r
 124 \r
 125 //      DoPrintf("---START HAN");\r
 126 \r
 127         Strm1 = fopen("in.txt", "rb");\r
 128         Strm2 = fopen("out_han.txt", "wb");\r
 129 \r
 130         InitCodeConvInfo(&cInfo);\r
 131         cInfo.KanaCnv = NO;\r
 132 \r
 133 \r
 134         while((Byte = fread(Buf, 1, BUFBUF, Strm1)) != 0)\r
 135         {\r
 136                 cInfo.Str = Buf;\r
 137                 cInfo.StrLen = Byte;\r
 138                 cInfo.Buf = Buf2;\r
 139                 cInfo.BufSize = BUFBUF2;\r
 140 \r
 141 //              DoPrintf("READ %d", Byte);\r
 142 \r
 143                 do\r
 144                 {\r
 145 //                      Continue = ConvEUCtoSJIS(&cInfo);\r
 146 //                      Continue = ConvJIStoSJIS(&cInfo);\r
 147 //                      Continue = ConvSJIStoEUC(&cInfo);\r
 148 //                      Continue = ConvSJIStoJIS(&cInfo);\r
 149                         Continue = ConvSMBtoSJIS(&cInfo);\r
 150 //                      Continue = ConvSJIStoSMB_HEX(&cInfo);\r
 151 //                      Continue = ConvSJIStoSMB_CAP(&cInfo);\r
 152                         fwrite(Buf2, cInfo.OutLen, 1, Strm2);\r
 153 //                      DoPrintf("WRITE %d", cInfo.OutLen);\r
 154 \r
 155                 }\r
 156                 while(Continue == YES);\r
 157         }\r
 158 \r
 159         cInfo.Buf = Buf2;\r
 160         cInfo.BufSize = BUFBUF2;\r
 161         FlushRestData(&cInfo);\r
 162         fwrite(Buf2, cInfo.OutLen, 1, Strm2);\r
 163 //      DoPrintf("WRITE %d", cInfo.OutLen);\r
 164 \r
 165         fclose(Strm1);\r
 166         fclose(Strm2);\r
 167 \r
 168 //      DoPrintf("---END");\r
 169 \r
 170         return;\r
 171 }\r
 172 #endif\r
 173 \r
 174 \r
 175 \r
 176 #if 0\r
 177 /*----- \89ü\8ds\83R\81[\83h\95Ï\8a·\82Ì\83e\83X\83g\83v\83\8d\83O\83\89\83\80 ------------------------------------*/\r
 178 \r
 179 void TermCodeCnvTest(void)\r
 180 {\r
 181         #define BUFBUF  10\r
 182         #define BUFBUF2 BUFBUF\r
 183 \r
 184         TERMCODECONVINFO cInfo;\r
 185         char Buf[BUFBUF];\r
 186         char Buf2[BUFBUF2];\r
 187         FILE *Strm1;\r
 188         FILE *Strm2;\r
 189         int Byte;\r
 190         int Continue;\r
 191 \r
 192 //      DoPrintf("---START");\r
 193 \r
 194         Strm1 = fopen("in.txt", "rb");\r
 195         Strm2 = fopen("out.txt", "wb");\r
 196 \r
 197         InitTermCodeConvInfo(&cInfo);\r
 198 \r
 199         while((Byte = fread(Buf, 1, BUFBUF, Strm1)) != 0)\r
 200         {\r
 201                 cInfo.Str = Buf;\r
 202                 cInfo.StrLen = Byte;\r
 203                 cInfo.Buf = Buf2;\r
 204                 cInfo.BufSize = BUFBUF2;\r
 205 \r
 206 //              DoPrintf("READ %d", Byte);\r
 207 \r
 208                 do\r
 209                 {\r
 210                         Continue = ConvTermCodeToCRLF(&cInfo);\r
 211 \r
 212                         fwrite(Buf2, cInfo.OutLen, 1, Strm2);\r
 213 //                      DoPrintf("WRITE %d", cInfo.OutLen);\r
 214 \r
 215                 }\r
 216                 while(Continue == YES);\r
 217         }\r
 218 \r
 219         cInfo.Buf = Buf2;\r
 220         cInfo.BufSize = BUFBUF2;\r
 221         FlushRestTermCodeConvData(&cInfo);\r
 222         fwrite(Buf2, cInfo.OutLen, 1, Strm2);\r
 223 //      DoPrintf("WRITE %d", cInfo.OutLen);\r
 224 \r
 225         fclose(Strm1);\r
 226         fclose(Strm2);\r
 227 \r
 228 //      DoPrintf("---END");\r
 229 \r
 230         return;\r
 231 }\r
 232 #endif\r
 233 \r
 234 \r
 235 \r
 236 \r
 237 \r
 238 \r
 239 \r
 240 \r
 241 \r
 242 \r
 243 \r
 244 \r
 245 /*----- \89ü\8ds\83R\81[\83h\95Ï\8a·\8fî\95ñ\82ð\8f\89\8aú\89» --------------------------------------------\r
 246 *\r
 247 *       Parameter\r
 248 *               TERMCODECONVINFO *cInfo : \89ü\8ds\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 249 *\r
 250 *       Return Value\r
 251 *               \82È\82µ\r
 252 *----------------------------------------------------------------------------*/\r
 253 \r
 254 void InitTermCodeConvInfo(TERMCODECONVINFO *cInfo)\r
 255 {\r
 256         cInfo->Term = 0;\r
 257         return;\r
 258 }\r
 259 \r
 260 \r
 261 /*----- \89ü\8ds\83R\81[\83h\95Ï\8a·\82Ì\8ec\82è\8fî\95ñ\82ð\8fo\97Í ----------------------------------------\r
 262 *\r
 263 *       Parameter\r
 264 *               TERMCODECONVINFO *cInfo : \89ü\8ds\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 265 *\r
 266 *       Return Value\r
 267 *               int \82\82è\95Ô\82µ\83t\83\89\83O (=NO)\r
 268 *\r
 269 *       Note\r
 270 *               \89ü\8ds\83R\81[\83h\95Ï\8a·\82Ì\8dÅ\8cã\82É\8cÄ\82Ô\8e\96\r
 271 *----------------------------------------------------------------------------*/\r
 272 \r
 273 int FlushRestTermCodeConvData(TERMCODECONVINFO *cInfo)\r
 274 {\r
 275         char *Put;\r
 276 \r
 277         Put = cInfo->Buf;\r
 278 \r
 279         if(cInfo->Term == 0x0D)\r
 280                 *Put++ = 0x0A;\r
 281 \r
 282         cInfo->OutLen = Put - cInfo->Buf;\r
 283 \r
 284         return(NO);\r
 285 }\r
 286 \r
 287 \r
 288 /*----- \89ü\8ds\83R\81[\83h\82ðCRLF\82É\95Ï\8a· -------------------------------------------------\r
 289 *\r
 290 *       Parameter\r
 291 *               TERMCODECONVINFO *cInfo : \89ü\8ds\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 292 *\r
 293 *       Return Value\r
 294 *               int \82\82è\95Ô\82µ\83t\83\89\83O (YES/NO)\r
 295 *\r
 296 *       Note\r
 297 *               \82\82è\95Ô\82µ\83t\83\89\83O\82ªYES\82Ì\8e\9e\82Í\81AcInfo\82Ì\93à\97e\82ð\95Ï\82¦\82¸\82É\82à\82¤\88ê\93x\8cÄ\82Ô\82±\82Æ\r
 298 *----------------------------------------------------------------------------*/\r
 299 \r
 300 int ConvTermCodeToCRLF(TERMCODECONVINFO *cInfo)\r
 301 {\r
 302         char *Str;\r
 303         char *Put;\r
 304         char *Limit;\r
 305         int Continue;\r
 306 \r
 307         Continue = NO;\r
 308         Str = cInfo->Str;\r
 309         Put = cInfo->Buf;\r
 310         Limit = cInfo->Buf + cInfo->BufSize - 1;\r
 311 \r
 312         for(; cInfo->StrLen > 0; cInfo->StrLen--)\r
 313         {\r
 314                 if(Put >= Limit)\r
 315                 {\r
 316                         Continue = YES;\r
 317                         break;\r
 318                 }\r
 319 \r
 320                 if(*Str == 0x0D)\r
 321                 {\r
 322                         if(cInfo->Term == 0x0D)\r
 323                                 *Put++ = 0x0A;\r
 324                         *Put++ = 0x0D;\r
 325                         cInfo->Term = *Str++;\r
 326                 }\r
 327                 else\r
 328                 {\r
 329                         if(*Str == 0x0A)\r
 330                         {\r
 331                                 if(cInfo->Term != 0x0D)\r
 332                                         *Put++ = 0x0D;\r
 333                         }\r
 334                         else\r
 335                         {\r
 336                                 if(cInfo->Term == 0x0D)\r
 337                                         *Put++ = 0x0A;\r
 338                         }\r
 339                         cInfo->Term = 0;\r
 340                         *Put++ = *Str++;\r
 341                 }\r
 342         }\r
 343 \r
 344         cInfo->Str = Str;\r
 345         cInfo->OutLen = Put - cInfo->Buf;\r
 346 \r
 347         return(Continue);\r
 348 }\r
 349 \r
 350 \r
 351 /*----- \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\82ð\8f\89\8aú\89» --------------------------------------------\r
 352 *\r
 353 *       Parameter\r
 354 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 355 *\r
 356 *       Return Value\r
 357 *               \82È\82µ\r
 358 *----------------------------------------------------------------------------*/\r
 359 \r
 360 void InitCodeConvInfo(CODECONVINFO *cInfo)\r
 361 {\r
 362         cInfo->KanaCnv = YES;\r
 363 \r
 364         cInfo->EscProc = 0;\r
 365         cInfo->KanjiMode = CONV_ASCII;\r
 366         cInfo->KanjiFst = 0;\r
 367         cInfo->KanaPrev = 0;\r
 368         cInfo->KanaProc = NULL;\r
 369         // UTF-8\91Î\89\9e\r
 370         cInfo->EscUTF8Len = 0;\r
 371         return;\r
 372 }\r
 373 \r
 374 \r
 375 /*----- \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\82Ì\8ec\82è\8fî\95ñ\82ð\8fo\97Í ----------------------------------------\r
 376 *\r
 377 *       Parameter\r
 378 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 379 *\r
 380 *       Return Value\r
 381 *               int \82\82è\95Ô\82µ\83t\83\89\83O (=NO)\r
 382 *\r
 383 *       Note\r
 384 *               \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\82Ì\8dÅ\8cã\82É\8cÄ\82Ô\8e\96\r
 385 *----------------------------------------------------------------------------*/\r
 386 \r
 387 int FlushRestData(CODECONVINFO *cInfo)\r
 388 {\r
 389         char *Put;\r
 390 \r
 391         Put = cInfo->Buf;\r
 392 \r
 393         if(cInfo->KanaProc != NULL)\r
 394                 Put = (cInfo->KanaProc)(cInfo, 0, Put);\r
 395 \r
 396         if(cInfo->KanjiFst != 0)\r
 397                 *Put++ = cInfo->KanjiFst;\r
 398         if(cInfo->EscProc >= 1)\r
 399                 *Put++ = cInfo->EscCode[0];\r
 400         if(cInfo->EscProc == 2)\r
 401                 *Put++ = cInfo->EscCode[1];\r
 402         // UTF-8\91Î\89\9e\r
 403         memcpy(Put, cInfo->EscUTF8, sizeof(char) * cInfo->EscUTF8Len);\r
 404         Put += cInfo->EscUTF8Len;\r
 405 \r
 406         cInfo->OutLen = Put - cInfo->Buf;\r
 407 \r
 408         return(NO);\r
 409 }\r
 410 \r
 411 \r
 412 /*----- EUC\8a¿\8e\9a\83R\81[\83h\82ðSHIFT-JIS\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a· ------------------------------\r
 413 *\r
 414 *       Parameter\r
 415 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 416 *\r
 417 *       Return Value\r
 418 *               int \82\82è\95Ô\82µ\83t\83\89\83O (YES/NO)\r
 419 *\r
 420 *       Note\r
 421 *               \82\82è\95Ô\82µ\83t\83\89\83O\82ªYES\82Ì\8e\9e\82Í\81AcInfo\82Ì\93à\97e\82ð\95Ï\82¦\82¸\82É\82à\82¤\88ê\93x\8cÄ\82Ô\82±\82Æ\r
 422 *----------------------------------------------------------------------------*/\r
 423 \r
 424 int ConvEUCtoSJIS(CODECONVINFO *cInfo)\r
 425 {\r
 426         int Kcode;\r
 427         char *Str;\r
 428         char *Put;\r
 429         char *Limit;\r
 430         int Continue;\r
 431 \r
 432         cInfo->KanaProc = &ConvEUCtoSJISkanaProc;\r
 433 \r
 434         Continue = NO;\r
 435         Str = cInfo->Str;\r
 436         Put = cInfo->Buf;\r
 437         Limit = cInfo->Buf + cInfo->BufSize - 2;\r
 438 \r
 439         for(; cInfo->StrLen > 0; cInfo->StrLen--)\r
 440         {\r
 441                 if(Put >= Limit)\r
 442                 {\r
 443                         Continue = YES;\r
 444                         break;\r
 445                 }\r
 446 \r
 447                 if((*Str & 0x80) != 0)\r
 448                 {\r
 449                         if(cInfo->KanjiFst == 0)\r
 450                                 cInfo->KanjiFst = *Str++;\r
 451                         else\r
 452                         {\r
 453                                 if((uchar)cInfo->KanjiFst == (uchar)0x8E)       /* \94¼\8ap\83J\83^\83J\83i */\r
 454                                 {\r
 455                                         Put = ConvEUCtoSJISkanaProc(cInfo, *Str++, Put);\r
 456                                 }\r
 457                                 else\r
 458                                 {\r
 459                                         Put = ConvEUCtoSJISkanaProc(cInfo, 0, Put);\r
 460 \r
 461                                         Kcode = _mbcjistojms(((cInfo->KanjiFst & 0x7F) * 0x100) + (*Str++ & 0x7F));\r
 462                                         *Put++ = HIGH8(Kcode);\r
 463                                         *Put++ = LOW8(Kcode);\r
 464                                 }\r
 465                                 cInfo->KanjiFst = 0;\r
 466                         }\r
 467                 }\r
 468                 else\r
 469                 {\r
 470                         Put = ConvEUCtoSJISkanaProc(cInfo, 0, Put);\r
 471 \r
 472                         if(cInfo->KanjiFst != 0)\r
 473                         {\r
 474                                 *Put++ = cInfo->KanjiFst;\r
 475                                 cInfo->KanjiFst = 0;\r
 476                         }\r
 477                         *Put++ = *Str++;\r
 478                 }\r
 479         }\r
 480 \r
 481         cInfo->Str = Str;\r
 482         cInfo->OutLen = Put - cInfo->Buf;\r
 483 \r
 484         return(Continue);\r
 485 }\r
 486 \r
 487 \r
 488 /*----- EUC-->SHIFT-JIS\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a·\82Ì\94¼\8ap\83J\83^\83J\83i\82Ì\8f\88\97\9d -------------------\r
 489 *\r
 490 *       Parameter\r
 491 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 492 *               char Dt : \95¶\8e\9a\r
 493 *               char *Put : \83f\81[\83^\83Z\83b\83g\88Ê\92u\r
 494 *\r
 495 *       Return Value\r
 496 *               char *\8e\9f\82Ì\83f\81[\83^\83Z\83b\83g\88Ê\92u\r
 497 *----------------------------------------------------------------------------*/\r
 498 \r
 499 static char *ConvEUCtoSJISkanaProc(CODECONVINFO *cInfo, char Dt, char *Put)\r
 500 {\r
 501         int Kcode;\r
 502         int Daku;\r
 503 \r
 504         if(cInfo->KanaCnv == NO)\r
 505         {\r
 506                 if(Dt != 0)\r
 507                         *Put++ = Dt;\r
 508         }\r
 509         else\r
 510         {\r
 511                 if(cInfo->KanaPrev != 0)\r
 512                 {\r
 513                         Daku = AskDakuon(cInfo->KanaPrev, Dt);\r
 514 \r
 515                         Kcode = _mbcjistojms(HanKataToZen(cInfo->KanaPrev)) + Daku;\r
 516                         *Put++ = HIGH8(Kcode);\r
 517                         *Put++ = LOW8(Kcode);\r
 518 \r
 519                         if(Daku == 0)\r
 520                                 cInfo->KanaPrev = Dt;\r
 521                         else\r
 522                                 cInfo->KanaPrev = 0;\r
 523                 }\r
 524                 else\r
 525                         cInfo->KanaPrev = Dt;\r
 526         }\r
 527         return(Put);\r
 528 }\r
 529 \r
 530 \r
 531 /*----- JIS\8a¿\8e\9a\83R\81[\83h\82ðSHIFT-JIS\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a· ------------------------------\r
 532 *\r
 533 *       Parameter\r
 534 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 535 *\r
 536 *       Return Value\r
 537 *               int \82\82è\95Ô\82µ\83t\83\89\83O (YES/NO)\r
 538 *\r
 539 *       Note\r
 540 *               \82\82è\95Ô\82µ\83t\83\89\83O\82ªYES\82Ì\8e\9e\82Í\81AcInfo\82Ì\93à\97e\82ð\95Ï\82¦\82¸\82É\82à\82¤\88ê\93x\8cÄ\82Ô\82±\82Æ\r
 541 *\r
 542 *               \83G\83X\83P\81[\83v\83R\81[\83h\82Í\81A\8e\9f\82Ì\82à\82Ì\82É\91Î\89\9e\82µ\82Ä\82¢\82é\r
 543 *                       \8a¿\8e\9a\8aJ\8en                <ESC>$B         <ESC>$@\r
 544 *                       \94¼\8ap\83J\83i\8aJ\8en    <ESC>(I\r
 545 *                       \8a¿\8e\9a\8fI\97¹                <ESC>(B         <ESC>(J         <ESC>(H\r
 546 *----------------------------------------------------------------------------*/\r
 547 \r
 548 int ConvJIStoSJIS(CODECONVINFO *cInfo)\r
 549 {\r
 550         int Kcode;\r
 551         char *Str;\r
 552         char *Put;\r
 553         char *Limit;\r
 554         int Continue;\r
 555 \r
 556         cInfo->KanaProc = &ConvJIStoSJISkanaProc;\r
 557 \r
 558         Continue = NO;\r
 559         Str = cInfo->Str;\r
 560         Put = cInfo->Buf;\r
 561         Limit = cInfo->Buf + cInfo->BufSize - 3;\r
 562 \r
 563         for(; cInfo->StrLen > 0; cInfo->StrLen--)\r
 564         {\r
 565                 if(Put >= Limit)\r
 566                 {\r
 567                         Continue = YES;\r
 568                         break;\r
 569                 }\r
 570 \r
 571                 if(cInfo->EscProc == 0)\r
 572                 {\r
 573                         if(*Str == 0x1B)\r
 574                         {\r
 575                                 if(cInfo->KanjiFst != 0)\r
 576                                 {\r
 577                                         *Put++ = cInfo->KanjiFst;\r
 578                                         cInfo->KanjiFst = 0;\r
 579                                 }\r
 580                                 Put = ConvJIStoSJISkanaProc(cInfo, 0, Put);\r
 581 \r
 582                                 cInfo->EscCode[cInfo->EscProc] = *Str++;\r
 583                                 cInfo->EscProc++;\r
 584                         }\r
 585                         else\r
 586                         {\r
 587                                 if(cInfo->KanjiMode == CONV_KANA)\r
 588                                 {\r
 589                                         if(cInfo->KanjiFst != 0)\r
 590                                         {\r
 591                                                 *Put++ = cInfo->KanjiFst;\r
 592                                                 cInfo->KanjiFst = 0;\r
 593                                         }\r
 594 \r
 595                                         if((*Str >= 0x21) && (*Str <= 0x5F))\r
 596                                         {\r
 597                                                 Put = ConvJIStoSJISkanaProc(cInfo, *Str++, Put);\r
 598                                         }\r
 599                                         else\r
 600                                         {\r
 601                                                 Put = ConvJIStoSJISkanaProc(cInfo, 0, Put);\r
 602                                                 *Put++ = *Str++;\r
 603                                         }\r
 604                                 }\r
 605                                 else if(cInfo->KanjiMode == CONV_KANJI)\r
 606                                 {\r
 607                                         Put = ConvJIStoSJISkanaProc(cInfo, 0, Put);\r
 608                                         if((*Str >= 0x21) && (*Str <= 0x7E))\r
 609                                         {\r
 610                                                 if(cInfo->KanjiFst == 0)\r
 611                                                         cInfo->KanjiFst = *Str++;\r
 612                                                 else\r
 613                                                 {\r
 614                                                         Kcode = _mbcjistojms((cInfo->KanjiFst * 0x100) + *Str++);\r
 615                                                         *Put++ = HIGH8(Kcode);\r
 616                                                         *Put++ = LOW8(Kcode);\r
 617                                                         cInfo->KanjiFst = 0;\r
 618                                                 }\r
 619                                         }\r
 620                                         else\r
 621                                         {\r
 622                                                 if(cInfo->KanjiFst == 0)\r
 623                                                         *Put++ = *Str++;\r
 624                                                 else\r
 625                                                 {\r
 626                                                         *Put++ = cInfo->KanjiFst;\r
 627                                                         *Put++ = *Str++;\r
 628                                                         cInfo->KanjiFst = 0;\r
 629                                                 }\r
 630                                         }\r
 631                                 }\r
 632                                 else\r
 633                                 {\r
 634                                         Put = ConvJIStoSJISkanaProc(cInfo, 0, Put);\r
 635                                         *Put++ = *Str++;\r
 636                                 }\r
 637                         }\r
 638                 }\r
 639                 else if(cInfo->EscProc == 1)\r
 640                 {\r
 641                         if((*Str == '$') || (*Str == '('))\r
 642                         {\r
 643                                 cInfo->EscCode[cInfo->EscProc] = *Str++;\r
 644                                 cInfo->EscProc++;\r
 645                         }\r
 646                         else\r
 647                         {\r
 648                                 *Put++ = cInfo->EscCode[0];\r
 649                                 *Put++ = *Str++;\r
 650                                 cInfo->EscProc = 0;\r
 651                         }\r
 652                 }\r
 653                 else if(cInfo->EscProc == 2)\r
 654                 {\r
 655                         if((cInfo->EscCode[1] == '$') && ((*Str == 'B') || (*Str == '@')))\r
 656                                 cInfo->KanjiMode = CONV_KANJI;\r
 657                         else if((cInfo->EscCode[1] == '(') && (*Str == 'I'))\r
 658                                 cInfo->KanjiMode = CONV_KANA;\r
 659                         else if((cInfo->EscCode[1] == '(') && ((*Str == 'B') || (*Str == 'J') || (*Str == 'H')))\r
 660                                 cInfo->KanjiMode = CONV_ASCII;\r
 661                         else\r
 662                         {\r
 663                                 *Put++ = cInfo->EscCode[0];\r
 664                                 *Put++ = cInfo->EscCode[1];\r
 665                                 if((cInfo->KanjiMode == CONV_KANJI) && ((*Str >= 0x21) && (*Str <= 0x7E)))\r
 666                                         cInfo->KanjiFst = *Str;\r
 667                                 else\r
 668                                         *Put++ = *Str;\r
 669                         }\r
 670                         Str++;\r
 671                         cInfo->EscProc = 0;\r
 672                 }\r
 673         }\r
 674 \r
 675         cInfo->Str = Str;\r
 676         cInfo->OutLen = Put - cInfo->Buf;\r
 677 \r
 678         return(Continue);\r
 679 }\r
 680 \r
 681 \r
 682 /*----- JIS-->SHIFT-JIS\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a·\82Ì\94¼\8ap\83J\83^\83J\83i\82Ì\8f\88\97\9d -------------------\r
 683 *\r
 684 *       Parameter\r
 685 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 686 *               char Dt : \95¶\8e\9a\r
 687 *               char *Put : \83f\81[\83^\83Z\83b\83g\88Ê\92u\r
 688 *\r
 689 *       Return Value\r
 690 *               char *\8e\9f\82Ì\83f\81[\83^\83Z\83b\83g\88Ê\92u\r
 691 *----------------------------------------------------------------------------*/\r
 692 \r
 693 static char *ConvJIStoSJISkanaProc(CODECONVINFO *cInfo, char Dt, char *Put)\r
 694 {\r
 695         int Kcode;\r
 696         int Daku;\r
 697 \r
 698         Dt = (uchar)Dt + (uchar)0x80;\r
 699         if(cInfo->KanaCnv == NO)\r
 700         {\r
 701                 if((uchar)Dt != (uchar)0x80)\r
 702                         *Put++ = Dt;\r
 703         }\r
 704         else\r
 705         {\r
 706                 if(cInfo->KanaPrev != 0)\r
 707                 {\r
 708                         Daku = AskDakuon(cInfo->KanaPrev, Dt);\r
 709                         Kcode = _mbcjistojms(HanKataToZen(cInfo->KanaPrev)) + Daku;\r
 710                         *Put++ = HIGH8(Kcode);\r
 711                         *Put++ = LOW8(Kcode);\r
 712 \r
 713                         if((Daku == 0) && ((uchar)Dt != (uchar)0x80))\r
 714                                 cInfo->KanaPrev = Dt;\r
 715                         else\r
 716                                 cInfo->KanaPrev = 0;\r
 717                 }\r
 718                 else if((uchar)Dt != (uchar)0x80)\r
 719                         cInfo->KanaPrev = Dt;\r
 720         }\r
 721         return(Put);\r
 722 }\r
 723 \r
 724 \r
 725 /*----- Samba-HEX/Samba-CAP\8a¿\8e\9a\83R\81[\83h\82ðSHIFT-JIS\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a· --------------\r
 726 *\r
 727 *       Parameter\r
 728 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 729 *\r
 730 *       Return Value\r
 731 *               int \82\82è\95Ô\82µ\83t\83\89\83O (YES/NO)\r
 732 *\r
 733 *       Note\r
 734 *               \82\82è\95Ô\82µ\83t\83\89\83O\82ªYES\82Ì\8e\9e\82Í\81AcInfo\82Ì\93à\97e\82ð\95Ï\82¦\82¸\82É\82à\82¤\88ê\93x\8cÄ\82Ô\82±\82Æ\r
 735 *               \95ª\8a\84\82³\82ê\82½\93ü\97Í\95¶\8e\9a\97ñ\82Ì\95Ï\8a·\82Í\83T\83|\81[\83g\82µ\82Ä\82¢\82È\82¢\r
 736 *               \94¼\8ap\83J\83^\83J\83i\82Ì\95Ï\8a·\90Ý\92è\82É\82Í\91Î\89\9e\82µ\82Ä\82¢\82È\82¢\r
 737 *----------------------------------------------------------------------------*/\r
 738 \r
 739 int ConvSMBtoSJIS(CODECONVINFO *cInfo)\r
 740 {\r
 741         char *Str;\r
 742         char *Put;\r
 743         char *Limit;\r
 744         int Continue;\r
 745 \r
 746         Continue = NO;\r
 747         Str = cInfo->Str;\r
 748         Put = cInfo->Buf;\r
 749         Limit = cInfo->Buf + cInfo->BufSize - 2;\r
 750 \r
 751         for(; cInfo->StrLen > 0; cInfo->StrLen--)\r
 752         {\r
 753                 if(Put >= Limit)\r
 754                 {\r
 755                         Continue = YES;\r
 756                         break;\r
 757                 }\r
 758 \r
 759                 if((*Str == SAMBA_HEX_TAG) && (cInfo->StrLen >= 3))\r
 760                 {\r
 761                         if(isxdigit(*(Str+1)) && isxdigit(*(Str+2)))\r
 762                         {\r
 763                                 *Put++ = N2INT(hex2bin(*(Str+1)), hex2bin(*(Str+2)));\r
 764                                 Str += 3;\r
 765                                 cInfo->StrLen -= 2;\r
 766                         }\r
 767                         else\r
 768                                 *Put++ = *Str++;\r
 769                 }\r
 770                 else\r
 771                         *Put++ = *Str++;\r
 772         }\r
 773 \r
 774         cInfo->Str = Str;\r
 775         cInfo->OutLen = Put - cInfo->Buf;\r
 776 \r
 777         return(Continue);\r
 778 }\r
 779 \r
 780 \r
 781 /*----- SHIFT-JIS\8a¿\8e\9a\83R\81[\83h\82ðEUC\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a· ------------------------------\r
 782 *\r
 783 *       Parameter\r
 784 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 785 *\r
 786 *       Return Value\r
 787 *               int \82\82è\95Ô\82µ\83t\83\89\83O (YES/NO)\r
 788 *\r
 789 *       Note\r
 790 *               \82\82è\95Ô\82µ\83t\83\89\83O\82ªYES\82Ì\8e\9e\82Í\81AcInfo\82Ì\93à\97e\82ð\95Ï\82¦\82¸\82É\82à\82¤\88ê\93x\8cÄ\82Ô\82±\82Æ\r
 791 *----------------------------------------------------------------------------*/\r
 792 \r
 793 int ConvSJIStoEUC(CODECONVINFO *cInfo)\r
 794 {\r
 795         int Kcode;\r
 796         char *Str;\r
 797         char *Put;\r
 798         char *Limit;\r
 799         int Continue;\r
 800 \r
 801         cInfo->KanaProc = &ConvSJIStoEUCkanaProc;\r
 802 \r
 803         Continue = NO;\r
 804         Str = cInfo->Str;\r
 805         Put = cInfo->Buf;\r
 806         Limit = cInfo->Buf + cInfo->BufSize - 2;\r
 807 \r
 808         for(; cInfo->StrLen > 0; cInfo->StrLen--)\r
 809         {\r
 810                 if(Put >= Limit)\r
 811                 {\r
 812                         Continue = YES;\r
 813                         break;\r
 814                 }\r
 815 \r
 816                 if(cInfo->KanjiFst == 0)\r
 817                 {\r
 818                         if((((uchar)*Str >= (uchar)0x81) && ((uchar)*Str <= (uchar)0x9F)) ||\r
 819                            ((uchar)*Str >= (uchar)0xE0))\r
 820                         {\r
 821                                 Put = ConvSJIStoEUCkanaProc(cInfo, 0, Put);\r
 822                                 cInfo->KanjiFst = *Str++;\r
 823                         }\r
 824                         else if(((uchar)*Str >= (uchar)0xA0) && ((uchar)*Str <= (uchar)0xDF))\r
 825                         {\r
 826                                 Put = ConvSJIStoEUCkanaProc(cInfo, *Str++, Put);\r
 827                         }\r
 828                         else\r
 829                         {\r
 830                                 Put = ConvSJIStoEUCkanaProc(cInfo, 0, Put);\r
 831                                 *Put++ = *Str++;\r
 832                         }\r
 833                 }\r
 834                 else\r
 835                 {\r
 836                         if((uchar)*Str >= (uchar)0x40)\r
 837                         {\r
 838                                 Kcode = ConvertIBMExtendedChar(((uchar)cInfo->KanjiFst * 0x100) + (uchar)*Str++);\r
 839                                 Kcode = _mbcjmstojis(Kcode);\r
 840                                 *Put++ = HIGH8(Kcode) | 0x80;\r
 841                                 *Put++ = LOW8(Kcode) | 0x80;\r
 842                         }\r
 843                         else\r
 844                         {\r
 845                                 *Put++ = cInfo->KanjiFst;\r
 846                                 *Put++ = *Str++;\r
 847                         }\r
 848                         cInfo->KanjiFst = 0;\r
 849                 }\r
 850         }\r
 851 \r
 852         cInfo->Str = Str;\r
 853         cInfo->OutLen = Put - cInfo->Buf;\r
 854 \r
 855         return(Continue);\r
 856 }\r
 857 \r
 858 \r
 859 /*----- SHIFT-JIS-->EUC\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a·\82Ì\94¼\8ap\83J\83^\83J\83i\82Ì\8f\88\97\9d -------------------\r
 860 *\r
 861 *       Parameter\r
 862 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 863 *               char Dt : \95¶\8e\9a\r
 864 *               char *Put : \83f\81[\83^\83Z\83b\83g\88Ê\92u\r
 865 *\r
 866 *       Return Value\r
 867 *               char *\8e\9f\82Ì\83f\81[\83^\83Z\83b\83g\88Ê\92u\r
 868 *----------------------------------------------------------------------------*/\r
 869 \r
 870 static char *ConvSJIStoEUCkanaProc(CODECONVINFO *cInfo, char Dt, char *Put)\r
 871 {\r
 872         int Kcode;\r
 873         int Daku;\r
 874 \r
 875         if(cInfo->KanaCnv == NO)\r
 876         {\r
 877                 if(Dt != 0)\r
 878                 {\r
 879                         Kcode = 0x8E00 + (uchar)Dt;\r
 880                         *Put++ = HIGH8(Kcode) | 0x80;\r
 881                         *Put++ = LOW8(Kcode) | 0x80;\r
 882                 }\r
 883         }\r
 884         else\r
 885         {\r
 886                 if(cInfo->KanaPrev != 0)\r
 887                 {\r
 888                         Daku = AskDakuon(cInfo->KanaPrev, Dt);\r
 889                         Kcode = HanKataToZen(cInfo->KanaPrev) + Daku;\r
 890                         *Put++ = HIGH8(Kcode) | 0x80;\r
 891                         *Put++ = LOW8(Kcode) | 0x80;\r
 892 \r
 893                         if(Daku == 0)\r
 894                                 cInfo->KanaPrev = Dt;\r
 895                         else\r
 896                                 cInfo->KanaPrev = 0;\r
 897                 }\r
 898                 else\r
 899                         cInfo->KanaPrev = Dt;\r
 900         }\r
 901         return(Put);\r
 902 }\r
 903 \r
 904 \r
 905 /*----- SHIFT-JIS\8a¿\8e\9a\83R\81[\83h\82ðJIS\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a· ------------------------------\r
 906 *\r
 907 *       Parameter\r
 908 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
 909 *\r
 910 *       Return Value\r
 911 *               int \82\82è\95Ô\82µ\83t\83\89\83O (YES/NO)\r
 912 *\r
 913 *       Note\r
 914 *               \82\82è\95Ô\82µ\83t\83\89\83O\82ªYES\82Ì\8e\9e\82Í\81AcInfo\82Ì\93à\97e\82ð\95Ï\82¦\82¸\82É\82à\82¤\88ê\93x\8cÄ\82Ô\82±\82Æ\r
 915 *\r
 916 *               \83G\83X\83P\81[\83v\83R\81[\83h\82Í\81A\8e\9f\82Ì\82à\82Ì\82ð\8eg\97p\82·\82é\r
 917 *                       \8a¿\8e\9a\8aJ\8en                <ESC>$B\r
 918 *                       \94¼\8ap\83J\83i\8aJ\8en    <ESC>(I\r
 919 *                       \8a¿\8e\9a\8fI\97¹                <ESC>(B\r
 920 *----------------------------------------------------------------------------*/\r
 921 \r
 922 int ConvSJIStoJIS(CODECONVINFO *cInfo)\r
 923 {\r
 924         int Kcode;\r
 925         char *Str;\r
 926         char *Put;\r
 927         char *Limit;\r
 928         int Continue;\r
 929 \r
 930         cInfo->KanaProc = &ConvSJIStoJISkanaProc;\r
 931 \r
 932         Continue = NO;\r
 933         Str = cInfo->Str;\r
 934         Put = cInfo->Buf;\r
 935         Limit = cInfo->Buf + cInfo->BufSize - 5;\r
 936 \r
 937         for(; cInfo->StrLen > 0; cInfo->StrLen--)\r
 938         {\r
 939                 if(Put >= Limit)\r
 940                 {\r
 941                         Continue = YES;\r
 942                         break;\r
 943                 }\r
 944 \r
 945                 if(cInfo->KanjiFst == 0)\r
 946                 {\r
 947                         if((((uchar)*Str >= (uchar)0x81) && ((uchar)*Str <= (uchar)0x9F)) ||\r
 948                            ((uchar)*Str >= (uchar)0xE0))\r
 949                         {\r
 950                                 Put = ConvSJIStoJISkanaProc(cInfo, 0, Put);\r
 951                                 cInfo->KanjiFst = *Str++;\r
 952                         }\r
 953                         else if(((uchar)*Str >= (uchar)0xA0) && ((uchar)*Str <= (uchar)0xDF))\r
 954                         {\r
 955                                 Put = ConvSJIStoJISkanaProc(cInfo, *Str++, Put);\r
 956                         }\r
 957                         else\r
 958                         {\r
 959                                 Put = ConvSJIStoJISkanaProc(cInfo, 0, Put);\r
 960                                 if(cInfo->KanjiMode != CONV_ASCII)\r
 961                                 {\r
 962                                         *Put++ = 0x1B;\r
 963                                         *Put++ = '(';\r
 964                                         *Put++ = 'B';\r
 965                                         cInfo->KanjiMode = CONV_ASCII;\r
 966                                 }\r
 967                                 *Put++ = *Str++;\r
 968                         }\r
 969                 }\r
 970                 else\r
 971                 {\r
 972                         Put = ConvSJIStoJISkanaProc(cInfo, 0, Put);\r
 973                         if((uchar)*Str >= (uchar)0x40)\r
 974                         {\r
 975                                 if(cInfo->KanjiMode != CONV_KANJI)\r
 976                                 {\r
 977                                         *Put++ = 0x1B;\r
 978                                         *Put++ = '$';\r
 979                                         *Put++ = 'B';\r
 980                                         cInfo->KanjiMode = CONV_KANJI;\r
 981                                 }\r
 982 \r
 983                                 Kcode = ConvertIBMExtendedChar(((uchar)cInfo->KanjiFst * 0x100) + (uchar)*Str++);\r
 984                                 Kcode = _mbcjmstojis(Kcode);\r
 985                                 *Put++ = HIGH8(Kcode);\r
 986                                 *Put++ = LOW8(Kcode);\r
 987                         }\r
 988                         else\r
 989                         {\r
 990                                 if(cInfo->KanjiMode != CONV_ASCII)\r
 991                                 {\r
 992                                         *Put++ = 0x1B;\r
 993                                         *Put++ = '(';\r
 994                                         *Put++ = 'B';\r
 995                                         cInfo->KanjiMode = CONV_ASCII;\r
 996                                 }\r
 997                                 *Put++ = cInfo->KanjiFst;\r
 998                                 *Put++ = *Str++;\r
 999                         }\r
1000                         cInfo->KanjiFst = 0;\r
1001                 }\r
1002         }\r
1003 \r
1004         cInfo->Str = Str;\r
1005         cInfo->OutLen = Put - cInfo->Buf;\r
1006 \r
1007         return(Continue);\r
1008 }\r
1009 \r
1010 \r
1011 /*----- SHIFT-JIS-->JIS\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a·\82Ì\94¼\8ap\83J\83^\83J\83i\82Ì\8f\88\97\9d -------------------\r
1012 *\r
1013 *       Parameter\r
1014 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
1015 *               char Dt : \95¶\8e\9a\r
1016 *               char *Put : \83f\81[\83^\83Z\83b\83g\88Ê\92u\r
1017 *\r
1018 *       Return Value\r
1019 *               char *\8e\9f\82Ì\83f\81[\83^\83Z\83b\83g\88Ê\92u\r
1020 *----------------------------------------------------------------------------*/\r
1021 \r
1022 static char *ConvSJIStoJISkanaProc(CODECONVINFO *cInfo, char Dt, char *Put)\r
1023 {\r
1024         int Kcode;\r
1025         int Daku;\r
1026 \r
1027         if(cInfo->KanaCnv == NO)\r
1028         {\r
1029                 if(Dt != 0)\r
1030                 {\r
1031                         if(cInfo->KanjiMode != CONV_KANA)\r
1032                         {\r
1033                                 *Put++ = 0x1B;\r
1034                                 *Put++ = '(';\r
1035                                 *Put++ = 'I';\r
1036                                 cInfo->KanjiMode = CONV_KANA;\r
1037                         }\r
1038                         *Put++ = (uchar)Dt - (uchar)0x80;\r
1039                 }\r
1040         }\r
1041         else\r
1042         {\r
1043                 if(cInfo->KanaPrev != 0)\r
1044                 {\r
1045                         if(cInfo->KanjiMode != CONV_KANJI)\r
1046                         {\r
1047                                 *Put++ = 0x1B;\r
1048                                 *Put++ = '$';\r
1049                                 *Put++ = 'B';\r
1050                                 cInfo->KanjiMode = CONV_KANJI;\r
1051                         }\r
1052                         Daku = AskDakuon(cInfo->KanaPrev, Dt);\r
1053                         Kcode = HanKataToZen(cInfo->KanaPrev) + Daku;\r
1054                         *Put++ = HIGH8(Kcode);\r
1055                         *Put++ = LOW8(Kcode);\r
1056 \r
1057                         if(Daku == 0)\r
1058                                 cInfo->KanaPrev = Dt;\r
1059                         else\r
1060                                 cInfo->KanaPrev = 0;\r
1061                 }\r
1062                 else\r
1063                         cInfo->KanaPrev = Dt;\r
1064         }\r
1065         return(Put);\r
1066 }\r
1067 \r
1068 \r
1069 /*----- SHIFT-JIS\8a¿\8e\9a\83R\81[\83h\82ðSamba-HEX\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a· ------------------------\r
1070 *\r
1071 *       Parameter\r
1072 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
1073 *\r
1074 *       Return Value\r
1075 *               int \82\82è\95Ô\82µ\83t\83\89\83O (YES/NO)\r
1076 *\r
1077 *       Note\r
1078 *               \82\82è\95Ô\82µ\83t\83\89\83O\82ªYES\82Ì\8e\9e\82Í\81AcInfo\82Ì\93à\97e\82ð\95Ï\82¦\82¸\82É\82à\82¤\88ê\93x\8cÄ\82Ô\82±\82Æ\r
1079 *               \95ª\8a\84\82³\82ê\82½\93ü\97Í\95¶\8e\9a\97ñ\82Ì\95Ï\8a·\82Í\83T\83|\81[\83g\82µ\82Ä\82¢\82È\82¢\r
1080 *               \94¼\8ap\83J\83^\83J\83i\82Ì\95Ï\8a·\90Ý\92è\82É\82Í\91Î\89\9e\82µ\82Ä\82¢\82È\82¢\r
1081 *----------------------------------------------------------------------------*/\r
1082 \r
1083 int ConvSJIStoSMB_HEX(CODECONVINFO *cInfo)\r
1084 {\r
1085         char *Str;\r
1086         char *Put;\r
1087         char *Limit;\r
1088         int Continue;\r
1089 \r
1090         Continue = NO;\r
1091         Str = cInfo->Str;\r
1092         Put = cInfo->Buf;\r
1093         Limit = cInfo->Buf + cInfo->BufSize - 6;\r
1094 \r
1095         for(; cInfo->StrLen > 0; cInfo->StrLen--)\r
1096         {\r
1097                 if(Put >= Limit)\r
1098                 {\r
1099                         Continue = YES;\r
1100                         break;\r
1101                 }\r
1102 \r
1103                 if((cInfo->StrLen >= 2) &&\r
1104                    ((((uchar)*Str >= (uchar)0x81) && ((uchar)*Str <= (uchar)0x9F)) ||\r
1105                     ((uchar)*Str >= (uchar)0xE0)))\r
1106                 {\r
1107                         sprintf(Put, "%c%02x%c%02x", SAMBA_HEX_TAG, (uchar)*Str, SAMBA_HEX_TAG, (uchar)*(Str+1));\r
1108                         Str += 2;\r
1109                         Put += 6;\r
1110                         cInfo->StrLen--;\r
1111                 }\r
1112                 else if((uchar)*Str >= (uchar)0x80)\r
1113                 {\r
1114                         sprintf(Put, "%c%02x", SAMBA_HEX_TAG, (uchar)*Str++);\r
1115                         Put += 3;\r
1116                 }\r
1117                 else\r
1118                         *Put++ = *Str++;\r
1119         }\r
1120 \r
1121         cInfo->Str = Str;\r
1122         cInfo->OutLen = Put - cInfo->Buf;\r
1123 \r
1124         return(Continue);\r
1125 }\r
1126 \r
1127 \r
1128 /*----- SHIFT-JIS\8a¿\8e\9a\83R\81[\83h\82ðSamba-CAP\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a· ------------------------\r
1129 *\r
1130 *       Parameter\r
1131 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
1132 *\r
1133 *       Return Value\r
1134 *               int \82\82è\95Ô\82µ\83t\83\89\83O (YES/NO)\r
1135 *\r
1136 *       Note\r
1137 *               \82\82è\95Ô\82µ\83t\83\89\83O\82ªYES\82Ì\8e\9e\82Í\81AcInfo\82Ì\93à\97e\82ð\95Ï\82¦\82¸\82É\82à\82¤\88ê\93x\8cÄ\82Ô\82±\82Æ\r
1138 *               \95ª\8a\84\82³\82ê\82½\93ü\97Í\95¶\8e\9a\97ñ\82Ì\95Ï\8a·\82Í\83T\83|\81[\83g\82µ\82Ä\82¢\82È\82¢\r
1139 *----------------------------------------------------------------------------*/\r
1140 \r
1141 int ConvSJIStoSMB_CAP(CODECONVINFO *cInfo)\r
1142 {\r
1143         char *Str;\r
1144         char *Put;\r
1145         char *Limit;\r
1146         int Continue;\r
1147 \r
1148         Continue = NO;\r
1149         Str = cInfo->Str;\r
1150         Put = cInfo->Buf;\r
1151         Limit = cInfo->Buf + cInfo->BufSize - 6;\r
1152 \r
1153         for(; cInfo->StrLen > 0; cInfo->StrLen--)\r
1154         {\r
1155                 if(Put >= Limit)\r
1156                 {\r
1157                         Continue = YES;\r
1158                         break;\r
1159                 }\r
1160 \r
1161                 if((uchar)*Str >= (uchar)0x80)\r
1162                 {\r
1163                         sprintf(Put, "%c%02x", SAMBA_HEX_TAG, (uchar)*Str++);\r
1164                         Put += 3;\r
1165                 }\r
1166                 else\r
1167                         *Put++ = *Str++;\r
1168         }\r
1169 \r
1170         cInfo->Str = Str;\r
1171         cInfo->OutLen = Put - cInfo->Buf;\r
1172 \r
1173         return(Continue);\r
1174 }\r
1175 \r
1176 \r
1177 /*----- \82P\83o\83C\83g\83J\83^\83J\83i\82ðJIS\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a· ---------------------------------\r
1178 *\r
1179 *       Parameter\r
1180 *               char Ch : \82P\83o\83C\83g\83J\83^\83J\83i\83R\81[\83h\r
1181 *\r
1182 *       Return Value\r
1183 *               int JIS\8a¿\8e\9a\83R\81[\83h\r
1184 *----------------------------------------------------------------------------*/\r
1185 \r
1186 static int HanKataToZen(char Ch)\r
1187 {\r
1188         static const int Katakana[] = {\r
1189                 0x2121, 0x2123, 0x2156, 0x2157, 0x2122, 0x2126, 0x2572, 0x2521, \r
1190                 0x2523, 0x2525, 0x2527, 0x2529, 0x2563, 0x2565, 0x2567, 0x2543, \r
1191                 0x213C, 0x2522, 0x2524, 0x2526, 0x2528, 0x252A, 0x252B, 0x252D, \r
1192                 0x252F, 0x2531, 0x2533, 0x2535, 0x2537, 0x2539, 0x253B, 0x253D, \r
1193                 0x253F, 0x2541, 0x2544, 0x2546, 0x2548, 0x254A, 0x254B, 0x254C, \r
1194                 0x254D, 0x254E, 0x254F, 0x2552, 0x2555, 0x2558, 0x255B, 0x255E, \r
1195                 0x255F, 0x2560, 0x2561, 0x2562, 0x2564, 0x2566, 0x2568, 0x2569, \r
1196                 0x256A, 0x256B, 0x256C, 0x256D, 0x256F, 0x2573, 0x212B, 0x212C\r
1197         };\r
1198 \r
1199         return(Katakana[(uchar)Ch - (uchar)0xA0]);\r
1200 }\r
1201 \r
1202 \r
1203 /*----- \91÷\89¹\81^\94¼\91÷\89¹\82É\82È\82é\95¶\8e\9a\82©\83`\83F\83b\83N --------------------------------------\r
1204 *\r
1205 *       Parameter\r
1206 *               char Ch : \82P\83o\83C\83g\83J\83^\83J\83i\83R\81[\83h\r
1207 *               char Daku : \91÷\93_\81^\94¼\91÷\93_\r
1208 *\r
1209 *       Return Value\r
1210 *               int \95¶\8e\9a\83R\81[\83h\82É\89Á\82¦\82é\92l (0=\91÷\89¹\81^\94¼\91÷\89¹\82É\82È\82ç\82È\82¢)\r
1211 *----------------------------------------------------------------------------*/\r
1212 \r
1213 static int AskDakuon(char Ch, char Daku)\r
1214 {\r
1215         int Ret;\r
1216 \r
1217         Ret = 0;\r
1218         if((uchar)Daku == (uchar)0xDE)\r
1219         {\r
1220                 if((((uchar)Ch >= (uchar)0xB6) && ((uchar)Ch <= (uchar)0xC4)) ||\r
1221                    (((uchar)Ch >= (uchar)0xCA) && ((uchar)Ch <= (uchar)0xCE)))\r
1222                 {\r
1223                         Ret = 1;\r
1224                 }\r
1225         }\r
1226         else if((uchar)Daku == (uchar)0xDF)\r
1227         {\r
1228                 if(((uchar)Ch >= (uchar)0xCA) && ((uchar)Ch <= (uchar)0xCE))\r
1229                 {\r
1230                         Ret = 2;\r
1231                 }\r
1232         }\r
1233         return(Ret);\r
1234 }\r
1235 \r
1236 \r
1237 \r
1238 \r
1239 \r
1240 \r
1241 \r
1242 \r
1243 \r
1244 \r
1245 \r
1246 \r
1247 /*----- \95¶\8e\9a\97ñ\82Ì\8a¿\8e\9a\83R\81[\83h\82ð\92²\82×\81AShift-JIS\82É\95Ï\8a· -----------------------------\r
1248 *\r
1249 *       Parameter\r
1250 *               char *Text : \95¶\8e\9a\97ñ\r
1251 *               int Pref : SJIS/EUC\82Ì\97D\90æ\8ew\92è\r
1252 \81\96                      KANJI_SJIS / KANJI_EUC / KANJI_NOCNV=SJIS/EUC\82Ì\83`\83F\83b\83N\82Í\82µ\82È\82¢\r
1253 *\r
1254 *       Return Value\r
1255 *               \82È\82µ\r
1256 *----------------------------------------------------------------------------*/\r
1257 \r
1258 void ConvAutoToSJIS(char *Text, int Pref)\r
1259 {\r
1260         int Code;\r
1261         char *Buf;\r
1262         CODECONVINFO cInfo;\r
1263 \r
1264         Code = CheckKanjiCode(Text, strlen(Text), Pref);\r
1265         if(Code != KANJI_SJIS)\r
1266         {\r
1267                 Buf = malloc(strlen(Text)+1);\r
1268                 if(Buf != NULL)\r
1269                 {\r
1270                         InitCodeConvInfo(&cInfo);\r
1271                         cInfo.KanaCnv = NO;\r
1272                         cInfo.Str = Text;\r
1273                         cInfo.StrLen = strlen(Text);\r
1274                         cInfo.Buf = Buf;\r
1275                         cInfo.BufSize = strlen(Text);\r
1276 \r
1277                         switch(Code)\r
1278                         {\r
1279                                 case KANJI_JIS :\r
1280                                         ConvJIStoSJIS(&cInfo);\r
1281                                         break;\r
1282 \r
1283                                 case KANJI_EUC :\r
1284                                         ConvEUCtoSJIS(&cInfo);\r
1285                                         break;\r
1286                         }\r
1287 \r
1288                         *(Buf + cInfo.OutLen) = NUL;\r
1289                         strcpy(Text, Buf);\r
1290                         free(Buf);\r
1291                 }\r
1292         }\r
1293         return;\r
1294 }\r
1295 \r
1296 \r
1297 /*----- \8eg\82í\82ê\82Ä\82¢\82é\8a¿\8e\9a\83R\81[\83h\82ð\92²\82×\82é ----------------------------------------\r
1298 *\r
1299 *       Parameter\r
1300 *               char *Text : \95¶\8e\9a\97ñ\r
1301 *               int Size : \95¶\8e\9a\97ñ\82Ì\92·\82³\r
1302 *               int Pref : SJIS/EUC\82Ì\97D\90æ\8ew\92è\r
1303 \81\96                      KANJI_SJIS / KANJI_EUC / KANJI_NOCNV=SJIS/EUC\82Ì\83`\83F\83b\83N\82Í\82µ\82È\82¢\r
1304 *\r
1305 *       Return Value\r
1306 *               int \8a¿\8e\9a\83R\81[\83h (KANJI_xxx)\r
1307 *----------------------------------------------------------------------------*/\r
1308 \r
1309 int CheckKanjiCode(char *Text, int Size, int Pref)\r
1310 {\r
1311         uchar *Pos;\r
1312         uchar *Btm;\r
1313         int Ret;\r
1314         int PointSJIS;\r
1315         int PointEUC;\r
1316 \r
1317         Ret = KANJI_SJIS;\r
1318         if(Size >= 2)\r
1319         {\r
1320                 Ret = -1;\r
1321                 Btm = Text + Size;\r
1322 \r
1323                 /* JIS\8a¿\8e\9a\83R\81[\83h\82Ì\83`\83F\83b\83N */\r
1324                 Pos = Text;\r
1325                 while((Pos = memchr(Pos, 0x1b, Btm-Pos-2)) != NULL)\r
1326                 {\r
1327                         Pos++;\r
1328                         if((memcmp(Pos, "$B", 2) == 0) ||       /* <ESC>$B */\r
1329                            (memcmp(Pos, "$@", 2) == 0) ||       /* <ESC>$@ */\r
1330                            (memcmp(Pos, "(I", 2) == 0))         /* <ESC>(I */\r
1331                         {\r
1332                                 Ret = KANJI_JIS;\r
1333                                 break;\r
1334                         }\r
1335                 }\r
1336 \r
1337                 /* EUC\82ÆSHIFT-JIS\8a¿\8e\9a\83R\81[\83h\82Ì\83`\83F\83b\83N */\r
1338                 if(Ret == -1)\r
1339                 {\r
1340                         if(Pref != KANJI_NOCNV)\r
1341                         {\r
1342                                 Ret = Pref;\r
1343                                 Pos = Text;\r
1344                                 while(Pos < Btm)\r
1345                                 {\r
1346                                         PointSJIS = CheckOnSJIS(Pos, Btm);\r
1347                                         PointEUC = CheckOnEUC(Pos, Btm);\r
1348                                         if(PointSJIS > PointEUC)\r
1349                                         {\r
1350                                                 Ret = KANJI_SJIS;\r
1351                                                 break;\r
1352                                         }\r
1353                                         if(PointSJIS < PointEUC)\r
1354                                         {\r
1355                                                 Ret = KANJI_EUC;\r
1356                                                 break;\r
1357                                         }\r
1358                                         if((Pos = memchr(Pos, '\n', Btm-Pos)) == NULL)\r
1359                                                 break;\r
1360                                         Pos++;\r
1361                                 }\r
1362                         }\r
1363                         else\r
1364                                 Ret = KANJI_SJIS;\r
1365                 }\r
1366         }\r
1367         return(Ret);\r
1368 }\r
1369 \r
1370 \r
1371 /*----- SHIFT-JIS\83R\81[\83h\82Ì\89Â\94\\90«\82ª\82 \82é\82©\83`\83F\83b\83N --------------------------------\r
1372 *\r
1373 *       Parameter\r
1374 *               uchar *Pos : \95¶\8e\9a\97ñ\r
1375 *               uchar *Btm : \95¶\8e\9a\97ñ\82Ì\96\96\94ö\r
1376 *\r
1377 *       Return Value\r
1378 *               int \93¾\93_\r
1379 *\r
1380 *       Note\r
1381 *               High    81-FF (A0-DF\82Í\94¼\8ap)     (EB\88È\8d~\82Í\82Ù\82Æ\82ñ\82Ç\96³\82¢)\r
1382 *               Low             40-FC\r
1383 *----------------------------------------------------------------------------*/\r
1384 \r
1385 static int CheckOnSJIS(uchar *Pos, uchar *Btm)\r
1386 {\r
1387         int FstOnTwo;\r
1388         int Point;\r
1389 \r
1390         FstOnTwo = NO;\r
1391         Point = 100;\r
1392         while((Point > 0) && (Pos < Btm) && (*Pos != '\n'))\r
1393         {\r
1394                 if(FstOnTwo == YES)\r
1395                 {\r
1396                         if((*Pos < 0x40) || (*Pos > 0xFC))      /* 2\83o\83C\83g\96Ú\82Í 0x40\81`0xFC */\r
1397                                 Point = 0;\r
1398                         FstOnTwo = NO;\r
1399                 }\r
1400                 else if(*Pos >= 0x81)\r
1401                 {\r
1402                         if((*Pos < 0xA0) || (*Pos > 0xDF))      /* \94¼\8ap\83J\83i\82Å\82È\82¯\82ê\82Î */\r
1403                         {\r
1404                                 if(*Pos >= 0xEB)                /* 1\83o\83C\83g\96Ú\82Í0xEB\88È\8d~\82Í\82Ù\82Æ\82ñ\82Ç\96³\82¢ */\r
1405                                         Point -= 50;\r
1406                                 FstOnTwo = YES;\r
1407                         }\r
1408                 }\r
1409                 Pos++;\r
1410         }\r
1411         if(FstOnTwo == YES)             /* \82P\83o\83C\83g\96Ú\82Å\8fI\82í\82Á\82Ä\82¢\82é\82Ì\82Í\82¨\82©\82µ\82¢  */\r
1412                 Point = 0;\r
1413 \r
1414         return(Point);\r
1415 }\r
1416 \r
1417 \r
1418 /*----- EUC\83R\81[\83h\82Ì\89Â\94\\90«\82ª\82 \82é\82©\83`\83F\83b\83N -------------------------------------\r
1419 *\r
1420 *       Parameter\r
1421 *               uchar *Pos : \95¶\8e\9a\97ñ\r
1422 *               uchar *Btm : \95¶\8e\9a\97ñ\82Ì\96\96\94ö\r
1423 *\r
1424 *       Return Value\r
1425 *               int \93¾\93_\r
1426 *\r
1427 *       Note\r
1428 *               High    A1-FE , 8E\r
1429 *               Low             A1-FE\r
1430 *----------------------------------------------------------------------------*/\r
1431 \r
1432 static int CheckOnEUC(uchar *Pos, uchar *Btm)\r
1433 {\r
1434         int FstOnTwo;\r
1435         int Point;\r
1436 \r
1437         FstOnTwo = 0;\r
1438         Point = 100;\r
1439         while((Point > 0) && (Pos < Btm) && (*Pos != '\n'))\r
1440         {\r
1441                 if(FstOnTwo == 1)\r
1442                 {\r
1443                         if((*Pos < 0xA1) || (*Pos > 0xFE))      /* 2\83o\83C\83g\96Ú\82Í 0xA1\81`0xFE */\r
1444                                 Point = 0;\r
1445                         FstOnTwo = 0;\r
1446                 }\r
1447                 else if(FstOnTwo == 2)          /* \94¼\8ap\83J\83i */\r
1448                 {\r
1449                         if((*Pos < 0xA0) || (*Pos > 0xDF))      /* 2\83o\83C\83g\96Ú\82Í 0xA0\81`0xDF */\r
1450                                 Point = 0;\r
1451                         FstOnTwo = 0;\r
1452                 }\r
1453                 else\r
1454                 {\r
1455                         if(*Pos == 0x8E)                /* 0x8E??\82Í\94¼\8ap\83J\83i */\r
1456                                 FstOnTwo = 2;\r
1457                         else if((*Pos >= 0xA1) && (*Pos <= 0xFE))\r
1458                                 FstOnTwo = 1;\r
1459                 }\r
1460                 Pos++;\r
1461         }\r
1462         if(FstOnTwo != 0)               /* \82P\83o\83C\83g\96Ú\82Å\8fI\82í\82Á\82Ä\82¢\82é\82Ì\82Í\82¨\82©\82µ\82¢  */\r
1463                 Point = 0;\r
1464 \r
1465         return(Point);\r
1466 }\r
1467 \r
1468 \r
1469 // UTF-8N\91Î\89\9e \82±\82±\82©\82ç\81«\r
1470 /*----- UTF-8N\8a¿\8e\9a\83R\81[\83h\82ðSHIFT-JIS\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a· ------------------------------\r
1471 *\r
1472 *       Parameter\r
1473 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
1474 *\r
1475 *       Return Value\r
1476 *               int \82\82è\95Ô\82µ\83t\83\89\83O (YES/NO)\r
1477 *\r
1478 *       Note\r
1479 *               \82\82è\95Ô\82µ\83t\83\89\83O\82ªYES\82Ì\8e\9e\82Í\81AcInfo\82Ì\93à\97e\82ð\95Ï\82¦\82¸\82É\82à\82¤\88ê\93x\8cÄ\82Ô\82±\82Æ\r
1480 *----------------------------------------------------------------------------*/\r
1481 \r
1482 int ConvUTF8NtoSJIS(CODECONVINFO *cInfo)\r
1483 {\r
1484         int Continue;\r
1485 \r
1486 //      char temp_string[2048];\r
1487         int string_length;\r
1488 \r
1489         // \91å\82«\82¢\83T\83C\83Y\82É\91Î\89\9e\r
1490         // \8fI\92[\82ÌNULL\82ð\8aÜ\82Þ\83o\83O\82ð\8fC\90³\r
1491         int SrcLength;\r
1492         char* pSrc;\r
1493         wchar_t* pUTF16;\r
1494         int UTF16Length;\r
1495         int Count;\r
1496 \r
1497         Continue = NO;\r
1498 \r
1499         // \90¶\90¬\82³\82ê\82é\92\86\8aÔ\83R\81[\83h\82Ì\83T\83C\83Y\82ð\92²\82×\82é\r
1500 //      string_length = MultiByteToWideChar(\r
1501 //                                              CP_UTF8,                // \95Ï\8a·\90æ\95¶\8e\9a\83R\81[\83h\r
1502 //                                              0,                              // \83t\83\89\83O(0:\82È\82µ)\r
1503 //                                              cInfo->Str,             // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\r
1504 //                                              -1,                             // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\83o\83C\83g\90\94(-1:\8e©\93®)\r
1505 //                                              NULL,                   // \95Ï\8a·\82µ\82½\95¶\8e\9a\97ñ\82Ì\8ai\94[\90æ\r
1506 //                                              0                               // \8ai\94[\90æ\83T\83C\83Y\r
1507 //                                      );\r
1508         // \91O\89ñ\82Ì\95Ï\8a·\95s\94\\82È\8ec\82è\82Ì\95¶\8e\9a\97ñ\82ð\93ü\97Í\82Ì\90æ\93ª\82É\8c\8b\8d\87\r
1509         SrcLength = cInfo->StrLen + cInfo->EscUTF8Len;\r
1510         if(!(pSrc = (char*)malloc(sizeof(char) * (SrcLength + 1))))\r
1511         {\r
1512                 *(cInfo->Buf) = '\0';\r
1513                 cInfo->BufSize = 0;\r
1514                 return Continue;\r
1515         }\r
1516         memcpy(pSrc, cInfo->EscUTF8, sizeof(char) * cInfo->EscUTF8Len);\r
1517         memcpy(pSrc + cInfo->EscUTF8Len, cInfo->Str, sizeof(char) * cInfo->StrLen);\r
1518         *(pSrc + SrcLength) = '\0';\r
1519         // UTF-8\82Ì\8fê\8d\87\81A\95s\8a®\91S\82È\95¶\8e\9a\82Í\8fí\82É\95Ï\8a·\82³\82ê\82È\82¢\r
1520         UTF16Length = MultiByteToWideChar(CP_UTF8, 0, pSrc, SrcLength, NULL, 0);\r
1521 \r
1522         // \83T\83C\83Y0 or \83o\83b\83t\83@\83T\83C\83Y\82æ\82è\91å\82«\82¢\8fê\8d\87\82Í\r
1523         // cInfo->Buf\82Ì\8dÅ\8f\89\82É'\0'\82ð\93ü\82ê\82Ä\81A\r
1524         // cInfo->BufSize\82É0\82ð\93ü\82ê\82Ä\95Ô\82·\81B\r
1525 //      if( string_length == 0 ||\r
1526 //              string_length >= 1024 ){\r
1527 //              *(cInfo->Buf) = '\0';\r
1528 //              cInfo->BufSize = 0;\r
1529 //              return(Continue);\r
1530 //      }\r
1531         if(!(pUTF16 = (wchar_t*)malloc(sizeof(wchar_t) * UTF16Length)))\r
1532         {\r
1533                 free(pSrc);\r
1534                 *(cInfo->Buf) = '\0';\r
1535                 cInfo->BufSize = 0;\r
1536                 return Continue;\r
1537         }\r
1538 \r
1539         // \92\86\8aÔ\83R\81[\83h(unicode)\82É\95Ï\8a·\r
1540 //      MultiByteToWideChar(\r
1541 //              CP_UTF8,                                                // \95Ï\8a·\90æ\95¶\8e\9a\83R\81[\83h\r
1542 //              0,                                                              // \83t\83\89\83O(0:\82È\82µ)\r
1543 //              cInfo->Str,                                             // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\r
1544 //              -1,                                                             // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\83o\83C\83g\90\94(-1:\8e©\93®)\r
1545 //              (unsigned short *)temp_string,  // \95Ï\8a·\82µ\82½\95¶\8e\9a\97ñ\82Ì\8ai\94[\90æ\r
1546 //              1024                                                    // \8ai\94[\90æ\83T\83C\83Y\r
1547 //      );\r
1548         MultiByteToWideChar(CP_UTF8, 0, pSrc, SrcLength, pUTF16, UTF16Length);\r
1549 \r
1550         // \90¶\90¬\82³\82ê\82éUTF-8\83R\81[\83h\82Ì\83T\83C\83Y\82ð\92²\82×\82é\r
1551 //      string_length = WideCharToMultiByte(\r
1552 //                                              CP_ACP,                 // \95Ï\8a·\90æ\95¶\8e\9a\83R\81[\83h\r
1553 //                                              0,                              // \83t\83\89\83O(0:\82È\82µ)\r
1554 //                                              (unsigned short *)temp_string,  // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\r
1555 //                                              -1,                             // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\83o\83C\83g\90\94(-1:\8e©\93®)\r
1556 //                                              NULL,                   // \95Ï\8a·\82µ\82½\95¶\8e\9a\97ñ\82Ì\8ai\94[\90æ\r
1557 //                                              0,                              // \8ai\94[\90æ\83T\83C\83Y\r
1558 //                                              NULL,NULL\r
1559 //                                      );\r
1560         string_length = WideCharToMultiByte(CP_ACP, 0, pUTF16, UTF16Length, NULL, 0, NULL, NULL);\r
1561 \r
1562         // \83T\83C\83Y0 or \8fo\97Í\83o\83b\83t\83@\83T\83C\83Y\82æ\82è\91å\82«\82¢\8fê\8d\87\82Í\81A\r
1563         // cInfo->Buf\82Ì\8dÅ\8f\89\82É'\0'\82ð\93ü\82ê\82Ä\81A\r
1564         // cInfo->BufSize\82É0\82ð\93ü\82ê\82Ä\95Ô\82·\81B\r
1565 //      if( string_length == 0 ||\r
1566 //              string_length >= cInfo->BufSize ){\r
1567 //              *(cInfo->Buf) = '\0';\r
1568 //              cInfo->BufSize = 0;\r
1569 //              return(Continue);\r
1570 //      }\r
1571 \r
1572         // \8fo\97Í\83T\83C\83Y\82ð\90Ý\92è\r
1573 //      cInfo->OutLen = string_length;\r
1574 \r
1575         // UTF-8\83R\81[\83h\82É\95Ï\8a·\r
1576 //      WideCharToMultiByte(\r
1577 //              CP_ACP,                                                 // \95Ï\8a·\90æ\95¶\8e\9a\83R\81[\83h\r
1578 //              0,                                                              // \83t\83\89\83O(0:\82È\82µ)\r
1579 //              (unsigned short *)temp_string,  // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\r
1580 //              -1,                                                             // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\83o\83C\83g\90\94(-1:\8e©\93®)\r
1581 //              cInfo->Buf,                                             // \95Ï\8a·\82µ\82½\95¶\8e\9a\97ñ\82Ì\8ai\94[\90æ(BOM:3bytes)\r
1582 //              cInfo->BufSize,                                 // \8ai\94[\90æ\83T\83C\83Y\r
1583 //              NULL,NULL\r
1584 //      );\r
1585         cInfo->OutLen = WideCharToMultiByte(CP_ACP, 0, pUTF16, UTF16Length, cInfo->Buf, cInfo->BufSize, NULL, NULL);\r
1586         // \83o\83b\83t\83@\82É\8eû\82Ü\82ç\82È\82¢\82½\82ß\95Ï\8a·\95¶\8e\9a\90\94\82ð\94¼\8c¸\r
1587         while(cInfo->OutLen == 0 && UTF16Length > 0)\r
1588         {\r
1589                 UTF16Length = UTF16Length / 2;\r
1590                 cInfo->OutLen = WideCharToMultiByte(CP_ACP, 0, pUTF16, UTF16Length, cInfo->Buf, cInfo->BufSize, NULL, NULL);\r
1591         }\r
1592         // \95Ï\8a·\82³\82ê\82½\8c³\82Ì\95¶\8e\9a\97ñ\82Å\82Ì\95¶\8e\9a\90\94\82ð\8eæ\93¾\r
1593         Count = WideCharToMultiByte(CP_UTF8, 0, pUTF16, UTF16Length, NULL, 0, NULL, NULL);\r
1594         // \95Ï\8a·\89Â\94\\82È\8ec\82è\82Ì\95¶\8e\9a\90\94\82ð\8eæ\93¾\r
1595         UTF16Length = MultiByteToWideChar(CP_UTF8, 0, pSrc + Count, SrcLength - Count, NULL, 0);\r
1596         cInfo->Str += Count - cInfo->EscUTF8Len;\r
1597         cInfo->StrLen -= Count - cInfo->EscUTF8Len;\r
1598         cInfo->EscUTF8Len = 0;\r
1599         if(UTF16Length > 0)\r
1600                 Continue = YES;\r
1601         else\r
1602         {\r
1603                 // \95Ï\8a·\95s\94\\82È\82½\82ß\8e\9f\82Ì\93ü\97Í\82Ì\90æ\93ª\82É\8c\8b\8d\87\r
1604                 memcpy(cInfo->EscUTF8, cInfo->Str, sizeof(char) * cInfo->StrLen);\r
1605                 cInfo->EscUTF8Len = cInfo->StrLen;\r
1606                 cInfo->Str += cInfo->StrLen;\r
1607                 cInfo->StrLen = 0;\r
1608                 Continue = NO;\r
1609         }\r
1610 \r
1611         free(pSrc);\r
1612         free(pUTF16);\r
1613 \r
1614         return(Continue);\r
1615 }\r
1616 \r
1617 /*----- SHIFT-JIS\8a¿\8e\9a\83R\81[\83h\82ðUTF-8N\8a¿\8e\9a\83R\81[\83h\82É\95Ï\8a· ------------------------------\r
1618 *\r
1619 *       Parameter\r
1620 *               CODECONVINFO *cInfo : \8a¿\8e\9a\83R\81[\83h\95Ï\8a·\8fî\95ñ\r
1621 *\r
1622 *       Return Value\r
1623 *               int \82\82è\95Ô\82µ\83t\83\89\83O (YES/NO)\r
1624 *\r
1625 *       Note\r
1626 *               \82\82è\95Ô\82µ\83t\83\89\83O\82ªYES\82Ì\8e\9e\82Í\81AcInfo\82Ì\93à\97e\82ð\95Ï\82¦\82¸\82É\82à\82¤\88ê\93x\8cÄ\82Ô\82±\82Æ\r
1627 *----------------------------------------------------------------------------*/\r
1628 int ConvSJIStoUTF8N(CODECONVINFO *cInfo)\r
1629 {\r
1630         int Continue;\r
1631 \r
1632 //      char temp_string[2048];\r
1633         int string_length;\r
1634 \r
1635         // \91å\82«\82¢\83T\83C\83Y\82É\91Î\89\9e\r
1636         // \8fI\92[\82ÌNULL\82ð\8aÜ\82Þ\83o\83O\82ð\8fC\90³\r
1637         int SrcLength;\r
1638         char* pSrc;\r
1639         wchar_t* pUTF16;\r
1640         int UTF16Length;\r
1641         int Count;\r
1642 \r
1643         Continue = NO;\r
1644 \r
1645         // \90¶\90¬\82³\82ê\82é\92\86\8aÔ\83R\81[\83h\82Ì\83T\83C\83Y\82ð\92²\82×\82é\r
1646 //      string_length = MultiByteToWideChar(\r
1647 //                                              CP_ACP,                 // \95Ï\8a·\90æ\95¶\8e\9a\83R\81[\83h\r
1648 //                                              0,                              // \83t\83\89\83O(0:\82È\82µ)\r
1649 //                                              cInfo->Str,             // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\r
1650 //                                              -1,                             // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\83o\83C\83g\90\94(-1:\8e©\93®)\r
1651 //                                              NULL,                   // \95Ï\8a·\82µ\82½\95¶\8e\9a\97ñ\82Ì\8ai\94[\90æ\r
1652 //                                              0                               // \8ai\94[\90æ\83T\83C\83Y\r
1653 //                                      );\r
1654         // \91O\89ñ\82Ì\95Ï\8a·\95s\94\\82È\8ec\82è\82Ì\95¶\8e\9a\97ñ\82ð\93ü\97Í\82Ì\90æ\93ª\82É\8c\8b\8d\87\r
1655         SrcLength = cInfo->StrLen + cInfo->EscUTF8Len;\r
1656         if(!(pSrc = (char*)malloc(sizeof(char) * (SrcLength + 1))))\r
1657         {\r
1658                 *(cInfo->Buf) = '\0';\r
1659                 cInfo->BufSize = 0;\r
1660                 return Continue;\r
1661         }\r
1662         memcpy(pSrc, cInfo->EscUTF8, sizeof(char) * cInfo->EscUTF8Len);\r
1663         memcpy(pSrc + cInfo->EscUTF8Len, cInfo->Str, sizeof(char) * cInfo->StrLen);\r
1664         *(pSrc + SrcLength) = '\0';\r
1665         // Shift_JIS\82Ì\8fê\8d\87\81A\95s\8a®\91S\82È\95¶\8e\9a\82Å\82à\95Ï\8a·\82³\82ê\82é\82±\82Æ\82ª\82 \82é\82½\82ß\81A\96\96\94ö\82Ì\95s\8a®\91S\82È\95\94\95ª\82ð\8dí\82é\r
1666         Count = 0;\r
1667         while(Count < SrcLength)\r
1668         {\r
1669                 if(((unsigned char)*(pSrc + Count) >= 0x81 && (unsigned char)*(pSrc + Count) <= 0x9f) || (unsigned char)*(pSrc + Count) >= 0xe0)\r
1670                 {\r
1671                         if((unsigned char)*(pSrc + Count + 1) >= 0x40)\r
1672                                 Count += 2;\r
1673                         else\r
1674                         {\r
1675                                 if(Count + 2 > SrcLength)\r
1676                                         break;\r
1677                                 Count += 1;\r
1678                         }\r
1679                 }\r
1680                 else\r
1681                         Count += 1;\r
1682         }\r
1683         SrcLength = Count;\r
1684         UTF16Length = MultiByteToWideChar(CP_ACP, 0, pSrc, SrcLength, NULL, 0);\r
1685 \r
1686         // \83T\83C\83Y0 or \83o\83b\83t\83@\83T\83C\83Y\82æ\82è\91å\82«\82¢\8fê\8d\87\82Í\81A\r
1687         // cInfo->Buf\82Ì\8dÅ\8f\89\82É'\0'\82ð\93ü\82ê\82Ä\81A\r
1688         // cInfo->BufSize\82É0\82ð\93ü\82ê\82Ä\95Ô\82·\81B\r
1689 //      if( string_length == 0 ||\r
1690 //              string_length >= 1024 ){\r
1691 //              *(cInfo->Buf) = '\0';\r
1692 //              cInfo->BufSize = 0;\r
1693 //              return(Continue);\r
1694 //      }\r
1695         if(!(pUTF16 = (wchar_t*)malloc(sizeof(wchar_t) * UTF16Length)))\r
1696         {\r
1697                 free(pSrc);\r
1698                 *(cInfo->Buf) = '\0';\r
1699                 cInfo->BufSize = 0;\r
1700                 return Continue;\r
1701         }\r
1702 \r
1703         // \92\86\8aÔ\83R\81[\83h(unicode)\82É\95Ï\8a·\r
1704 //      MultiByteToWideChar(\r
1705 //              CP_ACP,                                                 // \95Ï\8a·\90æ\95¶\8e\9a\83R\81[\83h\r
1706 //              0,                                                              // \83t\83\89\83O(0:\82È\82µ)\r
1707 //              cInfo->Str,                                             // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\r
1708 //              -1,                                                             // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\83o\83C\83g\90\94(-1:\8e©\93®)\r
1709 //              (unsigned short *)temp_string,  // \95Ï\8a·\82µ\82½\95¶\8e\9a\97ñ\82Ì\8ai\94[\90æ\r
1710 //              1024                                                    // \8ai\94[\90æ\83T\83C\83Y\r
1711 //      );\r
1712         MultiByteToWideChar(CP_ACP, 0, pSrc, SrcLength, pUTF16, UTF16Length);\r
1713 \r
1714         // \90¶\90¬\82³\82ê\82éUTF-8\83R\81[\83h\82Ì\83T\83C\83Y\82ð\92²\82×\82é\r
1715 //      string_length = WideCharToMultiByte(\r
1716 //                                              CP_UTF8,                // \95Ï\8a·\90æ\95¶\8e\9a\83R\81[\83h\r
1717 //                                              0,                              // \83t\83\89\83O(0:\82È\82µ)\r
1718 //                                              (unsigned short *)temp_string,  // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\r
1719 //                                              -1,                             // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\83o\83C\83g\90\94(-1:\8e©\93®)\r
1720 //                                              NULL,                   // \95Ï\8a·\82µ\82½\95¶\8e\9a\97ñ\82Ì\8ai\94[\90æ\r
1721 //                                              0,                              // \8ai\94[\90æ\83T\83C\83Y\r
1722 //                                              NULL,NULL\r
1723 //                                      );\r
1724         string_length = WideCharToMultiByte(CP_UTF8, 0, pUTF16, UTF16Length, NULL, 0, NULL, NULL);\r
1725 \r
1726         // \83T\83C\83Y0 or \8fo\97Í\83o\83b\83t\83@\83T\83C\83Y\82æ\82è\91å\82«\82¢\8fê\8d\87\82Í\81A\r
1727         // cInfo->Buf\82Ì\8dÅ\8f\89\82É'\0'\82ð\93ü\82ê\82Ä\81A\r
1728         // cInfo->BufSize\82É0\82ð\93ü\82ê\82Ä\95Ô\82·\81B\r
1729 //      if( string_length == 0 ||\r
1730 //              string_length >= cInfo->BufSize ){\r
1731 //              *(cInfo->Buf) = '\0';\r
1732 //              cInfo->BufSize = 0;\r
1733 //              return(Continue);\r
1734 //      }\r
1735 \r
1736         // \8fo\97Í\83T\83C\83Y\82ð\90Ý\92è\r
1737 //      cInfo->OutLen = string_length;\r
1738 \r
1739         /*\r
1740         // \81«\95t\82¯\82¿\82á\82¾\82ß \83R\83}\83\93\83h\82É\82à\92Ç\89Á\82³\82ê\82Ä\82µ\82Ü\82¤\r
1741         // \8fo\97Í\95¶\8e\9a\97ñ\82Ì\90æ\93ª\82ÉBOM(byte order mark)\82ð\82Â\82¯\82é\r
1742         *(cInfo->Buf) = (char)0xef;\r
1743         *(cInfo->Buf+1) = (char)0xbb;\r
1744         *(cInfo->Buf+2) = (char)0xbf;\r
1745         */\r
1746 \r
1747         // UTF-8\83R\81[\83h\82É\95Ï\8a·\r
1748 //      WideCharToMultiByte(\r
1749 //              CP_UTF8,                                                // \95Ï\8a·\90æ\95¶\8e\9a\83R\81[\83h\r
1750 //              0,                                                              // \83t\83\89\83O(0:\82È\82µ)\r
1751 //              (unsigned short *)temp_string,  // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\r
1752 //              -1,                                                             // \95Ï\8a·\8c³\95¶\8e\9a\97ñ\83o\83C\83g\90\94(-1:\8e©\93®)\r
1753 //              cInfo->Buf,                                     // \95Ï\8a·\82µ\82½\95¶\8e\9a\97ñ\82Ì\8ai\94[\90æ(BOM:3bytes)\r
1754 //              cInfo->BufSize,                                 // \8ai\94[\90æ\83T\83C\83Y\r
1755 //              NULL,NULL\r
1756 //      );\r
1757         cInfo->OutLen = WideCharToMultiByte(CP_UTF8, 0, pUTF16, UTF16Length, cInfo->Buf, cInfo->BufSize, NULL, NULL);\r
1758         // \83o\83b\83t\83@\82É\8eû\82Ü\82ç\82È\82¢\82½\82ß\95Ï\8a·\95¶\8e\9a\90\94\82ð\94¼\8c¸\r
1759         while(cInfo->OutLen == 0 && UTF16Length > 0)\r
1760         {\r
1761                 UTF16Length = UTF16Length / 2;\r
1762                 cInfo->OutLen = WideCharToMultiByte(CP_UTF8, 0, pUTF16, UTF16Length, cInfo->Buf, cInfo->BufSize, NULL, NULL);\r
1763         }\r
1764         // \95Ï\8a·\82³\82ê\82½\8c³\82Ì\95¶\8e\9a\97ñ\82Å\82Ì\95¶\8e\9a\90\94\82ð\8eæ\93¾\r
1765         Count = WideCharToMultiByte(CP_ACP, 0, pUTF16, UTF16Length, NULL, 0, NULL, NULL);\r
1766         // \95Ï\8a·\89Â\94\\82È\8ec\82è\82Ì\95¶\8e\9a\90\94\82ð\8eæ\93¾\r
1767         UTF16Length = MultiByteToWideChar(CP_ACP, 0, pSrc + Count, SrcLength - Count, NULL, 0);\r
1768         cInfo->Str += Count - cInfo->EscUTF8Len;\r
1769         cInfo->StrLen -= Count - cInfo->EscUTF8Len;\r
1770         cInfo->EscUTF8Len = 0;\r
1771         if(UTF16Length > 0)\r
1772                 Continue = YES;\r
1773         else\r
1774         {\r
1775                 // \95Ï\8a·\95s\94\\82È\82½\82ß\8e\9f\82Ì\93ü\97Í\82Ì\90æ\93ª\82É\8c\8b\8d\87\r
1776                 memcpy(cInfo->EscUTF8, cInfo->Str, sizeof(char) * cInfo->StrLen);\r
1777                 cInfo->EscUTF8Len = cInfo->StrLen;\r
1778                 cInfo->Str += cInfo->StrLen;\r
1779                 cInfo->StrLen = 0;\r
1780                 Continue = NO;\r
1781         }\r
1782 \r
1783         free(pSrc);\r
1784         free(pUTF16);\r
1785 \r
1786         return(Continue);\r
1787 }\r
1788 // UTF-8N\91Î\89\9e \82±\82±\82Ü\82Å\81ª\r
1789 \r
1790 \r
1791 /*----- IBM\8ag\92£\8a¿\8e\9a\82ðNEC\91I\92èIBM\8ag\92£\8a¿\8e\9a\93\99\82É\95Ï\8a· -------------------------------\r
1792 *\r
1793 *       Parameter\r
1794 *               code    \8a¿\8e\9a\83R\81[\83h\r
1795 *\r
1796 *       Return Value\r
1797 *               int \8a¿\8e\9a\83R\81[\83h\r
1798 *----------------------------------------------------------------------------*/\r
1799 static int ConvertIBMExtendedChar(int code)\r
1800 {\r
1801         if((code >= 0xfa40) && (code <= 0xfa49))                code -= (0xfa40 - 0xeeef);\r
1802         else if((code >= 0xfa4a) && (code <= 0xfa53))   code -= (0xfa4a - 0x8754);\r
1803         else if((code >= 0xfa54) && (code <= 0xfa57))   code -= (0xfa54 - 0xeef9);\r
1804         else if(code == 0xfa58)                                                 code = 0x878a;\r
1805         else if(code == 0xfa59)                                                 code = 0x8782;\r
1806         else if(code == 0xfa5a)                                                 code = 0x8784;\r
1807         else if(code == 0xfa5b)                                                 code = 0x879a;\r
1808         else if((code >= 0xfa5c) && (code <= 0xfa7e))   code -= (0xfa5c - 0xed40);\r
1809         else if((code >= 0xfa80) && (code <= 0xfa9b))   code -= (0xfa80 - 0xed63);\r
1810         else if((code >= 0xfa9c) && (code <= 0xfafc))   code -= (0xfa9c - 0xed80);\r
1811         else if((code >= 0xfb40) && (code <= 0xfb5b))   code -= (0xfb40 - 0xede1);\r
1812         else if((code >= 0xfb5c) && (code <= 0xfb7e))   code -= (0xfb5c - 0xee40);\r
1813         else if((code >= 0xfb80) && (code <= 0xfb9b))   code -= (0xfb80 - 0xee63);\r
1814         else if((code >= 0xfb9c) && (code <= 0xfbfc))   code -= (0xfb9c - 0xee80);\r
1815         else if((code >= 0xfc40) && (code <= 0xfc4b))   code -= (0xfc40 - 0xeee1);\r
1816         return code;\r
1817 }\r
1818 \r