Changeset 228 for trunk/lingosource/castlib2/commonMovieScript.ls

Timestamp:

03/20/09 18:08:22 (3 years ago)

Author:

alex

Message:

added handler to export only scripttext with metadata for the member and added new handler to svn quicklinks to update all castlibs

File:

• trunk/lingosource/castlib2/commonMovieScript.ls (modified) (4 diffs)

trunk/lingosource/castlib2/commonMovieScript.ls

@@ -387 +387 @@
   --         ACTION: Create/Get timeout object
   --                 This handler works the same with the old player <10 and the new player >=10
-  --         INPUT: ||ÊtheName     || string  || name for new timeout object||
-  --                ||ÊtheDuration || integer || timeout perios in milliseconds||
+  --         INPUT: || theName     || string  || name for new timeout object||
+  --                || theDuration || integer || timeout perios in milliseconds||
   --                || theHandler  || symbol  || handler to be called on each timepout event||
   --                || theTarget   || object  || object to be sent the timeout event <theHandler>||
@@ -1705 +1705 @@
 -- dummy handler for translate function
 
-on mTranslate me, aString
+on mTranslate me, aString, variablesList
   theGlobs = mGetGlobalList(me)
   uebersetzungsListe = theGlobs.getaprop(#gUebersetzung)
@@ -1711 +1711 @@
   uebersetzung = uebersetzungsListe.getaprop(aString)
   if voidP(uebersetzung) then
+    if listP(variablesList) then return mReplacePlaceHoldersInString(me, aString, variablesList)
     return aString
   else
@@ -1725 +1726 @@
 end
 
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mReplacePlaceHoldersInString me, aString, variablesList
+  if ilk(variablesList) = #proplist then
+    cnt = count(variablesList)
+    if cnt > 0 then
+      repeat with n = 1 to cnt
+        str = string(variablesList[n])
+        prop = variablesList.getPropAt(n)
+        srchStr = "%%" & prop & "%%"
+        len = length(srchStr) - 1
+        offs = offset(srchStr, aString)
+        repeat while offs > 0
+          put str into char offs to offs + len of aString
+          offs = offset(srchStr, aString)
+        end repeat
+      end repeat        
+    end if
+  else if ilk(variablesList) = #list then -- printf like replacement
+    if count(variablesList) > 0 then
+      offs = offset("%s", aString)
+      str = string(variablesList[1])
+      repeat while offs > 0
+        put str into char offs to offs + 1 of aString
+        if count(variablesList) > 1 then variablesList.deleteAt(1)
+        offs = offset("%s", aString)
+      end repeat
+    end if
+  end if
+  return aString
+end
 
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx