Changeset 208 for trunk

Timestamp:

12/06/08 15:21:30 (3 years ago)

Author:

alex

Message:

added lingodoc comments to xml parser script

Location:

trunk/lingosource

Files:

• castlib1/subversion_version_field.txt (modified) (1 diff)
• castlib1/svn_Utilities.ls (modified) (2 diffs)
• castlib2/PseudoXMLPS.ls (modified) (2 diffs)

trunk/lingosource/castlib1/subversion_version_field.txt

@@ -1 @@
-r204
+r210

trunk/lingosource/castlib1/svn_Utilities.ls

@@ -2605 +2605 @@
   mDisplayWaitStatusText me, "SVN update..." -- && newpathUnix
   
-  revisionNumber = string(revisionNumber)
-  if length(revisionNumber) < 1 then revisionNumber = "'HEAD'"
+  if integerP(integer(revisionNumber)) then
+    revisionNumber = string(revisionNumber)
+  else
+    revisionNumber = string(revisionNumber)
+    if length(revisionNumber) < 1 then
+      revisionNumber = "HEAD"
+    else
+      if char 1 of revisionNumber = "'" then delete char 1 of revisionNumber
+      if the last char of revisionNumber = "'" then delete the last char of revisionNumber
+    end if
+    revisionNumber = QUOTE & revisionNumber & QUOTE
+  end if
+  
   
   repeat with castlibPaths in castlibPathList
@@ -2718 +2729 @@
   mDisplayWaitStatusText me, "SVN update:" && workingFolderUnix
   
-  revisionNumber = string(revisionNumber)
-  if length(revisionNumber) < 1 then revisionNumber = "'HEAD'"
+  if integerP(integer(revisionNumber)) then
+    revisionNumber = string(revisionNumber)
+  else
+    revisionNumber = string(revisionNumber)
+    if length(revisionNumber) < 1 then
+      revisionNumber = "HEAD"
+    else
+      if char 1 of revisionNumber = "'" then delete char 1 of revisionNumber
+      if the last char of revisionNumber = "'" then delete the last char of revisionNumber
+    end if
+    revisionNumber = QUOTE & revisionNumber & QUOTE
+  end if
+  
   theresult = mDoShellCmd(me, svnBinary && "update" && "-r" && revisionNumber && QUOTE & workingFolderUnix & QUOTE, RETURN, 0, 1)
   

trunk/lingosource/castlib2/PseudoXMLPS.ls

@@ -1018 +1018 @@
 
 on mParseExcelXML me, theText
+  -----------------------------------
+  -- ACTION: Read and convert an excel xml file into a lingo property list
+  -- INPUT: <theText> ; string ; required => xml formatted string
+  -- RETURNS: property list
+  -- EXAMPLE: plist = xscr(#PseudoXMLPS).mParseExcelXML(xscr(#FileIOFunktionen).mGetTextFromFile())
+  -----------------------------------
+  
   ms = the milliseconds
   li = []
@@ -1102 +1109 @@
 
 on mReadPList me, pfad
+  -----------------------------------
+  -- ACTION: Read and convrt an apple style plist into a lingo style property list from file
+  -- 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()
+  -----------------------------------
   
   str = ""