replace-log-line-number ( object log-line -- log-line' )

Vocabulary

gpu.shaders.private

Inputs

object	an object
log-line	an object

Outputs

log-line'

an object

Definition

USING: accessors arrays combinators kernel math math.parser
sequences splitting ;

IN: gpu.shaders.private

: replace-log-line-number ( object log-line -- log-line' )
    ":" split dup numbered-log-line? [
        {
            [ nip first ]
            [ drop shader-filename " " prepend ]
            [
                [ line>> ] [ third string>number ] bi* +
                number>string
            ]
            [ nip 3 tail ]
        } 2cleave [ 3array ] dip append
    ] [ nip ] if ":" join ;