#!/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
}
}
'