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:46:14 -0800 Message-ID: References: <20160304030944.GA1318@fysh.org> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 (Mac OS X Mail 10.2 \(3259\)) Content-Type: multipart/mixed; boundary="Apple-Mail=_19CBBA5B-69D5-4EA2-BA05-F73A8BAABA16" X-Trace: blaine.gmane.org 1488131233 4289 195.159.176.226 (26 Feb 2017 17:47:13 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sun, 26 Feb 2017 17:47:13 +0000 (UTC) To: 22901@debbugs.gnu.org Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Sun Feb 26 18:47: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 1ci2uY-0000M7-67 for guile-bugs@m.gmane.org; Sun, 26 Feb 2017 18:47:06 +0100 Original-Received: from localhost ([::1]:47731 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ci2ue-0007pg-5x for guile-bugs@m.gmane.org; Sun, 26 Feb 2017 12:47:12 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:55819) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ci2uX-0007pW-Vj for bug-guile@gnu.org; Sun, 26 Feb 2017 12:47:06 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ci2uU-0004fV-TT for bug-guile@gnu.org; Sun, 26 Feb 2017 12:47:06 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:58806) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1ci2uU-0004fR-O7 for bug-guile@gnu.org; Sun, 26 Feb 2017 12:47:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ci2uU-0000xI-Bb for bug-guile@gnu.org; Sun, 26 Feb 2017 12:47:02 -0500 X-Loop: help-debbugs@gnu.org In-Reply-To: <20160304030944.GA1318@fysh.org> Resent-From: Matt Wette Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Sun, 26 Feb 2017 17:47:02 +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.14881311873628 (code B ref 22901); Sun, 26 Feb 2017 17:47:02 +0000 Original-Received: (at 22901) by debbugs.gnu.org; 26 Feb 2017 17:46:27 +0000 Original-Received: from localhost ([127.0.0.1]:57005 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ci2tv-0000wS-1E for submit@debbugs.gnu.org; Sun, 26 Feb 2017 12:46:27 -0500 Original-Received: from mail-pg0-f54.google.com ([74.125.83.54]:35330) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ci2ts-0000wE-Iy for 22901@debbugs.gnu.org; Sun, 26 Feb 2017 12:46:24 -0500 Original-Received: by mail-pg0-f54.google.com with SMTP id b129so33435450pgc.2 for <22901@debbugs.gnu.org>; Sun, 26 Feb 2017 09:46:24 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:mime-version:subject:message-id:date:to; bh=C81sAg3zpi+JH+Uwlc2+injY0mHZVCy68rdPtnUDiZE=; b=t3H/dqDtTPXURflHv3JFd/MWIAsYB1urVUEA1iBjKRSj6bimq+0ETfh6Y3V+AKxsqu 2/J7YqBeexWRPqByrRmHL0LrNEJemq1xaFqIe7gTa5SJiMUGfrCXaLwSvYeHspPUJiZi yrb/fsY5Bawg8Y62Mt4ZJxJ8rHXl8t6e+lJht25cHX0qLU8oJEv65KmdlONXzE8j1EFl AQvcYWptrUYwNTb5JDrHWrD02JT8FvG8UFy7Aa7VwDuhh2w2Z5syjRUdWAa7YeEsS0Wx 71PGY7JohsyCHy/P1UcDehjsS4KYCokY3b6AKVAOoqupPPr+Dpq/0DbaAgVAkWzCyRpo zh5Q== 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:message-id:date:to; bh=C81sAg3zpi+JH+Uwlc2+injY0mHZVCy68rdPtnUDiZE=; b=WEW2qRMHWEkLrE/CdW7a1vLr40JuNDYCDiBcXC3Rqvqh0IDjp5X3pmFnYYiEwLowOy rtL7lRJrgDBCq8uDy3Crj3vScEJ0NGrwgqLgoYWKm/6ANQ6w2UzedTl+xh7q3Ak0QzoH gSgxge0oxxVhorTBckoMV0B/a2iD9nNLMd6KmiHgPEBFKhZzuBk0WCufbIpL79DOperm VmPRC8nQ2ynkdTQ4HFfVTbnmqFFox5pEovyb2f0c98NIpfXPeFJtgrOfNERZuNmBcY0Z MrxxdAvPMZQU1BQMPPpXkL7jZO5tSyyr+ZJfG+6V5kOP1wz0EHK0TXrikLeF3vQ7z0kA hVpw== X-Gm-Message-State: AMke39nKErSG7LZiWprtepC0/lE3CLlUG3YoyUVEdj5eNOjNgaJ+QAJcLgNbUbfgCu6SPQ== X-Received: by 10.84.224.65 with SMTP id a1mr18913419plt.28.1488131178097; Sun, 26 Feb 2017 09:46:18 -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 80sm4513996pgd.39.2017.02.26.09.46.15 for <22901@debbugs.gnu.org> (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sun, 26 Feb 2017 09:46:16 -0800 (PST) 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:8573 Archived-At: --Apple-Mail=_19CBBA5B-69D5-4EA2-BA05-F73A8BAABA16 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset=us-ascii 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)))) --Apple-Mail=_19CBBA5B-69D5-4EA2-BA05-F73A8BAABA16 Content-Disposition: attachment; filename=port-di.test Content-Type: application/octet-stream; x-unix-mode=0644; name="port-di.test" Content-Transfer-Encoding: 7bit ;; port-di.text -*- scheme -*- (add-to-load-path "guile-2.1.7-dev3/test-suite") (use-modules (test-suite lib)) (define (test-file) (string-append (getcwd) "/ports-test.tmp")) (with-test-prefix "drain-input" (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)))) ) ;; --- last line --- --Apple-Mail=_19CBBA5B-69D5-4EA2-BA05-F73A8BAABA16--