libc: Add setlocale and LC_* constants

diff --git a/basis/libc/freebsd/freebsd.factor b/basis/libc/freebsd/freebsd.factor
index c98b26f6cdb749e90bbdfd54ff68f21a3e47fcdd..f9221d3727ff042dbde8e3ce42e1e3fa5c8bb99d 100644 (file)
--- a/basis/libc/freebsd/freebsd.factor
+++ b/basis/libc/freebsd/freebsd.factor
@@ -140,3 +140,11 @@ CONSTANT: EBADMSG 89
 CONSTANT: EMULTIHOP 90
 CONSTANT: ENOLINK 91
 CONSTANT: EPROTO 92
+
+CONSTANT: LC_ALL      0
+CONSTANT: LC_COLLATE  1
+CONSTANT: LC_CTYPE    2
+CONSTANT: LC_MONETARY 3
+CONSTANT: LC_NUMERIC  4
+CONSTANT: LC_TIME     5
+CONSTANT: LC_MESSAGES 6

diff --git a/basis/libc/libc.factor b/basis/libc/libc.factor
index 38bc8f73d7b20fa016c475163766b3e3bac8ea31..75afc27c68f531939088d2038eee390ac64d601e 100644 (file)
--- a/basis/libc/libc.factor
+++ b/basis/libc/libc.factor
@@ -123,5 +123,7 @@ FUNCTION: int system ( c-string command )
 
 DESTRUCTOR: free
 
+FUNCTION: c-string setlocale ( int category, c-string locale )
+
 ! For libc.linux, libc.windows, libc.macosx...
 << "libc." os name>> append require >>

diff --git a/basis/libc/linux/linux.factor b/basis/libc/linux/linux.factor
index b390b29594705a74dfc9bfc49886285aa1a26e0f..7f96c68f77304f1c7b21a9949197c1002e2fa533 100644 (file)
--- a/basis/libc/linux/linux.factor
+++ b/basis/libc/linux/linux.factor
@@ -176,3 +176,17 @@ M: linux strerror
     [
         1024 [ malloc &free ] keep strerror_r
     ] with-destructors ;
+
+CONSTANT: LC_CTYPE           0
+CONSTANT: LC_NUMERIC         1
+CONSTANT: LC_TIME            2
+CONSTANT: LC_COLLATE         3
+CONSTANT: LC_MONETARY        4
+CONSTANT: LC_MESSAGES        5
+CONSTANT: LC_ALL             6
+CONSTANT: LC_PAPER           7
+CONSTANT: LC_NAME            8
+CONSTANT: LC_ADDRESS         9
+CONSTANT: LC_TELEPHONE       10
+CONSTANT: LC_MEASUREMENT     11
+CONSTANT: LC_IDENTIFICATION  12

diff --git a/basis/libc/macosx/macosx.factor b/basis/libc/macosx/macosx.factor
index ba6dfcf6a015d4a3659e10b5a945a9fc8ba68ad6..5f73c77e08b20df8ebd8ae30806292982261fedf 100644 (file)
--- a/basis/libc/macosx/macosx.factor
+++ b/basis/libc/macosx/macosx.factor
@@ -148,3 +148,11 @@ M: macosx strerror
         1024 [ malloc &free ] keep [ strerror_r ] keepd nip
         alien>native-string
     ] with-destructors ;
+
+CONSTANT: LC_ALL      0
+CONSTANT: LC_COLLATE  1
+CONSTANT: LC_CTYPE    2
+CONSTANT: LC_MONETARY 3
+CONSTANT: LC_NUMERIC  4
+CONSTANT: LC_TIME     5
+CONSTANT: LC_MESSAGES 6

diff --git a/basis/libc/windows/windows.factor b/basis/libc/windows/windows.factor
index 79dc9653fb3bee452abe78a5808968927fd9afea..386fe44d55be762a289c338efc12b6cd875b9feb 100644 (file)
--- a/basis/libc/windows/windows.factor
+++ b/basis/libc/windows/windows.factor
@@ -114,3 +114,11 @@ M: windows strerror
         [ strerror_s drop ] keepdd
         utf8 alien>string
     ] with-destructors ;
+
+! These are uncertain:
+CONSTANT: LC_ALL 0
+CONSTANT: LC_COLLATE 1
+CONSTANT: LC_CTYPE 2
+CONSTANT: LC_MONETARY 3
+CONSTANT: LC_NUMERIC 4
+CONSTANT: LC_TIME 5