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