awk ' /^/ { getting = "TALK" next } /^<\/TALK>/ { getting = "" next } /^/ { getting = "SLIDE" slideno = slideno + 1 slide[slideno] = "" print "Slide " slideno ": untitled" next } /^/ { getting = "" next } /^/ { if (getting == "TALK") { talk = talk $0 } else if (getting == "SLIDE") { slide[slideno] = slide[slideno] $0 "\n" } else { ; } } END { if (talk == "") { talk = "HTML Slideshow" } for (f in slide) { file = "slide" f ".html" print "" >file print talk ", slide " f " of " slideno >file print "

" >file print "" >file if (f > 1) { print "" >file } else { print "" >file } if (f+0 < slideno) { print "" >file } else { print "" >file } print "" >file print "slide " f " of " slideno >file print "

" >file print "" >file print slide[f] "" >file } file = "fixslides" for (f in slug) { print "s//" f "/g" >file print "s///g" >file } print "s/file print "s/<\\\/SLIDEREF>/<\\\/A>/g" >file } ' for f in slide*.html do sed -f fixslides <$f >t$$ mv t$$ $f done rm fixslides