Changeset 245 for trunk/lingosource/castlib1/alexUtilities.ls

Timestamp:

03/21/10 11:39:48 (2 years ago)

Author:

alex

Message:

cleanup

File:

• trunk/lingosource/castlib1/alexUtilities.ls (modified) (5 diffs)

trunk/lingosource/castlib1/alexUtilities.ls

@@ -38 +38 @@
 property pCaseLists
 
+property pCachedFiles
+
 
 on new me
+  pCachedFiles = [:]
   ancestor = new(script "PseudoXMLPS") -- we need this script later
   -- and as we may already be in the scope of the stage, we use it as ancestor
@@ -124 +127 @@
   -----------------------------------
   
+  theResult = pCachedFiles.getaprop(pfad)
+  if listP(theResult) then return theResult
+  
   theResult = [:]
   dertext = mGetTextFromFile(me, pfad)
   if length(dertext) > 0 then
     statusSwitched = mSwitchToStatusMode(me, 1)
-    theResult = mGetListFromXMLString(me, dertext)
+    theResult = mGetListFromXMLStringX(me, dertext)
+    pCachedFiles.setaProp(pfad, theResult)
     if statusSwitched = 1 then statusSwitched = mSwitchToStatusMode(me, 0)
   end if
   return theResult
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mClearXML_Cache me, string_fullPath
+  -----------------------------------
+  --         ACTION: We have a cache for xml files, sio that we do not need to parse the same
+  --                 file over and over again, as itis time consuming esp. during repeat loops
+  --                 so we store the result in pCachedFiles by filename.
+  --                 In order to flush this cache for either one file (with parameter) or all files
+  --                 (without parameter) use this handler
+  -- 
+  --         INPUT: <string_fullPath> ; string ; full pathname ; optional => default "" => clear all cahced files
+  --         RETURNS: -
+  -----------------------------------
+  
+  string_fullPath = string(string_fullPath)
+  if length(string_fullPath) > 0 then
+    pCachedFiles.deleteProp(string_fullPath)
+  else
+    pCachedFiles = [:]
+  end if
 end
 
@@ -149 +178 @@
     if not(list(theList)) then theList = [:]
   end if
+  pCachedFiles.setaProp(thePath, theList)
   theResult = mGetXMLStringFromList(me, theList)
   return mSaveToTextFile(me, theResult, thePath)
@@ -2927 +2957 @@
 end
 
-
--- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-
-on mGetWindowsHomeFolder me
-  
-  if mCheckForXtra(me, "Shell") = 0 then
-    home = mDoShellCmd(me, "echo %HOMEPATH%", void, void, 1)
-    home = home[1]
-  else if mCheckForXtra(me, "BudAPI") then
-    olddelim = the itemdelimiter
-    the itemdelimiter = "\"
-    home = baSysFolder("personal")
-    if the last char of home = "\" then delete the last char of home
-    if the last item of home = "Documents" then delete the last item of home
-    the itemdelimiter = olddelim
-  else
-    home = ""
-  end if
-  
-  return home
-end
-
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 on _______________GLOSSARY_ITEMS me
@@ -3532 +3540 @@
   end if
   
-  -- pUPPERCASE = "ABCDEFGHIJKLMNOPQRSTUVWXYZZÁÀ"&vA& "ÄÃÅÇÉÈÊËÍÌÎÏÑÓÒÔÖÕÚـÜÆ،Ÿ"
-  -- pLowercase = "abcdefghijklmnopqrstuvwxyzáà"&"â"&"äãåçéèêëíìîïñóòôöõúùûüæøœÿ"
-  pCaseLists.setaprop(#uppercase, ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "Á", "À", vA, "A", "Ä", "Ã", "Å", "Ç", "É", "È", "Ê", "Ë", "Í", "Ì", "Î", "Ï", "Ñ", "Ó", "Ò", "Ô", "Ö", "Õ", "Ú", "Ù", "U", "Ü", "Æ", "Ø", "Œ", "Ÿ"])
-  pCaseLists.setaprop(#lowercase, ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "á", "à", vA, "â", "ä", "ã", "å", "ç", "é", "è", "ê", "ë", "í", "ì", "î", "ï", "ñ", "ó", "ò", "ô", "ö", "õ", "ú", "ù", "û", "ü", "æ", "ø", "œ", "ÿ"])
+  -- pUPPERCASE = "ABCDEFGHIJKLMNOPQRSTUVWXYZZçË"&vA& "€Ì‚ƒéæèêíëì„îñï
+Íòôۆ®¯ÎÙ"
+  -- pLowercase = "abcdefghijklmnopqrstuvwxyz‡ˆ"&"‰"&"Š‹ŒŽ‘’“”•–—˜™š›œžŸŸ¿ÏØ"
+  pCaseLists.setaprop(#uppercase, ["A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "ç", "Ë", vA, "A", "€", "Ì", "", "‚", "ƒ", "é", "æ", "è", "ê", "í", "ë", "ì", "„", "î", "ñ", "ï", "
+", "Í", "ò", "ô", "U", "†", "®", "¯", "Î", "Ù"])
+  pCaseLists.setaprop(#lowercase, ["a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "‡", "ˆ", vA, "‰", "Š", "‹", "Œ", "", "Ž", "", "", "‘", "’", "“", "”", "•", "–", "—", "˜", "™", "š", "›", "œ", "", "ž", "Ÿ", "Ÿ", "¿", "Ï", "Ø"])
   
 end