1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
|
global oldDelimiters
global variables
global variablesRef
global bakefilesXML
global bakefilesXMLRef
global projectFile
global osxBuildFolder
property test : false
-- retrieves the files from the xml node including optional conditions
on parseSources(theName, theElement, theVariables, theConditions)
set AppleScript's text item delimiters to " "
set allElements to {}
repeat with currElement in XML contents of theElement
if class of currElement is text then
set allElements to allElements & (every text item of currElement)
else
if class of currElement is XML element and XML tag of currElement is "if" then
if (cond of XML attributes of currElement is in theConditions) then
set allElements to allElements & (every text item of (item 1 of XML contents of currElement))
end if
end if
end if
end repeat
set AppleScript's text item delimiters to oldDelimiters
copy {varname:theName, entries:allElements} to end of theVariables
end parseSources
on parseEntry(theElement, theVariables, theConditions)
set theName to var of XML attributes of theElement
parseSources(theName, theElement, theVariables, theConditions)
end parseEntry
on parseLib(theElement, theVariables, theConditions)
set theName to |id| of XML attributes of theElement
repeat with currElement in XML contents of theElement
if class of currElement is XML element and XML tag of currElement is "sources" then
parseSources(theName, currElement, theVariables, theConditions)
end if
end repeat
end parseLib
on parseNode(anElement, theVariables, theConditions)
if class of anElement is XML element and
XML tag of anElement is "set" then
parseEntry(anElement, theVariables, theConditions)
else
if class of anElement is XML element and
XML tag of anElement is "lib" then
parseLib(anElement, theVariables, theConditions)
end if
end if
end parseNode
-- iterates through the entire xml tree and populates the variables
on parseFiles(theXML, theVariables, theConditions)
if class of theXML is XML element or class of theXML is XML document then
repeat with anElement in XML contents of theXML
try
parseNode(anElement, theVariables, theConditions)
on error number -1728
-- ignore this error
end try
end repeat
else if class of theXML is list then
repeat with anElement in theXML
try
parseNode(anElement, theVariables, theConditions)
on error number -1728
-- ignore this error
end try
end repeat
end if
end parseFiles
-- gets the entries of the variable named theName
on getVar(theName)
repeat with anElement in variablesRef
if (varname of anElement is theName) then
return entries of anElement
end if
end repeat
end getVar
-- adds sources from fileList to a group named container
on addNode(theContainer, fileList)
tell application "Xcode"
tell project 1
set theTargets to targets
repeat with listItem in fileList
if (listItem starts with "$(") then
set AppleScript's text item delimiters to ""
set variableName to (characters 3 through ((length of listItem) - 1) of listItem) as text
set AppleScript's text item delimiters to oldDelimiters
my addNode(theContainer, my getVar(variableName))
else
set AppleScript's text item delimiters to "/"
set currPath to every text item in listItem
set currFile to "../../" & listItem
set currFileName to (item -1 in currPath)
set currGroup to (items 1 through -2 in currPath as text)
set AppleScript's text item delimiters to oldDelimiters
try
set theGroup to group theContainer
on error
tell root group
make new group with properties {name:theContainer}
end tell
end try
tell group theContainer
try
set theGroup to group named currGroup
on error
make new group with properties {name:currGroup}
end try
tell group currGroup
set newFile to make new file reference with properties {name:currFileName, path:currFile, path type:project relative}
repeat with theTarget in theTargets
add newFile to (get compile sources phase of theTarget)
end repeat
end tell
end tell
end if
end repeat
end tell
end tell
end addNode
-- retrieves contents of file at posixFilePath
on readFile(posixFilePath)
set fileRef to open for access POSIX file posixFilePath
set theData to read fileRef
close access fileRef
return theData
end readFile
on init()
tell application "Xcode"
quit
end tell
set variablesRef to a reference to variables
set bakefilesXMLRef to a reference to bakefilesXML
set oldDelimiters to AppleScript's text item delimiters
tell application "Finder"
set osxBuildFolder to POSIX path of ((folder of (path to me)) as Unicode text)
end tell
end init
-- reads the files list and evaluates the conditions
on readFilesList(theFiles, theConditions)
set variables to {}
repeat with theFile in theFiles
set bakefilesXML to parse XML (readFile(osxBuildFolder & theFile))
parseFiles(bakefilesXMLRef, variablesRef, theConditions)
end repeat
end readFilesList
-- creates a new project file from the respective template
on instantiateProject(theProject)
set projectName to projectName of theProject
set template to (osxBuildFolder & projectName & "_in.xcodeproj")
set projectFile to (osxBuildFolder & projectName & ".xcodeproj")
tell application "Finder"
if exists projectFile as POSIX file then
set templateContentFile to (osxBuildFolder & projectName & "_in.xcodeproj/project.pbxproj")
set projectContentFile to (osxBuildFolder & projectName & ".xcodeproj/project.pbxproj")
try
tell me
do shell script "rm -f " & quoted form of projectContentFile
end tell
end try
try
tell me
do shell script "cp " & quoted form of templateContentFile & " " & quoted form of projectContentFile
end tell
end try
else
set duplicateProject to duplicate (template as POSIX file) with replace
set name of duplicateProject to (projectName & ".xcodeproj")
end if
end tell
end instantiateProject
-- adds the source files of the nodes of theProject to the xcode project
on populateProject(theProject)
tell application "Xcode"
open projectFile
end tell
repeat with theNode in nodes of theProject
-- reopen xcode for each pass, as otherwise the undomanager
-- happens to crash quite frequently
addNode(label of theNode, entries of theNode)
end repeat
tell application "Xcode"
quit
end tell
do shell script (osxBuildFolder as text) & "fix_xcode_ids.py \"" & (POSIX path of projectFile as Unicode text) & "\""
-- reopen again to let Xcode sort identifiers
tell application "Xcode"
open projectFile
end tell
tell application "Xcode"
quit
end tell
end populateProject
on makeProject(theProject)
instantiateProject(theProject)
readFilesList(bklfiles of theProject, conditions of theProject)
populateProject(theProject)
end makeProject
-- main
init()
set theProject to {projectName:"", conditions:{}, bklfiles:{
"../bakefiles/files.bkl", "../bakefiles/zlib.bkl", "../bakefiles/regex.bkl", "../bakefiles/tiff.bkl", "../bakefiles/png.bkl", "../bakefiles/jpeg.bkl", "../bakefiles/scintilla.bkl", "../bakefiles/expat.bkl"}, nodes:{
{label:"base", entries:{"$(BASE_SRC)"}},
{label:"base", entries:{"$(BASE_AND_GUI_SRC)"}},
{label:"core", entries:{"$(CORE_SRC)"}},
{label:"net", entries:{"$(NET_SRC)"}},
{label:"adv", entries:{"$(ADVANCED_SRC)"}},
{label:"webview", entries:{"$(WEBVIEW_SRC)"}},
{label:"media", entries:{"$(MEDIA_SRC)"}},
{label:"html", entries:{"$(HTML_SRC)"}},
{label:"xrc", entries:{"$(XRC_SRC)"}},
{label:"xml", entries:{"$(XML_SRC)"}},
{label:"opengl", entries:{"$(OPENGL_SRC)"}},
{label:"aui", entries:{"$(AUI_SRC)"}},
{label:"ribbon", entries:{"$(RIBBON_SRC)"}},
{label:"propgrid", entries:{"$(PROPGRID_SRC)"}},
{label:"richtext", entries:{"$(RICHTEXT_SRC)"}},
{label:"stc", entries:{"$(STC_SRC)"}},
{label:"libzlib", entries:{"$(wxzlib)"}},
{label:"libtiff", entries:{"$(wxtiff)"}},
{label:"libjpeg", entries:{"$(wxjpeg)"}},
{label:"libpng", entries:{"$(wxpng)"}},
{label:"libregex", entries:{"$(wxregex)"}},
{label:"libscintilla", entries:{"$(wxscintilla)"}},
{label:"libexpat", entries:{"$(wxexpat)"}}
}}
set conditions of theProject to {"PLATFORM_MACOSX=='1'", "TOOLKIT=='OSX_CARBON'", "WXUNIV=='0'", "USE_GUI=='1' and WXUNIV=='0'"}
set projectName of theProject to "wxcarbon"
makeProject(theProject)
set conditions of theProject to {"PLATFORM_MACOSX=='1'", "TOOLKIT=='OSX_COCOA'", "WXUNIV=='0'", "USE_GUI=='1' and WXUNIV=='0'"}
set projectName of theProject to "wxcocoa"
makeProject(theProject)
set conditions of theProject to {"PLATFORM_MACOSX=='1'", "TOOLKIT=='OSX_IPHONE'", "WXUNIV=='0'", "USE_GUI=='1' and WXUNIV=='0'"}
set projectName of theProject to "wxiphone"
makeProject(theProject)
|
