93 lines
2.6 KiB
AppleScript
93 lines
2.6 KiB
AppleScript
|
-----------------------------------------------------------------------------
|
||
|
|
-- 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
|