mirror of https://github.com/tLDP/LDP
46 lines
848 B
Perl
Executable File
46 lines
848 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# $Id$
|
|
#
|
|
# SGML LyX table tag fix tool
|
|
#
|
|
# (P) & (C) 2002 by Peter Bieringer <pb@bieringer.de>
|
|
#
|
|
# Published under the GNU GPL licence
|
|
#
|
|
# Takes SGML output exported by LyX and fix a bug in the table tag.
|
|
# Don't know the reason what causes this, but it is wrong.
|
|
# -> This bug is fixed in LyX 1.1.6fix4
|
|
#
|
|
# Example:
|
|
# - <colspec colname="col0" align="center"/>
|
|
# + <colspec colname="col0" align="center">
|
|
#
|
|
# Changes:
|
|
# 20020119/PB: Initial release
|
|
# 20020125/PB: Minor review
|
|
# 20020130/PB: add comment
|
|
#
|
|
|
|
print STDERR "INF : Fix 'colspec' lines\n";
|
|
|
|
while (<STDIN>) {
|
|
my $line = $_;
|
|
chomp $line;
|
|
|
|
#print "$line";
|
|
#print "\n";
|
|
|
|
if ($line =~ /^<colspec/) {
|
|
if ($line =~ /\/>$/) {
|
|
print STDERR "C";
|
|
|
|
# Substitute '/>' with '>'
|
|
$line =~ s/\/>$/>/g;
|
|
};
|
|
};
|
|
|
|
print $line . "\n";
|
|
};
|
|
print STDERR "\n";
|