[Pkg-emboss-commits] r58 - emboss/trunk/debian

[charles-guest at alioth.debian.org]

Author: charles-guest
Date: 2007-07-05 15:35:03 +0000 (Thu, 05 Jul 2007)
New Revision: 58

Modified:
   emboss/trunk/debian/acd2docbook.pl
Log:
Now gets the name and type of the options.

Modified: emboss/trunk/debian/acd2docbook.pl
===================================================================
--- emboss/trunk/debian/acd2docbook.pl	2007-07-05 14:32:42 UTC (rev 57)
+++ emboss/trunk/debian/acd2docbook.pl	2007-07-05 15:35:03 UTC (rev 58)
@@ -19,8 +19,11 @@
 
 
 foreach my $parameter( $acd->param) {
-		print %$parameter, "\n";
-		}
+	foreach my $key (keys( %$parameter)) {
+		print STDERR $key, " -- ", $$parameter{$key},"\n";
+	}
+	print STDERR "_______\n";
+}
 
 print <<"__XML__";
 <?xml version='1.0' encoding='ISO-8859-1'?>
@@ -132,39 +135,41 @@
 		<title>DESCRIPTION</title>
 		<para><command>&dhpackage;</command> frobnicates the <application>bar</application> library by tweaking internal symbol tables. By default it parses all baz segments and rearranges them in reverse order by time for the <citerefentry><refentrytitle>xyzzy</refentrytitle><manvolnum>1</manvolnum></citerefentry> linker to find them. The symdef entry is then compressed using the <abbrev>WBG</abbrev> (Whiz-Bang-Gizmo) algorithm. All files are processed in the order specified.</para>
 	</refsect1>
+
 	<refsect1 id="options">
-		<title>OPTIONS</title>
-		<variablelist>
 			<!-- Use the variablelist.term.separator and the
 			     variablelist.term.break.after parameters to
 			     control the term elements. -->
-			<varlistentry>
-				<term><option>-b</option></term>
-				<term><option>--busy</option></term>
-				<listitem>
-					<para>Do not write <quote>busy</quote> to <filename class="devicefile">stdout</filename> while processing.</para>
-				</listitem>
-			</varlistentry>
-			<varlistentry>
-				<term><option>-c <replaceable class="parameter">config-file</replaceable></option></term>
-				<term><option>--config=<replaceable class="parameter">config-file</replaceable></option></term>
-				<listitem>
-					<para>Use the alternate system wide <replaceable>config-file</replaceable> instead of the <filename>/etc/foo.conf</filename>. This overrides any <envar>FOOCONF</envar> environment variable.</para>
-				</listitem>
-			</varlistentry>
-			<varlistentry>
-				<term><option>-a</option></term>
-				<listitem>
-					<para>In addition to the baz segments, also parse the <citerefentry><refentrytitle>blurfl</refentrytitle><manvolnum>3</manvolnum></citerefentry> headers.</para>
-				</listitem>
-			</varlistentry>
-			<varlistentry>
-				<term><option>-r</option></term>
-				<listitem>
-					<para>Recursive mode. Operates as fast as lightning at the expense of a megabyte of virtual memory.</para>
-				</listitem>
-			</varlistentry>
-		</variablelist>
+		<title>OPTIONS</title>
+__XML__
+
+foreach my $parameter( $acd->param) {
+
+	# Does a section begin ?
+	if ($$parameter{datatype} eq "section") {
+		print qq(\t\t<refsect2 id="$$parameter{name}">\n\t\t\t<title>$$parameter{information}</title>\n\t\t\t<variablelist>\n);
+		next;
+	}
+
+	# Does a section end ?
+	if ($$parameter{datatype} eq "endsection") {
+		print "\t\t\t</variablelist>\n\t\t</refsect2>\n";
+		next;
+	}
+
+	print<<"__XML__";
+				<varlistentry>
+					<term><option>-$$parameter{name}</option></term>
+					<listitem>
+						<para>$$parameter{datatype}</para>
+					</listitem>
+				</varlistentry>
+__XML__
+}
+
+
+
+print<<"__XML__";
 	</refsect1>
 	<refsect1 id="files">
 		<title>FILES</title>