From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Matt Wette Newsgroups: gmane.lisp.guile.bugs Subject: bug#22901: drain-input doesn't decode Date: Sun, 26 Feb 2017 09:58:42 -0800 Message-ID: <4496E82C-4E88-4CDE-B73E-655CC3179E25@gmail.com> References: NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 (Mac OS X Mail 10.2 \(3259\)) Content-Type: multipart/alternative; boundary="Apple-Mail=_5BEEB7CA-2CE6-44FE-A41B-94FCE628AC2B" X-Trace: blaine.gmane.org 1488131950 5184 195.159.176.226 (26 Feb 2017 17:59:10 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sun, 26 Feb 2017 17:59:10 +0000 (UTC) To: 22901@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Sun Feb 26 18:59:06 2017 Return-path: Envelope-to: guile-bugs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ci369-00011D-V6 for guile-bugs@m.gmane.org; Sun, 26 Feb 2017 18:59:06 +0100 Original-Received: from localhost ([::1]:47760 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ci36G-00036W-26 for guile-bugs@m.gmane.org; Sun, 26 Feb 2017 12:59:12 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:57855) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ci369-00036Q-6S for bug-guile@gnu.org; Sun, 26 Feb 2017 12:59:06 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ci366-0005iO-5t for bug-guile@gnu.org; Sun, 26 Feb 2017 12:59:05 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:58810) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1ci366-0005hz-0N for bug-guile@gnu.org; Sun, 26 Feb 2017 12:59:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ci365-0001Cn-IB for bug-guile@gnu.org; Sun, 26 Feb 2017 12:59:01 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Matt Wette Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Sun, 26 Feb 2017 17:59:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 22901 X-GNU-PR-Package: guile X-GNU-PR-Keywords: Original-Received: via spool by 22901-submit@debbugs.gnu.org id=B22901.14881319324619 (code B ref 22901); Sun, 26 Feb 2017 17:59:01 +0000 Original-Received: (at 22901) by debbugs.gnu.org; 26 Feb 2017 17:58:52 +0000 Original-Received: from localhost ([127.0.0.1]:57009 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ci35w-0001CR-5w for submit@debbugs.gnu.org; Sun, 26 Feb 2017 12:58:52 -0500 Original-Received: from mail-pg0-f43.google.com ([74.125.83.43]:33455) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ci35v-0001CG-Hb for 22901@debbugs.gnu.org; Sun, 26 Feb 2017 12:58:51 -0500 Original-Received: by mail-pg0-f43.google.com with SMTP id 25so3977041pgy.0 for <22901@debbugs.gnu.org>; Sun, 26 Feb 2017 09:58:51 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:mime-version:subject:date:references:to:in-reply-to:message-id; bh=ghCk00pcAedZhHRh+u+bpHN7LfGBV9hLp1pgj/hn8cs=; b=lXTEq6+BvDaXTbHvNWSKx6DMbY+SXpeE3Zfl+NhImEzy7bIxmnRxN6q4TbP/bVN5bM Cch/VCbatjnLzKKB7fMZAsExtgVlJjR6uRQJYts+gEbIuyATxf372a0wdkczb366W57f vMNvpSyyGJbBl42F0aYtmbwpaAA4A+n1P5PbVYXOEcSZI7Y0JnIgHScBGwKTMh+NXByA vwDLvCje3EceQT/Uo+rLaUuqtBI0QFutolX7DklQYdYp/L0G+wJcRLQZ6jypr3uuLjVb nUOAszlkEzN6iVIy7wK4/rQhqg0kfro75+bIWegr0yKq5NMssFTRHG19cHRxD701Ffh0 CTZg== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:mime-version:subject:date:references:to :in-reply-to:message-id; bh=ghCk00pcAedZhHRh+u+bpHN7LfGBV9hLp1pgj/hn8cs=; b=sDQ0tzeS3gFKUNO9awEQtW9OdAz5KTeEPD+yOYeUJm+ze6U9gP3jFcur/UIK1lvknJ gZCcNhyMOJY+wFYegd07q7DRL5PuCUTKdCzwpCDU+e7dSCWRne9wv3MUHt2xr7SiY/5R MP0kHj93axKjYDZmB18W1XEatVRimf2cyJc4Z+TD3TH1Wf+7z/WrHnZENFFjelIgWRnD 4qgvjgBODP0RLyvFGzqanxiwiCdc10aPS0B2gAAzt8CIb25lWJvZsmzJ2IOARMY0927e IfaEOojBqO0TXB8u4KrVPb/QqskFaovQZFVdufs8970a7JU/pOJ0uYrScerQbqZzfnYN rjLA== X-Gm-Message-State: AMke39nM33VAAVs5jFBjf09tQjlM40W1TKM1Gma3CoR58lPiafSGoeT7Rx+kkA+sM5iWwg== X-Received: by 10.84.128.8 with SMTP id 8mr19067534pla.24.1488131925170; Sun, 26 Feb 2017 09:58:45 -0800 (PST) Original-Received: from nautilus.championbroadband.com (216-165-246-244.championbroadband.com. [216.165.246.244]) by smtp.gmail.com with ESMTPSA id s20sm25813476pfg.11.2017.02.26.09.58.43 for <22901@debbugs.gnu.org> (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sun, 26 Feb 2017 09:58:43 -0800 (PST) In-Reply-To: X-Mailer: Apple Mail (2.3259) X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-guile@gnu.org List-Id: "Bug reports for GUILE, GNU's Ubiquitous Extension Language" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Original-Sender: "bug-guile" Xref: news.gmane.org gmane.lisp.guile.bugs:8574 Archived-At: --Apple-Mail=_5BEEB7CA-2CE6-44FE-A41B-94FCE628AC2B Content-Transfer-Encoding: quoted-printable Content-Type: text/plain; charset=utf-8 > On Feb 26, 2017, at 9:46 AM, Matt Wette wrote: >=20 > I put together a test and tried on 2.1.7 - my test fails. See = attached. >=20 > (pass-if "encoded input" > (let ((fn (test-file)) > (nc "utf-8") > (st "\u03b2\u03b1\u03b4 \u03b1\u03c3\u03c3 am I.") > ;;(st "hello, world\n") > ) > (let ((p1 (open-output-file fn #:encoding nc))) > ;;(display st p1) > (string-for-each (lambda (ch) (write-char ch p1)) st) > (close p1)) > (let* ((p0 (open-input-file fn #:encoding nc)) > (s0 (begin (unread-char (read-char p0) p0) (drain-input = p0)))) > (simple-format #t "~S\n" s0) > (equal? s0 st)))) >=20 My bad. The failure was on guile-2.0.13. It seems to work on = guile-2.1.7: mwette$ guile-2.1.7-dev3/meta/guile port-di.test "=CE=B2=CE=B1=CE=B4 =CE=B1=CF=83=CF=83 am I." PASS: drain-input: encoded input --Apple-Mail=_5BEEB7CA-2CE6-44FE-A41B-94FCE628AC2B Content-Transfer-Encoding: quoted-printable Content-Type: text/html; charset=utf-8
On Feb 26, 2017, at 9:46 AM, Matt Wette <matt.wette@gmail.com> wrote:

I put together a = test and tried on 2.1.7 - my test fails.  See attached.

 (pass-if "encoded input"
=    (let ((fn (test-file))
=  (nc "utf-8")
 (st "\u03b2\u03b1\u03b4 = \u03b1\u03c3\u03c3 am I.")
 ;;(st "hello, world\n")
=  )
     (let ((p1 = (open-output-file fn #:encoding nc)))
= ;;(display st p1)
(string-for-each (lambda (ch) = (write-char ch p1)) st)
(close p1))
=      (let* ((p0 (open-input-file fn #:encoding = nc))
    (s0 = (begin (unread-char (read-char p0) p0) (drain-input p0))))
= (simple-format #t "~S\n" s0)
(equal? = s0 st))))


My bad.  The failure was on guile-2.0.13. =  It seems to work on guile-2.1.7:

mwette$ guile-2.1.7-dev3/meta/guile = port-di.test
"=CE=B2=CE=B1=CE=B4 =CE=B1=CF=83=CF=83 = am I."
PASS: drain-input: encoded = input

= --Apple-Mail=_5BEEB7CA-2CE6-44FE-A41B-94FCE628AC2B--