source: trunk/SRC/Utilities/demomode_compatibility.pro @ 371

Last change on this file since 371 was 371, checked in by pinsard, 16 years ago

improvements of headers (alignments of IDL prompt in examples)

  • Property svn:keywords set to Id
File size: 903 bytes
RevLine 
[93]1;+
[231]2;
[224]3; @categories
4; Utilities
5;
6; @uses
[371]7; <pro>cm_general</pro>
[224]8;
9; @version
10; $Id$
[325]11;
[93]12;-
[11]13PRO demomode_compatibility
[114]14;
15  compile_opt idl2, strictarrsubs
16;
[11]17@cm_general
18;
19; 1) remove all cm_demomode_used.pro found in !path
20  to_rm = find('cm_demomode_used')
21  IF to_rm[0] NE 'NOT FOUND' THEN file_delete, to_rm
22;
23; 2) copy oldcm_full(_empty) to myuniquetmpdir+'oldcm_used.pro'
24; select which file should be copied to oldcm_used.pro
[128]25  IF lmgr(/demo) EQ 1 THEN BEGIN
[11]26     democm = find('cm_demomode')
[128]27     file_copy, democm, myuniquetmpdir + 'cm_demomode_used.pro', /overwrite
28  ENDIF ELSE BEGIN
[11]29; create an empty file...
30; close the journal if already open
31    IF !journal NE 0 THEN journal
32; open a new one
33    journal, myuniquetmpdir + 'cm_demomode_used.pro'
34; close it (-> it will be empty)
[128]35    journal
36  ENDELSE
[274]37; update the path cache to include cm_demomode_used
38  path_cache, /rebuild
39 
[11]40  return
41END
Note: See TracBrowser for help on using the repository browser.