equal
deleted
inserted
replaced
161 parser := CmdLineParser new. |
161 parser := CmdLineParser new. |
162 [ |
162 [ |
163 parser parse: argv for: self. |
163 parser parse: argv for: self. |
164 ] on: Error do:[:ex| |
164 ] on: Error do:[:ex| |
165 Stderr nextPutLine:'Error when processing options: ', ex description. |
165 Stderr nextPutLine:'Error when processing options: ', ex description. |
166 debugging ifFalse:[ |
166 debugging ifFalse:[ |
|
167 ex suspendedContext fullPrintAllOn: Stderr. |
167 Stderr nextPutLine:'Exiting'. |
168 Stderr nextPutLine:'Exiting'. |
168 Smalltalk exit:1. |
169 Smalltalk exit:1. |
169 ] ifTrue:[ |
170 ] ifTrue:[ |
170 ex pass |
171 ex pass |
171 ] |
172 ] |
185 ] ifTrue:[ |
186 ] ifTrue:[ |
186 ex pass |
187 ex pass |
187 ] |
188 ] |
188 ] |
189 ] |
189 |
190 |
190 "Modified: / 07-11-2011 / 09:26:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
191 "Modified: / 11-08-2012 / 08:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
191 ! ! |
192 ! ! |
192 |
193 |
193 !ReportRunner class methodsFor:'documentation'! |
194 !ReportRunner class methodsFor:'documentation'! |
194 |
195 |
195 version |
196 version |