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

Timestamp:

12/06/08 15:21:30 (3 years ago)

Author:

alex

Message:

added lingodoc comments to xml parser script

File:

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

trunk/lingosource/castlib1/svn_Utilities.ls

@@ -2605 +2605 @@
   mDisplayWaitStatusText me, "SVN update..." -- && newpathUnix
   
-  revisionNumber = string(revisionNumber)
-  if length(revisionNumber) < 1 then revisionNumber = "'HEAD'"
+  if integerP(integer(revisionNumber)) then
+    revisionNumber = string(revisionNumber)
+  else
+    revisionNumber = string(revisionNumber)
+    if length(revisionNumber) < 1 then
+      revisionNumber = "HEAD"
+    else
+      if char 1 of revisionNumber = "'" then delete char 1 of revisionNumber
+      if the last char of revisionNumber = "'" then delete the last char of revisionNumber
+    end if
+    revisionNumber = QUOTE & revisionNumber & QUOTE
+  end if
+  
   
   repeat with castlibPaths in castlibPathList
@@ -2718 +2729 @@
   mDisplayWaitStatusText me, "SVN update:" && workingFolderUnix
   
-  revisionNumber = string(revisionNumber)
-  if length(revisionNumber) < 1 then revisionNumber = "'HEAD'"
+  if integerP(integer(revisionNumber)) then
+    revisionNumber = string(revisionNumber)
+  else
+    revisionNumber = string(revisionNumber)
+    if length(revisionNumber) < 1 then
+      revisionNumber = "HEAD"
+    else
+      if char 1 of revisionNumber = "'" then delete char 1 of revisionNumber
+      if the last char of revisionNumber = "'" then delete the last char of revisionNumber
+    end if
+    revisionNumber = QUOTE & revisionNumber & QUOTE
+  end if
+  
   theresult = mDoShellCmd(me, svnBinary && "update" && "-r" && revisionNumber && QUOTE & workingFolderUnix & QUOTE, RETURN, 0, 1)