#!/bin/rc awk ' /^[ \t]*$/ { next } /^[^ \t].*/ { pics[npic++] = $1 } /^[ \t].*/ { if(npic > 0) desc[npic-1] = desc[npic-1] $0 } END { for(i=0; i < npic; i++) { out = i ".html" print "Slideshow" > out print "" > out print "

Up to the Main CSH-EAST Page" > out print "

Up to Tad''s homepage" > out print "


" > out print "" > out print "
" > out if(desc[i] != "") { print "

" > out print desc[i] > out print "


" > out } l = "" for(j=0; j < npic; j++) { if(j == i) { l = l ", " j continue } l = l ", " j "" } if(i == 0) { if(npic > 1) print "Next" l > out continue } else if(i == npic-1) { if(npic > 1) print "Prev," l > out continue } print "Prev," > out print "Next" l > out } } '