mercurial.rb
142 lines
| 5.0 KiB
| text/x-ruby
|
RubyLexer
Jean-Philippe Lang
|
r556 | # redMine - project management software | ||
| # Copyright (C) 2006-2007 Jean-Philippe Lang | ||||
| # | ||||
| # This program is free software; you can redistribute it and/or | ||||
| # modify it under the terms of the GNU General Public License | ||||
| # as published by the Free Software Foundation; either version 2 | ||||
| # of the License, or (at your option) any later version. | ||||
| # | ||||
| # This program is distributed in the hope that it will be useful, | ||||
| # but WITHOUT ANY WARRANTY; without even the implied warranty of | ||||
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | ||||
| # GNU General Public License for more details. | ||||
| # | ||||
| # You should have received a copy of the GNU General Public License | ||||
| # along with this program; if not, write to the Free Software | ||||
| # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. | ||||
| require 'redmine/scm/adapters/mercurial_adapter' | ||||
| class Repository::Mercurial < Repository | ||||
Toshi MARUYAMA
|
r4491 | # sort changesets by revision number | ||
| has_many :changesets, :order => "#{Changeset.table_name}.id DESC", :foreign_key => 'repository_id' | ||||
|
Jean-Philippe Lang
|
r556 | attr_protected :root_url | ||
| validates_presence_of :url | ||||
|
Toshi MARUYAMA
|
r4729 | FETCH_AT_ONCE = 100 # number of changesets to fetch at once | ||
|
Toshi MARUYAMA
|
r4855 | ATTRIBUTE_KEY_NAMES = { | ||
| "url" => "Root directory", | ||||
| } | ||||
| def self.human_attribute_name(attribute_key_name) | ||||
| ATTRIBUTE_KEY_NAMES[attribute_key_name] || super | ||||
| end | ||||
|
Toshi MARUYAMA
|
r4702 | def self.scm_adapter_class | ||
|
Jean-Philippe Lang
|
r556 | Redmine::Scm::Adapters::MercurialAdapter | ||
| end | ||||
|
Toshi MARUYAMA
|
r4575 | |||
|
Jean-Philippe Lang
|
r556 | def self.scm_name | ||
| 'Mercurial' | ||||
| end | ||||
|
Toshi MARUYAMA
|
r4575 | |||
|
Toshi MARUYAMA
|
r5024 | def supports_directory_revisions? | ||
| true | ||||
| end | ||||
|
Toshi MARUYAMA
|
r4842 | def repo_log_encoding | ||
| 'UTF-8' | ||||
| end | ||||
|
Toshi MARUYAMA
|
r4575 | # Returns the readable identifier for the given mercurial changeset | ||
| def self.format_changeset_identifier(changeset) | ||||
|
Toshi MARUYAMA
|
r4577 | "#{changeset.revision}:#{changeset.scmid}" | ||
|
Toshi MARUYAMA
|
r4575 | end | ||
| # Returns the identifier for the given Mercurial changeset | ||||
| def self.changeset_identifier(changeset) | ||||
| changeset.scmid | ||||
| end | ||||
|
Toshi MARUYAMA
|
r4579 | def diff_format_revisions(cs, cs_to, sep=':') | ||
| super(cs, cs_to, ' ') | ||||
| end | ||||
|
Toshi MARUYAMA
|
r4534 | # Finds and returns a revision with a number or the beginning of a hash | ||
| def find_changeset_by_name(name) | ||||
|
Toshi MARUYAMA
|
r4584 | return nil if name.nil? || name.empty? | ||
|
Toshi MARUYAMA
|
r4534 | if /[^\d]/ =~ name or name.to_s.size > 8 | ||
| e = changesets.find(:first, :conditions => ['scmid = ?', name.to_s]) | ||||
| else | ||||
| e = changesets.find(:first, :conditions => ['revision = ?', name.to_s]) | ||||
| end | ||||
| return e if e | ||||
| changesets.find(:first, :conditions => ['scmid LIKE ?', "#{name}%"]) # last ditch | ||||
| end | ||||
|
Toshi MARUYAMA
|
r4491 | # Returns the latest changesets for +path+; sorted by revision number | ||
|
Toshi MARUYAMA
|
r4971 | # | ||
| # Because :order => 'id DESC' is defined at 'has_many', | ||||
| # there is no need to set 'order'. | ||||
| # But, MySQL test fails. | ||||
| # Sqlite3 and PostgreSQL pass. | ||||
| # Is this MySQL bug? | ||||
|
Toshi MARUYAMA
|
r4491 | def latest_changesets(path, rev, limit=10) | ||
|
Toshi MARUYAMA
|
r5003 | changesets.find(:all, :include => :user, | ||
| :conditions => latest_changesets_cond(path, rev, limit), | ||||
| :limit => limit, :order => "#{Changeset.table_name}.id DESC") | ||||
| end | ||||
| def latest_changesets_cond(path, rev, limit) | ||||
| cond, args = [], [] | ||||
|
Toshi MARUYAMA
|
r5007 | if scm.branchmap.member? rev | ||
| # Mercurial named branch is *stable* in each revision. | ||||
| # So, named branch can be stored in database. | ||||
| # Mercurial provides *bookmark* which is equivalent with git branch. | ||||
| # But, bookmark is not implemented. | ||||
| cond << "#{Changeset.table_name}.scmid IN (?)" | ||||
| # Revisions in root directory and sub directory are not equal. | ||||
| # So, in order to get correct limit, we need to get all revisions. | ||||
| # But, it is very heavy. | ||||
| args << scm.nodes_in_branch(rev, :limit => limit) | ||||
| elsif last = rev ? find_changeset_by_name(scm.tagmap[rev] || rev) : nil | ||||
|
Toshi MARUYAMA
|
r5003 | cond << "#{Changeset.table_name}.id <= ?" | ||
| args << last.id | ||||
|
Toshi MARUYAMA
|
r4491 | end | ||
|
Toshi MARUYAMA
|
r5003 | |||
| unless path.blank? | ||||
| cond << "EXISTS (SELECT * FROM #{Change.table_name} | ||||
| WHERE #{Change.table_name}.changeset_id = #{Changeset.table_name}.id | ||||
| AND (#{Change.table_name}.path = ? | ||||
| OR #{Change.table_name}.path LIKE ? ESCAPE ?))" | ||||
| args << path.with_leading_slash | ||||
| args << "#{path.with_leading_slash.gsub(/[%_\\]/) { |s| "\\#{s}" }}/%" << '\\' | ||||
| end | ||||
| [cond.join(' AND '), *args] unless cond.empty? | ||||
|
Toshi MARUYAMA
|
r4491 | end | ||
|
Toshi MARUYAMA
|
r5003 | private :latest_changesets_cond | ||
|
Toshi MARUYAMA
|
r4491 | |||
|
Jean-Philippe Lang
|
r556 | def fetch_changesets | ||
|
Toshi MARUYAMA
|
r4729 | scm_rev = scm.info.lastrev.revision.to_i | ||
| db_rev = latest_changeset ? latest_changeset.revision.to_i : -1 | ||||
| return unless db_rev < scm_rev # already up-to-date | ||||
| logger.debug "Fetching changesets for repository #{url}" if logger | ||||
| (db_rev + 1).step(scm_rev, FETCH_AT_ONCE) do |i| | ||||
| transaction do | ||||
| scm.each_revision('', i, [i + FETCH_AT_ONCE - 1, scm_rev].min) do |re| | ||||
| cs = Changeset.create(:repository => self, | ||||
| :revision => re.revision, | ||||
| :scmid => re.scmid, | ||||
| :committer => re.author, | ||||
| :committed_on => re.time, | ||||
| :comments => re.message) | ||||
| re.paths.each { |e| cs.create_change(e) } | ||||
|
Jean-Philippe Lang
|
r556 | end | ||
| end | ||||
| end | ||||
|
Toshi MARUYAMA
|
r4729 | self | ||
|
Jean-Philippe Lang
|
r556 | end | ||
| end | ||||