GitLab

at 2022-11-03T04:47:09+00:00

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
 	     (reinit)

 	     (environment-init)

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

+	     ;; Set the runtime locale

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

+	       (warn "os_setlocale failed"))

+	     ;; Set the locale for lisp

 	     (intl::setlocale)

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

 	     (setf *editor-lisp-p* nil)

    of the child in the parent if it works, or NIL and an error number if it

    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))))
     * ~~#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` 

+    * ~~#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 ""

+
 

 #include <assert.h>

 #include <errno.h>

+#include <locale.h>

 #include <math.h>

 #include <netdb.h>

 #include <pwd.h>

     

     return result;

 }

+

+int

+os_setlocale(void)

+{

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

+

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

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

+}

Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

5 changed files:

Changes: