***** * filelist.sno * * David J. Birnbaum 19970627 * * converts bnnnn_files.sgml to html ***** &trim = 1 &anchor = 1 loop1 current = input :f(bad1) current ? "" :s(loop1) current ? "" :s(loop1) current ? "" :s(head) current ? "" break("<") . title :s(loop1) current ? "<resp>" break("<") . resp :s(loop1) current ? "<date>" break("<") . date :s(loop1) current ? "<note>" :s(loop1) current ? span(" ") "<li>" :f(notp) notes = notes current :(loop1) notp current ? "</note>" :s(loop1)f(bad1) head output = "<HTML><HEAD><TITLE>" title "" output = "" output = "

Tape: " title "

" output = "

Pushkin Tape Reclamation Report

" output = "

David J. Birnbaum

" output = "

Last modified: " date " by " resp ".

" output = "

Notes:

    " output = notes "
" output = "" output = "" + "" loop current = input :f(done) current ? "" :s(done) current ? "" :s(loop) current ? "" break("<") . size "" + break("<") . filename "" :s(loop) current ? '' break("<") . size "" + "" break("<") . filename "" :s(loop) current ? break("<") "" break("<") . contents + "" :s(loop) current ? break("<") "" + break("<") . date "" :s(loop) current ? break("<") "" + break("<") . resp "" :s(loop) current ? "" :s(write)f(bad2) write salvage = differ(salvage,"dump") "" salvage "" output = "" salvage = '' date = '' resp = '' contents = '' :(loop) bad1 output = "Bad header input: " current :(end) bad2 output = "Bad content input: " current :(end) done output = "
FileSizeExamination DateExamined byContentsDisposition
" filename "" size + "" date "" resp "" + contents "" salvage "
" :(end) end