[Git][cmucl/cmucl][resolve-mr-for-issue-154-piglatin-translation-doesnt-work-anymore] 4 commits: add en_US.UTF-8 at piglatin as locale-alias

[Jon Boone (@jboone)]

Jon Boone pushed to branch resolve-mr-for-issue-154-piglatin-translation-doesnt-work-anymore at cmucl / cmucl


Commits:
961adce2 by Jon Boone at 2023-06-05T15:00:50-04:00
add en_US.UTF-8 at piglatin as locale-alias

- - - - -
be648edc by Jon Boone at 2023-06-05T15:00:51-04:00
adding test for issue 154 fix

- - - - -
8f48ebc1 by Jon Boone at 2023-06-05T15:00:52-04:00
 corrects test definition to restore locale afterward

- - - - -
d6801a41 by Jon Boone at 2023-06-05T15:00:53-04:00
 modified issue.154 test to have lispier symbols

- - - - -


3 changed files:

- src/code/intl.lisp
- src/i18n/locale/cmucl.pot
- tests/issues.lisp


Changes:

=====================================
src/code/intl.lisp
=====================================
@@ -51,6 +51,7 @@
   Use (INTL:TEXTDOMAIN \"whatever\") in each source file to set this.")
 (defvar *loaded-domains* (make-hash-table :test 'equal))
 (defvar *locale-aliases* (make-hash-table :test 'equal))
+(setf (gethash "en_US.UTF-8 at piglatin" *locale-aliases*) "en at piglatin")
 
 (defstruct domain-entry
   (domain "" :type simple-base-string)


=====================================
src/i18n/locale/cmucl.pot
=====================================
@@ -9083,7 +9083,8 @@ msgstr ""
 #: src/code/extfmts.lisp
 msgid ""
 "The default external format to use if no other external format is\n"
-"  specified"
+"  specified.  This is unaffected by any locale settings or by\n"
+"  SET-SYSTEM-EXTERNAL-FORMAT."
 msgstr ""
 
 #: src/code/extfmts.lisp


=====================================
tests/issues.lisp
=====================================
@@ -830,7 +830,16 @@
     (assert-true (stream::find-external-format :euckr))
     (assert-true (stream::find-external-format :cp949))))
 
-
+(define-test issue.154
+    (:tag :issues)
+  (let ((old-locale intl::*locale*)
+	(locale "en_US.UTF-8 at piglatin")
+	(piglatin-text "Ethay izesay ofway away eamstray inway-ufferbay."))
+    (unwind-protect
+	 (progn
+	   (assert-equal locale (intl:setlocale "en_US.UTF-8 at piglatin"))
+	   (assert-equal piglatin-text (intl:dgettext "cmucl" "The size of a stream in-buffer.")))
+      (intl:setlocale old-locale))))
 
 (define-test issue.158
     (:tag :issues)



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a2fa2dae5851e0687f525fe7a1d0de62a32aab8a...d6801a41fceafc091c3d39475101c73db621ecc9

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/compare/a2fa2dae5851e0687f525fe7a1d0de62a32aab8a...d6801a41fceafc091c3d39475101c73db621ecc9
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20230605/a4258daa/attachment-0001.html>