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

Timestamp:

12/15/08 13:00:15 (3 years ago)

Author:

alex

Message:

only copy dir and cst files now, when doing svn update movie binaries. added function to split path in order to not assume, that the first dot is the file extension seperator

File:

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

trunk/lingosource/castlib1/svn_Utilities.ls

@@ +1 @@
+-- svn_Utilities
+-----------------------------------
+-- PROPERTIES:
+--!memberProperties: [#name: "svn_Utilities", #scripttype: #parent, #scriptSyntax: #lingo, #comments: "~/Documents/Scripts/lingo/commonMovieScript.ls"]
+--
+-- DESCRIPTION:
+--               This script externalizes all functions which are related to the use of subversion with director
+--               
+--
+-- REQUIRES:
+--               script "alexUtilities" -> ancestor -> basic function provider
+--               most functionality is provided through the shell xtra and buddyApi xtra
+--               although it should fail gracefully, if those are not present
+--               not much will work without them
+--               It also requires the svn command line client to be installed on the machine
+--
+-- USAGE:
+--               This script is instantiated and used in the "tell the stage" block and one of the functions
+--               which are defined in script "OSCmenu_Utilities" and which was selected by the user
+--               will be executed in "stage scope". That means, that references are made form within the stage context
+--               e.g. member("foo") will refer to a member in one of the stages castlibs
+--               sprite(x) will refere to sprite(x) in the stages score and so on
+--
+--               Please see the descriptions of many of those handlers at: http://www.farbflash.org/trac/HandlerMenu/wiki/utilityHandlers
+-----------------------------------
+
 property ancestor
 
@@ -1307 +1333 @@
   put the itemdelimiter after thePath
   
-  extension = ""
-  repeat while length(fname)
-    put the last char of fname before extension
-    delete the last char of fname
-    if char 1 of extension = "." then exit repeat
-  end repeat
-  if char 1 of extension <> "." then
-    put extension after fname
-    extension = ""
-  end if
+  splitpath = mSplitPath(fname)
+  extension = splitpath[#extension]
+  --  extension = ""
+  --  repeat while length(fname)
+  --    put the last char of fname before extension
+  --    delete the last char of fname
+  --    if char 1 of extension = "." then exit repeat
+  --  end repeat
+  --  if char 1 of extension <> "." then
+  --    put extension after fname
+  --    extension = ""
+  --  end if
   
   if ilk(infolist) <> #proplist then
@@ -2822 +2850 @@
     thisFile = flist[n]
     if thisFile starts ".svn" then next repeat
-    erg = baCopyFileProgress(fromFolder & thisFile, toFolder & thisFile, "Always", "Replacing movie with the version of the working folder", "", 33)
-    if erg <> 0 then
-      alert "An error occurred during copying the file (" & thisFile & "). Error:" && erg
-    else
-      put "Replaced file:" && thisFile
+    -- we get ourselves only dir and cast files:
+    len = length(thisFile)
+    ext = thisFile.char[len-3 .. len]
+    if ext = ".dir" or ext = ".cst" then
+      erg = baCopyFileProgress(fromFolder & thisFile, toFolder & thisFile, "Always", "Replacing movie with the version of the working folder", "", 33)
+      if erg <> 0 then
+        alert "An error occurred during copying the file (" & thisFile & "). Error:" && erg
+      else
+        put "Replaced file:" && thisFile
+      end if
     end if
   end repeat
-  
   
 end