From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: =?utf-8?Q?Ludovic_Court=C3=A8s?= Newsgroups: gmane.lisp.guile.user Subject: Re: Guile-zstd 0.1.1 released Date: Mon, 04 Jan 2021 18:21:19 +0100 Message-ID: <87k0ssvcs0.fsf@gnu.org> References: <87czyvuz3w.fsf@gnu.org> <87k0t3thsw.fsf@gnu.org> <8735zqfmte.fsf@web.de> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="3343"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) To: guile-user@gnu.org Cancel-Lock: sha1:OVnJxplxoJMkInPR34KsPmD5s+E= Original-X-From: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Mon Jan 04 18:24:13 2021 Return-path: Envelope-to: guile-user@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1kwTaW-0000nQ-45 for guile-user@m.gmane-mx.org; Mon, 04 Jan 2021 18:24:12 +0100 Original-Received: from localhost ([::1]:59266 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kwTaV-0004eH-3E for guile-user@m.gmane-mx.org; Mon, 04 Jan 2021 12:24:11 -0500 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:59598) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kwTY1-0001oN-1z for guile-user@gnu.org; Mon, 04 Jan 2021 12:21:37 -0500 Original-Received: from ciao.gmane.io ([116.202.254.214]:42664) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1kwTXy-0003pF-9S for guile-user@gnu.org; Mon, 04 Jan 2021 12:21:36 -0500 Original-Received: from list by ciao.gmane.io with local (Exim 4.92) (envelope-from ) id 1kwTXo-0007mP-Ga for guile-user@gnu.org; Mon, 04 Jan 2021 18:21:24 +0100 X-Injected-Via-Gmane: http://gmane.org/ X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 15 =?utf-8?Q?Niv=C3=B4se?= an 229 de la =?utf-8?Q?R?= =?utf-8?Q?=C3=A9volution?= X-PGP-Key-ID: 0x090B11993D9AEBB5 X-PGP-Key: http://www.fdn.fr/~lcourtes/ludovic.asc X-PGP-Fingerprint: 3CE4 6455 8A84 FDC6 9DB4 0CFB 090B 1199 3D9A EBB5 X-OS: x86_64-pc-linux-gnu Received-SPF: pass client-ip=116.202.254.214; envelope-from=guile-user@m.gmane-mx.org; helo=ciao.gmane.io X-Spam_score_int: -16 X-Spam_score: -1.7 X-Spam_bar: - X-Spam_report: (-1.7 / 5.0 requ) BAYES_00=-1.9, HEADER_FROM_DIFFERENT_DOMAINS=0.248, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=no autolearn_force=no X-Spam_action: no action X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane-mx.org@gnu.org Original-Sender: "guile-user" Xref: news.gmane.io gmane.lisp.guile.user:17150 Archived-At: Hi, "Dr. Arne Babenhauserheide" skribis: > Looking at the readme I get the feeling that two little helpers could be > useful: > > (call-with-zstd-output-file "compressed.zstd" > (lambda (port) > (define data > ;; Read the input file in memory. > (call-with-input-file "input-file.txt" > get-bytevector-all)) > > ;; Write data to PORT. > (put-bytevector port data))) > > (call-with-zstd-input-file "compressed.zst" > (lambda (port) > ;; Read decompressed data from PORT. > ...)) > > Potentially with streaming added (if that’s possible from the library): > > (call-with-zstd-output-file "compressed.zstd" > (lambda (outport) > (call-with-input-file "input-file.txt" > (lambda (inport) > (let loop ((data (get-bytevector-some inport))) > (when (not (eof-object? data)) > (put-bytevector outport data) > (loop (get-bytevector-some inport)))))))) Yeah I kept it minimal; it’s actually the same interface as in Guile-zlib and Guile-lzlib, which is pretty convenient. Thanks, Ludo’.