drive-strings: really move this time.

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

View File

@ -1 +0,0 @@
Alexander Ilin

View File

@ -1,9 +0,0 @@
! 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: drive-strings
: logical-drive-strings ( -- seq )
30 4 2 * * dup <byte-array> [ GetLogicalDriveStrings ] keep
utf16le decode swap head "\0" split harvest ;

View File

@ -1 +0,0 @@
windows