annotate .svn/pristine/94/94e5ac8fbd269485670f62fe0e6e82b861c05911.svn-base @ 1327:287f201c2802 redmine-2.2-integration

Add italic
author Chris Cannam <chris.cannam@soundsoftware.ac.uk>
date Wed, 19 Jun 2013 20:56:22 +0100
parents 038ba2d95de8
children
rev   line source
Chris@1296 1 # Redmine - project management software
Chris@1296 2 # Copyright (C) 2006-2012 Jean-Philippe Lang
Chris@1296 3 #
Chris@1296 4 # This program is free software; you can redistribute it and/or
Chris@1296 5 # modify it under the terms of the GNU General Public License
Chris@1296 6 # as published by the Free Software Foundation; either version 2
Chris@1296 7 # of the License, or (at your option) any later version.
Chris@1296 8 #
Chris@1296 9 # This program is distributed in the hope that it will be useful,
Chris@1296 10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
Chris@1296 11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
Chris@1296 12 # GNU General Public License for more details.
Chris@1296 13 #
Chris@1296 14 # You should have received a copy of the GNU General Public License
Chris@1296 15 # along with this program; if not, write to the Free Software
Chris@1296 16 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
Chris@1296 17
Chris@1296 18 require 'redmine/scm/adapters/abstract_adapter'
Chris@1296 19
Chris@1296 20 module Redmine
Chris@1296 21 module Scm
Chris@1296 22 module Adapters
Chris@1296 23 class BazaarAdapter < AbstractAdapter
Chris@1296 24
Chris@1296 25 # Bazaar executable name
Chris@1296 26 BZR_BIN = Redmine::Configuration['scm_bazaar_command'] || "bzr"
Chris@1296 27
Chris@1296 28 class << self
Chris@1296 29 def client_command
Chris@1296 30 @@bin ||= BZR_BIN
Chris@1296 31 end
Chris@1296 32
Chris@1296 33 def sq_bin
Chris@1296 34 @@sq_bin ||= shell_quote_command
Chris@1296 35 end
Chris@1296 36
Chris@1296 37 def client_version
Chris@1296 38 @@client_version ||= (scm_command_version || [])
Chris@1296 39 end
Chris@1296 40
Chris@1296 41 def client_available
Chris@1296 42 !client_version.empty?
Chris@1296 43 end
Chris@1296 44
Chris@1296 45 def scm_command_version
Chris@1296 46 scm_version = scm_version_from_command_line.dup
Chris@1296 47 if scm_version.respond_to?(:force_encoding)
Chris@1296 48 scm_version.force_encoding('ASCII-8BIT')
Chris@1296 49 end
Chris@1296 50 if m = scm_version.match(%r{\A(.*?)((\d+\.)+\d+)})
Chris@1296 51 m[2].scan(%r{\d+}).collect(&:to_i)
Chris@1296 52 end
Chris@1296 53 end
Chris@1296 54
Chris@1296 55 def scm_version_from_command_line
Chris@1296 56 shellout("#{sq_bin} --version") { |io| io.read }.to_s
Chris@1296 57 end
Chris@1296 58 end
Chris@1296 59
Chris@1296 60 def initialize(url, root_url=nil, login=nil, password=nil, path_encoding=nil)
Chris@1296 61 @url = url
Chris@1296 62 @root_url = url
Chris@1296 63 @path_encoding = 'UTF-8'
Chris@1296 64 # do not call *super* for non ASCII repository path
Chris@1296 65 end
Chris@1296 66
Chris@1296 67 def bzr_path_encodig=(encoding)
Chris@1296 68 @path_encoding = encoding
Chris@1296 69 end
Chris@1296 70
Chris@1296 71 # Get info about the repository
Chris@1296 72 def info
Chris@1296 73 cmd_args = %w|revno|
Chris@1296 74 cmd_args << bzr_target('')
Chris@1296 75 info = nil
Chris@1296 76 scm_cmd(*cmd_args) do |io|
Chris@1296 77 if io.read =~ %r{^(\d+)\r?$}
Chris@1296 78 info = Info.new({:root_url => url,
Chris@1296 79 :lastrev => Revision.new({
Chris@1296 80 :identifier => $1
Chris@1296 81 })
Chris@1296 82 })
Chris@1296 83 end
Chris@1296 84 end
Chris@1296 85 info
Chris@1296 86 rescue ScmCommandAborted
Chris@1296 87 return nil
Chris@1296 88 end
Chris@1296 89
Chris@1296 90 # Returns an Entries collection
Chris@1296 91 # or nil if the given path doesn't exist in the repository
Chris@1296 92 def entries(path=nil, identifier=nil, options={})
Chris@1296 93 path ||= ''
Chris@1296 94 entries = Entries.new
Chris@1296 95 identifier = -1 unless identifier && identifier.to_i > 0
Chris@1296 96 cmd_args = %w|ls -v --show-ids|
Chris@1296 97 cmd_args << "-r#{identifier.to_i}"
Chris@1296 98 cmd_args << bzr_target(path)
Chris@1296 99 scm_cmd(*cmd_args) do |io|
Chris@1296 100 prefix_utf8 = "#{url}/#{path}".gsub('\\', '/')
Chris@1296 101 logger.debug "PREFIX: #{prefix_utf8}"
Chris@1296 102 prefix = scm_iconv(@path_encoding, 'UTF-8', prefix_utf8)
Chris@1296 103 prefix.force_encoding('ASCII-8BIT') if prefix.respond_to?(:force_encoding)
Chris@1296 104 re = %r{^V\s+(#{Regexp.escape(prefix)})?(\/?)([^\/]+)(\/?)\s+(\S+)\r?$}
Chris@1296 105 io.each_line do |line|
Chris@1296 106 next unless line =~ re
Chris@1296 107 name_locale = $3.strip
Chris@1296 108 name = scm_iconv('UTF-8', @path_encoding, name_locale)
Chris@1296 109 entries << Entry.new({:name => name,
Chris@1296 110 :path => ((path.empty? ? "" : "#{path}/") + name),
Chris@1296 111 :kind => ($4.blank? ? 'file' : 'dir'),
Chris@1296 112 :size => nil,
Chris@1296 113 :lastrev => Revision.new(:revision => $5.strip)
Chris@1296 114 })
Chris@1296 115 end
Chris@1296 116 end
Chris@1296 117 if logger && logger.debug?
Chris@1296 118 logger.debug("Found #{entries.size} entries in the repository for #{target(path)}")
Chris@1296 119 end
Chris@1296 120 entries.sort_by_name
Chris@1296 121 rescue ScmCommandAborted
Chris@1296 122 return nil
Chris@1296 123 end
Chris@1296 124
Chris@1296 125 def revisions(path=nil, identifier_from=nil, identifier_to=nil, options={})
Chris@1296 126 path ||= ''
Chris@1296 127 identifier_from = (identifier_from and identifier_from.to_i > 0) ? identifier_from.to_i : 'last:1'
Chris@1296 128 identifier_to = (identifier_to and identifier_to.to_i > 0) ? identifier_to.to_i : 1
Chris@1296 129 revisions = Revisions.new
Chris@1296 130 cmd_args = %w|log -v --show-ids|
Chris@1296 131 cmd_args << "-r#{identifier_to}..#{identifier_from}"
Chris@1296 132 cmd_args << bzr_target(path)
Chris@1296 133 scm_cmd(*cmd_args) do |io|
Chris@1296 134 revision = nil
Chris@1296 135 parsing = nil
Chris@1296 136 io.each_line do |line|
Chris@1296 137 if line =~ /^----/
Chris@1296 138 revisions << revision if revision
Chris@1296 139 revision = Revision.new(:paths => [], :message => '')
Chris@1296 140 parsing = nil
Chris@1296 141 else
Chris@1296 142 next unless revision
Chris@1296 143 if line =~ /^revno: (\d+)($|\s\[merge\]$)/
Chris@1296 144 revision.identifier = $1.to_i
Chris@1296 145 elsif line =~ /^committer: (.+)$/
Chris@1296 146 revision.author = $1.strip
Chris@1296 147 elsif line =~ /^revision-id:(.+)$/
Chris@1296 148 revision.scmid = $1.strip
Chris@1296 149 elsif line =~ /^timestamp: (.+)$/
Chris@1296 150 revision.time = Time.parse($1).localtime
Chris@1296 151 elsif line =~ /^ -----/
Chris@1296 152 # partial revisions
Chris@1296 153 parsing = nil unless parsing == 'message'
Chris@1296 154 elsif line =~ /^(message|added|modified|removed|renamed):/
Chris@1296 155 parsing = $1
Chris@1296 156 elsif line =~ /^ (.*)$/
Chris@1296 157 if parsing == 'message'
Chris@1296 158 revision.message << "#{$1}\n"
Chris@1296 159 else
Chris@1296 160 if $1 =~ /^(.*)\s+(\S+)$/
Chris@1296 161 path_locale = $1.strip
Chris@1296 162 path = scm_iconv('UTF-8', @path_encoding, path_locale)
Chris@1296 163 revid = $2
Chris@1296 164 case parsing
Chris@1296 165 when 'added'
Chris@1296 166 revision.paths << {:action => 'A', :path => "/#{path}", :revision => revid}
Chris@1296 167 when 'modified'
Chris@1296 168 revision.paths << {:action => 'M', :path => "/#{path}", :revision => revid}
Chris@1296 169 when 'removed'
Chris@1296 170 revision.paths << {:action => 'D', :path => "/#{path}", :revision => revid}
Chris@1296 171 when 'renamed'
Chris@1296 172 new_path = path.split('=>').last
Chris@1296 173 if new_path
Chris@1296 174 revision.paths << {:action => 'M', :path => "/#{new_path.strip}",
Chris@1296 175 :revision => revid}
Chris@1296 176 end
Chris@1296 177 end
Chris@1296 178 end
Chris@1296 179 end
Chris@1296 180 else
Chris@1296 181 parsing = nil
Chris@1296 182 end
Chris@1296 183 end
Chris@1296 184 end
Chris@1296 185 revisions << revision if revision
Chris@1296 186 end
Chris@1296 187 revisions
Chris@1296 188 rescue ScmCommandAborted
Chris@1296 189 return nil
Chris@1296 190 end
Chris@1296 191
Chris@1296 192 def diff(path, identifier_from, identifier_to=nil)
Chris@1296 193 path ||= ''
Chris@1296 194 if identifier_to
Chris@1296 195 identifier_to = identifier_to.to_i
Chris@1296 196 else
Chris@1296 197 identifier_to = identifier_from.to_i - 1
Chris@1296 198 end
Chris@1296 199 if identifier_from
Chris@1296 200 identifier_from = identifier_from.to_i
Chris@1296 201 end
Chris@1296 202 diff = []
Chris@1296 203 cmd_args = %w|diff|
Chris@1296 204 cmd_args << "-r#{identifier_to}..#{identifier_from}"
Chris@1296 205 cmd_args << bzr_target(path)
Chris@1296 206 scm_cmd_no_raise(*cmd_args) do |io|
Chris@1296 207 io.each_line do |line|
Chris@1296 208 diff << line
Chris@1296 209 end
Chris@1296 210 end
Chris@1296 211 diff
Chris@1296 212 end
Chris@1296 213
Chris@1296 214 def cat(path, identifier=nil)
Chris@1296 215 cat = nil
Chris@1296 216 cmd_args = %w|cat|
Chris@1296 217 cmd_args << "-r#{identifier.to_i}" if identifier && identifier.to_i > 0
Chris@1296 218 cmd_args << bzr_target(path)
Chris@1296 219 scm_cmd(*cmd_args) do |io|
Chris@1296 220 io.binmode
Chris@1296 221 cat = io.read
Chris@1296 222 end
Chris@1296 223 cat
Chris@1296 224 rescue ScmCommandAborted
Chris@1296 225 return nil
Chris@1296 226 end
Chris@1296 227
Chris@1296 228 def annotate(path, identifier=nil)
Chris@1296 229 blame = Annotate.new
Chris@1296 230 cmd_args = %w|annotate -q --all|
Chris@1296 231 cmd_args << "-r#{identifier.to_i}" if identifier && identifier.to_i > 0
Chris@1296 232 cmd_args << bzr_target(path)
Chris@1296 233 scm_cmd(*cmd_args) do |io|
Chris@1296 234 author = nil
Chris@1296 235 identifier = nil
Chris@1296 236 io.each_line do |line|
Chris@1296 237 next unless line =~ %r{^(\d+) ([^|]+)\| (.*)$}
Chris@1296 238 rev = $1
Chris@1296 239 blame.add_line($3.rstrip,
Chris@1296 240 Revision.new(
Chris@1296 241 :identifier => rev,
Chris@1296 242 :revision => rev,
Chris@1296 243 :author => $2.strip
Chris@1296 244 ))
Chris@1296 245 end
Chris@1296 246 end
Chris@1296 247 blame
Chris@1296 248 rescue ScmCommandAborted
Chris@1296 249 return nil
Chris@1296 250 end
Chris@1296 251
Chris@1296 252 def self.branch_conf_path(path)
Chris@1296 253 bcp = nil
Chris@1296 254 m = path.match(%r{^(.*[/\\])\.bzr.*$})
Chris@1296 255 if m
Chris@1296 256 bcp = m[1]
Chris@1296 257 else
Chris@1296 258 bcp = path
Chris@1296 259 end
Chris@1296 260 bcp.gsub!(%r{[\/\\]$}, "")
Chris@1296 261 if bcp
Chris@1296 262 bcp = File.join(bcp, ".bzr", "branch", "branch.conf")
Chris@1296 263 end
Chris@1296 264 bcp
Chris@1296 265 end
Chris@1296 266
Chris@1296 267 def append_revisions_only
Chris@1296 268 return @aro if ! @aro.nil?
Chris@1296 269 @aro = false
Chris@1296 270 bcp = self.class.branch_conf_path(url)
Chris@1296 271 if bcp && File.exist?(bcp)
Chris@1296 272 begin
Chris@1296 273 f = File::open(bcp, "r")
Chris@1296 274 cnt = 0
Chris@1296 275 f.each_line do |line|
Chris@1296 276 l = line.chomp.to_s
Chris@1296 277 if l =~ /^\s*append_revisions_only\s*=\s*(\w+)\s*$/
Chris@1296 278 str_aro = $1
Chris@1296 279 if str_aro.upcase == "TRUE"
Chris@1296 280 @aro = true
Chris@1296 281 cnt += 1
Chris@1296 282 elsif str_aro.upcase == "FALSE"
Chris@1296 283 @aro = false
Chris@1296 284 cnt += 1
Chris@1296 285 end
Chris@1296 286 if cnt > 1
Chris@1296 287 @aro = false
Chris@1296 288 break
Chris@1296 289 end
Chris@1296 290 end
Chris@1296 291 end
Chris@1296 292 ensure
Chris@1296 293 f.close
Chris@1296 294 end
Chris@1296 295 end
Chris@1296 296 @aro
Chris@1296 297 end
Chris@1296 298
Chris@1296 299 def scm_cmd(*args, &block)
Chris@1296 300 full_args = []
Chris@1296 301 full_args += args
Chris@1296 302 full_args_locale = []
Chris@1296 303 full_args.map do |e|
Chris@1296 304 full_args_locale << scm_iconv(@path_encoding, 'UTF-8', e)
Chris@1296 305 end
Chris@1296 306 ret = shellout(
Chris@1296 307 self.class.sq_bin + ' ' +
Chris@1296 308 full_args_locale.map { |e| shell_quote e.to_s }.join(' '),
Chris@1296 309 &block
Chris@1296 310 )
Chris@1296 311 if $? && $?.exitstatus != 0
Chris@1296 312 raise ScmCommandAborted, "bzr exited with non-zero status: #{$?.exitstatus}"
Chris@1296 313 end
Chris@1296 314 ret
Chris@1296 315 end
Chris@1296 316 private :scm_cmd
Chris@1296 317
Chris@1296 318 def scm_cmd_no_raise(*args, &block)
Chris@1296 319 full_args = []
Chris@1296 320 full_args += args
Chris@1296 321 full_args_locale = []
Chris@1296 322 full_args.map do |e|
Chris@1296 323 full_args_locale << scm_iconv(@path_encoding, 'UTF-8', e)
Chris@1296 324 end
Chris@1296 325 ret = shellout(
Chris@1296 326 self.class.sq_bin + ' ' +
Chris@1296 327 full_args_locale.map { |e| shell_quote e.to_s }.join(' '),
Chris@1296 328 &block
Chris@1296 329 )
Chris@1296 330 ret
Chris@1296 331 end
Chris@1296 332 private :scm_cmd_no_raise
Chris@1296 333
Chris@1296 334 def bzr_target(path)
Chris@1296 335 target(path, false)
Chris@1296 336 end
Chris@1296 337 private :bzr_target
Chris@1296 338 end
Chris@1296 339 end
Chris@1296 340 end
Chris@1296 341 end