SVN__MoveCommand.st
changeset 764 7c2893222b28
parent 492 74ff0960961c
child 882 10a25f92804d
--- a/SVN__MoveCommand.st	Mon Aug 08 15:39:28 2011 +0200
+++ b/SVN__MoveCommand.st	Mon Aug 08 15:39:49 2011 +0200
@@ -1,3 +1,28 @@
+"
+ Copyright (c) 2007-2010 Jan Vrany
+ Copyright (c) 2009-2010 eXept Software AG
+
+ Permission is hereby granted, free of charge, to any person
+ obtaining a copy of this software and associated documentation
+ files (the 'Software'), to deal in the Software without
+ restriction, including without limitation the rights to use,
+ copy, modify, merge, publish, distribute, sublicense, and/or sell
+ copies of the Software, and to permit persons to whom the
+ Software is furnished to do so, subject to the following
+ conditions:
+
+ The above copyright notice and this permission notice shall be
+ included in all copies or substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+ OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+ FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+ OTHER DEALINGS IN THE SOFTWARE.
+"
 "{ Package: 'stx:libsvn' }"
 
 "{ NameSpace: SVN }"
@@ -9,6 +34,42 @@
 	category:'SVN-Private-Commands'
 !
 
+!MoveCommand class methodsFor:'documentation'!
+
+copyright
+"
+ Copyright (c) 2007-2010 Jan Vrany
+ Copyright (c) 2009-2010 eXept Software AG
+
+ Permission is hereby granted, free of charge, to any person
+ obtaining a copy of this software and associated documentation
+ files (the 'Software'), to deal in the Software without
+ restriction, including without limitation the rights to use,
+ copy, modify, merge, publish, distribute, sublicense, and/or sell
+ copies of the Software, and to permit persons to whom the
+ Software is furnished to do so, subject to the following
+ conditions:
+
+ The above copyright notice and this permission notice shall be
+ included in all copies or substantial portions of the Software.
+
+ THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND,
+ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
+ OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
+ HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
+ WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+ FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
+ OTHER DEALINGS IN THE SOFTWARE.
+
+"
+! !
+
+!MoveCommand class methodsFor:'others'!
+
+version_CVS
+    ^ '$ÂHeader: /cvs/stx/stx/libsvn/SVN__MoveCommand.st,v 1.5 2009/10/19 12:52:48 fm Exp Â$'
+! !
 
 !MoveCommand methodsFor:'accessing'!
 
@@ -49,24 +110,31 @@
 svnCmdArgumentsOn:arg
     "raise an error: must be redefined in concrete subclass(es)"
 
+    | srcArg dstArg wcPath |
+    wcPath := workingCopy path pathName.
+    srcArg := (src startsWith: wcPath) 
+                ifTrue:[src copyFrom: wcPath size + 2]
+                ifFalse:[src].
+    dstArg := (src startsWith: wcPath) 
+                ifTrue:[dst copyFrom: wcPath size + 2]
+                ifFalse:[dst].
+
+
     super svnCmdArgumentsOn:arg.
     arg
-	nextPut: src;
-	nextPut: dst
+        nextPut: srcArg;
+        nextPut: dstArg
 
     "Created: / 16-03-2008 / 10:22:26 / janfrog"
+    "Modified: / 28-07-2010 / 22:29:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MoveCommand class methodsFor:'documentation'!
 
 version
-    ^ '$Header$'
-!
-
-version_CVS
-    ^ '$Header$'
+    ^ '$Id$'
 !
 
 version_SVN
-    ^'§Id: SVN__MoveCommand.st 70 2009-04-16 12:47:44Z vranyj1 §'
+    ^ '§Id: SVN__MoveCommand.st 350 2011-07-07 18:42:56Z vranyj1 §'
 ! !