equal
deleted
inserted
replaced
53 long: '--report'; |
53 long: '--report'; |
54 description: 'Report to run'; |
54 description: 'Report to run'; |
55 action:[:option | |
55 action:[:option | |
56 report := Smalltalk at: option asSymbol. |
56 report := Smalltalk at: option asSymbol. |
57 report isNil ifTrue:[ |
57 report isNil ifTrue:[ |
58 Stderr nextPutLine:('ERROR: Report class %1 does not exist (forgot to load package)' bindWith: option). |
58 Stderr nextPutLine:('ERROR: Report class %1 does not exist (forgot to load package?)' bindWith: option). |
59 "/Smalltalk exit: 1. |
59 "/Smalltalk exit: 1. |
60 ]. |
60 ]. |
61 report := report new. |
61 report := report new. |
62 parser options addAll: (CmdLineOption optionsFor: report) |
62 parser options addAll: (CmdLineOption optionsFor: report) |
63 ] |
63 ] |