From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Daniel Hartwig Newsgroups: gmane.lisp.guile.devel Subject: Re: bug#13077: guile: add repl-option for customized print Date: Tue, 4 Dec 2012 13:34:52 +0800 Message-ID: References: <87hao21nte.fsf@gmail.com> <1354598358.25329.4.camel@Renee-desktop.suse> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary=bcaec5555034a9848604d0003908 X-Trace: ger.gmane.org 1354599303 31937 80.91.229.3 (4 Dec 2012 05:35:03 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 4 Dec 2012 05:35:03 +0000 (UTC) Cc: 13077@debbugs.gnu.org, guile-devel@gnu.org To: nalaginrut Original-X-From: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Tue Dec 04 06:35:16 2012 Return-path: Envelope-to: guile-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1TflA3-0002sj-Nd for guile-devel@m.gmane.org; Tue, 04 Dec 2012 06:35:15 +0100 Original-Received: from localhost ([::1]:39952 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Tfl9r-0001ji-LO for guile-devel@m.gmane.org; Tue, 04 Dec 2012 00:35:03 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:35418) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Tfl9j-0001ij-5h for guile-devel@gnu.org; Tue, 04 Dec 2012 00:35:01 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Tfl9h-00041V-Vo for guile-devel@gnu.org; Tue, 04 Dec 2012 00:34:55 -0500 Original-Received: from mail-wi0-f173.google.com ([209.85.212.173]:43406) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Tfl9h-00041R-MA for guile-devel@gnu.org; Tue, 04 Dec 2012 00:34:53 -0500 Original-Received: by mail-wi0-f173.google.com with SMTP id hn17so303708wib.12 for ; Mon, 03 Dec 2012 21:34:52 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:date:message-id:subject:from:to :cc:content-type; bh=tBDUFFpH9zV62GdtHrBxiofYd79u4yr/T4dehAzS6dE=; b=kT6w/myOPRfL3LXdC5uy/o7pMf58CldwZhOY4qfZ2XpGNVpkeKTfsHeV3PuVBM04TA /ZvaGlfJJVJkCa7R0D7YexS17KH/KaqQvpW7gIn1QWE+vyMaeLhA+8M1sa5BD9/C29Ov HYw6VucsF4UG8syvBjTFK81QHMAcOMZKO2YDQ4KQXFdsWnO/C2DVLb4jwpUmaJo+VwOR 2UAD1rmX+Q76uEHkaN2mYTx9LfEUKhOBwv3mJQwTOhOXKfw4ee0SZwIK57d8e0Nj6n3U NFzIE3aBjZMQ0ZtiE3M56MTrtYRsz6DfYuVn6GZ6UMQ38nIom02qZGpMxfcfipmK54f4 fZJQ== Original-Received: by 10.180.81.39 with SMTP id w7mr2116984wix.15.1354599292830; Mon, 03 Dec 2012 21:34:52 -0800 (PST) Original-Received: by 10.216.125.68 with HTTP; Mon, 3 Dec 2012 21:34:52 -0800 (PST) In-Reply-To: <1354598358.25329.4.camel@Renee-desktop.suse> X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x [fuzzy] X-Received-From: 209.85.212.173 X-BeenThere: guile-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Developers list for Guile, the GNU extensibility library" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Original-Sender: guile-devel-bounces+guile-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.devel:15294 Archived-At: --bcaec5555034a9848604d0003908 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable On 4 December 2012 13:19, nalaginrut wrote: > Hi Daniel! > I believe this patch simplified my work, and 'colorized' module has been > finished, I'm testing and debugging. > I'll post it when it's all done. Glad to hear it. Attached is an alternate patch that handles before-print-hook and *unspecified* outside of the custom print procedure, to avoid the need for boilerplate there. -- scheme@(guile-user)> (define (repl-print* repl val) (format #t "~20@y" val) (newline)) scheme@(guile-user)> (use-modules (system repl common)) scheme@(guile-user)> (repl-option-set! (car (fluid-ref *repl-stack*)) 'print repl-print*) scheme@(guile-user)> (use-modules (srfi srfi-1)) scheme@(guile-user)> (iota 20) $1 =3D (0 1 2 3 4 5 6 7 =E2=80=A6) --bcaec5555034a9848604d0003908 Content-Type: application/octet-stream; name="0001-repl-add-repl-option-for-customized-print.alt.patch" Content-Disposition: attachment; filename="0001-repl-add-repl-option-for-customized-print.alt.patch" Content-Transfer-Encoding: base64 X-Attachment-Id: f_haaler930 RnJvbSAyMjUxYTI1OTA1ODUyNGZiZTYzMWZkMjg3Yzk1YjQzODgyMjI3Zjc5IE1vbiBTZXAgMTcg MDA6MDA6MDAgMjAwMQpGcm9tOiBEYW5pZWwgSGFydHdpZyA8bWFuZHlrZUBnbWFpbC5jb20+CkRh dGU6IFR1ZSwgNCBEZWMgMjAxMiAxMTo0MTozNSArMDgwMApTdWJqZWN0OiBbUEFUQ0hdIHJlcGw6 IGFkZCByZXBsLW9wdGlvbiBmb3IgY3VzdG9taXplZCBwcmludAoKKiBtb2R1bGUvc3lzdGVtL3Jl cGwvY29tbW9uLnNjbSAocmVwbC1kZWZhdWx0LW9wdGlvbnMpCiAgKHJlcGwtcHJpbnQpOiBBZGQg b3B0aW9uIHRvIHVzZSBjdXN0b21pemVkIHByaW50IHByb2NlZHVyZS4KKiBkb2MvcmVmL3NjaGVt ZS11c2luZy50ZXhpIChSRVBMIENvbW1hbmRzKTogVXBkYXRlLgotLS0KIGRvYy9yZWYvc2NoZW1l LXVzaW5nLnRleGkgICAgIHwgICAgNCArKysrCiBtb2R1bGUvc3lzdGVtL3JlcGwvY29tbW9uLnNj bSB8ICAgMjEgKysrKysrKysrKysrKysrLS0tLS0tCiAyIGZpbGVzIGNoYW5nZWQsIDE5IGluc2Vy dGlvbnMoKyksIDYgZGVsZXRpb25zKC0pCgpkaWZmIC0tZ2l0IGEvZG9jL3JlZi9zY2hlbWUtdXNp bmcudGV4aSBiL2RvYy9yZWYvc2NoZW1lLXVzaW5nLnRleGkKaW5kZXggN2ViODRkZS4uNGY5ZTZk YiAxMDA2NDQKLS0tIGEvZG9jL3JlZi9zY2hlbWUtdXNpbmcudGV4aQorKysgYi9kb2MvcmVmL3Nj aGVtZS11c2luZy50ZXhpCkBAIC00NDUsNiArNDQ1LDEwIEBAIGNob2ljZSBpcyBhdmFpbGFibGUu ICBPZmYgYnkgZGVmYXVsdCAoaW5kaWNhdGluZyBjb21waWxhdGlvbikuCiBAaXRlbSBwcm9tcHQK IEEgY3VzdG9taXplZCBSRVBMIHByb21wdC4gIEBjb2RleyNmfSBieSBkZWZhdWx0LCBpbmRpY2F0 aW5nIHRoZSBkZWZhdWx0CiBwcm9tcHQuCitAaXRlbSBwcmludAorQSBwcm9jZWR1cmUgb2YgdHdv IGFyZ3VtZW50cyB1c2VkIHRvIHByaW50IHRoZSByZXN1bHQgb2YgZXZhbHVhdGluZyBlYWNoCitl eHByZXNzaW9uLiAgVGhlIGFyZ3VtZW50cyBhcmUgdGhlIGN1cnJlbnQgUkVQTCBhbmQgdGhlIHZh bHVlIHRvIHByaW50LgorQnkgZGVmYXVsdCwgQGNvZGV7I2Z9LCB0byB1c2UgdGhlIGRlZmF1bHQg cHJvY2VkdXJlLgogQGl0ZW0gdmFsdWUtaGlzdG9yeQogV2hldGhlciB2YWx1ZSBoaXN0b3J5IGlz IG9uIG9yIG5vdC4gIEB4cmVme1ZhbHVlIEhpc3Rvcnl9LgogQGl0ZW0gb24tZXJyb3IKZGlmZiAt LWdpdCBhL21vZHVsZS9zeXN0ZW0vcmVwbC9jb21tb24uc2NtIGIvbW9kdWxlL3N5c3RlbS9yZXBs L2NvbW1vbi5zY20KaW5kZXggMzQ2YmE5OS4uM2YzZTc4NSAxMDA2NDQKLS0tIGEvbW9kdWxlL3N5 c3RlbS9yZXBsL2NvbW1vbi5zY20KKysrIGIvbW9kdWxlL3N5c3RlbS9yZXBsL2NvbW1vbi5zY20K QEAgLTExOSw2ICsxMTksMTEgQEAgU2VlIDxodHRwOi8vd3d3LmdudS5vcmcvbGljZW5zZXMvbGdw bC5odG1sPiwgZm9yIG1vcmUgZGV0YWlscy4iKQogICAgICAgICAgICAgICAgICAgICAoKHRodW5r PyBwcm9tcHQpIChsYW1iZGEgKHJlcGwpIChwcm9tcHQpKSkKICAgICAgICAgICAgICAgICAgICAg KChwcm9jZWR1cmU/IHByb21wdCkgcHJvbXB0KQogICAgICAgICAgICAgICAgICAgICAoZWxzZSAo ZXJyb3IgIkludmFsaWQgcHJvbXB0IiBwcm9tcHQpKSkpKQorICAgICAocHJpbnQgI2YgLChsYW1i ZGEgKHByaW50KQorICAgICAgICAgICAgICAgICAgKGNvbmQKKyAgICAgICAgICAgICAgICAgICAo KG5vdCBwcmludCkgI2YpCisgICAgICAgICAgICAgICAgICAgKChwcm9jZWR1cmU/IHByaW50KSBw cmludCkKKyAgICAgICAgICAgICAgICAgICAoZWxzZSAoZXJyb3IgIkludmFsaWQgcHJpbnQgcHJv Y2VkdXJlIiBwcmludCkpKSkpCiAgICAgICh2YWx1ZS1oaXN0b3J5CiAgICAgICAsKHZhbHVlLWhp c3RvcnktZW5hYmxlZD8pCiAgICAgICAsKGxhbWJkYSAoeCkKQEAgLTIwOSwxMiArMjE0LDE2IEBA IFNlZSA8aHR0cDovL3d3dy5nbnUub3JnL2xpY2Vuc2VzL2xncGwuaHRtbD4sIGZvciBtb3JlIGRl dGFpbHMuIikKICAgKGlmIChub3QgKGVxPyB2YWwgKnVuc3BlY2lmaWVkKikpCiAgICAgICAoYmVn aW4KICAgICAgICAgKHJ1bi1ob29rIGJlZm9yZS1wcmludC1ob29rIHZhbCkKLSAgICAgICAgOzsg VGhlIHJlc3VsdCBvZiBhbiBldmFsdWF0aW9uIGlzIHJlcHJlc2VudGFibGUgaW4gc2NoZW1lLCBh bmQKLSAgICAgICAgOzsgc2hvdWxkIGJlIHByaW50ZWQgd2l0aCB0aGUgZ2VuZXJpYyBwcmludGVy LCBgd3JpdGUnLiBUaGUKLSAgICAgICAgOzsgbGFuZ3VhZ2UtcHJpbnRlciBpcyBzb21ldGhpbmcg ZWxzZTogaXQgcHJpbnRzIGV4cHJlc3Npb25zIG9mCi0gICAgICAgIDs7IGEgZ2l2ZW4gbGFuZ3Vh Z2UsIG5vdCB0aGUgcmVzdWx0IG9mIGV2YWx1YXRpb24uCi0JKHdyaXRlIHZhbCkKLQkobmV3bGlu ZSkpKSkKKyAgICAgICAgKGNvbmQKKyAgICAgICAgICgocmVwbC1vcHRpb24tcmVmIHJlcGwgJ3By aW50KQorICAgICAgICAgID0+IChsYW1iZGEgKHByaW50KSAocHJpbnQgcmVwbCB2YWwpKSkKKyAg ICAgICAgIChlbHNlCisgICAgICAgICAgOzsgVGhlIHJlc3VsdCBvZiBhbiBldmFsdWF0aW9uIGlz IHJlcHJlc2VudGFibGUgaW4gc2NoZW1lLCBhbmQKKyAgICAgICAgICA7OyBzaG91bGQgYmUgcHJp bnRlZCB3aXRoIHRoZSBnZW5lcmljIHByaW50ZXIsIGB3cml0ZScuIFRoZQorICAgICAgICAgIDs7 IGxhbmd1YWdlLXByaW50ZXIgaXMgc29tZXRoaW5nIGVsc2U6IGl0IHByaW50cyBleHByZXNzaW9u cyBvZgorICAgICAgICAgIDs7IGEgZ2l2ZW4gbGFuZ3VhZ2UsIG5vdCB0aGUgcmVzdWx0IG9mIGV2 YWx1YXRpb24uCisgICAgICAgICAgKHdyaXRlIHZhbCkKKyAgICAgICAgICAobmV3bGluZSkpKSkp KQogCiAoZGVmaW5lIChyZXBsLW9wdGlvbi1yZWYgcmVwbCBrZXkpCiAgIChjYWRyIChvciAoYXNz cSBrZXkgKHJlcGwtb3B0aW9ucyByZXBsKSkKLS0gCjEuNy4xMC40Cgo= --bcaec5555034a9848604d0003908--