shader-filename ( shader/program -- filename )

Vocabulary

gpu.shaders.private

Inputs

shader/program

an object

Outputs

filename

an object

Definition

USING: accessors definitions io.pathnames kernel sequences ;

IN: gpu.shaders.private

: shader-filename ( shader/program -- filename )
    [ filename>> ] [ name>> where first ] ?unless file-name ;