Context Navigation

buildinit.pro @ 73

Last change on this file since 73 was 72, checked in by pinsard, 18 years ago
add SRC and move \TestsData to DATA in order to be able to handle test data files and source files independently (\#2/2).
Property svn:executable set to ``*
File size: 18.2 KB

Line
1	;+
2	; NAME:
3	;
4	;
5	;
6	; PURPOSE:
7	;
8	;
9	;
10	; CATEGORY:
11	;
12	;
13	;
14	; CALLING SEQUENCE:
15	;
16	;
17	;
18	; INPUTS:
19	;
20	;
21	;
22	; OPTIONAL INPUTS:
23	;
24	;
25	;
26	; KEYWORD PARAMETERS:
27	;
28	;
29	;
30	; OUTPUTS:
31	;
32	;
33	;
34	; OPTIONAL OUTPUTS:
35	;
36	;
37	;
38	; COMMON BLOCKS:
39	;
40	;
41	;
42	; SIDE EFFECTS:
43	;
44	;
45	;
46	; RESTRICTIONS:
47	;
48	;
49	;
50	; PROCEDURE:
51	;
52	;
53	;
54	; EXAMPLE:
55	;
56	;
57	;
58	; MODIFICATION HISTORY:
59	;
60	;-
61	;
62	;----------------------------------------------------------
63	;----------------------------------------------------------
64	;
65	; slightly mofified version of cw_field...
66	FUNCTION CW_FIELD2, Parent, COLUMN=Column, ROW=Row, $
67	EVENT_FUNC = efun, $
68	FLOATING=Float, INTEGER=Int, LONG=Long, STRING=String, $
69	FONT=LabelFont, FRAME=Frame, TITLE=Title, UVALUE=UValue, VALUE=TextValueIn, $
70	RETURN_EVENTS=ReturnEvents, ALL_EVENTS=AllUpdates, $
71	FIELDFONT=FieldFont, NOEDIT=NoEdit, TEXT_FRAME=Text_Frame, $
72	XSIZE=XSize, YSIZE=YSize, UNAME=uname
73	; FLOOR=vmin, CEILING=vmax
74	resolve_routine, 'cw_field', /compile_full_file, /is_function
75	; Examine our keyword list and set default values
76	; for keywords that are not explicitly set.
77
78	Column = KEYWORD_SET(Column)
79	Row = 1 - Column
80	AllEvents = 1 - KEYWORD_SET(NoEdit)
81
82	; Enum Update { None, All, CRonly }
83	Update = 0
84	IF KEYWORD_SET(AllUpdates) THEN Update = 1
85	IF KEYWORD_SET(ReturnEvents) THEN Update = 2
86
87	IF N_ELEMENTS(efun) LE 0 THEN efun = ''
88	IF N_ELEMENTS(Title) EQ 0 THEN Title='Input Field:'
89	TextValue = (N_ELEMENTS(TextValueIn) gt 0) ? TextValueIn : ''
90	; Convert non-string values to strings.
91	if (SIZE(TextValue, /TNAME) ne 'STRING') then $
92	TextValue = STRTRIM(TextValue,2)
93	IF N_ELEMENTS(YSize) EQ 0 THEN YSize=1
94	IF N_ELEMENTS(uname) EQ 0 THEN uname='CW_FIELD_UNAME'
95
96	Type = 0 ; string is default
97	IF KEYWORD_SET(Float) THEN Type = 1
98	IF KEYWORD_SET(Int) THEN Type = 2
99	IF KEYWORD_SET(Long) THEN Type = 3
100
101	; Don't allow multiline non string widgets
102	if (Type ne 0) then $
103	YSize=1
104	YSize = YSize > 1
105
106	; Build Widget
107
108	Base = WIDGET_BASE(Parent, ROW=Row, COLUMN=Column, UVALUE=UValue, $
109	EVENT_FUNC='CW_FIELD_EVENT', $
110	PRO_SET_VALUE='CW_FIELD_SET', $
111	FUNC_GET_VALUE='CW_FIELD_GET', $
112	FRAME=Frame, UNAME=uname )
113	FOR i = 0, n_elements(title)-1 DO $
114	Label = WIDGET_LABEL(Base, VALUE = Title[i], FONT = LabelFont, $
115	UNAME = uname+'_LABEL', /align_left)
116	Text = WIDGET_TEXT(Base, VALUE = TextValue, $
117	XSIZE=XSize, YSIZE=YSize, FONT=FieldFont, $
118	ALL_EVENTS=AllEvents, $
119	EDITABLE=(AllEvents AND TYPE EQ 0), $
120	FRAME=Text_Frame , $
121	UNAME=uname+'_TEXT')
122
123	; NO_ECHO=(AllEvents AND (TYPE NE 0)))
124
125	; Save our internal state in the first child widget
126	State = { $
127	efun: efun, $
128	TextId:Text, $
129	Title:Title, $
130	Update:Update, $
131	Type:Type $
132	}
133	WIDGET_CONTROL, WIDGET_INFO(Base, /CHILD), SET_UVALUE=State, /NO_COPY
134	RETURN, Base
135	END
136	;
137	;----------------------------------------------------------
138	;----------------------------------------------------------
139	;
140	PRO printerdef_event, event
141	; get back the ids of the cw_field widgets
142	widget_control, event.id, get_uvalue = cwids
143	IF size(cwids, /n_dimensions) EQ 1 THEN cwids = reform(cwids, 3, 1)
144	help, cwids
145	dims = size(cwids, /dimensions)
146	help, dims
147	print, dims
148	results = strarr(dims)
149	FOR i = 0, dims[1]-1 DO BEGIN
150	widget_control, cwids[0, i], get_value = res & results[0, i] = res
151	widget_control, cwids[1, i], get_value = res & results[1, i] = res
152	widget_control, cwids[2, i], get_value = res & results[2, i] = res
153	ENDFOR
154	nothing = where(results EQ '', count)
155	IF count NE 0 THEN BEGIN
156	nothing = dialog_message('Some of the text box are still empty', dialog_parent = event.top, /information)
157	return
158	ENDIF
159	; now we give the result to buildinit.pro by using the pointer uvalue
160	widget_control, event.top, get_uvalue = ptresult
161	*ptresult = temporary(results)
162	; we destroy the widget
163	widget_control, event.top, /destroy
164	RETURN
165	END
166	;
167	;----------------------------------------------------------
168	;----------------------------------------------------------
169	;
170	PRO papsize_event, event
171	; get back the ids of the cw_field widgets
172	widget_control, event.id, get_uvalue = uvalue
173	IF uvalue[0] NE 'ok' THEN return
174	idist = widget_info(event.top, find_by_uname = 'list')
175	id = widget_info(idist, /list_select)
176	widget_control, idist, get_uvalue = selected
177	selected = selected[id]
178	selected = strsplit(selected, /extract)
179	; now we give the result to buildinit.pro by using the pointer uvalue
180	widget_control, event.top, get_uvalue = ptresult
181	*ptresult = [float(selected[3]), float(selected[4])]
182	; we destroy the widget
183	widget_control, event.top, /destroy
184	RETURN
185	END
186	;
187	;----------------------------------------------------------
188	;----------------------------------------------------------
189	;
190	PRO xask_event, event
191	; now we give the answer to buildinit.pro by using the pointer uvalue
192	widget_control, event.top, get_uvalue = ptranswer
193	*ptranswer = event.value
194	; we destroy the widget
195	widget_control, event.top, /destroy
196	RETURN
197	END
198	;
199	;----------------------------------------------------------
200	;----------------------------------------------------------
201	;
202	FUNCTION xask, _extra = ex
203	base = widget_base()
204	field = cw_field2(base, /frame, /return_events, /column, _extra = ex)
205	ptranswer = ptr_new(/allocate_heap)
206	; we realize the widget and wait for an answer
207	widget_control, base, /realize, set_uvalue = ptranswer
208	xmanager, 'xask', base
209	; we get the answer
210	answer = *ptranswer
211	; we freeing the pointer
212	ptr_free, ptranswer
213	RETURN, answer
214	END
215	;
216	;----------------------------------------------------------
217	;----------------------------------------------------------
218	;
219	FUNCTION getdir, title = title, nomark = nomark, nowrite = nowrite
220
221	REPEAT BEGIN
222	dir = dialog_pickfile(/directory, /must_exist, title = title)
223	; make sure dir is ok, check read/write access and directory separator mark
224	dir = file_search(dir, /test_directory, /test_read $
225	, test_write = 1 - keyword_set(nowrite) $
226	, mark_directory = 1 - keyword_set(nomark))
227	dir = dir[0]
228	ENDREP UNTIL dir NE ''
229
230	RETURN, dir
231	END
232	;
233	;----------------------------------------------------------
234	;----------------------------------------------------------
235	;
236	PRO buildinit
237	;
238	IF fix(strmid(!version.release, 0, 1)) LT 6 THEN BEGIN
239	print, ' * * *'
240	print, ' * ERROR *'
241	print, ' * * *'
242	print, 'This version of SAXO needs at least IDL version 6.0'
243	print, ' * * *'
244	print, ' * ERROR *'
245	print, ' * * *'
246	return
247	ENDIF
248	IF lmgr(/demo) EQ 1 THEN BEGIN
249	print, 'impossible to use buildinit in demo mode'
250	return
251	ENDIF
252	;
253	init = [';' $
254	, '; This is the initialisation file.' $
255	, '; it defines the !path and the defaut values of some of the common variables' $
256	, ';' $
257	, '; this is supposed to speed-up IDL...' $
258	, ';' $
259	, '; a = fltarr(1000,1000,100)' $
260	, '; a = 0' $
261	, ';' $
262	, '; path definition' $
263	, ';']
264	;
265	; define "myIDL" directory
266	myIDL = getdir(title = 'Select the home directory (my IDL)', /nomark)
267	; define "SAXO" directory
268	saxodir = getdir(title = 'Select SAXO directory', /nomark, /nowrite)
269	; define the !path
270	init = [init, '!path = expand_path(''+'' + '''+myIDL+''') $' $
271	, ' + '':'' + expand_path(''+'' + '''+saxodir+''') $' $
272	, ' + '':'' + expand_path(''+'' + !dir)']
273	;
274	; should we keep the compatibility with the old version?
275	;
276	yes = dialog_message(['shall we keep the compatibility' $
277	, 'with the old version ?'], /question, /default_no)
278	yes = strlowcase(yes)
279
280	init = [init $
281	, ';' $
282	, '; compatibility with the old version' $
283	, ';' $
284	, 'keep_compatibility, ' + strtrim(fix(yes EQ 'yes'), 2)]
285	;
286	; define all the commons
287	;
288	init = [init $
289	, ';' $
290	, '; define all the commons' $
291	, ';' $
292	, '@all_cm']
293	;
294	; define default directories
295	;
296	init = [init $
297	, ';' $
298	, '; define default directories' $
299	, ';' $
300	, 'homedir = isadirectory('''+myIDL+'/'', title = ''Select the default HOME directory'')']
301	iodir = getdir(title = 'Select the default IO directory')
302	init = [init $
303	, 'iodir = isadirectory('''+iodir+''', title = ''Select the default IO directory'')']
304	psdir = getdir(title = 'Select the default postscripts directory')
305	init = [init $
306	, 'psdir = isadirectory('''+psdir+''', title = ''Select the default postscripts directory'')']
307	imagedir = getdir(title = 'Select the default images directory')
308	init = [init $
309	, 'imagedir = isadirectory('''+imagedir+''', title = ''Select the default images directory'')']
310	animdir = getdir(title = 'Select the default animations directory')
311	init = [init $
312	, 'animdir = isadirectory('''+animdir+''', title = ''Select the default animations directory'')']
313	;
314	; number of printer
315	;
316	ptnumb = xask(title = 'Number of accessible printers', value = 0, /long)
317	;
318	; define all the printer parameters
319	;
320	init = [init $
321	, ';' $
322	, '; define printer parameters' $
323	, ';' ]
324	;
325	IF ptnumb NE 0 THEN BEGIN
326	base = widget_base(/column, /frame)
327	cwids = lonarr(3, ptnumb)
328	FOR i = 0, ptnumb-1 DO BEGIN
329	subbase = widget_base(base, /row)
330	cwids[0, i] = cw_field(subbase, /string $
331	, Title = 'printer_human_names['+strtrim(i, 2)+'] = ')
332	cwids[1, i] = cw_field(subbase, /string $
333	, Title = 'printer_machine_names['+strtrim(i, 2)+'] = ')
334	cwids[2, i] = cw_field(subbase, /string, value = '\lpr -P' $
335	, Title = 'printer_machine_names['+strtrim(i, 2)+'] = ')
336	ENDFOR
337	trash = widget_button(base, value = 'ok', uvalue = cwids)
338	ptresult = ptr_new(/allocate_heap)
339	; we realize the widget and wait for an answer
340	widget_control, base, /realize, set_uvalue = ptresult
341	xmanager, 'printerdef', base
342	;
343	init = [init $
344	, 'printer_human_names = strarr('+strtrim(ptnumb, 2)+')' $
345	, 'printer_machine_names = strarr('+strtrim(ptnumb, 2)+')' $
346	, 'print_command = strarr('+strtrim(ptnumb, 2)+')']
347	FOR i = 0, ptnumb-1 DO BEGIN
348	init = [init $
349	, 'printer_human_names['+strtrim(i, 2)+'] = ''' $
350	+ (*ptresult)[0, i]+'''' $
351	, 'printer_machine_names['+strtrim(i, 2)+'] = ''' $
352	+ (*ptresult)[1, i]+'''' $
353	, 'print_command['+strtrim(i, 2)+'] = ''' $
354	+ (*ptresult)[2, i]+'''']
355	ENDFOR
356	; we freeing the pointer
357	ptr_free, ptresult
358	ENDIF ELSE BEGIN
359	init = [init $
360	, 'printer_human_names = ''''' $
361	, 'printer_machine_names = ''''' $
362	, 'print_command = ''''']
363	ENDELSE
364	;
365	; Colors
366	;
367	init = [init $
368	, ';' $
369	, '; colors ...' $
370	, ';' $
371	, 'device, decomposed = 0' $
372	, 'device, retain = 2']
373	;
374	; default color tables
375	;
376	loadct, get_names = names
377
378	ntables = 40
379	title = [' -------------------------------------- ' $
380	, ' --- Choose the default color table --- ' $
381	, ' -------------------------------------- ', '']
382	; the following lines come from loadct procedure...
383	nlines = (ntables + 2) / 3 ;# of lines to print
384	nend = nlines - ((nlines*3) - ntables)
385	for i = 0, nend-1 do $ ;Print each line
386	title = [title $
387	, string(format = "(i2,'- ',a17, 3x, i2,'- ',a17, 3x, i2,'- ',a17)" $
388	, i, names[i], i+nlines, names[i+nlines] $
389	, i+2*nlines < (ntables-1) $
390	, names[i+2*nlines < (ntables-1)])]
391	if (nend lt nlines) then begin
392	for i = nend, nlines-1 do $
393	title = [title $
394	, string(format = "(i2,'- ',a17, 3x, i2,'- ',a17)", $
395	i, names[i], i+nlines, names[i+nlines])]
396	ENDIF
397	title = [title, '']
398	ctnumb = 0 > xask(title = title, value = 39, /long) < 39
399	;
400	init = [init $
401	, 'lct, '+strtrim(ctnumb, 2)]
402	;
403	; postscript position
404	;
405	yes = dialog_message(['the default postscript position', 'is landscape?'], /question)
406	init = [init $
407	, ';' $
408	, '; postscript parameters ...' $
409	, ';' $
410	, 'key_portrait = '+strtrim(fix(strlowcase(yes) NE 'yes'), 2)]
411	;
412	; paper size
413	;
414	list = ['a0 33.0556 46.7778 83.9611 118.816' $
415	, 'a1 23.3889 33.0556 59.4078 83.9611' $
416	, 'a2 16.5278 23.3889 41.9806 59.4078' $
417	, 'a3 11.6944 16.5278 29.7039 41.9806' $
418	, 'a4 8.26389 11.6944 20.9903 29.7039' $
419	, 'a5 5.84722 8.26389 14.8519 20.9903' $
420	, 'a6 4.125 5.84722 10.4775 14.8519' $
421	, 'a7 2.91667 4.125 7.40833 10.4775' $
422	, 'a8 2.05556 2.91667 5.22111 7.40833' $
423	, 'a9 1.45833 2.05556 3.70417 5.22111' $
424	, 'a10 1.02778 1.45833 2.61056 3.70417' $
425	, 'b0 39.3889 55.6667 100.048 141.393' $
426	, 'b1 27.8333 39.3889 70.6967 100.048' $
427	, 'b2 19.6944 27.8333 50.0239 70.6967' $
428	, 'b3 13.9167 19.6944 35.3483 50.0239' $
429	, 'b4 9.84722 13.9167 25.0119 35.3483' $
430	, 'b5 6.95833 9.84722 17.6742 25.0119' $
431	, 'archA 9 12 22.86 30.48' $
432	, 'archB 12 18 30.48 45.72' $
433	, 'archC 18 24 45.72 60.96' $
434	, 'archD 24 36 60.96 91.44' $
435	, 'archE 36 48 91.44 121.92' $
436	, 'flsa 8.5 13 21.59 33.02' $
437	, 'flse 8.5 13 21.59 33.02' $
438	, 'halfletter 5.5 8.5 13.97 21.59' $
439	, 'note 7.5 10 19.05 25.4' $
440	, 'letter 8.5 11 21.59 27.94' $
441	, 'legal 8.5 14 21.59 35.56' $
442	, '11x17 11 17 27.94 43.18' $
443	, 'ledger 17 11 43.18 27.94']
444	base = widget_base(/column)
445	trash = widget_label(base, value = '--- Select the paper size ---')
446	trash = widget_label(base, value = '')
447	trash = widget_label(base, value = 'PAPERSIZE X inches Y inches X cm Y cm', /align_left, uvalue = 'dummy')
448	listid = widget_list(base, value = list, uvalue = list, uname = 'list', ysize = n_elements(list) < 15)
449	widget_control, listid, set_list_select = 4
450	trash = widget_button(base, value = 'ok', uvalue = 'ok')
451	ptresult = ptr_new(/allocate_heap)
452	; we realize the widget and wait for an answer
453	widget_control, base, /realize, set_uvalue = ptresult
454	xmanager, 'papsize', base
455	;
456	papsize = *ptresult
457	; we freeing the pointer
458	ptr_free, ptresult
459	init = [init $
460	, 'page_size = [' + strtrim(papsize[0], 2) $
461	+ ', ' +strtrim(papsize[1], 2) + ']']
462	;
463	; window size
464	;
465	title = [' --- Size of the Window ---', '' $
466	, 'The size of window (in cm) is given by:' $
467	, 'windowsize_scale * page_size, with ' $
468	, 'page_size = [' + strtrim(papsize[0], 2)+ ', ' +strtrim(papsize[1], 2) + ']' $
469	, 'Please select a value for windowsize_scale ']
470	wsize_scale = xask(title = title, value = 1, /floating)
471	init = [init, 'windowsize_scale = ' + strtrim(wsize_scale, 2)]
472
473	;
474	; postscript archiving...
475	;
476	title = [' --- Select the default postscript archiving method ---', ''$
477	, '0 : never archive the postscript' $
478	, '1 : always archive the postscript when printed' $
479	, '2 : ask if the postscript must be archived each time its printed', '']
480	archive_ps = 0 > xask(title = title, value = 0, /long) < 2
481	init = [init $
482	, 'archive_ps = '+strtrim(archive_ps, 2) $
483	, ';' $
484	, ';========================================================' $
485	, '; end of the part that should be modified by the users...' $
486	, ';========================================================' $
487	, ';' $
488	, '; default definitions of many other common parameters...' $
489	, 'jpiglo = 1L' $
490	, 'jpjglo = 1L' $
491	, 'jpkglo = 1L' $
492	, 'jpidta = jpiglo' $
493	, 'jpjdta = jpjglo' $
494	, 'jpkdta = jpjglo' $
495	, 'jpi = 1L' $
496	, 'jpj = 1L' $
497	, 'jpk = 1L' $
498	, 'jpt = 1L' $
499	, 'time = 0L' $
500	, 'ixminmesh = -1L' $
501	, 'ixmaxmesh = -1L' $
502	, 'iyminmesh = -1L' $
503	, 'iymaxmesh = -1L' $
504	, 'izminmesh = -1L' $
505	, 'izmaxmesh = -1L' $
506	, 'ixmindta = 0L' $
507	, 'ixmaxdta = jpidta-1' $
508	, 'iymindta = 0L' $
509	, 'iymaxdta = jpjdta-1' $
510	, 'izmindta = 0L' $
511	, 'izmaxdta = jpkdta-1' $
512	, 'key_gridtype = ''C''' $
513	, 'key_partialstep = 0L' $
514	, 'key_onearth = 1L' $
515	, 'key_shift = 0L' $
516	, 'key_periodic = 0L' $
517	, 'key_yreverse = 0L' $
518	, 'key_zreverse = 0L' $
519	, 'key_stride = [1, 1, 1]' $
520	, 'lon1 = 0' $
521	, 'lon2 = 1' $
522	, 'lat1 = 0' $
523	, 'lat2 = 1' $
524	, 'vert1 = 0' $
525	, 'vert2 = 1' $
526	, 'valmask = 1.e20' $
527	, 'vargrid = ''T''' $
528	, 'varname = ''''' $
529	, 'varexp = ''''' $
530	, 'varunit = ''''' $
531	, 'vardate= ''0''' $
532	, '@updateold' $
533	, ';' ]
534
535	filename = xask(title = ['name of the init file', '(written in homedir: ' + myIDL + ')'], value = 'init.pro', /string)
536	journal, myIDL + '/' + filename
537	FOR i = 0, n_elements(init)-1 DO journal, init[i]
538	journal
539
540	RETURN
541	END

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format