Changeset 198 for trunk/lingosource/castlib1/svn_Utilities.ls

Timestamp:

11/21/08 12:15:57 (4 years ago)

Author:

alex

Message:

added revision number support to the svn update functions. now a specific revision number can be specified for the update, thus allowing 'downgrades'.

File:

• trunk/lingosource/castlib1/svn_Utilities.ls (modified) (4 diffs)

trunk/lingosource/castlib1/svn_Utilities.ls

@@ -2457 +2457 @@
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
-on mSVN_Update_SelectedCastlib me, chooseNewPath, onlyUpdate_SVN_WorkingFolder, selectionList, dontShowAlert
+on mSVN_Update_SelectedCastlib me, chooseNewPath, onlyUpdate_SVN_WorkingFolder, selectionList, revisionNumber, dontShowAlert
   
   actCL = the activecastlib
@@ -2605 +2605 @@
   mDisplayWaitStatusText me, "SVN update..." -- && newpathUnix
   
+  revisionNumber = string(revisionNumber)
+  if length(revisionNumber) < 1 then revisionNumber = "HEAD"
+  
   repeat with castlibPaths in castlibPathList
     
-    theresult = mDoShellCmd(me, svnBinary && "update" && QUOTE & castlibPaths[#newpathUnix] & QUOTE, RETURN, 0, 1)
+    theresult = mDoShellCmd(me, svnBinary && "update" && "-r" && revisionNumber && QUOTE & castlibPaths[#newpathUnix] & QUOTE, RETURN, 0, 1)
     
     if count(theresult) < 1 then
@@ -2669 +2672 @@
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
-on mSVN_Update_CurrentMovie_Binaries me, chooseNewPath, onlyUpdate_SVN_WorkingFolder, dontShowAlert
+on mSVN_Update_CurrentMovie_Binaries me, chooseNewPath, onlyUpdate_SVN_WorkingFolder, revisionNumber, dontShowAlert
   
   workingCopies = value(getPref("svn_wCopies_paths_Binary.txt"))
@@ -2715 +2718 @@
   mDisplayWaitStatusText me, "SVN update:" && workingFolderUnix
   
-  theresult = mDoShellCmd(me, svnBinary && "update" && QUOTE & workingFolderUnix & QUOTE, RETURN, 0, 1)
+  revisionNumber = string(revisionNumber)
+  if length(revisionNumber) < 1 then revisionNumber = "HEAD"
+  theresult = mDoShellCmd(me, svnBinary && "update" && "-r" && revisionNumber && QUOTE & workingFolderUnix & QUOTE, RETURN, 0, 1)
   
   if count(theresult) > 0 then