home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / NETSCAP.50 / WIN1998.ZIP / ns / lib / libi18n / euckr2is.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-04-08  |  3.1 KB  |  109 lines
  1. /* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*-
  2.  *
  3.  * The contents of this file are subject to the Netscape Public License
  4.  * Version 1.0 (the "NPL"); you may not use this file except in
  5.  * compliance with the NPL.  You may obtain a copy of the NPL at
  6.  * http://www.mozilla.org/NPL/
  7.  *
  8.  * Software distributed under the NPL is distributed on an "AS IS" basis,
  9.  * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the NPL
  10.  * for the specific language governing rights and limitations under the
  11.  * NPL.
  12.  *
  13.  * The Initial Developer of this code under the NPL is Netscape
  14.  * Communications Corporation.  Portions created by Netscape are
  15.  * Copyright (C) 1998 Netscape Communications Corporation.  All Rights
  16.  * Reserved.
  17.  */
  18. /*    euc-kt to iso2022-kr    */
  19.  
  20. #include "intlpriv.h"
  21.  
  22.  
  23. extern int MK_OUT_OF_MEMORY;
  24.  
  25.  
  26. /* net_euckr2iso(obj, eucbuf, eucbufsz)
  27.  * Args:
  28.  *    eucbuf:        Ptr to a buf of EUC chars
  29.  *    eucbufsz:    Size in bytes of eucbuf
  30.  *    uncvtbuf:    If entire buffer was converted, uncvtbuf[0] will be nul,
  31.  *        else this points to EUC chars that were NOT converted
  32.  *        and mz_euckr2iso() with additional EUC chars appended.
  33.  * Return:
  34.  *    Returns NULL on failure, otherwise it returns a pointer to a buffer of
  35.  *    converted characters.  Caller must XP_FREE() this memory.
  36.  *
  37.  * Description:
  38.  *
  39.  *
  40.  */
  41.  
  42. /*
  43.     rewrite by Frank Tang
  44.  
  45.     About Unconverted Buffer:
  46.         Since ISO-2022-KR will never be used as internal code. We do not need to make
  47.         sure the output stream do not have partial characters. Therefore, we could
  48.         ignore the unconverted buffer and never use it. We always treat the 
  49.         stream in a byte oriented way.
  50.     
  51. */
  52.  
  53. MODULE_PRIVATE unsigned char *
  54. mz_euckr2iso(    CCCDataObject        obj,
  55.             const unsigned char    *eucbuf,    /* EUC buffer for conversion    */
  56.             int32                eucbufsz)    /* EUC buffer size in bytes        */
  57. {
  58.      char unsigned            *tobuf = NULL;
  59.      int32                    tobufsz;
  60.      register unsigned char    *tobufp, *eucp;        /* current byte in bufs    */
  61.      register unsigned char    *tobufep, *eucep;    /* end of buffers        */
  62.  
  63.      /* Allocate a dest buffer:
  64.      * ISO2022 would be at worst 3 times that of EUC
  65.      */
  66.  
  67.     tobufsz = eucbufsz * 3 + 8;
  68.  
  69.  
  70.     if ((tobuf = (unsigned char *)XP_ALLOC(tobufsz)) == (unsigned char *)NULL) {
  71.         INTL_SetCCCRetval(obj, MK_OUT_OF_MEMORY);
  72.         return(NULL);
  73.     }
  74.  
  75.      tobufp = tobuf;
  76.      tobufep = tobufp + tobufsz - 2;        /* save space for terminating null */
  77.      eucp = (unsigned char *)eucbuf;
  78.      eucep = (unsigned char *)eucbuf + eucbufsz - 1;    /* save space for nul */
  79.  
  80.     if (!IsIns5601_87_ESC(obj))
  81.     {
  82.         Ins5601_87_ESC(tobufp, obj);
  83.         *tobufp++ = (unsigned char)CR;        
  84.         *tobufp++ = (unsigned char)NL;
  85.     }
  86.  
  87.  
  88.     while ((tobufp <= tobufep) && (eucp <= eucep))
  89.     {
  90.  
  91.         if (*eucp & 0x80) {
  92.             if (IsIns5601_87_SI(obj))
  93.                 Ins5601_87_SO(tobufp, obj);
  94.             *tobufp++ = *eucp++ & 0x7f;
  95.         } 
  96.         else {
  97.             if(IsIns5601_87_SO(obj))
  98.                 Ins5601_87_SI(tobufp, obj);
  99.             *tobufp++ = *eucp++;
  100.         }
  101.     }
  102.  
  103.     *tobufp =  '\0';                        /* null terminate dest. data */
  104.     INTL_SetCCCLen(obj,  tobufp - tobuf);            /* length not counting null    */
  105.  
  106.     return(tobuf);
  107. }
  108.  
  109.