Changeset 228 for trunk/lingosource/castlib2/PseudoXMLPS.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/PseudoXMLPS.ls (modified) (19 diffs)

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