filter CodeWarrior data directories during recursive directory scan

git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@12831 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775

diff --git a/docs/mac/M5build.applescript b/docs/mac/M5build.applescript
index 8b951bc547c1491b5a50fffa255054a0e12b3510..0bd059210626d5a63bc14b0562fe54b2ccc620a7 100644 (file)
--- a/docs/mac/M5build.applescript
+++ b/docs/mac/M5build.applescript
@@ -156,7 +156,7 @@ on BuildProjects(inLogFileRef, inFolder, inTarget, inRebuild)
                write gSeparator to inLogFileRef
        end if
        
                write gSeparator to inLogFileRef
        end if
        

-       tell application "Finder" to set theSubFolders to every folder of inFolder
+       tell application "Finder" to set theSubFolders to every folder of inFolder whose name does not end with " Data"

        repeat with theFolder in theSubFolders
                BuildProjects(inLogFileRef, theFolder, inTarget, inRebuild)
        end repeat
        repeat with theFolder in theSubFolders
                BuildProjects(inLogFileRef, theFolder, inTarget, inRebuild)
        end repeat

diff --git a/docs/mac/M5mcp2xml.applescript b/docs/mac/M5mcp2xml.applescript
index 6902cfb38327547ae05a30ee4ead2306d9669a3a..9a7179c4f58a83c36566fcf7f06a27b0215e886e 100644 (file)
--- a/docs/mac/M5mcp2xml.applescript
+++ b/docs/mac/M5mcp2xml.applescript
@@ -40,6 +40,8 @@ tell me to display dialog "Exported " & theProjectSuccessCount & " projects out
 on ExportProjects(inFolder)
        global theProjectCount, theProjectSuccessCount
        
 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
        try
                tell application "Finder" to set theProject to ((the first file of inFolder whose name ends with gProjectSuffix) as string)
        on error


@@ -82,7 +84,7 @@ on ExportProjects(inFolder)
                end tell
        end if
        
                end tell
        end if
        

-       tell application "Finder" to set theSubFolders to every folder of inFolder
+       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
        repeat with theFolder in theSubFolders
                ExportProjects(theFolder)
        end repeat

diff --git a/docs/mac/M5xml2mcp.applescript b/docs/mac/M5xml2mcp.applescript
index 9d993d6e747a5a86e35b21fd9f06f6f750a9ebcd..d1eb0e3a1fe238299c764183a30d0d70bf9e43dc 100644 (file)
--- a/docs/mac/M5xml2mcp.applescript
+++ b/docs/mac/M5xml2mcp.applescript
@@ -40,6 +40,8 @@ tell me to display dialog "Imported " & theXmlSuccessCount & " xml files out of
 on ImportProjects(inFolder)
        global theXmlCount, theXmlSuccessCount
        
 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
        try
                tell application "Finder" to set theXml to ((the first file of inFolder whose name ends with gXmlSuffix) as string)
        on error


@@ -78,7 +80,7 @@ on ImportProjects(inFolder)
                end tell
        end if
        
                end tell
        end if
        

-       tell application "Finder" to set theSubFolders to every folder of inFolder
+       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
        repeat with theFolder in theSubFolders
                ImportProjects(theFolder)
        end repeat