# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1352799870 -3600
# Node ID a63aa44303e3ed9de74b838f33f63e30b80f5e1a
# Parent  c1a9c731b92a326e2908424cef2ee0714b482f81
changed: #main: - support for not-officially-supported VM options

diff -r c1a9c731b92a -r a63aa44303e3 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'!