[SCM] GNU shishi branch, master, updated. shishi-1-0-2-30-ga279cac

[Mats Erik Andersson]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU shishi".

http://git.savannah.gnu.org/cgit/shishi.git/commit/?id=a279cacba6ce4e9ffa1860aa880b871f0550ab65

The branch, master has been updated
       via  a279cacba6ce4e9ffa1860aa880b871f0550ab65 (commit)
       via  aa4de7f20f49fe8a1b9f6ac29fb1c1f204d2f1a5 (commit)
       via  fac555ee25f9c38ce0fa29d660c8215bab624245 (commit)
       via  b94b619f771d0fbdffaa73ac71497a208eed812d (commit)
      from  cad1c16b23b8532e58213f1de60f3174653fdfa1 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit a279cacba6ce4e9ffa1860aa880b871f0550ab65
Author: Mats Erik Andersson <address@hidden>
Date:   Mon Jun 23 22:52:20 2014 +0200

    gdoc: Positioning of brackets for arrays.
    
    Print the brackets, a characteristic of an array
    parameter, after the name, not before.

commit aa4de7f20f49fe8a1b9f6ac29fb1c1f204d2f1a5
Author: Mats Erik Andersson <address@hidden>
Date:   Mon Jun 23 15:38:40 2014 +0200

    gdoc: Improved mode selector.

commit fac555ee25f9c38ce0fa29d660c8215bab624245
Author: Mats Erik Andersson <address@hidden>
Date:   Mon Jun 23 00:16:56 2014 +0200

    gdoc: Mend variadic parameters and arrays.
    
    The parser broke down on variadic parameters.
    Handle arrays of finite length identical to
    those of indefinite length.  In texinfo mode,
    quote parameters using '@var', and always print
    the section title.  In text mode, pass all para-
    meter descriptions through the highlighter.
    Strip '$' from the name of environmental variables.

