changed: #main: - support for not-officially-supported VM options
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 13 Nov 2012 10:44:30 +0100
changeset 102 a63aa44303e3
parent 101 c1a9c731b92a
child 103 a14fad9df08c
changed: #main: - support for not-officially-supported VM options
reports/Builder__ReportRunner.st
--- a/reports/Builder__ReportRunner.st	Mon Nov 12 19:11:38 2012 +0100
+++ b/reports/Builder__ReportRunner.st	Tue Nov 13 10:44:30 2012 +0100
@@ -156,12 +156,25 @@
 
 !ReportRunner class methodsFor:'startup-to be redefined'!
 
-main:argv 
+main:argv
+    | argv2 |
+
+    "HACK - some options are not supported by eXept VM, filter them out
+     here so parameter parser won't complain about unsupported parameter"
+
+    argv2 := argv asOrderedCollection.
+    "/Following are not officially supported:
+    #(
+        '-abortOnSEGV' '-abortOnSegmentationViolation'
+        '-stopOnInternalError'
+    ) do:[:a|
+        argv2 remove: a ifAbsent:[]
+    ].
 
     "Process command line arguments"
     parser := CmdLineParser new.
     [               
-        parser parse: argv for: self.        
+        parser parse: argv2 for: self.        
     ] on: Error do:[:ex|
         Stderr nextPutLine:'Error when processing options: ', ex description.
         debugging ifFalse:[     
@@ -189,7 +202,7 @@
         ]
     ]
 
-    "Modified: / 11-08-2012 / 08:01:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 13-11-2012 / 09:40:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ReportRunner class methodsFor:'documentation'!