end-of-file

Vocabulary

regexp.classes

Definition

IN: regexp.classes

SINGLETON: end-of-file

Methods

USING: combinators.short-circuit kernel math regexp.classes
regexp.compiler sequences ;

M: end-of-file question>quot
    drop [
        {
            [ length swap - 2 <= ]
            [ swap tail { "\n" "\r\n" "\r" "" } member? ]
        } 2&&
    ] ;