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
|
;
; AC 2017-Dec-24
;
; used in "test_save_restore.pro" and revised version of
; "test_n_tags.pro", "test_fix.pro", ...
;
; ----------------------------------------------------
; Modifications history :
;
; 2018-Feb-07 : AC.
; 1/ Since now, default is UpperCase.
; 2/ being able to select Integer types only
; 3/ if not 64b, no l64 & ul64 ...
;
; 2018-Mar-21 : AC.
; 1/ typo in name/names keyword
; 2/ /verb --> /test to stop at the end !
;
; 2018-Jun-11 : AC.
; 1/ adding "list_numeric_keyword" to be able to provide name of
; keywords for various pro. and functions (e.g. : MAKE_ARRAY())
;
; -----------------------------------------------
;
pro GIVE_LIST_NUMERIC, list_numeric_types, list_numeric_names, $
list_numeric_size, list_numeric_keywords, $
names=names, integer=integer, lowercase=lowercase, $
verbose=verbose, help=help, test=test
;
if KEYWORD_SET(help) then begin
print, 'pro GIVE_LIST_NUMERIC, list_numeric_types, list_numeric_names, $'
print, ' list_numeric_size, list_numeric_keywords, $'
print, ' names=namesinteger=integer, lowercase=lowercase, $'
print, ' verbose=verbose, help=help, test=test'
return
endif
;
; internal use ...
list_integer_types=[1,1,1,0,0,0,0,1,1,1,1]
;
; http://www.harrisgeospatial.com/docs/idl_data_types.html
list_names=['b','s','l','.','d','__','__','u/us','ul','ll','ull']
;
; http://www.harrisgeospatial.com/docs/size.html
;
list_numeric_types=[1,2,3,4,5,6,9,12,13,14,15]
list_numeric_size =[1,2,4,4,8,8,16,2,4,8,8]
list_numeric_names=['byte','int','long',$
'float','double','complex','dcomplex', $
'uint','ulong','long64','ulong64']
list_numeric_keywords=['byte','int','long',$
'float','double','complex','dcomplex', $
'uint','ulong','l64','ul64']
;
if KEYWORD_SET(integer) then begin
if KEYWORD_SET(verbose) then print, 'Only INTEGER types selected'
ok=WHERE(list_integer_types GT 0)
list_numeric_types=list_numeric_types[ok]
list_numeric_size=list_numeric_size[ok]
list_numeric_names=list_numeric_names[ok]
list_names=list_names[ok]
endif
;
; the good way to test if we are on a 64b system is
; a test on : !VERSION.MEMORY_BITS
;
if (!version.memory_bits NE 64) then begin
;; removing Long64 & ULong64
;; we don't use [0,-3] because of the old IDL/GDL
ok=WHERE(STRPOS(list_numeric_names,'64') LT 0)
list_numeric_types=list_numeric_types[ok]
list_numeric_size=list_numeric_size[ok]
list_numeric_names=list_numeric_names[ok]
endif
if (!version.memory_bits GT 64) then MESSAGE, 'Please report !!'
;
; default is UpperCase
list_numeric_names=STRUPCASE(list_numeric_names)
if KEYWORD_SET(lowercase) then begin
list_numeric_names=STRLOWCASE(list_numeric_names)
endif
;
if KEYWORD_SET(verbose) or KEYWORD_SET(name) then begin
print, format='(A11,A6, A6, A6)', 'Type :', 'val.', 'size', 'name'
for ii=0, N_ELEMENTS(list_numeric_names)-1 do begin
print, format='(A1,A8,A2,2i6,A6)',' ',list_numeric_names[ii], ':', $
list_numeric_types[ii], list_numeric_size[ii], list_names[ii]
endfor
endif
;
if KEYWORD_SET(test) then STOP
;
end
|
