;+
;Function: icy_test
;
;Purpose:  Tests whether the idl/icy module is installed
;          Provides installation message if not installed
;
;Keywords:
;         None
;
;Returns: 1 on success 0 on failure
;
;Example:
;   if(icy_test() eq 0) then return
;Notes:
;  Should be called in all idl icy wrapper routines
;
; $LastChangedBy: peters $
; $LastChangedDate: 2012-08-01 12:02:01 -0700 (Wed, 01 Aug 2012) $
; $LastChangedRevision: 10763 $
; $URL: svn+ssh://thmsvn@ambrosia.ssl.berkeley.edu/repos/spdsoft/tags/spedas_4_1/external/IDL_ICY/icy_test.pro $
;-

function icy_test

help, /dlm, output = out

;v_string = '6.7'

filter = strfilter(out, '*ICY*',/index)

if(filter[0] eq -1) then begin
  message, /continue, 'Required module IDL/ICY not installed'
  message, /continue, 'To install ICY please download a copy'
  message, /continue, 'Place the module binary and the .dlm in:'
  message, /continue, !DLM_PATH
  message, /continue, 'and restart IDL to install the package'
  message, /continue, 'more detailed installation instructions'
  message, /continue, 'can be found on the Themis web site, or'
  message, /continue, 'in the Themis software distribution at'
  message, /continue, 'external/IDL_ICY/README.txt'
  return, 0
endif
;
;if ~stregex(out[filter+1],v_string,/boolean) then begin
;  message, /continue, 'Incorrect version of geopack found'
;  message, /continue, 'Version ' + v_string + ' expected'
;  message,/continue, 'Please download the newest version and'
;  message, /continue, 'place the binary(.dll,.so,.etc..) and the .dlm in:'
;  message, /continue, !DLM_PATH
;  message, /continue, 'then restart IDL to install the package'
;  message, /continue, 'More detailed installation instructions'
;  message, /continue, 'can be found on the Themis web site, or'
;  message, /continue, 'in the Themis software distribution at'
;  message, /continue, 'external/IDL_GEOPACK/README.txt'
;  return, 0
; endif

return, 1
  
end