diff and patch

I want these functions:

    proc diff {old new} -> # diff data "ddata"
    proc patch {old ddata} -> # new

where old and new are strings.

I thought the Tcllib's rcs module could do this but I can't figure it out.

Is this possible using the rcs module or using the struct::list module's
LCS functions?