conversion scripts for CW 8 Mac
git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@18762 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Stefan Csomor
92
docs/mac/M8mcp2xml.applescript
Executable file
92
docs/mac/M8mcp2xml.applescript
Executable file
@@ -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
|
||||
88
docs/mac/M8xml2mcp.applescript
Executable file
88
docs/mac/M8xml2mcp.applescript
Executable file
@@ -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
|
||||
Reference in New Issue
Block a user