init-resource-path ( -- )

Vocabulary

io.files

Inputs

None

Outputs

None

Definition

USING: alien.strings io.pathnames kernel kernel.private
namespaces sequences splitting system ;

IN: io.files

: init-resource-path ( -- )
    OBJ-ARGS special-object
    [ alien>native-string "-resource-path=" ?head and* ]
    map-find drop [ image-path parent-directory ] unless*
    "resource-path" set-global ;