embed-image ( image executable -- )

Vocabulary

tools.deploy.embed

Inputs

image	an object
executable	an object

Outputs

None

Definition

USING: alien.c-types alien.data bootstrap.image.private
destructors io io.encodings.binary io.files ;

IN: tools.deploy.embed

:: embed-image ( image executable -- )
    executable binary <file-appender> [| out |
        out stream-tell :> offset image binary <file-reader>
        [| in | in out stream-copy* ] with-disposal
        image-magic uintptr_t <ref> out stream-write
        offset uintptr_t <ref> out stream-write
    ] with-disposal ;