cvs.rb
150 lines
| 5.4 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/cvs_adapter' | ||||
| require 'digest/sha1' | ||||
| class Repository::Cvs < Repository | ||||
| validates_presence_of :url, :root_url | ||||
| def scm_adapter | ||||
| Redmine::Scm::Adapters::CvsAdapter | ||||
| end | ||||
| def self.scm_name | ||||
| 'CVS' | ||||
| end | ||||
| def entry(path, identifier) | ||||
| e = entries(path, identifier) | ||||
| e ? e.first : nil | ||||
| end | ||||
| def entries(path=nil, identifier=nil) | ||||
| entries=scm.entries(path, identifier) | ||||
| if entries | ||||
| entries.each() do |entry| | ||||
| unless entry.lastrev.nil? || entry.lastrev.identifier | ||||
| change=changes.find_by_revision_and_path( entry.lastrev.revision, scm.with_leading_slash(entry.path) ) | ||||
| if change | ||||
| entry.lastrev.identifier=change.changeset.revision | ||||
| entry.lastrev.author=change.changeset.committer | ||||
| entry.lastrev.revision=change.revision | ||||
| entry.lastrev.branch=change.branch | ||||
| end | ||||
| end | ||||
| end | ||||
| end | ||||
| entries | ||||
| end | ||||
| def diff(path, rev, rev_to, type) | ||||
| #convert rev to revision. CVS can't handle changesets here | ||||
| diff=[] | ||||
| changeset_from=changesets.find_by_revision(rev) | ||||
| if rev_to.to_i > 0 | ||||
| changeset_to=changesets.find_by_revision(rev_to) | ||||
| end | ||||
| changeset_from.changes.each() do |change_from| | ||||
| revision_from=nil | ||||
| revision_to=nil | ||||
| revision_from=change_from.revision if path.nil? || (change_from.path.starts_with? scm.with_leading_slash(path)) | ||||
| if revision_from | ||||
| if changeset_to | ||||
| changeset_to.changes.each() do |change_to| | ||||
| revision_to=change_to.revision if change_to.path==change_from.path | ||||
| end | ||||
| end | ||||
| unless revision_to | ||||
| revision_to=scm.get_previous_revision(revision_from) | ||||
| end | ||||
| diff=diff+scm.diff(change_from.path, revision_from, revision_to, type) | ||||
| end | ||||
| end | ||||
| return diff | ||||
| end | ||||
| def fetch_changesets | ||||
| #not the preferred way with CVS. maybe we should introduce always a cron-job for this | ||||
| last_commit = changesets.maximum(:committed_on) | ||||
| # some nifty bits to introduce a commit-id with cvs | ||||
| # natively cvs doesn't provide any kind of changesets, there is only a revision per file. | ||||
| # we now take a guess using the author, the commitlog and the commit-date. | ||||
| # last one is the next step to take. the commit-date is not equal for all | ||||
| # commits in one changeset. cvs update the commit-date when the *,v file was touched. so | ||||
| # we use a small delta here, to merge all changes belonging to _one_ changeset | ||||
| time_delta=10.seconds | ||||
| transaction do | ||||
| scm.revisions('', last_commit, nil, :with_paths => true) do |revision| | ||||
| # only add the change to the database, if it doen't exists. the cvs log | ||||
| # is not exclusive at all. | ||||
| unless changes.find_by_path_and_revision(scm.with_leading_slash(revision.paths[0][:path]), revision.paths[0][:revision]) | ||||
| revision | ||||
|
Jean-Philippe Lang
|
r592 | cs = changesets.find(:first, :conditions=>{ | ||
|
Jean-Philippe Lang
|
r556 | :committed_on=>revision.time-time_delta..revision.time+time_delta, | ||
| :committer=>revision.author, | ||||
| :comments=>revision.message | ||||
| }) | ||||
| # create a new changeset.... | ||||
| unless cs | ||||
| # we use a negative changeset-number here (just for inserting) | ||||
| # later on, we calculate a continous positive number | ||||
| next_rev = changesets.minimum(:revision) | ||||
| next_rev = 0 if next_rev.nil? or next_rev > 0 | ||||
| next_rev = next_rev - 1 | ||||
| cs=Changeset.create(:repository => self, | ||||
| :revision => next_rev, | ||||
| :committer => revision.author, | ||||
| :committed_on => revision.time, | ||||
| :comments => revision.message) | ||||
| end | ||||
| #convert CVS-File-States to internal Action-abbrevations | ||||
| #default action is (M)odified | ||||
| action="M" | ||||
| if revision.paths[0][:action]=="Exp" && revision.paths[0][:revision]=="1.1" | ||||
| action="A" #add-action always at first revision (= 1.1) | ||||
| elsif revision.paths[0][:action]=="dead" | ||||
| action="D" #dead-state is similar to Delete | ||||
| end | ||||
| Change.create(:changeset => cs, | ||||
| :action => action, | ||||
| :path => scm.with_leading_slash(revision.paths[0][:path]), | ||||
| :revision => revision.paths[0][:revision], | ||||
| :branch => revision.paths[0][:branch] | ||||
| ) | ||||
| end | ||||
| end | ||||
| next_rev = [changesets.maximum(:revision) || 0, 0].max | ||||
| changesets.find(:all, :conditions=>["revision < 0"], :order=>"committed_on ASC").each() do |changeset| | ||||
| next_rev = next_rev + 1 | ||||
| changeset.revision = next_rev | ||||
| changeset.save! | ||||
| end | ||||
| end | ||||
| end | ||||
| end | ||||