")
end
def consume(line)
$file = FileEntry.new(line)
$fileEntries << $file
$file.tag = getTag
handleFile($file)
end
protected
def getTag
@tagHandler.getLastTag
end
def println(text)
$fileHeaderHtml << text << "\n"
end
def print(text)
$fileHeaderHtml << text
end
end
# don't make any links
class NoFrontend
def path(path, tag)
htmlEncode(path)
end
def version(path, version)
version
end
def diff(file)
'->'
end
end
# Superclass for objects that can link to CVS frontends on the web (ViewCVS,
# Chora, etc.).
class WebFrontend < NoFrontend
def initialize(base_url)
@base_url = base_url
end
def path(path, tag)
path_for_href = ""
result = ""
path.split("/").each do |component|
unless result == ""
result << "/"
path_for_href << "/"
end
path_for_href << component
result << "
#{htmlEncode(component)}"
end
result
end
def version(path, version)
"
#{version}"
end
def diff(file)
"
#{super(file)}"
end
end
# Link to ViewCVS
class ViewCVSFrontend < WebFrontend
attr_accessor :repository_name
def initialize(base_url)
super(base_url)
@repository_name = nil
end
def path_url(path, tag)
if tag == nil
add_repo(@base_url + urlEncode(path))
else
add_repo("#{@base_url}#{urlEncode(path)}?only_with_tag=#{urlEncode(tag)}")
end
end
def version_url(path, version)
add_repo("#{@base_url}#{urlEncode(path)}?rev=#{version}&content-type=text/vnd.viewcvs-markup")
end
def diff_url(file)
add_repo("#{@base_url}#{urlEncode(file.path)}.diff?r1=#{file.fromVer}&r2=#{file.toVer}")
end
private
def add_repo(url)
if @repository_name
if url =~ /\?/
"#{url}&cvsroot=#{urlEncode(@repository_name)}"
else
"#{url}?cvsroot=#{urlEncode(@repository_name)}"
end
else
url
end
end
end
# Link to Chora, from the Horde framework
class ChoraFrontend < WebFrontend
def path_url(path, tag)
# TODO: can we pass the tag somehow?
"#{@base_url}/cvs.php/#{urlEncode(path)}"
end
def version_url(path, version)
"#{@base_url}/co.php/#{urlEncode(path)}?r=#{version}"
end
def diff_url(file)
"#{@base_url}/diff.php/#{urlEncode(file.path)}?r1=#{file.fromVer}&r2=#{file.toVer}"
end
end
# Link to CVSweb
class CVSwebFrontend < WebFrontend
def path_url(path, tag)
if tag == nil
if $cvswebRoot != nil
"#{@base_url}#{urlEncode(path)}?cvsroot=#{$cvswebRoot}"
else
@base_url + urlEncode(path)
end
else
if $cvswebRoot != nil
"#{@base_url}#{urlEncode(path)}?only_with_tag=#{urlEncode(tag)}&cvsroot=#{$cvswebRoot}"
else
"#{@base_url}#{urlEncode(path)}?only_with_tag=#{urlEncode(tag)}"
end
end
end
def version_url(path, version)
if $cvswebRoot != nil
"#{@base_url}#{urlEncode(path)}?rev=#{version}&content-type=text/x-cvsweb-markup&cvsroot=#{$cvswebRoot}"
else
"#{@base_url}#{urlEncode(path)}?rev=#{version}&content-type=text/x-cvsweb-markup"
end
end
def diff_url(file)
if $cvswebRoot != nil
"#{@base_url}#{urlEncode(file.path)}.diff?r1=text&tr1=#{file.fromVer}&r2=text&tr2=#{file.toVer}&f=h&cvsroot=#{$cvswebRoot}"
else
"#{@base_url}#{urlEncode(file.path)}.diff?r1=text&tr1=#{file.fromVer}&r2=text&tr2=#{file.toVer}&f=h"
end
end
end
# in need of refactoring...
class AddedFileHandler < FileHandler
def handleFile(file)
file.type="A"
file.toVer=$toVer
print("
")
print($frontend.path(file.basedir, file.tag))
println("
")
println("")
end
end
class RemovedFileHandler < FileHandler
def handleFile(file)
file.type="R"
file.fromVer=$fromVer
print("
")
print($frontend.path(file.basedir, file.tag))
println("
")
println("")
end
end
class ModifiedFileHandler < FileHandler
def handleFile(file)
file.type="M"
file.fromVer=$fromVer
file.toVer=$toVer
print("
")
print($frontend.path(file.basedir, file.tag))
println("
")
println("")
end
end
class UnifiedDiffStats
def initialize
@diffLines=3 # the three initial lines in the unidiff
end
def diffLines
@diffLines
end
def consume(line)
@diffLines += 1
case line[0,1]
when "+" then $file.lineAdditions += 1
when "-" then $file.lineRemovals += 1
end
end
end
# TODO: change-within-line colourisation should really be comparing the
# set of lines just removed with the set of lines just added, but
# it currently considers just a single line
class UnifiedDiffColouriser < LineConsumer
def initialize
@currentState = "@"
@currentStyle = "info"
@lineJustDeleted = nil
end
def output=(io)
@emailIO = io
end
def consume(line)
initial = line[0,1]
if initial != @currentState
prefixLen = 1
suffixLen = 0
if initial=="+" && @currentState=="-" && @lineJustDeleted!=nil
# may be an edit, try to highlight the changes part of the line
a = line[1,line.length-1]
b = @lineJustDeleted[1,@lineJustDeleted.length-1]
prefixLen = commonPrefixLength(a, b)+1
suffixLen = commonPrefixLength(a.reverse, b.reverse)
# prevent prefix/suffux having overlap,
suffixLen = min(suffixLen, min(line.length,@lineJustDeleted.length)-prefixLen)
deleteInfixSize = @lineJustDeleted.length - (prefixLen+suffixLen)
addInfixSize = line.length - (prefixLen+suffixLen)
oversize_change = deleteInfixSize*100/@lineJustDeleted.length>33 || addInfixSize*100/line.length>33
if prefixLen==1 && suffixLen==0 || deleteInfixSize<=0 || oversize_change
println(htmlEncode(@lineJustDeleted))
else
print(htmlEncode(@lineJustDeleted[0,prefixLen]))
print("
")
print(formatChange(@lineJustDeleted[prefixLen,deleteInfixSize]))
print("")
println(htmlEncode(@lineJustDeleted[@lineJustDeleted.length-suffixLen,suffixLen]))
end
@lineJustDeleted = nil
end
if initial=="-"
@lineJustDeleted=line
shift(initial)
# we'll print it next time (fingers crossed)
return
elsif @lineJustDeleted!=nil
println(htmlEncode(@lineJustDeleted))
@lineJustDeleted = nil
end
shift(initial)
if prefixLen==1 && suffixLen==0 || addInfixSize<=0 || oversize_change
encoded = htmlEncode(line)
else
encoded = htmlEncode(line[0,prefixLen]) +
"
" +
formatChange(line[prefixLen,addInfixSize]) +
"" +
htmlEncode(line[line.length-suffixLen,suffixLen])
end
else
encoded = htmlEncode(line)
end
if initial=="-"
unless @lineJustDeleted==nil
println(htmlEncode(@lineJustDeleted))
@lineJustDeleted=nil
end
end
if initial=="+"
$task_keywords.each do |task|
if line =~ /\b(#{task}\b.*)/
$task_list << $1
encoded.sub!(/\b#{task}\b/, "
#{task}")
encoded = "
" + encoded
break
end
end
end
println(encoded)
end
def teardown
unless @lineJustDeleted==nil
println(htmlEncode(@lineJustDeleted))
@lineJustDeleted = nil
end
shift(nil)
end
private
def formatChange(text)
return '
^M' if text=="\r"
htmlEncode(text).gsub(/ /, ' ')
end
def shift(nextState)
unless @currentState == nil
if @currentStyle == "info"
print("")
else
print("")
end
@currentStyle = case nextState
when "\\" then "info" # as in '\ No newline at end of file'
when "@" then "info"
when " " then "context"
when "+" then "added"
when "-" then "removed"
end
unless nextState == nil
if @currentStyle=='info'
print("
")
else
print("")
end
end
end
@currentState = nextState
end
def commonPrefixLength(a, b)
length = 0
a.each_byte do |char|
break unless b[length]==char
length = length + 1
end
return length
end
end
class UnifiedDiffHandler < LineConsumer
def setup
@stats = UnifiedDiffStats.new
@colour = UnifiedDiffColouriser.new
@colour.output = @emailIO
@lookahead = nil
end
def consume(line)
case lineno()
when 1
@diffline = line
when 2
@lookahead = line
when 3
println($fileHeaderHtml)
# TODO: move to UnifiedDiffColouriser
print("")
println(htmlEncode(@diffline)) # 'diff ...'
println(htmlEncode(@lookahead)) # '--- ...'
println(htmlEncode(line)) # '+++ ...'
else
unless $file.removal? && $no_removed_file_diff
@stats.consume(line)
end
if @stats.diffLines < $maxLinesPerDiff
@colour.consume(line)
elsif @stats.diffLines == $maxLinesPerDiff
@colour.consume(line)
@colour.teardown
end
end
end
def teardown
if @lookahead == nil
$file.isEmpty = true
elsif @lookahead =~ /Binary files .* and .* differ/
$file.isBinary = true
else
unless $file.removal? && $no_removed_file_diff
if @stats.diffLines > $maxLinesPerDiff
println("")
println("[truncated at #{$maxLinesPerDiff} lines; #{@stats.diffLines-$maxLinesPerDiff} more skipped]")
else
@colour.teardown
end
println("