;+
; Name: IDL_STARTUP (main)
;
; Purpose: idl starup file for SSW
; 	   (complete definition of idl environment and system variables)
;
; History: 
;	   S.L.Freeland  1-Jul 1992 (circa)
;          S.L.Freeland, 20-feb-1996 - Adapted from Yohkoh for SSW 
;          S.L.Freeland, 27-Feb-1996 - quiet down
;          S.L.Freeland, 29-Feb-1996 - increase !edit 
;          S.L.Freeland,  5-mar-1996 - increase .size
;          S.L.Freeland, 27-mar-1996 - yohkoh system variables
;          S.L.Freeland, 30-Mar-1998 - prepend $SSW_CONTRIBUTED if exists
;          S.L.Freeland,  9-Jun-1998 - took a chance and removed .size command
;                                      (assumes SSW users IDLVerssion >=3.6 )
;          Zarro (EER/GSFC) 23-Jan-2003 - added !SSW system variable to identify
;                                         SSW environment
;          S.L.Freeland, 21-Oct-2005 - add call to ssw_addmm_gen.pro
;                                      for multi-mission 'gen' support
;          S.L.Freeland,  2-Nov-2005 - add call to ssw_setsswdb_gen
;                                      (permit NAR,GEV,GOES-LC w/o Yohkoh inst)
;-
;define idl .size parameter		; 21-apr-93, slf, Version 3.0 defaults
;.size 64000 64000			; increase 5-mar-1996
;                                       ; **REMOVED 9-Jun-1998**

!edit_input=128         		;  command line editor buffer size
;
!quiet=1				; suppress compilation/messages
;
; ------------------- fast path setup -------------------------------------
if getenv('ssw_fast') ne '' then !path=set_fastpath()
; -------------------------------------------------------------------------
;
; ----------- Special !path setup for Old Versions of IDL -----------------
; slf, 23-feb-1993 
set_oldpath				; always run this, slf 15-feb-1994
;
; ----------------------- initilize X stuff  -------------------------------
if getenv('ssw_nox') eq '' then set_xcolors
; -------------------------------------------------------------------------
;
; -------------------------------------------------------------------------
; 22-Feb-1996 S.L.Freeland / William Thompson - SSW system variable definitions
imagelib				; Image Tool definitions
devicelib
uitdblib				; UIT data base definitions
;
; 27-mar-1996 S.L.Freeland
def_yssysv				; System Varibles
; -------------------------------------------------------------------------

; 30-March-1998 - S.L.Freeland - prepend SSW_CONTRIBTED if defined/exists
chkcon=get_logenv('SSW_CONTRIBUTED')
if 1-file_exist(chkcon(0) ) then chkcon=concat_dir(concat_dir('SSW','bypass'),'idl')
if file_exist(chkcon(0)) then ssw_path,chkcon(0),/prepend,/quiet

;-- set !SSW for code that needs to know whether it is running under $SSW environment

defsysv,'!SSW',1b,1

; add multi-mission "gen" support - 21-oct-2005 - via call to ssw_addmm_gen
; which adds $SSW/<MM>/gen/idl/... & executes $SSW/<MM>/setup/IDL_STARTUP
; where <MM>={stereo, vobs, radio, optical,...} (soho/yohkoh via heritage..)
ssw_addmm_gen
;
; allow ydb general interest dbase w/out a Yohkoh branch in SSW installation 
ssw_setsswdb_gen

!quiet=0				; re-enable compilation/messages
;
