GitLab

at 2022-11-01T20:35:49+00:00

Update release-21e.md with closed issues.
Fix #150: add aliases cp949 euckr

Merge branch 'issue-150-add-aliases-cp949-euckr' into 'master'

Fix #150: add aliases cp949 euckr

Closes #150

See merge request cmucl/cmucl!106
Fix #149:  Call setlocale(3C) on startup

Merge branch 'issue-149-add-setlocale' into 'master'

Fix #149:  Call setlocale(3C) on startup

Closes #149

See merge request cmucl/cmucl!105
Merge branch 'master' into issue-139-add-alias-local-external-format

 	     (reinit)

 	     (environment-init)

 	     (dolist (f *after-save-initializations*) (funcall f))

+	     ;; Set the runtime locale

+	     (unless (zerop (unix::unix-setlocale))

+	       (warn "os_setlocale failed"))

 	     (stream::load-external-format-aliases)

+	     ;; Set the locale for lisp

 	     (intl::setlocale)

 	     (ext::process-command-strings process-command-line)

 	     (setf *editor-lisp-p* nil)

    doesn't work."

   (int-syscall ("fork")))

+(defun unix-setlocale ()

+  _N"Call setlocale(3c) with fixed args.  Returns 0 on success."

+  (alien:alien-funcall

+   (alien:extern-alien "os_setlocale"

+		       (function c-call:int))))

+

 (defun unix-get-locale-codeset ()

   _N"Get the codeset from the locale"

   (with-alien ((codeset (array c-call:char 512)))

     * ~~#113~~ REQUIRE on contribs can pull in the wrong things via ASDF.

     * ~~#121~~ Wrong column index in FILL-POINTER-OUTPUT-STREAM

     * ~~#122~~ gcc 11 can't build cmucl

+    * ~~#124~~ directory with `:wild-inferiors` doesn't descend subdirectories 

     * ~~#125~~ Linux `unix-stat` returning incorrect values

     * ~~#127~~ Linux unix-getpwuid segfaults when given non-existent uid.

     * ~~#128~~ `QUIT` accepts an exit code

+    * ~~#130~~ Move file-author to C 

     * ~~#132~~ Ansi test `RENAME-FILE.1` no fails

     * ~~#134~~ Handle the case of `(expt complex complex-rational)`

     * ~~#136~~ `ensure-directories-exist` should return the given pathspec

     * #139 `*default-external-format*` defaults to `:utf-8`

     * ~~#142~~ `(random 0)` signals incorrect error

+    * ~~#147~~ `stream-line-column` method missing for `fundamental-character-output-stream`

+    * ~~#149~~ Call setlocale(3C) on startup

   * Other changes:

   * Improvements to the PCL implementation of CLOS:

   * Changes to building procedure:

 "   doesn't work."

 msgstr ""

+#: src/code/unix.lisp

+msgid "Call setlocale(3c) with fixed args.  Returns 0 on success."

+msgstr ""

+
     return result;

 }

+int

+os_setlocale(void)

+{

+    char *result = setlocale(LC_ALL, "");

+

+    /* Return 0 if setlocale suceeded; otherwise -1. */

+    return result != NULL ? 0 : -1;

+}

+

 void

 os_get_locale_codeset(char* codeset, int len)

 {

     strncpy(codeset, code, len);

 }

+
 windows-latin1	cp1252

 ms-ansi		cp1252

+euckr		euc-kr

+cp949		euc-kr

 ;; These are not yet implemented

 ;;iso-2022-jp	iso2022-jp

 ;;iso2022jp	iso2022-jp

       (assert-equal (map 'list #'char-name string)

 		    (map 'list #'char-name (read-line s))))))

+

+(define-test issue.150

+    (:tag :issues)

+  (let ((ext:*gc-verbose* nil)

+	(*compile-print* nil))

+    (assert-true (stream::find-external-format :euckr))

+    (assert-true (stream::find-external-format :cp949))))

Raymond Toy pushed to branch issue-139-add-alias-local-external-format at cmucl / cmucl

Commits:

7 changed files:

Changes: