Changeset 69

Timestamp:

04/23/09 15:07:16 (3 years ago)

Author:

mgalloy

Message:

Fixing wrapper to handle error from command line options better.

Files:

• trunk/mgunit/src/mgunit_wrapper.pro (modified) (2 diffs)

trunk/mgunit/src/mgunit_wrapper.pro

@@ -1 @@
-; docformat ='rst'
+; docformat = 'rst'
 
 ;+
@@ -18 +18 @@
   opts->addParams, [0, -1]
   
-  opts->parseArgs
-  params = opts->get(/params, n_params=nparams)
+  opts->parseArgs, error_message=errorMsg
 
-  if (nparams gt 0L && ~opts->get('help')) then begin
-    filename = opts->get('filename', present=filenamePresent)
-    if (filenamePresent) then begin
-      mgunit, params, $
-              color=opts->get('color'), $
-              filename=opts->get('filename'), $
-              gui=opts->get('gui'), $
-              html=opts->get('html')
-    endif else begin
-      mgunit, params, $
-              color=opts->get('color'), $
-              gui=opts->get('gui'), $
-              html=opts->get('html')
-    endelse
-  endif
+  if (errorMsg eq '') then begin
+    params = opts->get(/params, n_params=nparams)
+
+    if (nparams gt 0L && ~opts->get('help')) then begin
+      filename = opts->get('filename', present=filenamePresent)
+      if (filenamePresent) then begin
+        mgunit, params, $
+                color=opts->get('color'), $
+                filename=opts->get('filename'), $
+                gui=opts->get('gui'), $
+                html=opts->get('html')
+      endif else begin
+        mgunit, params, $
+                color=opts->get('color'), $
+                gui=opts->get('gui'), $
+                html=opts->get('html')
+      endelse
+    endif
+  endif else begin
+    !quiet = 0
+    message, errorMsg, /informational, /noname
+    !quiet = 1
+  endelse
   
   obj_destroy, opts