equal
deleted
inserted
replaced
155 ! ! |
155 ! ! |
156 |
156 |
157 !ReportRunner class methodsFor:'startup-to be redefined'! |
157 !ReportRunner class methodsFor:'startup-to be redefined'! |
158 |
158 |
159 main:argv |
159 main:argv |
160 | argv2 | |
|
161 |
|
162 "HACK - some options are not supported by eXept VM, filter them out |
|
163 here so parameter parser won't complain about unsupported parameter" |
|
164 |
|
165 argv2 := argv asOrderedCollection. |
|
166 "/Following are not officially supported: |
|
167 #( |
|
168 '-abortOnSEGV' '-abortOnSegmentationViolation' |
|
169 '-stopOnInternalError' |
|
170 ) do:[:a| |
|
171 argv2 remove: a ifAbsent:[] |
|
172 ]. |
|
173 |
|
174 "Process command line arguments" |
160 "Process command line arguments" |
|
161 |
175 parser := CmdLineParser new. |
162 parser := CmdLineParser new. |
176 [ |
163 [ |
177 parser parse: argv2 for: self. |
164 parser parse: argv for: self. |
178 ] on: Error do:[:ex| |
165 ] on:CmdLineOptionError do:[:ex| |
179 Stderr nextPutLine:'Error when processing options: ', ex description. |
166 Stderr nextPutLine:'Error when processing options: ', ex description. |
180 debugging ifFalse:[ |
167 debugging ifFalse:[ |
181 ex suspendedContext fullPrintAllOn: Stderr. |
168 ex suspendedContext fullPrintAllOn: Stderr. |
182 Stderr nextPutLine:'Exiting'. |
169 Stderr nextPutLine:'Exiting'. |
183 Smalltalk exit:1. |
170 Smalltalk exit:1. |
217 |
204 |
218 version_SVN |
205 version_SVN |
219 ^ '§Id: Builder__ReportRunner.st 289 2011-11-10 15:39:10Z vranyj1 §' |
206 ^ '§Id: Builder__ReportRunner.st 289 2011-11-10 15:39:10Z vranyj1 §' |
220 ! ! |
207 ! ! |
221 |
208 |
|
209 |
222 ReportRunner initialize! |
210 ReportRunner initialize! |