libc: Fix strerror for unix.

diff --git a/basis/libc/libc.factor b/basis/libc/libc.factor
index 15f2db82fbbb0aab3751ce2f02ca5ec49f4da7ad..6f77321f642a6f50379aa855f62c76af309ae550 100644 (file)
--- a/basis/libc/libc.factor
+++ b/basis/libc/libc.factor
@@ -9,6 +9,10 @@ IN: libc
 
 HOOK: strerror os ( errno -- str )
 
+! For strerror on Unix all platforms
+<< os windows? [ "libc.unix" require ] unless >>
+
+! For libc.linux, libc.windows, libc.macosx...
 << "libc." os unparse append require >>
 
 LIBRARY: factor

diff --git a/basis/libc/unix/authors.txt b/basis/libc/unix/authors.txt
new file mode 100644 (file)
index 0000000..7c1b2f2
--- /dev/null
+++ b/basis/libc/unix/authors.txt
@@ -0,0 +1 @@
+Doug Coleman

diff --git a/basis/libc/unix/platforms.txt b/basis/libc/unix/platforms.txt
new file mode 100644 (file)
index 0000000..509143d
--- /dev/null
+++ b/basis/libc/unix/platforms.txt
@@ -0,0 +1 @@
+unix

diff --git a/basis/libc/unix/unix.factor b/basis/libc/unix/unix.factor
new file mode 100644 (file)
index 0000000..f474d61
--- /dev/null
+++ b/basis/libc/unix/unix.factor
@@ -0,0 +1,10 @@
+! Copyright (C) 2014 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien.strings destructors kernel libc system ;
+IN: libc.unix
+
+M: unix strerror ( errno -- str )
+    [
+        1024 [ malloc &free ] keep [ strerror_r ] 2keep drop nip
+        alien>native-string
+    ] with-destructors ;