1#!/bin/sh 2@PERL@ -e ' 3while ( ($m = <>) && !( $m =~ m/START/) ){ 4 ; 5} 6print "<P>\n"; 7print "<TABLE ALIGN=ABSCENTER BORDER=1 CELLSPACING=0 CELLPADDING=0 >\n"; 8print "<TR><TD>Option</TD><TD>Meaning</TD></TR>\n"; 9while ( ($m = <>) && !( $m =~ m/END/) ){ 10 chomp($m); 11 if ( $m =~ /{/ ){ 12 $m =~ s/},$//; 13 $m =~ s/",//; 14 $m =~ s/{//; 15 $m =~ s/_K,.*,/_K /; 16 $m =~ s/"//; 17 $m =~ s/\s+/ /g; 18 $m =~ s/^\s+//; 19 $m =~ s/\s.*//; 20 print "<TR><TD><A HREF=\"LPRng-HOWTO-5.html#$m\"><CODE>$m</CODE></A></TD><TD>$title</TD></TR>\n"; 21 } else { 22 $m =~ s:^\s*/\*\s*::; 23 $m =~ s:\*/::; 24 $title = $m; 25 } 26} 27print "</TABLE>\n"; 28' $1 29