From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Christopher Allan Webber Newsgroups: gmane.lisp.guile.bugs Subject: bug#24075: tls/https support in Guile (through r6rs binary ports?) Date: Sun, 06 Nov 2016 22:40:40 -0600 Message-ID: <87eg2n6gxj.fsf@dustycloud.org> References: <8760rss8al.fsf@dustycloud.org> <87a8gstgn6.fsf@pobox.com> <878tvqqfkq.fsf@dustycloud.org> <87r36p6aaz.fsf@dustycloud.org> <87fun56987.fsf@gnu.org> <87k2cg5uih.fsf@dustycloud.org> <8737j4z5bb.fsf@gnu.org> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit X-Trace: blaine.gmane.org 1478493683 21693 195.159.176.226 (7 Nov 2016 04:41:23 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Mon, 7 Nov 2016 04:41:23 +0000 (UTC) User-Agent: mu4e 0.9.16; emacs 25.1.1 Cc: 24075@debbugs.gnu.org To: Ludovic =?UTF-8?Q?Court=C3=A8s?= Original-X-From: bug-guile-bounces+guile-bugs=m.gmane.org@gnu.org Mon Nov 07 05:41:18 2016 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 1c3bk5-00048C-8y for guile-bugs@m.gmane.org; Mon, 07 Nov 2016 05:41:09 +0100 Original-Received: from localhost ([::1]:51071 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1c3bk8-0000I1-8x for guile-bugs@m.gmane.org; Sun, 06 Nov 2016 23:41:12 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:48090) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1c3bk2-0000Hp-7x for bug-guile@gnu.org; Sun, 06 Nov 2016 23:41:07 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1c3bjy-0007jO-AB for bug-guile@gnu.org; Sun, 06 Nov 2016 23:41:06 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:60227) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1c3bjy-0007j3-3L for bug-guile@gnu.org; Sun, 06 Nov 2016 23:41:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1c3bjx-0001p3-Oy for bug-guile@gnu.org; Sun, 06 Nov 2016 23:41:01 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Christopher Allan Webber Original-Sender: "Debbugs-submit" Resent-CC: bug-guile@gnu.org Resent-Date: Mon, 07 Nov 2016 04:41:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 24075 X-GNU-PR-Package: guile X-GNU-PR-Keywords: Original-Received: via spool by 24075-submit@debbugs.gnu.org id=B24075.14784936456976 (code B ref 24075); Mon, 07 Nov 2016 04:41:01 +0000 Original-Received: (at 24075) by debbugs.gnu.org; 7 Nov 2016 04:40:45 +0000 Original-Received: from localhost ([127.0.0.1]:47393 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1c3bjg-0001oS-Md for submit@debbugs.gnu.org; Sun, 06 Nov 2016 23:40:44 -0500 Original-Received: from dustycloud.org ([50.116.34.160]:47730) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1c3bje-0001oK-OV for 24075@debbugs.gnu.org; Sun, 06 Nov 2016 23:40:42 -0500 Original-Received: from oolong (localhost [127.0.0.1]) by dustycloud.org (Postfix) with ESMTPS id 8F37026614; Sun, 6 Nov 2016 23:40:40 -0500 (EST) In-reply-to: <8737j4z5bb.fsf@gnu.org> 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:8453 Archived-At: Ludovic Courtès writes: > Christopher Allan Webber skribis: > >> First of all, the response body starts in the wrong place... it should >> start with "". Then, somewhere in the middle it switches >> to garbage output. I'm not sure why. > > [...] > >> + (let ((record ((gnutls-ref 'session-record-port) session))) >> + (define (read! bv start count) >> + (define read-bv (get-bytevector-n record count)) >> + (if (eof-object? read-bv) >> + 0 ; read! returns 0 on eof-object >> + (let ((read-bv-len (bytevector-length read-bv))) >> + (bytevector-copy! read-bv 0 bv 0 read-bv-len) >> + read-bv-len))) > > Looks like ‘start’ is ignored here. Could that be the reason? > > Ludo’. ... that was absolutely it. What an omission on my part! Thanks for catching it. :)