10 lines
379 B
Factor
10 lines
379 B
Factor
! 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 ;
|