deploy-path ( vocab -- path )

Vocabulary

tools.deploy.backend

Inputs

vocab

an object

Outputs

path

an object

Definition

USING: system ;

IN: tools.deploy.backend

HOOK: deploy-path os ( vocab -- path )

Methods

USING: generic io.backend io.directories io.pathnames kernel
namespaces system tools.deploy.backend tools.deploy.config
tools.deploy.config.editor tools.deploy.macosx ;

M: macosx deploy-path
    dup deploy-app-bundle? [
        deploy-directory get [
            dup deploy-config [
                bundle-name "Contents/MacOS/" append-path
                swap append-path normalize-path
            ] with-variables
        ] with-directory
    ] [ M\ macosx deploy-path (call-next-method) ] if ;


USING: io.backend io.directories io.pathnames kernel namespaces
system tools.deploy.backend tools.deploy.config
tools.deploy.config.editor ;

M: unix deploy-path
    deploy-directory get [
        dup deploy-config
        [ deploy-name get swap append-path normalize-path ]
        with-variables
    ] with-directory ;