;******************************************************************************
;* FILE:        $PAPCO_USER/papco_set_variables.pro
;* 
;* DESCRIPTION: Sets env. variables and expands IDL path as needed by PAPCO
;*
;* CALLED BY:   papco_startup, papco_setup
;*
;* MODIFICATION HISTORY:  written July 1997, R.Friedel
;******************************************************************************
print, '' 
print, '======================================================================'
print, '--- WELCOME TO PAPCO! ------------------------------------------------'
print, '======================================================================'
print, ''

; local variables used here:
; NET            is the base network "address" 
; PAPCO_BASE     is the directory where the PAPCO code resides
; PAPCO_MODULES  is the directory in which the distribution modules reside
; PAPCO_HOME     is the user's directory from which PAPCO is run
; PAPCO_DOWNLOAD is the temporary download directory
; HOME           is the user's home directory
 
;device,pseudo_color=8    ;necessary for Sparc ULTRA 2 or any machine with
                         ;24-bit color card

;NET=            '/n/leadbelly'                            
;PAPCO_BASE=     NET + '/belly1/home/papco/papco_07'
NET=            '/n/papco'
PAPCO_BASE=     '/nh/toaster/u/friedel/idl/papco'
HOME=           '/nh/toaster/u/friedel'     
PAPCO_HOME=     HOME+'/papco_user'
PAPCO_DOWNLOAD= HOME+'/papco_user/papco_download_temp'
 
print, '--- Expanding IDL search path for PAPCO core, Lib, Home --------------'
print, ''

!path = !path +':'+ PAPCO_BASE + '/papco'   
!path = !path +':'+ expand_path('+'+PAPCO_BASE+'/papco_lib')
!path = !path +':'+ PAPCO_HOME

print, 'PAPCO LIB      : +'+ PAPCO_BASE + '/papco_lib'
print, 'PAPCO CORE     :  '+ PAPCO_BASE + '/papco'
print, 'PAPCO HOME     :  '+ PAPCO_HOME
print, 'PAPCO DOWNLOAD :  '+ PAPCO_DOWNLOAD

; compile module that contains all routines for platform
; independance. This needs to be done right at the beginng, here!

print, ''
print, '--- Compile PAPCO routines needed for startup ------------------------'
!quiet=1
.run string_functions
.run papco_opsys
.run papco_idlver
.run papco_configure
 
papco_setenv,      'PAPCO_QUIET=1' 
papco_setenv,      'PAPCO_STARTUP_MODE=COMPILE' 
papco_setenv, /FS, 'PAPCO_HOME='+PAPCO_HOME
papco_setenv, /FS, 'PAPCO_PATH='+PAPCO_BASE+'/papco'
papco_setenv, /FS, 'PAPCO_MODULES='+PAPCO_BASE+'/papco_modules'
papco_setenv, /FS, 'PAPCO_DOWNLOAD='+PAPCO_DOWNLOAD
papco_setenv, /FS, 'TIME_CONV='+PAPCO_BASE+'/papco_lib/cdssw/time'
papco_setenv, /FS, 'POLAR_ORBITS=/n/leadbelly/belly15/data/polar/eph'
papco_setenv, /FS, 'CRRES_ORBITS=/n/leadbelly/belly15/data/crres/eph'
papco_setenv,      'USER_MOUSE_ACTIONS=View_Polar_Slice/View_Ephemeris'
papco_setenv,      'USER_SHOW_ACTIONS=hair_cursor/hair_cursor'

!quiet=long(getenv('PAPCO_QUIET'))