13e12c5d1SDavid du Colombier#!/bin/rc 23e12c5d1SDavid du Colombierowd=`{pwd} 33e12c5d1SDavid du Colombiercd $1 43e12c5d1SDavid du Colombierfor (i in *){ 53e12c5d1SDavid du Colombier sed -n ' 63e12c5d1SDavid du Colombier /^.TH *[^ ]* */{ 73e12c5d1SDavid du Colombier s/// 83e12c5d1SDavid du Colombier s/ .*// 93e12c5d1SDavid du Colombier h 103e12c5d1SDavid du Colombier } 113e12c5d1SDavid du Colombier /SH.*NAM/{ 123e12c5d1SDavid du Colombier N 133e12c5d1SDavid du Colombier s/.*\n// 143e12c5d1SDavid du Colombier :x 153e12c5d1SDavid du Colombier N 163e12c5d1SDavid du Colombier /\n.SH.*/{ 173e12c5d1SDavid du Colombier s/// 183e12c5d1SDavid du Colombier s/^/'$i' / 19*219b2ee8SDavid du Colombier s/\n/ /g 203e12c5d1SDavid du Colombier s/ */ /g 213e12c5d1SDavid du Colombier G 223e12c5d1SDavid du Colombier s/([^ ]*)(.*)\n(.*)/\1(\3)\2/ 233e12c5d1SDavid du Colombier s/[A-Z]\)/)/ 243e12c5d1SDavid du Colombier p 253e12c5d1SDavid du Colombier d 263e12c5d1SDavid du Colombier } 27*219b2ee8SDavid du Colombier s/\n\.[^ ]* */ / 283e12c5d1SDavid du Colombier bx 293e12c5d1SDavid du Colombier } 303e12c5d1SDavid du Colombier' $i 313e12c5d1SDavid du Colombier} 323e12c5d1SDavid du Colombiercd $owd 333e12c5d1SDavid du Colombierexit 343e12c5d1SDavid du Colombier# add to shell script to get file references 353e12c5d1SDavid du Colombier# in this case, pipe output thru uniq 363e12c5d1SDavid du Colombier /^\.RF *[^ ]*/s//.F/ 373e12c5d1SDavid du Colombier /^\.FR(.* ).*/s//.F \1/ 383e12c5d1SDavid du Colombier /^\.F */{ 393e12c5d1SDavid du Colombier s//$i / 403e12c5d1SDavid du Colombier s/\.[^ .]*// 413e12c5d1SDavid du Colombier G 423e12c5d1SDavid du Colombier s/([^ ]*)(.*)\n(.*)/\1(\3)\2/ 433e12c5d1SDavid du Colombier s/[A-Z+]\)/)/ 443e12c5d1SDavid du Colombier p 453e12c5d1SDavid du Colombier } 46