terminfo-dirs ( -- dirlist )

Vocabulary

terminfo

Inputs

None

Outputs

dirlist

an object

Definition

USING: environment kernel make splitting system ;

IN: terminfo

: terminfo-dirs ( -- dirlist )
    [
        "TERMINFO" os-env [ , ] when* "~/.terminfo" ,
        "TERMINFO_DIRS" os-env [ ":" split % ] when* os windows? 
        [
            "/etc/terminfo" , "/lib/terminfo" ,
            "/usr/share/terminfo" ,
        ] unless
    ] { } make ;