location ( -- loc/f )

Vocabulary

parser

Inputs

None

Outputs

loc/f

a { path line# } pair or f

Word description

Outputs the current parser location. This value can be passed to set-where or remember-definition.

Definition

USING: accessors arrays kernel lexer namespaces source-files ;

IN: parser

: location ( -- loc/f )
    current-source-file get lexer get 2dup and
    [ [ path>> ] [ line>> ] bi* 2array ] [ 2drop f ] if ;