--- a/lib/piston/repository.rb
+++ b/lib/piston/repository.rb
@@ -80,7 +80,7 @@ module Piston
     # Uses svnadmin to create a repository if this repository's is a file: URL.
     def create!
       raise NoCreateOnRemoteRepositoryUrl.new(self.url) unless self.url =~ %r{\Afile://}
-      log {"Want to create repository at #{self.local_path.inspect}"}
+      debug {"Want to create repository at #{self.local_path.inspect}"}
       repos_parent_dir = File.expand_path(self.local_path + "/..")
 
       FileUtils.mkdir_p(repos_parent_dir)

--- a/lib/piston/subversion_client.rb
+++ b/lib/piston/subversion_client.rb
@@ -15,7 +15,7 @@ module Piston
       run_cmd :svn, *args
     end
 
-    def log(&block)
+    def debug(&block)
       @logger.debug(&block) if logger
     end
 
@@ -24,10 +24,10 @@ module Piston
       args.collect! {|arg| arg =~ /\s|\*|\?|"|\n|\r/ ? %Q('#{arg}') : arg}
       args.collect! {|arg| arg ? arg : '""'}
       cmd = %Q|#{executable} #{args.join(' ')}|
-      log {cmd}
+      debug {cmd}
       ENV["LANGUAGE"] = "C"
       value = run_real(cmd)
-      log {value} unless (value || "").strip.empty?
+      debug {value} unless (value || "").strip.empty?
       value
     end
 

--- a/lib/piston/working_copy.rb
+++ b/lib/piston/working_copy.rb
@@ -2,6 +2,8 @@ require "piston/subversion_client"
 require "fileutils"
 require "pathname"
 require "yaml"
+require "rexml/document"
+require "rexml/xpath"
 
 module Piston
   # Represents a Subversion working copy.
@@ -71,23 +73,63 @@ module Piston
       props = Hash.new
       propname = nil
       svn(:proplist, "--verbose", wc_path(target)).each_line do |line|
-        log {"==> #{line.inspect}"}
+        debug {"==> #{line.inspect}"}
         case line
         when /\AProperties on/
           # NOP, skip
-          log {"\tProperties on..."}
+          debug {"\tProperties on..."}
         when /\A\s\s(.+?)\s:\s(.*)\Z/
           props[propname = $1] = $2
-          log {"\tNew property"}
+          debug {"\tNew property"}
         when /\A(.*)\Z/
           props[propname] += "\n" + $1
-          log {"\tAppend"}
+          debug {"\tAppend"}
         end
       end
 
       props
     end
 
+    def log(revision)
+      revision = "#{revision.first}:#{revision.last}" if revision.respond_to?(:last)
+      xml = svn(:log, "--verbose", "--revision", revision, "--xml", self.path)
+      doc = REXML::Document.new(xml)
+      changes = {}
+      REXML::XPath.each(doc.root, "/log/logentry/paths/path") do |path|
+        debug {changes.to_yaml}
+        debug {path.inspect}
+
+        file = path.text[1..-1]
+        case path.attributes["action"]
+        when "A"
+          if path.attributes["copyfrom-path"] then
+            copy_file = path.attributes["copyfrom-path"][1..-1]
+            if changes[copy_file] == :delete then
+              changes[copy_file] = [:move, file]
+            else
+              changes[copy_file] = [:copy, file]
+            end
+          else
+            changes[file] = :add
+          end
+        when "M"
+          changes[file] = :modify unless changes[file]
+        when "D"
+          changes[file] = :delete
+        end
+      end
+
+      debug {changes.to_yaml}
+      changes.map do |file, op|
+        case op
+        when Array
+          [op.first, {file => op.last}]
+        else
+          [op, file]
+        end
+      end
+    end
+
     def add(*targets)
       svn :add, *targets.flatten.map {|file| wc_path(file)}
     end
@@ -106,7 +148,7 @@ module Piston
       svn :move, wc_path(from), wc_path(to)
     end
 
-    def copy(from, to)
+    def copy(from, to, options={})
       svn :copy, wc_path(from), wc_path(to)
     end
 
@@ -163,7 +205,7 @@ module Piston
 
     # Replaces the contents of the named file with +content+.
     def edit!(filename, content=nil) #:nodoc:
-      log {"Editing #{filename} with #{(content || '').size} bytes"}
+      debug {"Editing #{filename} with #{(content || '').size} bytes"}
       File.open(wc_path(filename), "wb") {|file| file.print content}
     end
 

--- a/spec/spec_helper.rb
+++ b/spec/spec_helper.rb
@@ -1,10 +1,11 @@
 require "spec"
 require "logger"
+require "piston"
 require "piston/repository"
 require "piston/working_copy"
 
 $logger = Logger.new($stderr)
-$logger.level = Logger::INFO unless $DEBUG
+#$logger.level = Logger::INFO unless $DEBUG
 
 module Piston
   module SpecHelpers

--- a/spec/working_copy_spec.rb
+++ b/spec/working_copy_spec.rb
@@ -19,6 +19,64 @@ describe Piston::WorkingCopy do
   end
 end
 
+describe Piston::WorkingCopy, "#log" do
+  it_should_behave_like "A working copy against a local repository"
+
+  before do
+    @wc.checkout(@repos.url)
+    @wc.create!("main.c", "")
+    @wc.commit
+    @wc.edit!("main.c", "one line")
+    @wc.commit
+    @wc.delete("main.c")
+    @wc.commit
+    @wc.create!("main.c", "")
+    @wc.commit
+    @wc.copy("main.c", "calc.c")
+    @wc.commit
+    @wc.move("calc.c", "libcalc.c")
+    @wc.commit
+  end
+
+  it "should report adding main.c in r1" do
+    @wc.log(1).should == [[:add, "main.c"]]
+  end
+
+  it "should report modifying main.c in r2" do
+    @wc.log(2).should == [[:modify, "main.c"]]
+  end
+
+  it "should report deleting main.c in r3" do
+    @wc.log(3).should == [[:delete, "main.c"]]
+  end
+
+  it "should report copying main.c to calc.c in r5" do
+    @wc.log(5).should == [[:copy, {"main.c" => "calc.c"}]]
+  end
+
+  it "should report moving calc.c to libcalc.c in r6" do
+    @wc.log(6).should == [[:move, {"calc.c" => "libcalc.c"}]]
+  end
+
+  it "should report only an add for A+M in revision range" do
+    @wc.log(0..2).should == [[:add, "main.c"]]
+  end
+
+  it "should report only a delete from M+D in revision range" do
+    @wc.log(1..3).should == [[:delete, "main.c"]]
+  end
+
+  it "should report only a delete from A+M+D in revision range" do
+    @wc.log(0..3).should == [[:delete, "main.c"]]
+  end
+
+  it "should report only a delete from A+M+D in revision range" do
+    @wc.log(4..6).should == [[:add, "main.c"], [:copy, {"main.c"=>"calc.c"}], [:move, {"calc.c"=>"libcalc.c"}]]
+  end
+
+  it "should report paths relative to the current working copy, not absolute from the repository's root"
+end
+
 describe Piston::WorkingCopy do
   it_should_behave_like "A working copy against a local repository"
 
@@ -140,8 +198,7 @@ describe Piston::WorkingCopy, "at revision 1" do
 
   before do
     @wc.checkout @repos.url
-    File.open(File.join(@wc.dir, "main.c"), "wb") {|f| f.puts "int main(int argc, char** argv) {\n  return 0;\n\n}"}
-    @wc.add "main.c"
+    @wc.create!("main.c", "int main(int argc, char** argv) {\n  return 0;\n\n}")
     @wc.commit
   end