#!/usr/local/bin/perl

$options = 0;

@path = split ('/', $ARGV[0]);
$progname = $path[$#path];

open (FILE, "$ARGV[0] --help|") || die "$ARGV[0]: $!";

$PROGNAME = uc ($progname);

local ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime (time);
$mon++;

print <<EOF;
.TH $PROGNAME 1 $mon/$mday/$year
.SH NAME
$progname 
.SH SYNOPSIS
.B $progname [options]
.SH DESCRIPTION
.SH OPTIONS
EOF

while (<FILE>)
{
    chop;
    next if /^$/;

    if (/^-/)
    {
    	s/-/\\-/g;
    	print ".TP\n.I \"$_\"\n";
	$options++;
    }
    elsif ($options)
    {
    	s/^\t//g;
    	print "$_\n";
    }
}

close FILE;
