From 513c3efc49ffdcf2592c2b99b5005166c5778b4c Mon Sep 17 00:00:00 2001 From: Stefan Csomor Date: Thu, 16 Jan 2003 06:44:49 +0000 Subject: [PATCH] conversion scripts for CW 8 Mac git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@18762 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775 --- docs/mac/M8mcp2xml.applescript | 92 ++++++++++++++++++++++++++++++++++ docs/mac/M8xml2mcp.applescript | 88 ++++++++++++++++++++++++++++++++ 2 files changed, 180 insertions(+) create mode 100755 docs/mac/M8mcp2xml.applescript create mode 100755 docs/mac/M8xml2mcp.applescript diff --git a/docs/mac/M8mcp2xml.applescript b/docs/mac/M8mcp2xml.applescript new file mode 100755 index 0000000000..fe48727d0b --- /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 index 0000000000..b0733cd814 --- /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 -- 2.47.2