From snmsts at gmail.com  Mon Nov 16 15:50:10 2009
From: snmsts at gmail.com (SANO Masatoshi)
Date: Tue, 17 Nov 2009 00:50:10 +0900
Subject: [babel-devel] japanese encoding support.
Message-ID: <598b01710911160750j5d1b5475je777473d602267c6@mail.gmail.com>

Hi.

The attached file is japanese encoding (euc-jp and cp932) support for babel.
Could you merge it?
-- 
????(SANO Masatoshi)
snmsts at gmail.com
-------------- next part --------------
A non-text attachment was scrubbed...
Name: jpenc.tar.gz
Type: application/x-gzip
Size: 91345 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/babel-devel/attachments/20091117/2f406319/attachment.bin>

From vermilionrush at gmail.com  Sun Nov 29 01:15:02 2009
From: vermilionrush at gmail.com (Ariel Badichi)
Date: Sun, 29 Nov 2009 03:15:02 +0200
Subject: [babel-devel] Unibyte decoders/encoders return wrong values
Message-ID: <87skbyw2qx.fsf@sneeze.site>

Hello,

Unibyte decoders/encoders return (- START END) rather than (- END START).
Patch follows.

Ariel

diff -rN -u old-babel/src/encodings.lisp new-babel/src/encodings.lisp
--- old-babel/src/encodings.lisp	2009-11-29 03:01:45.000000000 +0200
+++ new-babel/src/encodings.lisp	2009-11-29 03:01:45.000000000 +0200
@@ -375,7 +375,7 @@
                      (declare (type code-point ,',code))
                      (block ,',encoding ,@',body)))
                  ,',dest ,',di)
-                finally (return (the fixnum (- ,',d-start ,',di))))))))
+                finally (return (the fixnum (- ,',di ,',d-start))))))))
 
 ;;; The decoder version of the above macro.
 (defmacro define-unibyte-decoder (encoding (octet) &body body)
@@ -400,7 +400,7 @@
                      (declare (type ub8 ,',octet))
                      (block ,',encoding ,@',body)))
                  ,',dest ,',di)
-                finally (return (the fixnum (- ,',d-start ,',di))))))))
+                finally (return (the fixnum (- ,',di ,',d-start))))))))
 
 ;;;; Error Conditions
 ;;;