drive-strings: move to windows.drive-strings.

master
John Benediktsson 2020-04-13 12:43:25 -07:00
parent 0b1a080bb0
commit 1e81dbdf17
3 changed files with 11 additions and 0 deletions

View File

@ -0,0 +1 @@
Alexander Ilin

View File

@ -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 ;

View File

@ -0,0 +1 @@
windows