#!/usr/bin/perl -w

# Copyright (C) 2000-2001 Simon Huggins
# reformats longer lengths after the substitutions have taken place

# This program is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the Free
# Software Foundation; either version 2 of the License, or (at your option)
# any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
# for more details.
#
# You should have received a copy of the GNU General Public License along
# with this program; if not, write to the Free Software Foundation, Inc., 59
# Temple Place, Suite 330, Boston, MA 02111-1307  USA

return;

use strict;
use Text::Wrap;

$Text::Wrap::columns=defined $cfg{'maxlinelen'} ? $cfg{'maxlinelen'} : 72;
$cfg{'first'}  ||= "";
$cfg{'leader'} ||= "";

my $anal_merge_debug=0;

sub remove_space($) {
        my $text=shift;

# Remove whitespace at the end of lines but not newlines themselves.
# And don't remove the space if it comes directly after a -- which is
# anchored at the beginning of a line.

	$text =~ s/(?<!^--)[ 	]*$//mg;

# Remove any newlines from the very end of the string.
	$text =~ s/\n*$//;
        return $text;
}

sub reformat($) {
	my $sig = shift;
# LRC
#$chunk=&chunksizealign($chunk,$len,$align);
	while ($sig =~ /\@(CENTER|RIGHT|LEFT)(\d+)?\@/) {
	}

	return $sig;
}

my ($tag,$sig,$newsig);
open(SIG, "<$cfg{'tmpsigfile'}")
	or htagdie "$0: Could not open $cfg{'tmpsigfile'}: $!\n";
while(<SIG>) {
	$sig .= $_;
}
close(SIG);
if (defined $sig) {
	$sig =  reformat($sig);
	if (defined $sig) {
		open(SIG, ">$cfg{'tmpsigfile'}")
			or htagdie
			"$0: Could not open $cfg{'tmpsigfile'}: $!\n";
		print SIG $sig;
		close(SIG);
		return;
	} else {
		return(10);
	}
}
