wxWidgets/docs/mac/M8xml2mcp.applescript
2004-04-28 22:03:15 +00:00

86 lines
2.5 KiB
AppleScript
Executable File

-----------------------------------------------------------------------------
-- 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
tell application "Finder" to set theXmlList to (every file of inFolder whose name ends with gXmlSuffix)
repeat with theXml in theXmlList
set theXml to theXml as string
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 repeat
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