conversion scripts for CW 8 Mac

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@18762 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775

diff --git a/docs/mac/M8mcp2xml.applescript b/docs/mac/M8mcp2xml.applescript
new file mode 100755 (executable)
index 0000000..fe48727
--- /dev/null
+++ b/docs/mac/M8mcp2xml.applescript
@@ -0,0 +1,92 @@
+-----------------------------------------------------------------------------
+-- Name:        docs/mac/M8mcp2xml.applescript
+-- Purpose:     Automatic export of CodeWarrior 8 projects to XML files
+-- Author:      Gilles Depeyrot
+-- Modified by:        Stefan Csomor for M8
+-- Created:     28.11.2001
+-- RCS-ID:      $Id$
+-- Copyright:   (c) 2001 Gilles Depeyrot
+-- Licence:     wxWindows licence
+-----------------------------------------------------------------------------
+--
+-- This AppleScript automatically recurses through the selected folder looking for
+-- and exporting CodeWarrior projects to xml files.
+-- To use this script, simply open it with the 'Script Editor' and run it.
+--
+
+--
+-- Suffix used to recognize CodeWarrior project files
+--
+property gProjectSuffix : "M8.mcp"
+
+--
+-- Project and build success count
+--
+set theProjectCount to 0
+set theProjectSuccessCount to 0
+
+--
+-- Ask the user to select the wxWindows samples folder
+--
+set theFolder to choose folder with prompt "Select the wxWindows folder"
+
+ExportProjects(theFolder)
+
+tell me to display dialog "Exported " & theProjectSuccessCount & " projects out of " & theProjectCount
+
+--
+-- ExportProjects
+--
+on ExportProjects(inFolder)
+       global theProjectCount, theProjectSuccessCount
+       
+       tell application "Finder" to update inFolder
+       
+       try
+               tell application "Finder" to set theProject to ((the first file of inFolder whose name ends with gProjectSuffix) as string)
+       on error
+               set theProject to ""
+       end try
+       
+       if theProject is not "" then
+               set theProjectCount to theProjectCount + 1
+               
+               -- save the current text delimiters
+               set theDelimiters to my text item delimiters
+               
+               -- replace the ".mcp" extension with ".xml"
+               set my text item delimiters to "."
+               set theList to (every text item of theProject)
+               set theList to (items 1 thru -2 of theList)
+               set theExport to (theList as string) & ".xml"
+               
+               -- restore the text delimiters
+               set my text item delimiters to theDelimiters
+               
+               tell application "CodeWarrior IDE"
+                       --
+                       -- Open the project in CodeWarrior
+                       --
+                       open theProject
+                       --
+                       -- Export the selected project
+                       --
+                       try
+                               export project document 1 to theExport
+                               set theProjectSuccessCount to theProjectSuccessCount + 1
+                       on error number errnum
+                               tell me to display dialog "Error " & errnum & " exporting " & theExport
+                       end try
+                       --
+                       -- Close the project
+                       --
+                       Close Project
+               end tell
+       end if
+       
+       tell application "Finder" to set theSubFolders to every folder of inFolder whose name does not end with " Data"
+       repeat with theFolder in theSubFolders
+               ExportProjects(theFolder)
+       end repeat
+       
+end ExportProjects

diff --git a/docs/mac/M8xml2mcp.applescript b/docs/mac/M8xml2mcp.applescript
new file mode 100755 (executable)
index 0000000..b0733cd
--- /dev/null
+++ b/docs/mac/M8xml2mcp.applescript
@@ -0,0 +1,88 @@
+-----------------------------------------------------------------------------
+-- Name:        docs/mac/M8xml2mcp.applescript
+-- Purpose:     Automatic import of CodeWarrior 8 xml files to projects
+-- Author:      Gilles Depeyrot
+-- Modified by: Stefan Csomor
+-- Created:     30.11.2001
+-- RCS-ID:      $Id$
+-- Copyright:   (c) 2001 Gilles Depeyrot
+-- Licence:     wxWindows licence
+-----------------------------------------------------------------------------
+--
+-- This AppleScript automatically recurses through the selected folder looking for
+-- and importing CodeWarrior xml files to projects
+-- To use this script, simply open it with the 'Script Editor' and run it.
+--
+
+--
+-- Suffix used to recognize CodeWarrior xml files
+--
+property gXmlSuffix : "M8.xml"
+
+--
+-- Project and build success count
+--
+set theXmlCount to 0
+set theXmlSuccessCount to 0
+
+--
+-- Ask the user to select the wxWindows samples folder
+--
+set theFolder to choose folder with prompt "Select the wxWindows folder"
+
+ImportProjects(theFolder)
+
+tell me to display dialog "Imported " & theXmlSuccessCount & " xml files out of " & theXmlCount buttons {"OK"}
+
+--
+-- ImportProjects
+--
+on ImportProjects(inFolder)
+       global theXmlCount, theXmlSuccessCount
+       
+       tell application "Finder" to update inFolder
+       
+       try
+               tell application "Finder" to set theXml to ((the first file of inFolder whose name ends with gXmlSuffix) as string)
+       on error
+               set theXml to ""
+       end try
+       
+       if theXml is not "" then
+               set theXmlCount to theXmlCount + 1
+               
+               -- save the current text delimiters
+               set theDelimiters to my text item delimiters
+               
+               -- replace the ".xml" extension with ".mcp"
+               set my text item delimiters to "."
+               set theList to (every text item of theXml)
+               set theList to (items 1 thru -2 of theList)
+               set theImport to (theList as string) & ".mcp"
+               
+               -- restore the text delimiters
+               set my text item delimiters to theDelimiters
+               
+               tell application "CodeWarrior IDE"
+                       --
+                       -- Import the selected xml file
+                       --
+                       try
+                               make new project document as theImport with data theXml
+                               set theXmlSuccessCount to theXmlSuccessCount + 1
+                               --
+                               -- Close the project
+                               --
+                               Close Project
+                       on error number errnum
+                               tell me to display dialog "Error " & errnum & " importing " & theXml & " to " & theImport
+                       end try
+               end tell
+       end if
+       
+       tell application "Finder" to set theSubFolders to every folder of inFolder whose name does not end with " Data"
+       repeat with theFolder in theSubFolders
+               ImportProjects(theFolder)
+       end repeat
+       
+end ImportProjects