Changeset 70 for branches

Show
Ignore:
Timestamp:
04/23/09 21:41:28 (3 years ago)
Author:
mgalloy
Message:

Merging r:68:69 trunk changes into the mgunit-1.0 branch.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • branches/mgunit-1.0/mgunit/src/mgunit_wrapper.pro

    r68 r70  
    1 ; docformat ='rst' 
     1; docformat = 'rst' 
    22 
    33;+ 
    … …  
    1818  opts->addParams, [0, -1] 
    1919   
    20   opts->parseArgs 
    21   params = opts->get(/params, n_params=nparams) 
     20  opts->parseArgs, error_message=errorMsg 
    2221 
    23   if (nparams gt 0L && ~opts->get('help')) then begin 
    24     filename = opts->get('filename', present=filenamePresent) 
    25     if (filenamePresent) then begin 
    26       mgunit, params, $ 
    27               color=opts->get('color'), $ 
    28               filename=opts->get('filename'), $ 
    29               gui=opts->get('gui'), $ 
    30               html=opts->get('html') 
    31     endif else begin 
    32       mgunit, params, $ 
    33               color=opts->get('color'), $ 
    34               gui=opts->get('gui'), $ 
    35               html=opts->get('html') 
    36     endelse 
    37   endif 
     22  if (errorMsg eq '') then begin 
     23    params = opts->get(/params, n_params=nparams) 
     24 
     25    if (nparams gt 0L && ~opts->get('help')) then begin 
     26      filename = opts->get('filename', present=filenamePresent) 
     27      if (filenamePresent) then begin 
     28        mgunit, params, $ 
     29                color=opts->get('color'), $ 
     30                filename=opts->get('filename'), $ 
     31                gui=opts->get('gui'), $ 
     32                html=opts->get('html') 
     33      endif else begin 
     34        mgunit, params, $ 
     35                color=opts->get('color'), $ 
     36                gui=opts->get('gui'), $ 
     37                html=opts->get('html') 
     38      endelse 
     39    endif 
     40  endif else begin 
     41    !quiet = 0 
     42    message, errorMsg, /informational, /noname 
     43    !quiet = 1 
     44  endelse 
    3845   
    3946  obj_destroy, opts