> Hi David, > > David Fang skribis: > >> FAIL: i18n.test: character mapping: char-locale-upcase Turkish >> FAIL: i18n.test: character mapping: char-locale-downcase Turkish >> FAIL: i18n.test: string mapping: string-locale-upcase Turkish >> FAIL: i18n.test: string mapping: string-locale-downcase Turkish > > This most likely indicates that Darwin 8 has incorrect case mapping data > for the Turkish locale. > > Can you try this (in a UTF-8 terminal): > > (use-modules (ice-9 i18n)) > (setlocale LC_ALL "tr_TR.UTF-8") > (char-locale-upcase #\i) fang% guile-2.0 GNU Guile 2.0.5 Copyright (C) 1995-2012 Free Software Foundation, Inc. Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. This program is free software, and you are welcome to redistribute it under certain conditions; type `,show c' for details. Enter `,help' for help. scheme@(guile-user)> (use-modules (ice-9 i18n)) scheme@(guile-user)> (setlocale LC_ALL "tr_TR.UTF-8") $1 = "tr_TR.UTF-8" scheme@(guile-user)> (char-locale-upcase #\i) $2 = #\I scheme@(guile-user)> Does that look right? >> FAIL: net-db.test: getaddrinfo: wrong service name > > Can you try this: > > (getaddrinfo "127.0.0.1" "does-not-exist" AI_NUMERICHOST) scheme@(guile-user)> (getaddrinfo "127.0.0.1" "does-not-exist" AI_NUMERICHOST) ERROR: In procedure getaddrinfo: ERROR: In procedure getaddrinfo: No address associated with nodename Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue. >> ERROR: regexp.test: regexp-quote: regexp/extended: (char 254 #\þ >> "þ") - >> arguments: ((regular-expression-syntax "make-regexp" "empty >> (sub)expression" #f ("þ"))) > > Hm? > >> FAIL: regexp.test: regexp-quote: regexp/extended: (string "aX" 254 >> #\þ "aþ" "aþ") >> FAIL: regexp.test: regexp-quote: regexp/extended: string of all chars > > Can you try: > > (setlocale LC_ALL "en_US.ISO-8859-1") ;; or some other ISO-8859-1 locale > (let* ((s (string (integer->char 254))) > (q (regexp-quote s))) > (regexp-exec (make-regexp q regexp/extended) s)) scheme@(guile-user)> (setlocale LC_ALL "en_US.ISO-8859-1") ERROR: In procedure setlocale: ERROR: In procedure setlocale: Invalid argument Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue. scheme@(guile-user)> (setlocale LC_ALL "en_US.ISO8859-1") $1 = "en_US.ISO8859-1" scheme@(guile-user)> (let* ((s (string (integer->char 254))) (q (regexp-quote s))) (regexp-exec (make-regexp q regexp/extended) s)) ERROR: In procedure make-regexp: ERROR: In procedure make-regexp: empty (sub)expression Entering a new prompt. Type `,bt' for a backtrace or `,q' to continue. I have (on darwin8): fang% locale -a | grep 8859 | grep en en_AU.ISO8859-1 en_AU.ISO8859-15 en_CA.ISO8859-1 en_CA.ISO8859-15 en_GB.ISO8859-1 en_GB.ISO8859-15 en_NZ.ISO8859-1 en_NZ.ISO8859-15 en_US.ISO8859-1 en_US.ISO8859-15 Fang -- David Fang http://www.csl.cornell.edu/~fang/