Changeset 215 for trunk/lingosource/castlib2

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

Location:

trunk/lingosource/castlib2

Files:

• PseudoXMLPS.ls (modified) (2 diffs)
• commonMovieScript.ls (modified) (3 diffs)

trunk/lingosource/castlib2/PseudoXMLPS.ls

@@ -822 +822 @@
 on mEscapeSpecialChars me, str
   
+  val = mReplaceAllGT(me, val, "&", "&")
   val = mReplaceAllGT(me, string(str), "<", "&lt;")
   val = mReplaceAllGT(me, val, ">", "&gt;")
-  val = mReplaceAllGT(me, val, "&", "&amp;")
   val = mReplaceAllGT(me, val, "'", "&apos;")
   val = mReplaceAllGT(me, val, QUOTE, "&quot;")
@@ -838 +838 @@
   val = mReplaceAllGT(me, string(str), "&lt;", "<")
   val = mReplaceAllGT(me, val, "&gt;", ">")
-  val = mReplaceAllGT(me, val, "&amp;", "&")
   val = mReplaceAllGT(me, val, "&apos;", "'")
   val = mReplaceAllGT(me, val, "&quot;", QUOTE)
+  val = mReplaceAllGT(me, val, "&amp;", "&")
   
   return val

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