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

Timestamp:

12/21/08 17:39:56 (3 years ago)

Author:

alex

Message:

added automatic deletion of members from subversion repository

File:

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

trunk/lingosource/castlib1/alexUtilities.ls

@@ -35 +35 @@
 property pHandlerMenuWindowName
 property pStatusMode -- are we in "show status" mode => maximized
+
+property pCaseLists
 
 
@@ -3202 +3204 @@
   
 end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+on ____________CONVERT_CASE
+end
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+
+
+on mUpperCase me, aString
+  
+  if not(listP(pCaseLists)) then mCreateCaseLists me
+  
+  lowercase = pCaseLists.getaprop(#lowercase)
+  uppercase = pCaseLists.getaprop(#uppercase)
+  
+  repeat with i = length(aString) down to 1
+    pos = getPos(lowercase, char i of aString)
+    if pos > 0 then
+      put uppercase[pos] into char i of aString
+    end if
+  end repeat
+  
+  return aString
+  
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mLowerCase me, aString
+  
+  if not(listP(pCaseLists)) then mCreateCaseLists me
+  
+  lowercase = pCaseLists.getaprop(#lowercase)
+  uppercase = pCaseLists.getaprop(#uppercase)
+  
+  repeat with i = length(aString) down to 1
+    pos = getPos(uppercase, char i of aString)
+    if pos > 0 then
+      put lowercase[pos] into char i of aString
+    end if
+  end repeat
+  
+  return aString
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mCreateCaseLists me
+  
+  pCaseLists = [:]
+  
+  if the platform contains "Macintosh" then
+    vA = numToChar(229)
+  else
+    vA = numToChar(194)
+  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, "‰", "Š", "‹", "Œ", "", "Ž", "", "", "‘", "’", "“", "”", "•", "–", "—", "˜", "™", "š", "›", "œ", "", "ž", "Ÿ", "Ÿ", "¿", "Ï", "Ø"])
+  
+end
+