OV-GSO-DC / dustem-wrapper_idl

Blame view

src/idl_misc/jpblib_init.pro 3.88 KB
Edit Raw Normal View History
427f1205   Jean-Michel Glorian   version 4.2 merged 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
 
PRO jpblib_init,set_path=set_path

; JPBlib startup file used to get all JPBlib routines in whatever
; environment
; Version 1.0	J.P.Bernard	?
; Version 1.1	P.Marty		22-JUN-00
;
;===============================
; Defines Environment Variables (If not already defined) :
;=========================
sysv='!sep'
defsysv, sysv, exist=exist
IF not exist THEN BEGIN
  CASE !version.os_family OF
    'unix':  defsysv, sysv, '/', 1
    'MacOS': defsysv, sysv, ':', 1
    'Win32': defsysv, sysv, '\', 1
    'OSF':   defsysv, sysv, '/', 1
    ELSE:    message,'Operating system '+!version.os_family+' not supported.',/info
    ENDCASE
ENDIF
;=========================
sysv='!path_sep'
defsysv, sysv, exist=exist
IF not exist THEN BEGIN
  CASE !version.os_family OF
    'unix':  defsysv, sysv, ':', 1
    'MacOS': defsysv, sysv, ',', 1
    'Win32': defsysv, sysv, ';', 1
    'OSF':   defsysv, sysv, ':', 1
    ELSE:    message,'Operating system '+!version.os_family+' not supported.',/info
    ENDCASE
ENDIF
                           ;=========================
sysv='!jpblib_dir'
defsysv, sysv, exist=exist
IF not exist THEN BEGIN
  CASE !version.os_family OF
    'MacOS':  defsysv, sysv, 'JPB:IDL_Libraries:JPBlib_V1.3:', 1
    'Win32': defsysv, sysv, '???', 1
    ELSE:    defsysv, sysv, GETENV("JPBLIB_DIR"),1
    ENDCASE
ENDIF
                           ;=========================
sysv='!dwingeloo_data_dir'
defsysv, sysv, exist=exist
IF not exist THEN BEGIN
  CASE !version.os_family OF
    'MacOS':  defsysv, sysv, 'Data:Astro:HI:', 1
    'Win32': defsysv, sysv, '???', 1
    ELSE:    defsysv, sysv, GETENV("DWINGELOO_DIR"),1
    ENDCASE
ENDIF
                           ;=========================
sysv='!dwingeloo_param_dir'
defsysv, sysv, exist=exist
IF not exist THEN BEGIN
  CASE !version.os_family OF
    'MacOS':  defsysv, sysv, 'Data:Astro:HI:', 1
    'Win32': defsysv, sysv, '???', 1
    ELSE:    defsysv, sysv, GETENV("DWINGELOO_DIR"),1
    ENDCASE
ENDIF
                           ;=========================
sysv='!cosurvey_data_dir'
defsysv, sysv, exist=exist
IF not exist THEN BEGIN
  CASE !version.os_family OF
    'MacOS':  defsysv, sysv, 'Data:Astro:CO:', 1
    'Win32': defsysv, sysv, '???', 1
    ELSE:    defsysv, sysv, GETENV("COSURVEY_DIR"),1
    ENDCASE
ENDIF
                           ;=========================
sysv='!iras_data_dir'
defsysv, sysv, exist=exist
IF not exist THEN BEGIN
  CASE !version.os_family OF
    'MacOS':  defsysv, sysv, 'Data:Astro:IRAS:', 1
    'Win32': defsysv, sysv, '???', 1
    ELSE:    defsysv, sysv, GETENV("IRAS_DATA_DIR"),1
    ENDCASE
ENDIF
                           ;=========================
sysv='!iris_data_dir'
defsysv, sysv, exist=exist
IF not exist THEN BEGIN
  CASE !version.os_family OF
    'MacOS':  defsysv, sysv, 'Data:Astro:IRIS:', 1
    'Win32': defsysv, sysv, '???', 1
    ELSE:    defsysv, sysv, GETENV("IRIS_DATA_DIR"),1
    ENDCASE
ENDIF

;********************* You should not need to modify below this line ***********************
defsysv, '!jpblib_version', '1.3', 1
;===============================
; Expands IDL procedures Path :
IF keyword_set(set_path) THEN !path = !path + !path_sep + expand_path('+' + !jpblib_dir)
defsysv, '!loaded_lib', exist=exist
IF exist THEN BEGIN
  defsysv, "!loaded_lib", !loaded_lib + strlowcase('JPBlib V' + !jpblib_version) + ","
ENDIF ELSE BEGIN
  defsysv, "!loaded_lib",''
ENDELSE
                         ;===============================
; Routine Initialization :
defsysv, '!jpblib_example_dir', !jpblib_dir+'Examples'+!sep,        1
defsysv, '!jpblib_issa_dir',    !jpblib_dir+'ISSA'+!sep,            1
defsysv, '!jpblib_help_dir',    !jpblib_dir+'Help'+!sep+'Html'+!sep, 1
!path = !path + !path_sep + filepath('', /tmp)
;stop
PRINT,"Trash area added to path"
defsysv, '!indef', exist=exist
IF NOT exist THEN defsysv, '!indef', -32768., 1
;===============================
PRINT, 'JPBlib V' + !jpblib_version + ' Software now available for ' + !version.os

END