drive-strings: really move this time.
parent
1e81dbdf17
commit
a89474786e
|
@ -1 +0,0 @@
|
||||||
Alexander Ilin
|
|
|
@ -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 ;
|
|
|
@ -1 +0,0 @@
|
||||||
windows
|
|
Loading…
Reference in New Issue