1----------------------------------------------------------------------------- 2-- Name: docs/mac/M5xml2mcp.applescript 3-- Purpose: Automatic import of CodeWarrior 5 xml files to projects 4-- Author: Gilles Depeyrot 5-- Modified by: 6-- Created: 30.11.2001 7-- RCS-ID: $Id: M5xml2mcp.applescript 12831 2001-12-02 20:02:17Z GD $ 8-- Copyright: (c) 2001 Gilles Depeyrot 9-- Licence: wxWindows licence 10----------------------------------------------------------------------------- 11-- 12-- This AppleScript automatically recurses through the selected folder looking for 13-- and importing CodeWarrior xml files to projects 14-- To use this script, simply open it with the 'Script Editor' and run it. 15-- 16 17-- 18-- Suffix used to recognize CodeWarrior xml files 19-- 20property gXmlSuffix : "M5.xml" 21 22-- 23-- Project and build success count 24-- 25set theXmlCount to 0 26set theXmlSuccessCount to 0 27 28-- 29-- Ask the user to select the wxWindows samples folder 30-- 31set theFolder to choose folder with prompt "Select the wxWindows folder" 32 33ImportProjects(theFolder) 34 35tell me to display dialog "Imported " & theXmlSuccessCount & " xml files out of " & theXmlCount buttons {"OK"} 36 37-- 38-- ImportProjects 39-- 40on ImportProjects(inFolder) 41 global theXmlCount, theXmlSuccessCount 42 43 tell application "Finder" to update inFolder 44 45 try 46 tell application "Finder" to set theXml to ((the first file of inFolder whose name ends with gXmlSuffix) as string) 47 on error 48 set theXml to "" 49 end try 50 51 if theXml is not "" then 52 set theXmlCount to theXmlCount + 1 53 54 -- save the current text delimiters 55 set theDelimiters to my text item delimiters 56 57 -- replace the ".xml" extension with ".mcp" 58 set my text item delimiters to "." 59 set theList to (every text item of theXml) 60 set theList to (items 1 thru -2 of theList) 61 set theImport to (theList as string) & ".mcp" 62 63 -- restore the text delimiters 64 set my text item delimiters to theDelimiters 65 66 tell application "CodeWarrior IDE 4.0.4" 67 -- 68 -- Import the selected xml file 69 -- 70 try 71 make new project document as theImport with data theXml 72 set theXmlSuccessCount to theXmlSuccessCount + 1 73 -- 74 -- Close the project 75 -- 76 Close Project 77 on error number errnum 78 tell me to display dialog "Error " & errnum & " importing " & theXml & " to " & theImport 79 end try 80 end tell 81 end if 82 83 tell application "Finder" to set theSubFolders to every folder of inFolder whose name does not end with " Data" 84 repeat with theFolder in theSubFolders 85 ImportProjects(theFolder) 86 end repeat 87 88end ImportProjects 89