Changeset 25

Timestamp:

06/26/10 16:41:41 (2 years ago)

Author:

tabel

Message:

Virtual machine works again. Help menu points to documentation. Other small changes.

Location:

trunk

Files:

• TOOLS/AMRslice.pro (modified) (1 diff)
• TOOLS/SAV (deleted)
• TOOLS/construct_interpolated_slice_data.pro (modified) (1 diff)
• TOOLS/jacques.pro (modified) (1 diff)
• TOOLS/pre_compile.com (modified) (2 diffs)
• TOOLS/projection_with_absorption/krumholz/read_moltab.pro (modified) (1 diff)
• TOOLS/tools.com (modified) (1 diff)
• first.com (modified) (1 diff)
• install (modified) (1 diff)
• jacques.sav (added)
• start-vm.sh (added)

trunk/TOOLS/AMRslice.pro

@@ -1027 +1027 @@
     'HELP': BEGIN
         If Verbose Then Print, 'Event for HELP'
-        print, 'Sorry no HELP available yet ...'
-        print, 'check out, the README, WHATS_NEW, and TODO files'
+;        online_help,
+;        BOOK='http://jacques.enzotools.org/doc/Jacques/Jacques.html'
+        spawn, ' open http://jacques.enzotools.org/doc/Jacques/Jacques.html'
+        print, 'go to: http://jacques.enzotools.org/doc/Jacques/Jacques.html'
+        print, 'for help and check out, the README, WHATS_NEW, and TODO files'
         print, 'in the distribution for more information.'
     END
     'About': BEGIN
         dum = STRARR(5)
-        dum(0) =  "Jaques is enzo's best friend"
+        dum(0) =  "Jacques is enzo's best friend"
         dum(1) =  "Author: Tom Abel        1998-"
-        dum(2) =  "Jaques is distributed in the hope it is helpful...."
+        dum(2) =  "Jacques is distributed in the hope it is helpful...."
         dum(3) =  "For scientific app's I ask for an Acknowledgement"
         dum(4) =  "send bug reports to tabel@stanford.edu"

trunk/TOOLS/construct_interpolated_slice_data.pro

@@ -276 +276 @@
      id = i_r[0]-i_l[0]+1
      jd = i_r[1]-i_l[1]+1
+     if id lt 0 or jd lt 0 then begin
+        print, 'construct_interpolated_slcie_data: does this data have at least 2 dimensions?'
+        return, slice_data
+     endif
+
      xy_st = array_indices([id,jd], LINDGEN(LONG(id)*jd), /DIMENSIONS)
 

trunk/TOOLS/jacques.pro

@@ -3 +3 @@
 ; simple calling routine to allow to be called with
 ; the IDL virtual machine with the command line:
-;   idl -vm=TOOLS/SAV/jacques.sav
-
+;   idl -vm=jacques.sav
+!path += EXPAND_PATH('.')
+on_error, 1
 @common_blocks.inc
 DEVICE, decomposed=0

trunk/TOOLS/pre_compile.com

@@ -1 +1 @@
 ;Load FIRST tools.
-!path=!path+':'+ GETENV('FIRST')+'/TOOLS/:' + './TOOLS/'
+;!path=!path+':'+ GETENV('FIRST')+'/TOOLS/:' + './TOOLS/'
+cd, '.', current=wd
+!path += ':'+wd+'/TOOLS/:'+wd+'/scripts/:'+wd+'/project_with_absorption/krumholz/:'+wd+'/project_with_absorption/'
 ;FORWARD_FUNCTION TRNLOG
 ITRESOLVE
@@ -9 +11 @@
 ; comment out the following line to produce smaller binary file
 RESOLVE_ALL, class=['oj', 'orb', 'IDLGRCOLORBAR'], skip_routines=['TRNLOG','DELLOG', 'SETLOG']
-SAVE, /ROUTINES,FILENAME='./TOOLS/SAV/jacques.sav'
+SAVE, /ROUTINES,FILENAME='./jacques.sav'
 EXIT

trunk/TOOLS/projection_with_absorption/krumholz/read_moltab.pro

@@ -3 +3 @@
 ; block to be used my MoleculeThinEmission later on
 common molecular_data, moldata
-file = 'TOOLS/projection_with_absorption/krumholz/moltab.txt'
+cd, '.', current=wd
+file = wd+'/TOOLS/projection_with_absorption/krumholz/moltab.txt'
 moldata = fltarr(4,501)
 openr, 1, file

trunk/TOOLS/tools.com

@@ -3 +3 @@
 
 .run ./TOOLS/tex2idl
+.run ./TOOLS/where_is_in
 .run ./TOOLS/print_for_xmgr
 .run ./TOOLS/kroupa_imf_shape

trunk/first.com

@@ -1 +1 @@
 @common_blocks.inc   ; make all common blocks accesible from command line 
 cd, '.', current=wd
-!path += ':'+wd+'/TOOLS/:'+wd+'/scripts/'
+!path += ':'+wd+'/TOOLS/:'+wd+'/scripts/'+expand_path('.')
 @tools.com
 jacques

trunk/install

@@ -1 +1 @@
 #!/bin/csh
 setenv FIRST .
-\rm ${FIRST}/TOOLS/SAV/jacques.sav
+\rm ${FIRST}/jacques.sav
 cp ${FIRST}/TOOLS/common_blocks.inc ${FIRST}/
 idl ${FIRST}/TOOLS/pre_compile.com