+++ /dev/null
------------------------------------------------------------------------------
--- 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