commit b94b619f771d0fbdffaa73ac71497a208eed812d
Author: Mats Erik Andersson <address@hidden>
Date:   Thu Jun 19 23:15:42 2014 +0200

    gdoc: Validating Docbook mode.
    
    Make an empty parameter set equal to `void'.
    No interpolation after text parsing.
    Beware of slashes in replacement pattern.
    Refine Docbook formatter to give valid output.

-----------------------------------------------------------------------

Summary of changes:
 doc/gdoc |  312 +++++++++++++++++++++++++++++++++++++++++++++----------------
 1 files changed, 230 insertions(+), 82 deletions(-)

diff --git a/doc/gdoc b/doc/gdoc
index e764c5c..db948c9 100755
--- a/doc/gdoc
+++ b/doc/gdoc
@@ -140,17 +140,17 @@ use Pod::Usage;
 use POSIX qw(strftime);
 
 # match expressions used to find embedded type information
-$type_constant = '%(\w+)';
-$type_func =    '(\w+\(\))';
-$type_param =   '@(\w+)';
-$type_struct =  '#(\w+)';
-$type_env =     '(\$\w+)';
+$type_constant = '%(\w+)';
+$type_func     = '(\w+\(\))';
+$type_param    = '@(\w+|\.\.\.)';
+$type_struct   = '#(\w+)';
+$type_env      = '\$(\w+)';
 
 
 # Output conversion substitutions.
 #  One for each output format
 
-my @known_modes = qw/ docbook html man sgml tex texinfo text /;
+my @known_modes = qw/ docbook html listfunc man sgml tex texinfo text /;
 
 # these work fairly well
 %highlights_html = ( $type_constant => "<i>\$1</i>",
@@ -159,10 +159,10 @@ my @known_modes = qw/ docbook html man sgml tex texinfo 
text /;
                     $type_param =>     "<tt><b>\$1</b></tt>" );
 $blankline_html = "<p>";
 
-%highlights_texinfo = ( $type_constant => "address@hidden",
-                       $type_func =>     "address@hidden",
-                       $type_struct =>   "address@hidden",
-                       $type_param =>    "address@hidden" );
+%highlights_texinfo = ( $type_constant => '@code{$1}',
+                       $type_func      => '@code{$1}',
+                       $type_struct    => '@code{$1}',
+                       $type_param     => '@var{$1}' );
 $blankline_texinfo = "";
 
 %highlights_tex = ( $type_constant =>  "{\\\\it \$1}",
@@ -213,6 +213,8 @@ $modulename = "API Documentation";
 $sourceversion = strftime "%Y-%m-%d", localtime;
 $function_only = 0;
 
+my $opt_dtd = 0;
+
 my $lineprefix = "";
 
 my $scanned_file;      # Presently active source file.
@@ -223,7 +225,7 @@ my $scanned_file;   # Presently active source file.
 sub set_output_mode {
     my ($name, $mode) = @_;
 
-    $mode = $name      unless grep m/^$mode$/, @known_modes;
+    $mode = $name      if grep m/^$name$/, @known_modes;
 
     $mode = "sgml"     if $mode eq "docbook";
 
@@ -245,13 +247,14 @@ my %opts = ( # Output modes
        # Parameter settings
        "bugsto=s"      => \$bugsto,
        "copyright=s"   => \$copyright,
+       "dtd+"          => \$opt_dtd,
        "function=s"    => sub { $function = $_[1];
                                 $function_only = 1;
                                 $function_table{$function} = 1;
                               },
        "include=s"     => \$include,
        "includefuncprefix+" => \$includefuncprefix,
-       "module=s"      => \$modulename, # No effect in SGML mode.
+       "module=s"      => \$modulename,
        "pkg-name=s"    => \$pkgname,
        "seeinfo=s"     => \$seeinfo,
        "sourceversion=s" => \$sourceversion,
@@ -294,8 +297,9 @@ sub dump_section {
 #  function => "function name"
 #  parameterlist => @list of parameters
 #  parameters => %parameter descriptions
+#  arraylength => %brackets of parameter
 #  sectionlist => @list of sections
-#  sections => %descriont descriptions
+#  sections => %section descriptions
 #  
 
 sub repstr {
@@ -317,9 +321,9 @@ sub repstr {
     # Try two different quoting forms to circumvent collisions.
     # The standard delimiter '/' corrupts end marks in HTML and XML.
     if ($output =~ m/]/) {
-       eval "\$return = qq#$output#";          # Is '|' any safer?
+       eval "\$return = q#$output#";           # Is '|' any safer?
     } else {
-       eval "\$return = qq[$output]";
+       eval "\$return = q[$output]";           # Prefer brackets.
     }
 
     if ($verbose > 1) {
@@ -382,7 +386,13 @@ sub output_texinfo {
     print "(";
     $count = 0;
     foreach $parameter (@{$args{'parameterlist'}}) {
-       print $args{'parametertypes'}{$parameter}." 
address@hidden".$parameter."}";
+       # Variadic arguments carry no type.
+       print $args{'parametertypes'}{$parameter}, " "
+           if $args{'parametertypes'}{$parameter};
+
+       print '@var{', $parameter, '}',
+             $args{'arraylength'}{$parameter};
+
        if ($count != $#{$args{'parameterlist'}}) {
            $count++;
            print ", ";
@@ -391,13 +401,14 @@ sub output_texinfo {
     print ")\n";
     foreach $parameter (@{$args{'parameterlist'}}) {
        if ($args{'parameters'}{$parameter}) {
-           print "address@hidden".$parameter."}: ";
+           print '@var{', $parameter, '}: ';
+
            output_highlight($args{'parameters'}{$parameter});
            print "\n";
        }
     }
     foreach $section (@{$args{'sectionlist'}}) {
-       print "address@hidden:} " if $section ne $section_default;
+       print "address@hidden:} ";
        $args{'sections'}{$section} =~ s:([{}]):address@hidden:gs;
        output_highlight($args{'sections'}{$section});
     }
@@ -416,7 +427,17 @@ sub output_html {
     print "(";
     $count = 0;
     foreach $parameter (@{$args{'parameterlist'}}) {
-       print "<i>".$args{'parametertypes'}{$parameter}."</i> 
<b>".$parameter."</b>\n";
+       # Variadic arguments carry no type.
+       print '<i>', $args{'parametertypes'}{$parameter}, '</i> '
+           if $args{'parametertypes'}{$parameter};
+
+       print '<b>', $parameter, '</b>';
+
+       print '<i>', $args{'arraylength'}{$parameter}, '</i>'
+             if $args{'arraylength'}{$parameter};
+
+       print "\n";
+
        if ($count != $#{$args{'parameterlist'}}) {
            $count++;
            print ", ";
@@ -426,11 +447,27 @@ sub output_html {
 
     print "<h3>Arguments</h3>\n";
     print "<dl>\n";
-    foreach $parameter (@{$args{'parameterlist'}}) {
-       print "<dt><i>".$args{'parametertypes'}{$parameter}."</i> 
<b>".$parameter."</b>\n";
-       print "<dd>";
-       output_highlight($args{'parameters'}{$parameter});
+
+    if ($#{$args{'parameterlist'}} >= 0) {
+       foreach $parameter (@{$args{'parameterlist'}}) {
+           print '<dt>';
+           # Variadic arguments carry no type.
+           print "<i>" . $args{'parametertypes'}{$parameter} . "</i> "
+               if $args{'parametertypes'}{$parameter};
+
+           print '<b>', $parameter, '</b>';
+
+           print '<i>', $args{'arraylength'}{$parameter}, '</i>'
+               if $args{'arraylength'}{$parameter};
+
+           print "\n<dd>";
+
+           output_highlight($args{'parameters'}{$parameter});
+       }
+    } else {
+       print "<dt>None\n";
     }
+
     print "</dl>\n";
     foreach $section (@{$args{'sectionlist'}}) {
        print "<h3>$section</h3>\n";
@@ -469,12 +506,21 @@ sub output_tex {
     print "(";
     $count = 0;
     foreach $parameter (@{$args{'parameterlist'}}) {
-        $param = $args{'parametertypes'}{$parameter};
-        $param2 = $parameter;
+       my $param = $args{'parametertypes'}{$parameter};
+       my $param2 = $parameter;
+       my $param3 = $args{'arraylength'}{$parameter};
+
        $param =~ s/_/\\_/g;
-        $param2 =~ s/_/\\_/g;
+       $param2 =~ s/_/\\_/g;
+#      $param3 =~ s,([][]),\\$1,g;
+
+       # Variadic arguments carry no type.
+       print '{\it ', $param, '} '     if $param;
+
+       print '{\bf ', $param2, '}';
+
+       print '{\it ', $param3, '}'     if $param3;
 
-       print "{\\it ".$param."} {\\bf ".$param2."}";
        if ($count != $#{$args{'parameterlist'}}) {
            $count++;
            print ", ";
@@ -487,13 +533,22 @@ sub output_tex {
     print "\\begin{itemize}\n";
     $check=0;
     foreach $parameter (@{$args{'parameterlist'}}) {
-        $param1 = $args{'parametertypes'}{$parameter};
-        $param1 =~ s/_/\\_/g;
-        $param2 = $parameter;
+       my $param1 = $args{'parametertypes'}{$parameter};
+       my $param2 = $parameter;
+       my $param4 = $args{'arraylength'}{$parameter};
+
+       $param1 =~ s/_/\\_/g;
        $param2 =~ s/_/\\_/g;
+#      $param4 =~ s,([][]),\\$1,g;
 
        $check = 1;
-       print "\\item {\\it ".$param1."} {\\bf ".$param2."}: \n";
+
+       # Variadic arguments carry no type: insert a place holder.
+       print '\item ',
+             $param1 ? '{\it ' . $param1 . '}' : '{\vphantom{l}}',
+             ' {\bf ', $param2, '}',
+             $param4 ? '{\it ' . $param4 . '}' : '',
+             ": \n";
 #      print "\n";
 
        $param3 = $args{'parameters'}{$parameter};
@@ -538,29 +593,47 @@ sub output_sgml {
     my ($parameter, $section);
     my $count;
     my $id;
+    my $base_element = "refentry";
 
     $id = $args{'module'}."-".$args{'function'};
     $id =~ s/[^A-Za-z0-9]/-/g;
 
+    if ($opt_dtd) {
+       print '<!DOCTYPE ', $base_element, ' ',
+             'PUBLIC "-//OASIS/DTD DocBook XML V4.4//EN"',
+             "\n\t  ",
+             '"http://www.oasis-open.org/docbook/xml/4.4/docbookx.dtd";>',
+             "\n";
+       $opt_dtd = 0;   # Insert the DTD only once!
+    }
+
     print "<!--\n\t Generated by gdoc from $scanned_file.\n-->\n";
 
     print "<refentry>\n";
-    print "<refmeta>\n";
-    print "<refentrytitle><phrase 
id=\"$id\">".$args{'function'}."</phrase></refentrytitle>\n";
-    print "</refmeta>\n";
-    print "<refnamediv>\n";
-    print " <refname>".$args{'function'}."</refname>\n";
-    print " <refpurpose>\n";
-    print "  ".$args{'purpose'}."\n";
-    print " </refpurpose>\n";
-    print "</refnamediv>\n";
-
-    print "<refsynopsisdiv>\n";
-    print " <title>Synopsis</title>\n";
-    print "  <funcsynopsis>\n";
-    print "   <funcdef>".$args{'functiontype'}." ";
-    print "<function>".$args{'function'}." ";
-    print "</function></funcdef>\n";
+
+    print "<refmeta>\n",
+         " <refentrytitle>\n",
+         "  <phrase id=\"$id\">", $args{'function'}, "</phrase>\n",
+         " </refentrytitle>\n",
+         " <manvolnum>3</manvolnum>\n",
+         " <refmiscinfo class=\"source\">", $args{'module'}, 
"</refmiscinfo>\n",
+         " <refmiscinfo class=\"version\">", $args{'sourceversion'}, 
"</refmiscinfo>\n",
+         "</refmeta>\n";
+
+    print "<refnamediv>\n",
+         " <refname>", $args{'function'}, "</refname>\n",
+         " <refpurpose>",
+         $args{'purpose'} ? $args{'purpose'} : 'API Function',
+         "</refpurpose>\n",
+         "</refnamediv>\n";
+
+    print "<refsynopsisdiv>\n",
+         " <title>Synopsis</title>\n";
+
+    print " <funcsynopsis>\n",
+         "  <funcprototype>\n",
+         "   <funcdef>" . $args{'functiontype'} . " ",
+         "<function>" . $args{'function'}, "</function></funcdef>\n";
 
 #    print "<refsect1>\n";
 #    print " <title>Synopsis</title>\n";
@@ -572,14 +645,25 @@ sub output_sgml {
     $count = 0;
     if ($#{$args{'parameterlist'}} >= 0) {
        foreach $parameter (@{$args{'parameterlist'}}) {
-           print "   <paramdef>".$args{'parametertypes'}{$parameter};
-           print " <parameter>$parameter</parameter></paramdef>\n";
+           print '   <paramdef>';
+
+           # A variadic parameter has no type.
+           print $args{'parametertypes'}{$parameter}, ' '
+               if  $args{'parametertypes'}{$parameter};
+
+           print "<parameter>$parameter</parameter>",
+                 $args{'arraylength'}{$parameter},
+                 "</paramdef>\n";
        }
     } else {
-       print "  <void>\n";
+       print "   <void />\n";
     }
-    print "  </funcsynopsis>\n";
+
+    print "  </funcprototype>\n",
+         " </funcsynopsis>\n";
+
     print "</refsynopsisdiv>\n";
+
 #    print "</refsect1>\n";
 
     # print parameters
@@ -650,7 +734,10 @@ sub output_man {
     print ".BI \"".$args{'functiontype'}." ".$args{'function'}."(";
     $count = 0;
     foreach $parameter (@{$args{'parameterlist'}}) {
-       print $args{'parametertypes'}{$parameter}." \" ".$parameter." \"";
+       print $args{'parametertypes'}{$parameter},
+             ' " ', $parameter, ' "',
+             $args{'arraylength'}{$parameter};
+
        if ($count != $#{$args{'parameterlist'}}) {
            $count++;
            print ", ";
@@ -660,7 +747,12 @@ sub output_man {
 
     print ".SH ARGUMENTS\n";
     foreach $parameter (@{$args{'parameterlist'}}) {
-       print ".IP \"".$args{'parametertypes'}{$parameter}." ".$parameter."\" 
12\n";
+       print '.IP "';
+       # Variadic arguments carry no type.
+       print $args{'parametertypes'}{$parameter}, ' '
+           if $args{'parametertypes'}{$parameter};
+       print $parameter, $args{'arraylength'}{$parameter}, "\" 12\n";
+
        $param = $args{'parameters'}{$parameter};
        $param =~ s/-/\\-/g;
        output_highlight($param);
@@ -723,14 +815,19 @@ sub output_text {
     print "Function = ".$args{'function'}."\n";
     print "  return type: ".$args{'functiontype'}."\n\n";
     foreach $parameter (@{$args{'parameterlist'}}) {
-       print " ".$args{'parametertypes'}{$parameter}." ".$parameter."\n";
-       print "    -> ".$args{'parameters'}{$parameter}."\n";
+       # Variadic arguments carry no type.
+       print ' ', $args{'parametertypes'}{$parameter}
+           if $args{'parametertypes'}{$parameter};
+       print ' ', $parameter, $args{'arraylength'}{$parameter}, "\n";
+       print '    -> ';
+       output_highlight($args{'parameters'}{$parameter});
     }
     foreach $section (@{$args{'sectionlist'}}) {
        print " $section:\n";
        print "    -> ";
        output_highlight($args{'sections'}{$section});
     }
+    print "\n";
 }
 
 ##
@@ -744,10 +841,12 @@ sub output_function {
 
 ##
 # takes a function prototype and spits out all the details
-# stored in the global arrays/hsahes.
+# stored in global arrays/hashes.
 sub dump_function {
     my $prototype = shift @_;
 
+    my %arraylength;
+
     if ($prototype =~ m/^()([a-zA-Z0-9_~:]+)\s*\(([^\)]*)\)/ ||
        $prototype =~ m/^(\w+)\s+([a-zA-Z0-9_~:]+)\s*\(([^\)]*)\)/ ||
        $prototype =~ m/^(\w+\s*\*)\s*([a-zA-Z0-9_~:]+)\s*\(([^\)]*)\)/ ||
@@ -764,6 +863,10 @@ sub dump_function {
            $arg =~ s/^\s*//;
            $arg =~ s/\s*$//;
 #          print STDERR "SCAN ARG: '$arg'\n";
+
+           # Ignore any isolated 'void'.
+           next        if ($arg eq 'void');
+
            @args = split('\s', $arg);
 
 #          print STDERR " -> @args\n";
@@ -773,14 +876,14 @@ sub dump_function {
                $param = $2;
                push @args, $1;
            }
-           if ($param =~ m/^(.*)(\[\])$/) {
+           if ($param =~ m/^(.*)(\[\d*\])$/) {
                $param = $1;
-               push @args, $2;
+               $arraylength{$param} = $2       if $2;
            }
 #          print STDERR " :> @args\n";
            $type = join " ", @args;
 
-           if ($parameters{$param} eq "" && $param != "void") {
+           if ($param ne "void" and not $parameters{$param}) {
                $parameters{$param} = "-- undescribed --";
                print STDERR "warning: $lineno: Function parameter '$param' not 
described in '$function_name'\n";
            }
@@ -807,6 +910,7 @@ sub dump_function {
                         'verbatimcopying' => $verbatimcopying,
                         'seeinfo' => $seeinfo,
                         'functiontype' => $return_type,
+                        'arraylength' => \%arraylength,
                         'parameterlist' => address@hidden,
                         'parameters' => \%parameters,
                         'parametertypes' => \%parametertypes,
@@ -825,24 +929,48 @@ sub dump_function {
 # 2 - scanning field start.
 # 3 - scanning prototype.
 
+GetOptions(%opts)
+    or pod2usage( -exitval => 1, -verbose => 0, -output => \*STDERR);
+
+if ($output_mode eq '?' or $output_mode eq 'help') {
+    print "Available modes: @known_modes\n";
+    exit 0;
+}
+
+if (not grep m/^$output_mode$/, @known_modes) {
+    print STDERR 'Not a supported mode: ', "$output_mode\n",
+                'Use one of: ', "@known_modes\n";
+    exit 1;
+}
+
 # read arguments
 if ($#ARGV==-1) {
-    pod2usage( -exitval => 1, -verbose => 0, -output => \*STDERR);
+    pod2usage( -message => 'No file argument was specified.' . "\n",
+              -exitval => 1, -verbose => 0, -output => \*STDERR);
 }
 
-GetOptions(%opts)
-    or pod2usage( -exitval => 1, -verbose => 0, -output => \*STDERR);
-
 $state = 0;
 $section = "";
 
-$doc_special = "address@hidden";
-
 $doc_start = "^/\\*\\*\$";
 $doc_end = "\\*/";
 $doc_com = "\\s*\\*\\s*";
 $doc_func = $doc_com."(\\w+):?";
-$doc_sect = $doc_com."([".$doc_special."[:upper:]][\\w ]+):\\s*(.*)";
+
+# $doc_special = '@%$#';
+
+# $doc_sect = $doc_com."([".$doc_special."[:upper:]][\\w ]+):\\s*(.*)";
+
+# Sections commence with either of
+#
+#   \u\w\w+:
+#   @\w+:
+#   @\.\.\.:
+#
+# The latter is a variadic placeholder used in a parameter section.
+
+$doc_sect = $doc_com . '(address@hidden:upper:]][\w ]+|@\.\.\.):\s*(.*)';
+
 $doc_content = $doc_com."(.*)";
 
 %constants = ();
@@ -966,17 +1094,19 @@ gdoc - Generate documentation from source code.
 
 =head1 SYNOPSIS
 
- gdoc [ -docbook | -html | -listfunc | -sgml | -tex |
-        -texinfo | -text | -mode=MODE ]
-      [ -v ] [ -function funcname [ -function funcname ...] ]
+ gdoc { -docbook | -html | -listfunc | -sgml | -tex |
+        -texinfo | -text | -mode MODE }
+      [ -v | -verbose ] [ -dtd ]
+      [ -function NAME [ -function NAME ...] ]
+      [ -module NAME ] [ -sourceversion VERSION ]
       file ...  >  outputfile
 
- gdoc [ -v ] [ -man ]
-      [ -include file | -includefuncprefix ]
-      [ -seeinfo infonode ] [ -sourceversion verno ]
-      [ -copyright notice ] [ -verbatimcopying ]
-      [ -bugsto address ] [ -pkg-name packagename ]
-      [ -function funcname [ -function funcname ...] ]
+ gdoc [ -v | -verbose ] [ -man ] [ -module NAME ]
+      [ -include FILE | -includefuncprefix ]
+      [ -seeinfo NODE ] [ -sourceversion VERSION ]
+      [ -copyright TEXT ] [ -verbatimcopying ]
+      [ -bugsto ADDRESS ] [ -pkg-name NAME ]
+      [ -function NAME [ -function NAME ...] ]
       file ...  >  outputfile
 
  gdoc [ -h | --usage ] [ -? | --help ]
@@ -1001,8 +1131,19 @@ to F<stderr>.
 
 =head1 OPTIONS
 
+An option name can be shortened at the end as long as it
+remains unique, or if it is explicitly mentioned below.
+A switch can be written with a single dash, or with double dashes,
+both forms are valid.
+Option taking arguments, can separate the switch from the argument
+either with an equal sign, or just white space.
+
 =over 8
 
+=item B<-dtd>
+
+Include a I<DTD> in Docbook mode.
+
 =item B<-function> I<NAME>
 
 If set, then generate documentation only for the given function.
@@ -1011,6 +1152,17 @@ Other functions are ignored.
 Multiple use is allowed, thus making extraction of function
 subsets feasible, at least by scripting.
 
+=item B<-module> I<NAME>
+
+Provide a name for this software module.
+The default is I<API Documentation>.
+
+=item B<-sourceversion> I<STRING>
+
+Version number of source code, e.g. '1.0.4'.
+This is put in the man page header, defaulting
+to the current date when not made explicit.
+
 =item B<-v>, B<-verbose>
 
 Print some internal messages for tracking.
@@ -1046,6 +1198,8 @@ This is the default format when no selection is indicated 
at all.
 =item B<-mode> I<MODE>
 
 Select any mode among the explicit alternatives described here.
+When I<MODE> is either of '?' or "help", the supported modes
+are printed in a simple listing.
 
 =item B<-tex>
 
@@ -1077,7 +1231,7 @@ Add a copyright section with the stated text inserted
 after a standard preamble.
 A typical notice could be '2003 Barac Uda'.
 
-=item B<-include> F<FILE>
+=item B<-include> I<FILE>
 
 Mention C<#include E<lt>FILE.hE<gt>> within the synopsis.
 
@@ -1099,12 +1253,6 @@ As an example, "GNU Shishi".
 Include, in the man page, a section that points to
 a Tex info manual at I<INFO-NODE> for further information.
 
-=item B<-sourceversion> I<STRING>
-
-Version number of source code, e.g. '1.0.4'.
-This is put in the man page header, defaulting
-to the current date when not made explicit.
-
 =item B<-verbatimcopying>
 
 Used in addition to B<-copyright>, a licensing statement is added,


hooks/post-receive
-- 
GNU shishi