From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: John Cowan Newsgroups: gmane.lisp.guile.user Subject: Re: Unicode numeric value Date: Sun, 16 Dec 2018 01:11:12 -0500 Message-ID: References: NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="000000000000a9f375057d1d88dc" X-Trace: blaine.gmane.org 1544940595 28719 195.159.176.226 (16 Dec 2018 06:09:55 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sun, 16 Dec 2018 06:09:55 +0000 (UTC) Cc: guile-user@gnu.org To: Freeman Gilmore Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Sun Dec 16 07:09:51 2018 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 1gYPcc-0007OC-KG for guile-user@m.gmane.org; Sun, 16 Dec 2018 07:09:50 +0100 Original-Received: from localhost ([::1]:41339 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gYPej-0004Pl-BG for guile-user@m.gmane.org; Sun, 16 Dec 2018 01:12:01 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:57942) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gYPeK-0004Nj-AQ for guile-user@gnu.org; Sun, 16 Dec 2018 01:11:37 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gYPeJ-0002Ro-Lg for guile-user@gnu.org; Sun, 16 Dec 2018 01:11:36 -0500 Original-Received: from mail-wm1-x333.google.com ([2a00:1450:4864:20::333]:37432) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gYPeJ-0002Kt-BW for guile-user@gnu.org; Sun, 16 Dec 2018 01:11:35 -0500 Original-Received: by mail-wm1-x333.google.com with SMTP id g67so9461055wmd.2 for ; Sat, 15 Dec 2018 22:11:24 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=ccil-org.20150623.gappssmtp.com; s=20150623; h=mime-version:references:in-reply-to:from:date:message-id:subject:to :cc; bh=Razc/q8186LnLh+caMvp7BMd3/gT0HtE7CQUJ2yxiLk=; b=mB7gLytTgfjAvjZfxuyaEGkV+cUDj5YREkaWJy/LuXSD6OYCXqW6EQk3T9XiS7f5lN 9+8ynPyi6nAZEpzvJzfzv5Re3iUekIJOVlTjPsOiNYC4qETL9YORV2q2gesWjZ2FY/A9 WsNoiHTYZJetmB2EMXWHQb5dZdtSILvYOZv0sC10AFn8GvC3+pJxLXLZJnVEUyYCTixs a+6CaDDMzWGBqciJT8sxh6raOfOfcMI4giJRKhc0mQIswY1ah/I97JC0fdn6DWEv1t2B 6uw5/hN8sUSSTOfvUW2dp5VzqKjMtqJaDZ28iZAetiiDk3HsDvWInZy96P1A4RStJvG3 b4EA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc; bh=Razc/q8186LnLh+caMvp7BMd3/gT0HtE7CQUJ2yxiLk=; b=REmjGCnw+PQsI+FlEIveIPs8kzPOaLugKvzyID21C2c6OLYsw0o+vFaXnP6SEJ3q0E xqVAKXwa2cmHrAbU6LyDn24yl25IMAllgo5kXHcr6ko9LQMysEFAVdU0ft9zUlwL1Xl4 PeajBCJqUVchJOhojltWk2MbH9uK2xH4Nyj3eHY5MGRmHqGScvo8ZBe47zrdC82FBW64 HV/iRhT5qPuu8uIpEz+63gQi+GfSjbn2zxVjn+Q0BP0FDGgW3+yec4Uqzn393fao9OWM 0SK7dNCL3fWFkP0Ssw94oC5pvCh+/ybwn4vO9lKmxWm4UA7xP17ZUlOv4Svp4VwZH7JK pY6A== X-Gm-Message-State: AA+aEWZePtGXsnyInP8jAxskwUpDelSmgUgA+rWLgyTvLNwtwQt5dDBY qPba+9/Ia9da+KW6WbceQDmVxQ63i99jYj4Wxf27SA== X-Google-Smtp-Source: AFSGD/Wdj1CvjBttQUpsQfyQ16Z3NUR4e6w22LT2xXiPVsx+SzOKYseXOaGegFB3i1vH6RzxJgG/RnQQ7h/TFCigZrg= X-Received: by 2002:a1c:38c4:: with SMTP id f187mr7575066wma.90.1544940683894; Sat, 15 Dec 2018 22:11:23 -0800 (PST) In-Reply-To: X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2a00:1450:4864:20::333 X-Content-Filtered-By: Mailman/MimeDel 2.1.21 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:15097 Archived-At: --000000000000a9f375057d1d88dc Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable I can't help (yet) if you need the full numeric value. But if the decimal digit value is enough for you, then the attached source file should work (from Chibi). On Sat, Dec 15, 2018 at 11:32 PM Freeman Gilmore wrote: > I am looking for a procedure that will read the numeric value, field 8, o= f > an Unicode numeric character. Has anyone written this procedure or know > where I can find it? > > Thank you, > > =C6=92g > --000000000000a9f375057d1d88dc Content-Type: application/octet-stream; name="digit-value.scm" Content-Disposition: attachment; filename="digit-value.scm" Content-Transfer-Encoding: base64 Content-ID: X-Attachment-Id: f_jpqhrij50 Cihjb25kLWV4cGFuZAogKGZ1bGwtdW5pY29kZQogIChkZWZpbmUgemVyb3MKICAgICcjKCNceDAw MzAgICAgICAgICAgICAgICAgO0RJR0lUIFpFUk8KICAgICAgICNceDA2NjAgICAgICAgICAgICAg ICAgO0FSQUJJQy1JTkRJQyBESUdJVCBaRVJPCiAgICAgICAjXHgwNkYwICAgICAgICAgICAgICAg IDtFWFRFTkRFRCBBUkFCSUMtSU5ESUMgRElHSVQgWkVSTwogICAgICAgI1x4MDdDMCAgICAgICAg ICAgICAgICA7TktPIERJR0lUIFpFUk8KICAgICAgICNceDA5NjYgICAgICAgICAgICAgICAgO0RF VkFOQUdBUkkgRElHSVQgWkVSTwogICAgICAgI1x4MDlFNiAgICAgICAgICAgICAgICA7QkVOR0FM SSBESUdJVCBaRVJPCiAgICAgICAjXHgwQTY2ICAgICAgICAgICAgICAgIDtHVVJNVUtISSBESUdJ VCBaRVJPCiAgICAgICAjXHgwQUU2ICAgICAgICAgICAgICAgIDtHVUpBUkFUSSBESUdJVCBaRVJP CiAgICAgICAjXHgwQjY2ICAgICAgICAgICAgICAgIDtPUklZQSBESUdJVCBaRVJPCiAgICAgICAj XHgwQkU2ICAgICAgICAgICAgICAgIDtUQU1JTCBESUdJVCBaRVJPCiAgICAgICAjXHgwQzY2ICAg ICAgICAgICAgICAgIDtURUxVR1UgRElHSVQgWkVSTwogICAgICAgI1x4MENFNiAgICAgICAgICAg ICAgICA7S0FOTkFEQSBESUdJVCBaRVJPCiAgICAgICAjXHgwRDY2ICAgICAgICAgICAgICAgIDtN QUxBWUFMQU0gRElHSVQgWkVSTwogICAgICAgI1x4MEU1MCAgICAgICAgICAgICAgICA7VEhBSSBE SUdJVCBaRVJPCiAgICAgICAjXHgwRUQwICAgICAgICAgICAgICAgIDtMQU8gRElHSVQgWkVSTwog ICAgICAgI1x4MEYyMCAgICAgICAgICAgICAgICA7VElCRVRBTiBESUdJVCBaRVJPCiAgICAgICAj XHgxMDQwICAgICAgICAgICAgICAgIDtNWUFOTUFSIERJR0lUIFpFUk8KICAgICAgICNceDEwOTAg ICAgICAgICAgICAgICAgO01ZQU5NQVIgU0hBTiBESUdJVCBaRVJPCiAgICAgICAjXHgxN0UwICAg ICAgICAgICAgICAgIDtLSE1FUiBESUdJVCBaRVJPCiAgICAgICAjXHgxODEwICAgICAgICAgICAg ICAgIDtNT05HT0xJQU4gRElHSVQgWkVSTwogICAgICAgI1x4MTk0NiAgICAgICAgICAgICAgICA7 TElNQlUgRElHSVQgWkVSTwogICAgICAgI1x4MTlEMCAgICAgICAgICAgICAgICA7TkVXIFRBSSBM VUUgRElHSVQgWkVSTwogICAgICAgI1x4MUE4MCAgICAgICAgICAgICAgICA7VEFJIFRIQU0gSE9S QSBESUdJVCBaRVJPCiAgICAgICAjXHgxQTkwICAgICAgICAgICAgICAgIDtUQUkgVEhBTSBUSEFN IERJR0lUIFpFUk8KICAgICAgICNceDFCNTAgICAgICAgICAgICAgICAgO0JBTElORVNFIERJR0lU IFpFUk8KICAgICAgICNceDFCQjAgICAgICAgICAgICAgICAgO1NVTkRBTkVTRSBESUdJVCBaRVJP CiAgICAgICAjXHgxQzQwICAgICAgICAgICAgICAgIDtMRVBDSEEgRElHSVQgWkVSTwogICAgICAg I1x4MUM1MCAgICAgICAgICAgICAgICA7T0wgQ0hJS0kgRElHSVQgWkVSTwogICAgICAgI1x4QTYy MCAgICAgICAgICAgICAgICA7VkFJIERJR0lUIFpFUk8KICAgICAgICNceEE4RDAgICAgICAgICAg ICAgICAgO1NBVVJBU0hUUkEgRElHSVQgWkVSTwogICAgICAgI1x4QTkwMCAgICAgICAgICAgICAg ICA7S0FZQUggTEkgRElHSVQgWkVSTwogICAgICAgI1x4QTlEMCAgICAgICAgICAgICAgICA7SkFW QU5FU0UgRElHSVQgWkVSTwogICAgICAgI1x4QUE1MCAgICAgICAgICAgICAgICA7Q0hBTSBESUdJ VCBaRVJPCiAgICAgICAjXHhBQkYwICAgICAgICAgICAgICAgIDtNRUVURUkgTUFZRUsgRElHSVQg WkVSTwogICAgICAgI1x4RkYxMCAgICAgICAgICAgICAgICA7RlVMTFdJRFRIIERJR0lUIFpFUk8K ICAgICAgICNceDEwNEEwICAgICAgICAgICAgICAgO09TTUFOWUEgRElHSVQgWkVSTwogICAgICAg I1x4MTEwNjYgICAgICAgICAgICAgICA7QlJBSE1JIERJR0lUIFpFUk8KICAgICAgICNceDFEN0NF ICAgICAgICAgICAgICAgO01BVEhFTUFUSUNBTCBCT0xEIERJR0lUIFpFUk8KICAgICAgICNceDFE N0Q4ICAgICAgICAgICAgICAgO01BVEhFTUFUSUNBTCBET1VCTEUtU1RSVUNLIERJR0lUIFpFUk8K ICAgICAgICNceDFEN0UyICAgICAgICAgICAgICAgO01BVEhFTUFUSUNBTCBTQU5TLVNFUklGIERJ R0lUIFpFUk8KICAgICAgICNceDFEN0VDICAgICAgICAgICAgICAgO01BVEhFTUFUSUNBTCBTQU5T LVNFUklGIEJPTEQgRElHSVQgWkVSTwogICAgICAgI1x4MUQ3RjYgICAgICAgICAgICAgICA7TUFU SEVNQVRJQ0FMIE1PTk9TUEFDRSBESUdJVCBaRVJPCiAgICAgICApKSkKIChlbHNlCiAgKGRlZmlu ZSB6ZXJvcyAjKCNcMCkpKSkKCihkZWZpbmUgKGRpZ2l0LXZhbHVlIGNoKQogIChsZXQgKChuIChj aGFyLT5pbnRlZ2VyIGNoKSkpCiAgICAobGV0IGxwICgobG8gMCkgKGhpICgtICh2ZWN0b3ItbGVu Z3RoIHplcm9zKSAxKSkpCiAgICAgIChpZiAoPiBsbyBoaSkKICAgICAgICAgICNmCiAgICAgICAg ICAobGV0KiAoKG1pZCAoKyBsbyAocXVvdGllbnQgKC0gaGkgbG8pIDIpKSkKICAgICAgICAgICAg ICAgICAobWlkLXplcm8gKGNoYXItPmludGVnZXIgKHZlY3Rvci1yZWYgemVyb3MgbWlkKSkpKQog ICAgICAgICAgICAoY29uZAogICAgICAgICAgICAgKCg8PSBtaWQtemVybyBuICgrIG1pZC16ZXJv IDkpKQogICAgICAgICAgICAgICgtIG4gbWlkLXplcm8pKQogICAgICAgICAgICAgKCg8IG4gbWlk LXplcm8pCiAgICAgICAgICAgICAgKGxwIGxvICgtIG1pZCAxKSkpCiAgICAgICAgICAgICAoZWxz ZQogICAgICAgICAgICAgIChscCAoKyBtaWQgMSkgaGkpKSkpKSkpKQo= --000000000000a9f375057d1d88dc--