Changeset 228 for trunk/lingosource/castlib2

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

Location:

trunk/lingosource/castlib2

Files:

• GetSetPrefs.ls (modified) (1 diff)
• PseudoXMLPS.ls (modified) (19 diffs)
• aleXtrasMovieScript.ls (modified) (2 diffs)
• commonMovieScript.ls (modified) (4 diffs)
• memberInfo.xml (modified) (8 diffs)

trunk/lingosource/castlib2/GetSetPrefs.ls

@@ -179 +179 @@
 --    delete line 1 of prefsText
     
-    gPrefs = call(#mGetListFromXMLString, mGetXScript(#PseudoXMLPS), prefsText)
+    gPrefs = call(#mGetListFromXMLStringX, mGetXScript(#PseudoXMLPS), prefsText)
     if objectP(gPrefs) then globs[#gPrefs] = gPrefs
     

trunk/lingosource/castlib2/PseudoXMLPS.ls

@@ -2 +2 @@
 -----------------------------------
 -- CREATED:
--- 06.03.2008
+-- 2002
 --
 -- DESCRIPTION:
 --              Pseudo XML by Alex da Franca c2003
--- Convert a lingo list to a XML like string and back
+--              Convert a lingo list to a XML like string and back
 
 --
 -- REQUIRES:
--- (Prerequisites)
+--              only the functions mSaveList_2_XML() and mReadXML_2_List() require my system of library scripts
+--              in order to write and read text with fileio. All other functions have no dependencies
+--              Either get these scripts from my website, or replace the write/read stuff with your own fileIO handlers
+--                    That is:
+--                            * movie script "aleXtrasMovieScript"
+--                            * parent script "commonMovieScript"
+--                            * parent script "FileIOFunktionen"
 --
 -- USAGE:
+--              ---------- please see the comments for each handler for a how-to.
+--              ---------- nonetheless here are some fast start comments with the minimum amount of parameters
+--              PseudoXMLPS = new(script "PseudoXMLPS")
+--              -- Convert a list to an xml string:
+--              xmlString = PseudoXMLPS.mGetXMLStringFromList(["one", "two", [#prop: 3]])
+--              lingolist = PseudoXMLPS.mGetListFromXMLStringX(xmlString)
+--              ---------- basically that's it
+--
+--              ---------- another "hack" to be aware of is the following:
+--              ---------- linear lists get identified by having a nodename which starts with the exact string "item"
+--              ---------- so if an xml node like <item1>one</item1> is encountered, it is treated as linear list: ["one"]
+--              ---------- and NOT as [#item1:"one"]
+--
+--              ---------- the mGetXMLStringFromList() function escapes the reserved xml chars <> and & and ' and " by default
+--              ---------- if for some reason you rather want to enclose the contents in a <![CDATA[ tag, use the dontReplaceGT flag.
+--------------------------------------------- EXAMPLE for <dontReplaceGT = 1> (dontReplaceGT means don't replace "greater than" btw...):
+--
 -- myList = [#stringWithInvalidChars:"A string with invalid chars like <> and & and ' and " & QUOTE]
 -- myList[#stringWithInvalidChars] = "<![CDATA[" & myList[#stringWithInvalidChars] & "]]>"
@@ -28 +51 @@
 --   end if
 -- end repeat
+--------------------------------------------- please note, that the above example is ONLY needed, if you use dontReplaceGT = 1 !!
 --
 -- HISTORY:
@@ -129 +153 @@
   -- ACTION: Convert lingo list (also nested lists) to XML stylish string
   -- INPUT: 
--- <listref> format: property list or linear list
--- <docName> format: #string; optional. if omitted "Untitled" is used for the XML document name
+  --              <listref> format: property list or linear list
+  --              <docName> format: #string; optional. if omitted "Untitled" is used for the XML document name
   --              <strict>        => boolean; avoid spaces in tag names
   --              <dontReplaceGT> => boolean; dont replace < and >
   --              <withParams>    => boolean; write attribute in tag for the lingo ilk => bigger xml files and unfortunately it is slower to parse
------------------------------ (I thought avoiding value() would help, but in this case the additional text parsing of the attributes tag slows down)
+  ----------------------------- (I thought avoiding value() would help, but in this case the additional text parsing of the attributes tag slows down)
   -- RETURNS: string
   -- EXAMPLE: saveString = mGetXMLStringFromList(me, lingo_list, "documentName")
@@ -173 +197 @@
   -- ACTION: Description
   -- INPUT:
--- <str> format: #string; split a string using <> and </> tags into lingo list
--- <convertValues> #integer 0=>don't convert (fast, all values are strings), 1 => convert only numbers (slower); 2 => try to convert all data, even colors (slow)
+  --          <str> format: #string; split a string using <> and </> tags into lingo list
+  --          <convertValues> #integer 0=>don't convert (fast, all values are strings), 1 => convert only numbers (slower); 2 => try to convert all data, even colors (slow)
   --          <withParams> : #boolean : parse parameters too. new, not very well tested
   -- RETURNS: property list
@@ -224 +248 @@
   --         BUT it must be a valid xml string, the above is slower but allows more malformed xml
   -- INPUT: 
--- <str> format: #string; split a string using <> and </> tags into lingo list
--- <convertValues> #integer
--- -- -- 0 => don't convert (fast, all values are strings)
--- -- -- 1 => convert only integer() and float() (slower)
--- -- -- 2 => try to convert all data with value(), even parse for colors in hexstring format (slow)
+  --         <str> format: #string; split a string using <> and </> tags into lingo list
+  --         <convertValues> #integer
+  --           -- -- 0 => don't convert (fast, all values are strings)
+  --           -- -- 1 => convert only integer() and float() (slower)
+  --           -- -- 2 => try to convert all data with value(), even parse for colors in hexstring format (slow)
   -- RETURNS: property list
   -- EXAMPLE: lingo_list = mGetListFromXMLStringX(me, saveString)
@@ -306 +330 @@
   li = mConvertXMLPropList(me, [xx], convertValues, dontEscapeSpecialChars)
   
- -- put "x" && the milliseconds - ms
+  -- put "PseudoXMLPS: mGetListFromXMLStringX:" && the milliseconds - ms
   
   if not(listP(li)) then return [:]
@@ -328 +352 @@
   
   dertext = xscr(#FileIOFunktionen).mGetTextFromFile(thePath)
-  if length(dertext) > 0 then return xscr(#PseudoXMLPS).mGetListFromXMLStringX(dertext)
+  if length(dertext) > 0 then return mGetListFromXMLStringX(me, dertext)
   return [:]
 end
@@ -345 +369 @@
   
   if not(listP(theList)) then return 0
-  theResult = xscr(#PseudoXMLPS).mGetXMLStringFromList(theList)
+  theResult = mGetXMLStringFromList(me, theList)
   return xscr(#FileIOFunktionen).mSaveToTextFile(theResult, thePath)
 end
@@ -757 +781 @@
   
   if val.length = 7 then
-    if (val.char[1] = "#") and (offset(val.char[2], "abcdef0123456789") > 0) then return rgb(val)
+    if (val.char[1] = "#") then
+      isColor = 1
+      repeat with n = 2 to 7
+        if (offset(val.char[n], "abcdef0123456789") < 1) then
+          isColor = 0
+          exit repeat
+        end if
+      end repeat
+      if isColor = 1 then return rgb(val)
+    end if
   end if 
   
@@ -921 +954 @@
       if count(val) then
         if ilk(retlist) = #proplist then
-        retlist.addProp(symbol(inputlist[n].getaprop(#name)), mConvertXMLPropList(me, val, convertValues, dontEscapeSpecialChars))
-      else
+          retlist.addProp(symbol(inputlist[n].getaprop(#name)), mConvertXMLPropList(me, val, convertValues, dontEscapeSpecialChars))
+        else
           retlist.add(mConvertXMLPropList(me, val, convertValues, dontEscapeSpecialChars))
         end if
@@ -943 +976 @@
               
               -- unescape <>&'"
-               if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val)
+              if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val)
               
             #integer:
@@ -988 +1021 @@
             
             -- unescape <>&'"
-           if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val)
+            if dontEscapeSpecialChars <> 1 then val = mUnEscapeSpecialChars(me, val)
             
             
@@ -1000 +1033 @@
         
         if ilk(retlist) = #proplist then
-        retlist.addProp(symbol(inputlist[n].getaprop(#name)), val)
+          retlist.addProp(symbol(inputlist[n].getaprop(#name)), val)
         else
           retlist.add(val)
@@ -1022 +1055 @@
   -- INPUT: <theText> ; string ; required => xml formatted string
   -- RETURNS: property list
-  -- EXAMPLE: plist = xscr(#PseudoXMLPS).mParseExcelXML(xscr(#FileIOFunktionen).mGetTextFromFile())
+  -- EXAMPLE: plist = new(script "PseudoXMLPS").mParseExcelXML(xscr(#FileIOFunktionen).mGetTextFromFile())
   -----------------------------------
   
@@ -1061 +1094 @@
                         
                       else
-                        call(#mPut, mGetXScript(), "mParseExcelXML: Row "&n&" Cell "&m&" is not a property list")
+                        put "mParseExcelXML: Row "&n&" Cell "&m&" is not a property list"
                       end if -- if ilk(thisCell) = #proplist then
                       
@@ -1067 +1100 @@
                     
                   else
-                    call(#mPut, mGetXScript(), "mParseExcelXML: Row "&n&" is not a list")
+                    put "mParseExcelXML: Row "&n&" is not a list"
                   end if -- if listP(currRow) then
                   
@@ -1073 +1106 @@
                 
               else
-                call(#mPut, mGetXScript(), "mParseExcelXML: Table not found")
+                put "mParseExcelXML: Table not found"
               end if -- if listP(xmlList) then
               
             else
-              call(#mPut, mGetXScript(), "mParseExcelXML: Worksheet not found")
+              put "mParseExcelXML: Worksheet not found"
             end if -- if ilk(xmlList) = #proplist then
             
           else
-            call(#mPut, mGetXScript(), "mParseExcelXML: Workbook not found")
+            put "mParseExcelXML: Workbook not found"
           end if -- if ilk(xmlList) = #proplist then
           
         else
-          call(#mPut, mGetXScript(), "mParseExcelXML: ROOT is not a property list")
+          put "mParseExcelXML: ROOT is not a property list"
         end if --if ilk(xmlList) = #proplist then
         
       else
-        call(#mPut, mGetXScript(), "mParseExcelXML: Xml parser makelist() returned empty list")
+        put "mParseExcelXML: Xml parser makelist() returned empty list"
       end if -- if count(xmlList) > 0 then
       
     else
-      call(#mPut, mGetXScript(), "mParseExcelXML: Xml parser makelist() failed")
+      put "mParseExcelXML: Xml parser makelist() failed"
     end if -- if listP(xmlList) then
     
   else
-    call(#mPut, mGetXScript(), "mParseExcelXML: Xml parser error: "&xmlp.getError())
+    put "mParseExcelXML: Xml parser error: "&xmlp.getError()
   end if -- if voidP(xmlp.getError()) then
   
@@ -1113 +1146 @@
   -- INPUT: <pfad> ; string ; full pathname to plist file. This is optional, if it is void or "" a file selection dialog is displayed 
   -- RETURNS: property list
-  -- EXAMPLE: plist = xscr(#PseudoXMLPS).mReadPList()
+  -- EXAMPLE: plist = new(script "PseudoXMLPS").mReadPList()
   -----------------------------------
   
@@ -1186 +1219 @@
 
 on mGetListFromPListString me, str
-  return mConvertKeyList(me, mGetListFromXMLString(me, str, 0))
+  return mConvertKeyList(me, mGetListFromXMLStringX(me, str, 0))
 end
 

trunk/lingosource/castlib2/aleXtrasMovieScript.ls

@@ -49 +49 @@
       halt
     end if
+    
+    if voidP(cms.script) then -- strangely enough this happened suddenly, dunno why...
+      -- until now it happened only in authoring with the stopped movie
+      -- therefore I just exit here without alert
+      halt
+    end if
+    
     alextras = rawnew(cms.script)
     if ilk(alextras) <> #instance then
@@ -55 +62 @@
     end if
     (script "aleXtrasMovieScript").pAleXtras = alextras
+    
   end if
   return alextras

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

trunk/lingosource/castlib2/memberInfo.xml

@@ -5 +5 @@
                 <comments>~/Documents/Scripts/lingo/commonMovieScript.ls</comments>
                 <memberName>commonMovieScript</memberName>
-                <fName>commonMovieScript</fName>
+                <fname>commonMovieScript</fname>
         </commonmoviescript>
         <FileIOFunktionen>
@@ -11 +11 @@
                 <comments>~/Documents/Scripts/lingo/FileIOFunktionen.ls</comments>
                 <memberName>FileIOFunktionen</memberName>
-                <fName>FileIOFunktionen</fName>
+                <fname>FileIOFunktionen</fname>
         </FileIOFunktionen>
         <GetSetPrefs>
@@ -17 +17 @@
                 <comments>~/Documents/Scripts/lingo/GetSetPrefs.ls</comments>
                 <memberName>GetSetPrefs</memberName>
-                <fName>GetSetPrefs</fName>
+                <fname>GetSetPrefs</fname>
         </GetSetPrefs>
         <aleXtrasMovieScript>
@@ -23 +23 @@
                 <comments>~/Documents/Scripts/lingo/aleXtrasMovieScript.ls</comments>
                 <memberName>aleXtrasMovieScript</memberName>
-                <fName>aleXtrasMovieScript</fName>
+                <fname>aleXtrasMovieScript</fname>
         </aleXtrasMovieScript>
         <PseudoXMLPS>
@@ -29 +29 @@
                 <comments>~/Documents/Scripts/lingo/PseudoXMLPS.ls</comments>
                 <memberName>PseudoXMLPS</memberName>
-                <fName>PseudoXMLPS</fName>
+                <fname>PseudoXMLPS</fname>
         </PseudoXMLPS>
         <simpleGoToAction>
@@ -35 +35 @@
                 <comments>/Users/alex/Documents/ALIEN/myLinkedScripts/simpleGoToAction.ls</comments>
                 <memberName>simpleGoToAction</memberName>
-                <fName>simpleGoToAction</fName>
+                <fname>simpleGoToAction</fname>
         </simpleGoToAction>
         <SpriteNameBeaver>
@@ -41 +41 @@
                 <comments>~/Documents/Scripts/lingo/SpriteNameBeaver.ls</comments>
                 <memberName>SpriteNameBeaver</memberName>
-                <fName>SpriteNameBeaver</fName>
+                <fname>SpriteNameBeaver</fname>
         </SpriteNameBeaver>
         <subversionVersionChecker>
@@ -47 +47 @@
                 <comments>~/Documents/Scripts/lingo/subversionVersionChecker.ls</comments>
                 <memberName>subversionVersionChecker</memberName>
-                <fName>subversionVersionChecker</fName>
+                <fname>subversionVersionChecker</fname>
         </subversionVersionChecker>
 </Untitled>