drive-strings: move to windows.drive-strings.
parent
0b1a080bb0
commit
1e81dbdf17
|
@ -0,0 +1 @@
|
|||
Alexander Ilin
|
|
@ -0,0 +1,9 @@
|
|||
! Copyright (C) 2019 Alexander Ilin.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: byte-arrays io.encodings.string io.encodings.utf16
|
||||
kernel math sequences splitting windows.kernel32 ;
|
||||
IN: windows.drive-strings
|
||||
|
||||
: logical-drive-strings ( -- seq )
|
||||
30 4 2 * * dup <byte-array> [ GetLogicalDriveStrings ] keep
|
||||
utf16le decode swap head "\0" split harvest ;
|
|
@ -0,0 +1 @@
|
|||
windows
|
Loading…
Reference in New Issue