Rebol Programming/deline

USAGE:

DELINE string /lines 

DESCRIPTION:

Converts string terminators to standard format, e.g. CRLF to LF. (Modifies)

DELINE is a function value.

ARGUMENTS

• string -- (Type: any-string)

REFINEMENTS

• /lines -- Convert to block of lines (does not modify)

SOURCE CODE

deline: func [
    {Converts string terminators to standard format, e.g. CRLF to LF. (Modifies)} 
    string [any-string!] 
    /lines "Convert to block of lines (does not modify)" /local 
    linechar a b 
    output
][
    linechar: make bitset! #{
FFDBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
} 
    also case [
        not lines [
            parse/all/case either binary? string [as-string string] [string] [
                any [to cr a: cr opt lf b: (
                        b: change/part a lf b
                    ) :b] to end
            ] 
            string
        ] 
        empty? string [copy []] 
        'else [
            output: make block! divide length? string 50 
            if binary? string [string: as-string string] 
            parse/all/case string [any [
                    copy a some linechar (output: insert output a) [crlf | cr | lf | end] 
                    | 
                    [crlf | cr | lf] (output: insert output copy "")
                ]] 
            head output
        ]
    ] set [string output a b] none
]