retain
LCS, diffing and distance

Prev:

delete

Vocabulary
lcs

Class description
Represents an action in an edit script where an item is kept, going from the initial sequence to the final sequence. This has one slot, called item, containing the thing which is retained

Definition

IN: lcs

TUPLE: retain item ;

Methods

USING: kernel lcs lcs.diff2html xml.data xml.syntax.private ;

M: retain diff-line
    item-string 1 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag
                    { name ~name~ }
                    { attrs ~attrs~ }
                    { children ~vector~ }
                }
                ""
            }
        }
    } interpolate-xml dup 2 nenum T{ xml-chunk
        { seq
            V{
                ""
                T{ tag { name ~name~ } { children ~vector~ } }
                ""
            }
        }
    } interpolate-xml ;