(deploy) ( final-image vocab-manifest-out vocab config -- )

Vocabulary

tools.deploy.shaker

Inputs

final-image	an object
vocab-manifest-out	an object
vocab	an object
config	an object

Outputs

None

Word description

Does the actual work of a deployment in the slave stage2 image.

Definition

USING: io io.streams.c kernel memory namespaces system
tools.deploy.config vocabs ;

IN: tools.deploy.shaker

: (deploy)
    ( final-image vocab-manifest-out vocab config -- )
    [
        [
            strip-debugger? [
                "debugger" require "tools.errors" require
                "inspector" require deploy-ui? get
                [ "ui.debugger" require ] when
            ] unless
            [ deploy-vocab set ] [ require ] [
                vocab-main [
                    "Vocabulary has no MAIN: word." print
                    flush 1 exit
                ] unless
            ] tri set-stop-after-last-window? strip
            "Saving final image" show save-image-and-exit
        ] deploy-error-handler
    ] with-variables ;