[REBOL] Re: Function to compare two scripts?
From: greggirwin:mindspring at: 22-Aug-2003 8:35
Hi Sunanda,
Sac> Very clever code, but a couple of problems:
Sac> First, it gets confused by completely different strings,
Guess I need to revisit that. :) Thanks.
Sac> ...or case differences:
If you compare strings, by byte, case will matter because each item in
the series is char that it's comparing. I figured mine wouldn't work
out of the box for you, since there's no UI and the output format was
designed so you could just DO it to apply diff patches. You should be
able to build a front end for it though. Check out Volker's stuff (if
he's published it); that may work for you.
Sac> I've taken a look at your code, but I can't see any obvious way
Sac> to morph it into something that reports differences by lines.
All you have to do is give it blocks of lines to compare. It compares
two series element by element, it doesn't parse strings into lines for
you automatically.
version-1: parse/all {
rebol [
name: "fred"
title: "test script"
]
print "test"
haltt} "^/"
version-2: parse/all {
REBOL [
name: "fred"
title: "test script"
history: [21-aug-2003 "Fixed exit problem"]
halt} "^/"
>> diff/create version-2 version-1
== [
change/part at result 5 [{ history: [21-aug-2003 "Fixed exit problem"]}] 1
append clear at result 7 ["halt"]]
So, it's still not human-friendly output or, even better, a
side-by-side display, but not entirely useless in some cases.
-- Gregg
