pro makedocinfotxt

; Paul Withers, 2008.01.18
; Center for Space Physics, Boston University

; Make DOCINFO.TXT

common bigpdsblock

;maxstrlen = bigpdsstruct.maxstrlen
;blankline = bigpdsstruct.blankline
outfile = bigpdsstruct.outfiledocinfotxt
;pdsversionid = bigpdsstruct.pdsversionid

iloop=0
whichfile = bigpdsstruct.whichdocfile(iloop)
usefulname = strmid(whichfile,0,strlen(whichfile)-1)

preamble = strarr(9)

preamble(0) = 'PDS_VERSION_ID              = PDS3'
preamble(1) = 'RECORD_TYPE                 = STREAM'
preamble(2) = 'OBJECT                      = TEXT'
preamble(3) = '  PUBLICATION_DATE          = ' + $
 bigpdsstruct.pubdateyyyymmdd
preamble(4) = '  INTERCHANGE_FORMAT        = ASCII'
preamble(5) = '  NOTE                      = "Description of the DOCUMENT directory"'
preamble(6) = 'END_OBJECT                  = TEXT'
preamble(7) = 'END'
preamble(8) = ' '

mainmeat = strarr(93+91)
i=0
mainmeat(i) = '                     DOCUMENT Directory Contents' & i=i+1
mainmeat(i) = ' ' & i=i+1


mainmeat(i) = 'The DOCUMENT directory contains documentation files for the' & i=i+1
mainmeat(i) = bigpdsstruct.volumenamemixedcase + '.' & i=i+1
mainmeat(i) = 'All files are associated with one master document and all' & i=i+1
;mainmeat(i) = "filenames begin with 'REPORT'. This document was prepared" & i=i+1
mainmeat(i) = "filenames begin with '" + usefulname + "'. This document was prepared" & i=i+1
mainmeat(i) = 'as the main record of this project and serves as a primary source' & i=i+1
mainmeat(i) = 'for other documents, such as DATASET.CAT and any published papers.' & i=i+1
mainmeat(i) = ' ' & i=i+1
mainmeat(i) = 'All files ending in ".TXT" are plain ASCII text files, which are viewable' & i=i+1 
mainmeat(i) = 'on any host.' & i=i+1
mainmeat(i) = 'All files ending in ".TEX" are plain ASCII text files, which are viewable' & i=i+1
mainmeat(i) = 'on any host.' & i=i+1
mainmeat(i) = 'All files ending in ".DVI" are binary device-independent files, which are' & i=i+1 
mainmeat(i) = 'viewable on most hosts that are equipped to use LaTeX, a common' & i=i+1 
mainmeat(i) = 'word-processing system.' & i=i+1
mainmeat(i) = 'All files ending in ".PS" are ASCII Postscript files, which are viewable' & i=i+1
mainmeat(i) = 'by many types of image processing software and printable by many printers.' & i=i+1
mainmeat(i) = 'All files ending in ".PDF" are binary Adobe Portable Document Format (PDF)' & i=i+1
mainmeat(i) = 'files, which are viewable with Adobe Acrobat Reader, available from' & i=i+1 
mainmeat(i) = 'http://www.adobe.com, and similar software.' & i=i+1
mainmeat(i) = 'All files ending in ".EPS" are ASCII Encapsulated Postscript files, which' & i=i+1
mainmeat(i) = 'are viewable by many types of image processing software and printable' & i=i+1 
mainmeat(i) = 'by many printers.' & i=i+1
mainmeat(i) = 'All files ending in ".JPG" are binary JPEG files, which are viewable by' & i=i+1
mainmeat(i) = 'many types of image processing software.' & i=i+1
mainmeat(i) = ' ' & i=i+1
mainmeat(i) = 'The following files are found in the DOCUMENT directory:' & i=i+1
mainmeat(i) = ' ' & i=i+1
mainmeat(i) = 'DOCINFO.TXT     - The file you are now reading' & i=i+1
mainmeat(i) = ' ' & i=i+1
mainmeat(i) = usefulname + '.LBL      - PDS label for files ' + usefulname + '.***' & i=i+1
mainmeat(i) = usefulname + '.TXT      - ASCII version of master document' & i=i+1
mainmeat(i) = usefulname + '.TEX      - LaTeX version of master document' & i=i+1
mainmeat(i) = usefulname + '.DVI      - Device-independent (DVI) version of master document' & i=i+1
mainmeat(i) = usefulname + '.PS       - Postscript version of master document' & i=i+1
mainmeat(i) = usefulname + '.PDF      - Adobe PDF version of master document' & i=i+1
;mainmeat(i) = 'REPORT.TXT      - ASCII version of master document' & i=i+1
;mainmeat(i) = 'REPORT.TEX      - LaTeX version of master document' & i=i+1
;mainmeat(i) = 'REPORT.DVI      - Device-independent (DVI) version of master document' & i=i+1
;mainmeat(i) = 'REPORT.PS       - Postscript version of master document' & i=i+1
;mainmeat(i) = 'REPORT.PDF      - Adobe PDF version of master document' & i=i+1
mainmeat(i) = ' ' & i=i+1

ftypearr = ['EPS', 'JPG']
k=0
while k lt 2 do begin

nfigs = 72
figstrarr = strcompress(string(indgen(nfigs)+1), /remove_all)
j=0
while j lt nfigs do begin
while strlen(figstrarr(j)) lt 2 do figstrarr(j) = '0'+figstrarr(j)
mainmeat(i) = usefulname + 'FIG' + figstrarr(j) + '.' + ftypearr(k) + ' - ' + $
 ftypearr(k) + ' version of Figure ' + $
 figstrarr(j) + ' of master document' 
i=i+1
j=j+1
endwhile

mainmeat(i) = ' ' & i=i+1
k=k+1
endwhile


i=0
while i lt n_elements(preamble) do begin
if strlen(preamble(i)) ge bigpdsstruct.maxstrlen then stop
preamble(i) = preamble(i) + bigpdsstruct.blankline
junk = strmid(preamble(i),0,bigpdsstruct.maxstrlen)
preamble(i) = junk
i=i+1
endwhile

i=0
while i lt n_elements(mainmeat) do begin
if strlen(mainmeat(i)) ge bigpdsstruct.maxstrlen then stop
mainmeat(i) = mainmeat(i) + bigpdsstruct.blankline
junk = strmid(mainmeat(i),0,bigpdsstruct.maxstrlen)
mainmeat(i) = junk
i=i+1
endwhile

junk=''
openw, lun1, outfile, /get_lun

i=0
while i lt n_elements(preamble) do begin
printf, lun1, preamble(i)
i=i+1
endwhile

i=0
while i lt n_elements(mainmeat) do begin
printf, lun1, mainmeat(i)
i=i+1
endwhile

free_lun, lun1

end