steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.directories.search.windows: merging with io.standard-paths.windows.

char-rename
John Benediktsson 2016-10-06 14:57:40 -07:00
parent 2063703354
commit 2628dbc5c9
6 changed files with 16 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/io/directories/search/search.factor
View File

@ -156,5 +156,3 @@ ERROR: sequence-expected obj ;
: file-info-recursive ( path -- seq ) : file-info-recursive ( path -- seq )
[ dup ?file-info [ 2array ] [ drop f ] if* ] filter-files-by-depth ; [ dup ?file-info [ 2array ] [ drop f ] if* ] filter-files-by-depth ;
os windows? [ "io.directories.search.windows" require ] when

1
basis/io/directories/search/windows/authors.txt
View File

@ -1 +0,0 @@
Doug Coleman

1
basis/io/directories/search/windows/platforms.txt
View File

@ -1 +0,0 @@
windows

18
basis/io/directories/search/windows/windows.factor
View File

@ -1,18 +0,0 @@
! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays combinators.smart environment fry
io.directories.search io.pathnames kernel sequences
sets windows.shell32 ;
IN: io.directories.search.windows
: program-files-directories ( -- array )
[
program-files
program-files-x86
"ProgramW6432" os-env
] output>array harvest members ; inline
: find-in-program-files ( base-directory quot -- path )
t swap [
[ program-files-directories ] dip '[ _ append-path ] map
] 2dip find-in-directories ; inline

18
basis/io/standard-paths/windows/windows.factor
View File

@ -1,10 +1,22 @@
! Copyright (C) 2011 Doug Coleman. ! Copyright (C) 2011 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: environment fry io.directories.search.windows io.files USING: arrays combinators.smart environment fry
io.pathnames io.standard-paths kernel sequences splitting io.directories.search io.files io.pathnames io.standard-paths
system unicode ; kernel sequences sets splitting system unicode windows.shell32 ;
IN: io.standard-paths.windows IN: io.standard-paths.windows
: program-files-directories ( -- array )
[
program-files
program-files-x86
"ProgramW6432" os-env
] output>array harvest members ; inline
: find-in-program-files ( base-directory quot -- path )
t swap [
[ program-files-directories ] dip '[ _ append-path ] map
] 2dip find-in-directories ; inline
M: windows find-in-applications M: windows find-in-applications
>lower >lower
'[ [ >lower _ tail? ] find-in-program-files ] map-find drop ; '[ [ >lower _ tail? ] find-in-program-files ] map-find drop ;

2
extra/graphviz/render/windows/windows.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators.short-circuit graphviz.render USING: accessors combinators.short-circuit graphviz.render
graphviz.render.private io.directories graphviz.render.private io.directories
io.directories.search.windows io.files.info io.standard-paths io.files.info io.standard-paths io.standard-paths.windows
kernel sequences system ; kernel sequences system ;
IN: graphviz.render.windows IN: graphviz.render.windows