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