Changeset 215 for trunk/lingosource/castlib2/commonMovieScript.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/castlib2/commonMovieScript.ls (modified) (3 diffs)

trunk/lingosource/castlib2/commonMovieScript.ls

@@ -296 +296 @@
 
 on mGetFloatVersionNumber me, prodVers
-    offs = offset(".", prodVers)
-    if offs > 0 then
-      intVers = char 1 to offs of prodVers
-      delete char 1 to offs of prodVers
-    else
-      intVers = ""
+  offs = offset(".", prodVers)
+  if offs > 0 then
+    intVers = char 1 to offs of prodVers
+    delete char 1 to offs of prodVers
+  else
+    intVers = ""
+  end if
+  cnt = length(prodVers)
+  repeat with n = 1 to cnt
+    c = prodVers.char[n]
+    if integerP(integer(c)) then
+      put c after intVers
+    else if c <> "." then
+      exit repeat
     end if
-    cnt = length(prodVers)
-    repeat with n = 1 to cnt
-      c = prodVers.char[n]
-      if integerP(integer(c)) then
-        put c after intVers
-      else if c <> "." then
-        exit repeat
-      end if
-    end repeat
-    
+  end repeat
+  
   return value(intVers)
 end
@@ -333 +333 @@
   if voidP(gPlatform) then
     
-  isMac = the platform contains "Macintosh"
-  if isMac then
-      
-    onX = value(char 1 of (the last word of (the environment).osversion)) <= 5
+    isMac = the platform contains "Macintosh"
+    if isMac then
+      
+      onX = value(char 1 of (the last word of (the environment).osversion)) <= 5
       if onX then gPlatform = #osx
       else gPlatform = #os9
@@ -1413 +1413 @@
   len = length(dateiname)
   ext = ""
-  
-  repeat with n = len down to 1
+  until = max(1, len-8) -- let's pretend, that a file extension is not langer than 8 chars
+  
+  repeat with n = len down to until
     this = dateiname.char[n]
     put this before ext