Amebis/wxWidgets
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

filter CodeWarrior data directories during recursive directory scan

Browse Source 
git-svn-id: https://svn.wxwidgets.org/svn/wx/wxWidgets/trunk@12831 c3d73ce0-8a6f-49c7-b76d-6d57e0e08775
This commit is contained in:
Gilles Depeyrot
2001-12-02 20:02:17 +00:00
parent b383b2c1fd
commit 8a242615ef
3 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
docs/mac/M5build.applescript
View File

@@ -156,7 +156,7 @@ on BuildProjects(inLogFileRef, inFolder, inTarget, inRebuild)
write gSeparator to inLogFileRef write gSeparator to inLogFileRef
end if 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 repeat with theFolder in theSubFolders
BuildProjects(inLogFileRef, theFolder, inTarget, inRebuild) BuildProjects(inLogFileRef, theFolder, inTarget, inRebuild)
end repeat end repeat

4
docs/mac/M5mcp2xml.applescript
View File

@@ -40,6 +40,8 @@ tell me to display dialog "Exported " & theProjectSuccessCount & " projects out
on ExportProjects(inFolder) on ExportProjects(inFolder)
global theProjectCount, theProjectSuccessCount global theProjectCount, theProjectSuccessCount
tell application "Finder" to update inFolder
try try
tell application "Finder" to set theProject to ((the first file of inFolder whose name ends with gProjectSuffix) as string) tell application "Finder" to set theProject to ((the first file of inFolder whose name ends with gProjectSuffix) as string)
on error on error
@@ -82,7 +84,7 @@ on ExportProjects(inFolder)
end tell end tell
end if 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 repeat with theFolder in theSubFolders
ExportProjects(theFolder) ExportProjects(theFolder)
end repeat end repeat

4
docs/mac/M5xml2mcp.applescript
View File

@@ -40,6 +40,8 @@ tell me to display dialog "Imported " & theXmlSuccessCount & " xml files out of
on ImportProjects(inFolder) on ImportProjects(inFolder)
global theXmlCount, theXmlSuccessCount global theXmlCount, theXmlSuccessCount
tell application "Finder" to update inFolder
try try
tell application "Finder" to set theXml to ((the first file of inFolder whose name ends with gXmlSuffix) as string) tell application "Finder" to set theXml to ((the first file of inFolder whose name ends with gXmlSuffix) as string)
on error on error
@@ -78,7 +80,7 @@ on ImportProjects(inFolder)
end tell end tell
end if 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 repeat with theFolder in theSubFolders
ImportProjects(theFolder) ImportProjects(theFolder)
end repeat end repeat