# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 977987036 0
# Node ID 3868f2e7355a4d964d1cbfbd2ef8232a3de3f13c
# Parent  b9b14e62fe38b0c1e769fe6f053d69c35fcaaa6e
(setup_coding_system): Initialize
coding->spec.ccl.eight_bit_carryover.
(ccl_coding_driver): Pay attention to carried over 8-bit bytes.

diff -r b9b14e62fe38 -r 3868f2e7355a src/coding.c
--- a/src/coding.c	Thu Dec 28 07:03:19 2000 +0000
+++ b/src/coding.c	Thu Dec 28 07:03:56 2000 +0000
@@ -3710,6 +3710,7 @@
       }
       coding->common_flags |= CODING_REQUIRE_FLUSHING_MASK;
       coding->spec.ccl.cr_carryover = 0;
+      coding->spec.ccl.eight_bit_carryover[0] = 0;
       break;
 
     case 5:
@@ -4422,6 +4423,7 @@
   struct ccl_program *ccl
     = encodep ? &coding->spec.ccl.encoder : &coding->spec.ccl.decoder;
   int result;
+  unsigned char *dst = destination;
 
   ccl->last_block = coding->mode & CODING_MODE_LAST_BLOCK;
   if (encodep)
@@ -4434,8 +4436,21 @@
       ccl->cr_consumed = coding->spec.ccl.cr_carryover;
     }
   ccl->multibyte = coding->src_multibyte;
-  coding->produced = ccl_driver (ccl, source, destination,
-				 src_bytes, dst_bytes, &(coding->consumed));
+  if (coding->spec.ccl.eight_bit_carryover[0] != 0)
+    {
+      /* Move carryover bytes to DESTINATION.  */
+      unsigned char *p = coding->spec.ccl.eight_bit_carryover;
+      while (*p)
+	*dst++ = *p++;
+      coding->spec.ccl.eight_bit_carryover[0] = 0;
+      if (dst_bytes)
+	dst_bytes -= dst - destination;
+    }
+
+  coding->produced = (ccl_driver (ccl, source, dst, src_bytes, dst_bytes,
+				  &(coding->consumed))
+		      + dst - destination);
+
   if (encodep)
     {
       coding->produced_char = coding->produced;
@@ -4443,8 +4458,47 @@
     }
   else
     {
+      /* On decoding, the destination should always multibyte.  But,
+	 CCL program might have been generated an invalid multibyte
+	 sequence.  Here we make such a sequence valid as
+	 multibyte.  */
       int bytes
 	= dst_bytes ? dst_bytes : source + coding->consumed - destination;
+
+      if ((coding->consumed < src_bytes
+	   || !ccl->last_block)
+	  && coding->produced >= 1
+	  && destination[coding->produced - 1] >= 0x80)
+	{
+	  /* We should not convert the tailing 8-bit codes to
+	     multibyte form even if they doesn't form a valid
+	     multibyte sequence.  They may form a valid sequence in
+	     the next call.  */
+	  int carryover = 0;
+
+	  if (destination[coding->produced - 1] < 0xA0)
+	    carryover = 1;
+	  else if (coding->produced >= 2)
+	    {
+	      if (destination[coding->produced - 2] >= 0x80)
+		{
+		  if (destination[coding->produced - 2] < 0xA0)
+		    carryover = 2;
+		  else if (coding->produced >= 3
+			   && destination[coding->produced - 3] >= 0x80
+			   && destination[coding->produced - 3] < 0xA0)
+		    carryover = 3;
+		}
+	    }
+	  if (carryover > 0)
+	    {
+	      BCOPY_SHORT (destination + coding->produced - carryover,
+			   coding->spec.ccl.eight_bit_carryover,
+			   carryover);
+	      coding->spec.ccl.eight_bit_carryover[carryover] = 0;
+	      coding->produced -= carryover;
+	    }
+	}
       coding->produced = str_as_multibyte (destination, bytes,
 					   coding->produced,
 					   &(coding->produced_char));