system-info: Add a cross-platform username hook.

diff --git a/basis/system-info/system-info.factor b/basis/system-info/system-info.factor
index 7c2d9bdbe3730c9e2b0b4ac483ab58d183eeda5b..ba52b23003a5a1e612136bb5ad2d239cd53148a4 100644 (file)
--- a/basis/system-info/system-info.factor
+++ b/basis/system-info/system-info.factor
@@ -16,6 +16,7 @@ HOOK: total-virtual-mem os ( -- n )
 HOOK: available-virtual-mem os ( -- n )
 HOOK: available-virtual-extended-mem os ( -- n )
 HOOK: computer-name os ( -- string )
+HOOK: username os ( -- string )
 
 : write-unit ( x n str -- )
     [ 2^ /f number>string write bl ] [ write ] bi* ;

diff --git a/basis/system-info/windows/windows.factor b/basis/system-info/windows/windows.factor
index 2c719fb4d90d1b65a741b09f11011a52cc22de19..d9f9317fb843c5903f39573043cbf099171049d4 100644 (file)
--- a/basis/system-info/windows/windows.factor
+++ b/basis/system-info/windows/windows.factor
@@ -101,7 +101,7 @@ M: windows computer-name
     [ <byte-array> dup ] keep uint <ref>
     GetComputerName win32-error=0/f alien>native-string ;
 
-: username ( -- string )
+M: windows username ( -- string )
     UNLEN 1 +
     [ <byte-array> dup ] keep uint <ref>
     GetUserName win32-error=0/f alien>native-string ;