;UNIX files on PC version

; This procedure can be run from the Test Log directory

Ist3SpinFile='C:\idl_programs\csee\ptest\ist3_spin_profile.out'
Ist3AltFile='C:\idl_programs\csee\ptest\ist3_alt_profile.out'

cd,'',current=cdir & cd,cdir	    ;establishes cdir as current directory
if n_params() eq 0 then log = cdir+'\'  ;test for # of input parameters

if n_params() eq 0 then log = cdir+'\'  ;test for # of input parameters
lastchar=strlen(Log)-1
if strmid(Log,lastchar) ne '\' then Log=Log+'\'

ans=''
Print,''
Print,'The current Log is: ',Log
read,'Do you want to use this Log? (y or n): ',ans

if ans ne 'y' then begin &$
 Print,'Pick which Log you want to evaluate' &$
 Log=dialog_pickfile(/directory,path='c:\') &$
endif

;make sure that this is a Test Log...
files=findfile(Log+'idx', count = nfiles1)
if nfiles1 eq 0 then begin &$
 print,string(10B),string(7B),"**This is not a Log directory (no idx file):",Log &$
  pwd & stop & endif
;files=findfile(Log+'idx2', count = nfiles2)
;if nfiles1+nfiles2 eq 0 then begin &$
 ;print,string(10B),string(7B),"**This is not a Log directory (no idx or idx2 file):",Log &$
  ;pwd & stop & endif

Output=t_mkdir(Log+'post')
Output=t_mkdir(Log+'post\anal_results')
Output=t_mkdir(Log+'post\timelist')
Output=t_mkdir(Log+'PS')



;;spawn,'whoami',who
;;if who(0) ne 'gse' then begin & print,'Sorry, you must be gse to run ptest' &$
 ;;stop & endif

;;if strpos(!path,'/users/csee/idl_programs') eq -1 then $
 ;;@path.csee


.run c:\idl_programs\cseeux\ptest\idx_check.pro
.run c:\idl_programs\cseeux\ptest\telem_packet_checker.pro
.run c:\idl_programs\cseeux\ptest\sort_by_mission_time.pro
.run c:\idl_programs\cseeux\ptest\plot_rate.pro
.run c:\idl_programs\cseeux\ptest\check_times.pro
;.run c:\idl_programs\cseeux\ptest\ds_summary.pro
.run c:\idl_programs\cseeux\ptest\ds_summary_v4.pro
.run c:\idl_programs\cseeux\ptest\count_DB_files.pro
.run c:\idl_programs\cseeux\ptest\resource.pro
.run c:\idl_programs\cseeux\ptest\ccdstat.pro
.run c:\idl_programs\cseeux\hkeeping\lamplist.pro
.run c:\idl_programs\cseeux\hkeeping\lamplist3.pro
.run c:\idl_programs\cseeux\hkeeping\lampdetail.pro
.run c:\idl_programs\cseeux\hkeeping\rd_lst.pro
.run c:\idl_programs\cseeux\hkeeping\plot_temps.pro
.run c:\idl_programs\cseeux\hkeeping\tolist.pro
.run c:\idl_programs\cseeux\ptest\cycles.pro
.run c:\idl_programs\cseeux\util\print.pro
.run c:\idl_programs\cseeux\util\getalt.pro
.run c:\idl_programs\cseeux\ptest\plot_spin.pro
.run c:\idl_programs\cseeux\ptest\oplotist3alt.pro
.run c:\idl_programs\cseeux\ptest\plot_alt.pro
.run c:\idl_programs\cseeux\ptest\oplotist3spin.pro
.run c:\idl_programs\cseeux\data\sun_sensor.pro
.run c:\idl_programs\cseeux\ptest\plot_drift.pro
.run c:\idl_programs\cseeux\ptest\thumbnails.pro
.run c:\idl_programs\cseeux\hkeeping\plot_tolist.pro
.run c:\idl_programs\cseeux\ptest\cycle_type_vs_alt_plot.pro
.run c:\idl_programs\cseeux\ptest\sun_sensor_history.pro
.run c:\idl_programs\cseeux\ptest\sun_lamp_history.pro
.run C:\idl_programs\cseeux\ptest\sort_by_type_v2.pro
.run C:\idl_programs\cseeux\ptest\SingleImages3.pro
.run C:\idl_programs\cseeux\ptest\TripletFiles.pro

cd,'',current=cdir & cd,cdir	    ;establishes cdir as current directory
close,/all

cd,Log
print,'_______________________________________'
print,'01*Do you want to print Thumbnails for:'
Print,Log
ans=''
read,'(y or n): ',ans
wait,0.3
if ans eq 'bye' then stop
 if ans eq 'y' then thumbnails,Log
retall

cd,Log
print,'__________________________________________'
print,'02*Do you want to create tripletfiles for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then tripletfiles,Log
retall & wait,0.3

cd,Log
print,'__________________________________________'
print,'02*Do you want to create Single Images for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then SingleImages3,Log
retall & wait,0.3

cd,Log
print,'______________________________________________'
print,'03*Do you want to Plot the Sun Sensor data for:'
Print,Log
ans=''
read,'(y or n): ',ans
wait,0.1
if ans eq 'bye' then stop
 if ans eq 'y' then begin &$
   sun_sensor,Log &$
   cd,Log &$
 endif
retall & wait,0.3
wdelete,0

cd,Log
print,'___________________________________________________'
print,'04*Do you want to run the Temperature Plotter for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then begin &$
  files=findfile('post/timelist/*.lst', count = nfiles) &$
  if nfiles eq 0 then begin &$
   print,'' &$
   print,'***Do you want me to create the time-ordered lists for you:' &$
   ans='' &$
   read,'(y or n): ',ans &$
    if ans eq 'y' then tolist &$
   endif &$
  plot_temps,Log &$
  read,'***Do you want to plot the temperatures again (y or n): ',ans &$
  if ans eq 'y' then plot_temps,Log &$
  read,'***One More Time... (y or n)?: ',ans &$
  if ans eq 'y' then plot_temps,Log else print,'...OK, fine...' &$
 endif
retall & wait,0.3
wdelete,0

print,'_________________________________________________'
print,'05*Do you wish to run the idx Packet Checker for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then idx_check,Log
retall & wait,0.3

cd,Log
print,'___________________________________________________'
print,'06*Do you wish to run Telemetry Packet Checker for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then telem_packet_checker,log
 ;spawn,'notepad telem_packet_ck.out' & endif
retall & wait,0.3

cd,Log
print,'_________________________________________________'
print,'07*Do you wish to run Telemetry Rate Plotter for:'
Print,Log
ans=''
read,'(y or n): ',ans
wait,0.1
if ans eq 'bye' then stop
if ans eq 'y' then plot_rate,Log
retall & wait,0.3
wdelete,0
wdelete,1

cd,Log
print,'_______________________________________________________________'
print,'08*Do you wish to run the Cycle Information list generator for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then cycles,Log
retall & wait,0.3

cd,Log
print,'_________________________________________________'
print,'09*Do you want to run cycle_type_vs_alt_plot for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then cycle_type_vs_alt_plot,Log
retall & wait,0.3
cd,Log

wdelete,0
wdelete,1

cd,Log
print,'___________________________________________________________'
print,'10*Do you want to plot the (Sci Sum) spin rate profile for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then begin & plot_spin,Log &$
print,'___________________________________________________' &$
ans='' &$
read,'***Do you want to compare with IST3 data (y or n)?: ',ans     &$
if ans eq 'y' then OplotIst3Spin,Ist3SpinFile &$
retall & wait,0.3 & endif

cd,Log
print,'__________________________________________________________'
print,'11*Do you want to plot the (Sci Sum) altitude profile for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then begin & plot_alt &$
print,'___________________________________________________' &$
ans='' &$
read,'***Do you want to compare with IST3 data (y or n)?: ',ans    &$
if ans eq 'y' then OplotIst3Alt,Ist3AltFile &$
retall & wait,0.3 & endif

print,'__________________________________________________________'
ans=''
read,'***Do you want print-outs of spin & altitude data (y or n)?: ',ans
if ans eq 'y' then begin & pland & plot_alt,Log &$
 OplotIst3Alt,Ist3AltFile & plot_spin,Log &$
 OplotIst3Spin,Ist3SpinFile & pend & $
 spawn,'copy c:\idl.ps '+Log+'PS\Alt-Spin.ps' & endif
wdelete,0

cd,Log
print,'___________________________________________________'
print,'12*Do you wish to run Data Set Summary Creator for:'
print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then ds_summary,Log
cd,Log
retall & wait,0.3

cd,Log
print,'_________________________________________________'
print,'13*Do you wish to run Time Data Base Checker for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then begin & check_times,Log &$
 spawn,'more -e time_checker.out' & endif
retall & wait,0.3

cd,Log
print,'__________________________________________________'
print,'14*Do you wish to run Data Base Files Counter for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then count_DB_files,Log
retall & wait,0.3

cd,Log
print,'_____________________________________________________'
print,'15*Do you wish to run the Resource Usage Checker for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then resource,Log
retall & wait,0.3

cd,Log
print,'_______________________________________________'
print,'16*Do you wish to run the CCD flag Checker for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then begin & ccdstat &$
 spawn,'notepad post\anal_results\ccdstat' &$
endif
retall & wait,0.3

cd,Log
print,'_________________________________________'
print,'17*Do you want the Lamp descent info for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then lamplist3,Log
retall & wait,0.3

;;cd,Log
;;print,'__________________________________________________________'
;;print,'18*Do you wish to run the Lamp ON-time list generator for:'
;;Print,Log
;;ans=''
;;read,'(y or n): ',ans
;;if ans eq 'bye' then stop
;;if ans eq 'y' then lamplist,Log
;;retall & wait,0.3

cd,Log
print,'___________________________________________'
print,'19*Do you want to see the Lamp details for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
if ans eq 'y' then lampdetail,Log
retall & wait,0.3

cd,Log
print,'___________________________________________'
print,'20*Do you want to Plot the Clock Drift for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then plot_drift,Log
retall & wait,0.3
wdelete,0

cd,Log
print,'_________________________________________________'
print,'21*Do you want to Plot the DDB & DISR clocks for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then plot_time,Log
retall & wait,0.3
wdelete,0


cd,Log
print,'______________________________________________________'
print,'22*Do you want to plot the Time-Ordered List data for:'
Print,Log
ans=''
read,'(y or n): ',ans
if ans eq 'bye' then stop
 if ans eq 'y' then plot_tolist,Log
retall & wait,0.3
cd,Log
wdelete,0

;;cd,Log
;;print,'_____________________________________________________________'
;;print,'23*Do you want to run the protoflight sun_sensor_history now?  '
;;ans=''
;;read,'(y or n): ',ans
;;if ans eq 'bye' then stop
;;if ans eq 'y' then read,'Are you Sure? (y or n): ',ans
 ;;if ans eq 'y' then sun_sensor_history,"/mdisr2_cal"
;;retall & wait,0.3
;;cd,Log

;;cd,Log
;;print,'_________________________________________________'
;;print,'24*Do you want to run the flight sun_sensor_history now?  '
;;ans=''
;;read,'(y or n): ',ans
;;if ans eq 'bye' then stop
 ;;if ans eq 'y' then sun_sensor_history,"/mdf3"
;;retall & wait,0.3
;;cd,Log

;;cd,Log
;;print,'_____________________________________________________________'
;;print,'25*Do you want to run the protoflight sun_lamp_history now?  '
;;ans=''
;;read,'(y or n): ',ans
;;if ans eq 'bye' then stop
;;if ans eq 'y' then read,'Are you Sure? (y or n): ',ans
 ;;if ans eq 'y' then sun_lamp_history,"/mdisr2_cal"
;;retall & wait,0.3
;;cd,Log

;;cd,Log
;;print,'_________________________________________________'
;;print,'26*Do you want to run the flight sun_lamp_history now?  '
;;ans=''
;;read,'(y or n): ',ans
;;if ans eq 'bye' then stop
 ;;if ans eq 'y' then sun_lamp_history,"/mdf3"
;;retall & wait,0.3
;;cd,Log


;;cd,Log
;;print,'_________________________________________________'
;;print,'27*Do you want to run the Descent Errors program now?  '
;;ans=''
;;read,'(y or n): ',ans
;;if ans eq 'bye' then stop
 ;;if ans eq 'y' then descent_errors
;;print,'** The result is in the Log file as descent_errors.out **'


!p.ticklen=.02		;returns to no grid
!x.gridstyle=0		;solid gridlines
!y.gridstyle=0		;solid gridlines
!p.multi=[0,1,1]
!X.range=[0,0]
!Y.range=[0,0]
retall
!y.title = ''
!x.title = ''
!p.title = ''
!p.color=255		;tv data 8 bits (0 to 255)
!p.background=0		;background is black
close,/all
set_plot,'WIN'
cd,cdir
print,''
pwd
print,''
print,"TTha TTha TTha That's all folks!"