Rebol Programming/deline

From Wikibooks, open books for an open world
< Rebol Programming
Jump to navigation Jump to search

USAGE:[edit | edit source]

DELINE string /lines 

DESCRIPTION:[edit | edit source]

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

DELINE is a function value.

ARGUMENTS[edit | edit source]

  • string -- (Type: any-string)

REFINEMENTS[edit | edit source]

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

SOURCE CODE[edit | edit source]

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 
    linechar: make bitset! #{
    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
        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