Regular expression for parsing diff output

Extracted from TkDiff.

	regexp {([0-9]*)(,([0-9]*))?([a-z])([0-9]*)(,([0-9]*))?} $line matchvar \
	s1 x e1 op s2 x e2

view raw diff_line_regex.tcl hosted with ❤ by GitHub