Copyleft/guide Files · GPL-Business/filter-doc.plx

Files @ daafc75153d7

Branch filter:

Location: Copyleft/guide/GPL-Business/filter-doc.plx

daafc75153d7 1.3 KiB text/plain Show Annotation Show as Raw Download as Raw

bkuhn

Remove unnecessary versions and formats of the gpl-lgpl tutorial material.

After the cherry-picking activity just completed in preceeding commits, the
file in the top-level directory named 'gpl-lgpl.tex' now includes a full
history of all the improvements, with proper author dates, names, and emails.

This includes a merger of the old history of 'GPL-Business/gpl-business.tex',
to the middle-period history in the 'GPL-LGPL/gpl-lgpl.tex', and the final
part of history found in 'GPL-LGPL/new-gpl-lgpl.tex'.

Also removed herein are dvi, pdf, and ps files for the new-gpl-lgpl.tex file
that were apparently inadvertently added to the historical CVS repository.

#!/usr/bin/perl -w
# Copyright (C) 200, 2001  Bradley M. Kuhn
#
#    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 (in the file, "COPYING"; if not, write to the Free
#    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
#    02111-1307 USA


use strict;
use warnings;

my $type = $ARGV[0];

unless (defined $type) {
  print STDERR "usage: $0 TYPE\n";
  exit 1;
}
my $extraType;

if ($type eq "PS" || $type eq "HTML") {
  $extraType = "PS_HTML";
}

while (my $line = <STDIN>) {
  if ($line =~ /^\s*%+\s*FILTER[_\s]+$type\s*:\s+(.*)\s*$/) {
    $line = "$1\n";
  }
  if (defined $extraType and
      $line =~ /^\s*%+\s*FILTER[_\s]+$extraType\s*:\s+(.*)\s*$/) {
    $line = "$1\n";
  }
  print $line;
}