! Copyright (C) 2011 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: combinators io.pathnames kernel sequences system
vocabs.loader ;
IN: io.standard-paths

HOOK: find-native-bundle os ( string -- path )

HOOK: find-path* os ( string -- path/f )

: find-path ( string -- path/f )
    [ f ]
    [ [ find-path* ] keep over [ append-path ] [ 2drop f ] if ]
    if-empty ;

os {
    { [ dup macosx? ] [ drop "io.standard-paths.macosx" require ] }
    { [ dup unix? ] [ drop "io.standard-paths.unix" require ] }
    { [ dup windows? ] [ "drop io.standard-paths.windows" require ] }
} cond