;+
; NAME:
;	IDL_startup_sat
; PURPOSE:
;	Initialize IDL session
; CATEGORY:
;	Startup
; CALLING SEQUENCE:
;	Invoked when IDL session is started
; PROCEDURE:
;	Only puts $SMEI/gen/idl and $SMEI/sat/idl in the path.
;	Used to test integrity of /sat/idl tree.
;	File needs to be put in env var IDL_STARTUP.
; MODIFICATION HISTORY:
;	JAN-2002, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
;-

if strlowcase(!version.os_family) eq 'windows'	then sep = 59B	;	semi-colon
if strlowcase(!version.os_family) eq 'unix'		then sep = 58B	;	colon
if strlowcase(!version.os_family) eq 'vms'		then sep = 32B	;   space

sep = string(sep)

!path = '+'+filepath(root=getenv('SMEI'), subdir='gen' ,'idl')	+ sep + $
	'+'+filepath(root=getenv('SMEI'), subdir='sat' ,'idl')	+ sep + $
	!path

!path = expand_path(!path)

message, /info,'!path contains'+strcompress( n_elements(strtok(!path, sep)) )+' elements'