From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: ludo@gnu.org (Ludovic =?utf-8?Q?Court=C3=A8s?=) Newsgroups: gmane.lisp.guile.user Subject: Re: Formatted output with locale Date: Thu, 17 Nov 2016 12:02:06 +0100 Message-ID: <87inrm5pzl.fsf@gnu.org> References: <20161113165638.GA23086@remote.famic.de> 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 1479380580 20159 195.159.176.226 (17 Nov 2016 11:03:00 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Thu, 17 Nov 2016 11:03:00 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.1 (gnu/linux) To: guile-user@gnu.org Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Thu Nov 17 12:02:53 2016 Return-path: Envelope-to: guile-user@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 1c7KSx-0003rx-HB for guile-user@m.gmane.org; Thu, 17 Nov 2016 12:02:51 +0100 Original-Received: from localhost ([::1]:58122 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1c7KT0-0008Nz-U3 for guile-user@m.gmane.org; Thu, 17 Nov 2016 06:02:54 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:43929) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1c7KSS-0008MT-C9 for guile-user@gnu.org; Thu, 17 Nov 2016 06:02:21 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1c7KSP-0008CO-6b for guile-user@gnu.org; Thu, 17 Nov 2016 06:02:20 -0500 Original-Received: from [195.159.176.226] (port=47876 helo=blaine.gmane.org) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1c7KSO-0008BT-Vq for guile-user@gnu.org; Thu, 17 Nov 2016 06:02:17 -0500 Original-Received: from list by blaine.gmane.org with local (Exim 4.84_2) (envelope-from ) id 1c7KSH-00062P-DX for guile-user@gnu.org; Thu, 17 Nov 2016 12:02:09 +0100 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 47 Original-X-Complaints-To: usenet@blaine.gmane.org X-URL: http://www.fdn.fr/~lcourtes/ X-Revolutionary-Date: 27 Brumaire an 225 de la =?utf-8?Q?R=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-unknown-linux-gnu Cancel-Lock: sha1:lbuX/tXdc70fTcYaCMlaPCMDsNY= X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 195.159.176.226 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.21 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.org@gnu.org Original-Sender: "guile-user" Xref: news.gmane.org gmane.lisp.guile.user:12990 Archived-At: Hi! dev@famic.de skribis: > I have problems to get a proper formatting using the (ice-9 format) > module. In my code, I need to deal with monetary figures, but I fail > to get the correct format for my German locale. > Let's say I have one hundred thousand Euros. The correct format to output > this in de_DE.utf-8 would be > 100.000,00 EUR > (with 2 decimals) > > Now I tried: > (setlocale LC_ALL "de_DE.UTF-8") > (use-modules (ice-9 format)) > (define a 100000.00) > (format #t "~12,2h EUR~%" a) > (format #t "~,,12$ EUR~%" a) > (format #t "~12,2f EUR~%" a) > > But this is what Guile gives to me: > 100.000,0 EUR > 100000.00 EUR > 100000.00 EUR It seems to work as advertised for me: --8<---------------cut here---------------start------------->8--- scheme@(guile-user)> ,use(ice-9 i18n) scheme@(guile-user)> (number->locale-string 10000.01 2 (make-locale LC_ALL "fr_FR.utf8")) $13 = "10 000,01" scheme@(guile-user)> (number->locale-string 10000.01 2 (make-locale LC_ALL "de_DE.utf8")) $14 = "10.000,01" scheme@(guile-user)> ,use(ice-9 format) scheme@(guile-user)> (setlocale LC_ALL "de_DE.utf8") $15 = "de_DE.utf8" scheme@(guile-user)> (format #f "~12,2h" 10000.01) $16 = " 10.000,01" --8<---------------cut here---------------end--------------->8--- That’s on GNU/Linux (glibc 2.24). Note that number formatting data comes from the C library. What C library do you use? Thanks, Ludo’.