Changeset 241 for trunk/lingosource/castlib2/PseudoXMLPS.ls

Timestamp:

12/18/09 15:27:43 (2 years ago)

Author:

alex

Message:

enclosed path to svn application and editor application in quotes, because that fails otherwise, if the path has spaces. what a fun it is to be able to have spaces in file and foldernames... :-(

File:

• trunk/lingosource/castlib2/PseudoXMLPS.ls (modified) (12 diffs)

trunk/lingosource/castlib2/PseudoXMLPS.ls

@@ -77 +77 @@
 -----------------------------------
 
-
-
+on _____________________PROPERTY_DECLARATION me
+end
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+property pXMLParserXtra
+property pXmlxtraversion, pVersionNumber
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 on ___________PUBLIC_EVENTS me
 end
@@ -87 +92 @@
 end
 
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on mDestroy me
+  pXMLParserXtra = void
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
 
@@ -174 +186 @@
   
   if not(string(docName).length) then docName = "Untitled"
+  if not("abcdefghijklmnopqrstuvwxyz_" contains char 1 of docname) then put "a" before docname
   put "<" & docName & ">" & RETURN after str
   
@@ -238 +251 @@
 -- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
-
-property pXmlxtraversion
 
 on mGetListFromXMLStringX me, str, convertValues, withParams
@@ -318 +329 @@
   end if
   
-  xt = new(xtra "XmlParser")
-  xt.parseString(str)
-  
-  if not(voidP(xt.getError())) then
-    put "Script: PseudoXMLPS; Handler: mGetListFromXMLStringX; error:" && xt.getError()
+  if not(objectP(pXMLParserXtra)) then pXMLParserXtra = new(xtra "XmlParser")
+  pXMLParserXtra.parseString(str)
+  
+  if not(voidP(pXMLParserXtra.getError())) then
+    put "Script: PseudoXMLPS; Handler: mGetListFromXMLStringX; error:" && pXMLParserXtra.getError()
     return mGetListFromXMLString(me, str, convertValues, withParams)
   end if
   
-  xx = xt.makePropList()
+  xx = pXMLParserXtra.makePropList()
   dontEscapeSpecialChars = 1 -- we do not need to do this, as the xmlparser xtra already did it for us
   li = mConvertXMLPropList(me, [xx], convertValues, dontEscapeSpecialChars)
@@ -351 +362 @@
   -----------------------------------
   
-  dertext = xscr(#FileIOFunktionen).mGetTextFromFile(thePath)
+  dertext = xscr(#FileIOFunktionen).mGetTextFromFile(thePath, void, "windows-1252")
   if length(dertext) > 0 then return mGetListFromXMLStringX(me, dertext)
   return [:]
@@ -800 +811 @@
   v2 = value(val)
   
-  if ilk(v2) = #vector then return v2
+  if [#vector, #rect, #point, #float].getPos(ilk(v2))  then return v2
   
   if abs(length(string(v2)) - length(val)) > 1 then return void -- in case of symbols the # gets stripped, when we use the string() function
@@ -1295 +1306 @@
   end if
   
-  alreadyProcessed = []
+  if getVersionNumber(me) > 10.99 then
+    -- director 11 will have unicode numbers for the chars
+    indFrom = 3
+  end if
+  
   
   newStr = str
@@ -1301 +1316 @@
     tstr = str
     vers = 0
-    rmac = numToChar(repl[indFrom])
-    rwin = numToChar(repl[indTo])
-    offs = offset(rmac, tstr)
+    searchChar = numToChar(repl[indFrom])
+    replaceChar = numToChar(repl[indTo])
+    offs = offset(searchChar, tstr)
     repeat while offs > 0
       ctn = charToNum(char offs of tstr)
       delete char 1 to offs of tstr
       vers = vers + offs
-      if ctn = repl[1] then
-        put rwin into char vers of newStr
+      if ctn = repl[indFrom] then
+        put replaceChar into char vers of newStr
       end if
-      offs = offset(rmac, tstr)
+      offs = offset(searchChar, tstr)
     end repeat
   end repeat
@@ -1323 +1338 @@
   end repeat
   
-  
   return newStr
 end
@@ -1354 +1368 @@
   fromStr = ""
   toStr = ""
+  
+  if getVersionNumber(me) > 10.99 then
+    -- director 11 will have unicode numbers for the chars
+    fromIndex = 3
+  else
+    fromIndex = 1
+  end if
+  
   repeat with repl in replLi
-    put numToChar(repl[1]) after fromStr
+    put numToChar(repl[fromIndex]) after fromStr
     put numToChar(repl[2]) after toStr
   end repeat
@@ -1367 +1389 @@
 on mGetCharMapList me
   li = []
-  li.add([128, 196])
-  li.add([129, 197])
-  li.add([130, 199])
-  li.add([131, 201])
-  li.add([132, 209])
-  li.add([133, 214])
-  li.add([134, 220])
-  li.add([135, 225])
-  li.add([136, 224])
-  li.add([137, 226])
-  li.add([138, 228])
-  li.add([139, 227])
-  li.add([140, 229])
-  li.add([141, 231])
-  li.add([142, 233])
-  li.add([143, 232])
-  li.add([144, 234])
-  li.add([145, 235])
-  li.add([146, 237])
-  li.add([147, 236])
-  li.add([148, 238])
-  li.add([149, 239])
-  li.add([150, 241])
-  li.add([151, 243])
-  li.add([152, 242])
-  li.add([153, 244])
-  li.add([154, 246])
-  li.add([155, 245])
-  li.add([156, 250])
-  li.add([157, 249])
-  li.add([158, 251])
-  li.add([159, 252])
-  li.add([160, 134])
-  li.add([161, 176])
-  li.add([164, 167])
-  li.add([165, 149])
-  li.add([166, 182])
-  li.add([167, 223])
-  li.add([168, 174])
-  li.add([170, 153])
-  li.add([171, 180])
-  li.add([172, 168])
-  li.add([173, 141])
-  li.add([174, 198])
-  li.add([175, 216])
-  li.add([176, 144])
-  li.add([178, 143])
-  li.add([179, 142])
-  li.add([180, 165])
-  li.add([182, 240])
-  li.add([183, 221])
-  li.add([184, 222])
-  li.add([185, 254])
-  li.add([186, 138])
-  li.add([187, 170])
-  li.add([188, 186])
-  li.add([189, 253])
-  li.add([190, 230])
-  li.add([191, 248])
-  li.add([192, 191])
-  li.add([193, 161])
-  li.add([194, 172])
-  li.add([195, 175])
-  li.add([196, 131])
-  li.add([197, 188])
-  li.add([198, 208])
-  li.add([199, 171])
-  li.add([200, 187])
-  li.add([201, 133])
-  li.add([202, 160])
-  li.add([203, 192])
-  li.add([204, 195])
-  li.add([205, 213])
-  li.add([206, 140])
-  li.add([207, 156])
-  li.add([208, 173])
-  li.add([209, 151])
-  li.add([210, 147])
-  li.add([211, 148])
-  li.add([212, 145])
-  li.add([213, 146])
-  li.add([214, 247])
-  li.add([216, 255])
-  li.add([217, 159])
-  li.add([218, 158])
-  li.add([219, 128])
-  li.add([220, 139])
-  li.add([221, 155])
-  li.add([222, 128])
-  li.add([223, 129])
-  li.add([224, 135])
-  li.add([225, 183])
-  li.add([226, 130])
-  li.add([227, 132])
-  li.add([228, 137])
-  li.add([229, 194])
-  li.add([230, 202])
-  li.add([231, 193])
-  li.add([232, 203])
-  li.add([233, 200])
-  li.add([234, 205])
-  li.add([235, 206])
-  li.add([236, 207])
-  li.add([237, 204])
-  li.add([238, 211])
-  li.add([239, 212])
-  li.add([240, 157])
-  li.add([241, 210])
-  li.add([242, 218])
-  li.add([243, 219])
-  li.add([244, 217])
-  li.add([245, 166])
-  li.add([246, 136])
-  li.add([247, 152])
-  li.add([248, 150])
-  li.add([249, 154])
-  li.add([250, 178])
-  li.add([251, 190])
-  li.add([252, 184])
-  li.add([253, 189])
-  li.add([254, 179])
-  li.add([255, 185])
+  li.add([128, 196, 402])
+  li.add([129, 197, 8776])
+  li.add([130, 199, 171])
+  li.add([131, 201, 8230])
+  li.add([132, 209, 8212])
+  li.add([133, 214, 247])
+  li.add([134, 220, 8249])
+  li.add([135, 225, 183])
+  li.add([136, 224, 8225])
+  li.add([137, 226, 8218])
+  li.add([138, 228, 8240])
+  li.add([139, 227, 8222])
+  li.add([140, 229, 194])
+  li.add([141, 231, 193])
+  li.add([142, 233, 200])
+  li.add([143, 232, 203])
+  li.add([144, 234, 205])
+  li.add([145, 235, 206])
+  li.add([146, 237, 204])
+  li.add([147, 236, 207])
+  li.add([148, 238, 211])
+  li.add([149, 239, 212])
+  li.add([150, 241, 210])
+  li.add([151, 243, 219])
+  li.add([152, 242, 218])
+  li.add([153, 244, 217])
+  li.add([154, 246, 710])
+  li.add([155, 245, 305])
+  li.add([156, 250, 729])
+  li.add([157, 249, 728])
+  li.add([158, 251, 730])
+  li.add([159, 252, 184])
+  li.add([160, 134, 220])
+  li.add([161, 176, 8734])
+  li.add([164, 167, 223])
+  li.add([165, 149, 239])
+  li.add([166, 182, 8706])
+  li.add([167, 223, 64258])
+  li.add([168, 174, 198])
+  li.add([170, 153, 244])
+  li.add([171, 180, 165])
+  li.add([172, 168, 174])
+  li.add([173, 141, 231])
+  li.add([174, 198, 8710])
+  li.add([175, 216, 255])
+  li.add([176, 144, 234])
+  li.add([178, 143, 232])
+  li.add([179, 142, 233])
+  li.add([180, 165, 8226])
+  li.add([182, 240, 63743])
+  li.add([183, 221, 8250])
+  li.add([184, 222, 64257])
+  li.add([185, 254, 731])
+  li.add([186, 138, 228])
+  li.add([187, 170, 8482])
+  li.add([188, 186, 8747])
+  li.add([189, 253, 733])
+  li.add([190, 230, 202])
+  li.add([191, 248, 175])
+  li.add([192, 191, 248])
+  li.add([193, 161, 176])
+  li.add([194, 172, 168])
+  li.add([195, 175, 216])
+  li.add([196, 131, 201])
+  li.add([197, 188, 186])
+  li.add([198, 208, 8211])
+  li.add([199, 171, 180])
+  li.add([200, 187, 170])
+  li.add([201, 133, 214])
+  li.add([202, 160, 8224])
+  li.add([203, 192, 191])
+  li.add([204, 195, 8730])
+  li.add([205, 213, 8217])
+  li.add([206, 140, 229])
+  li.add([207, 156, 250])
+  li.add([208, 173, 8800])
+  li.add([209, 151, 243])
+  li.add([210, 147, 236])
+  li.add([211, 148, 238])
+  li.add([212, 145, 235])
+  li.add([213, 146, 237])
+  li.add([214, 247, 732])
+  li.add([216, 255, 711])
+  li.add([217, 159, 252])
+  li.add([218, 158, 251])
+  li.add([219, 128, 196])
+  li.add([220, 139, 227])
+  li.add([221, 155, 245])
+  li.add([222, 128, 196])
+  li.add([223, 129, 197])
+  li.add([224, 135, 225])
+  li.add([225, 183, 8721])
+  li.add([226, 130, 199])
+  li.add([227, 132, 209])
+  li.add([228, 137, 226])
+  li.add([229, 194, 172])
+  li.add([230, 202, 160])
+  li.add([231, 193, 161])
+  li.add([232, 203, 192])
+  li.add([233, 200, 187])
+  li.add([234, 205, 213])
+  li.add([235, 206, 338])
+  li.add([236, 207, 339])
+  li.add([237, 204, 195])
+  li.add([238, 211, 8221])
+  li.add([239, 212, 8216])
+  li.add([240, 157, 249])
+  li.add([241, 210, 8220])
+  li.add([242, 218, 8260])
+  li.add([243, 219, 8364])
+  li.add([244, 217, 376])
+  li.add([245, 166, 182])
+  li.add([246, 136, 224])
+  li.add([247, 152, 242])
+  li.add([248, 150, 241])
+  li.add([249, 154, 246])
+  li.add([250, 178, 8804])
+  li.add([251, 190, 230])
+  li.add([252, 184, 8719])
+  li.add([253, 189, 937])
+  li.add([254, 179, 8805])
+  li.add([255, 185, 960])
   return li
 end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on getVersionNumber me
+  if voidP(pVersionNumber) then
+    pVersionNumber = getFloatVersionNumber(me, the productVersion)
+  end if
+  return pVersionNumber
+end
+
+-- xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+
+on getFloatVersionNumber me, prodVers
+  offs = offset(".", prodVers)
+  if offs > 0 then
+    intVers = char 1 to offs of prodVers
+    delete char 1 to offs of prodVers
+  else
+    intVers = ""
+  end if
+  cnt = length(prodVers)
+  repeat with n = 1 to cnt
+    c = prodVers.char[n]
+    if integerP(integer(c)) then
+      put c after intVers
+    else if c <> "." then
+      exit repeat
+    end if
+  end repeat
+  return value(intVers)
+end