summaryrefslogtreecommitdiff
path: root/source/ap/linuxdoc-tools/sources/libsgmls-perl_1.03ii-32.diff
diff options
context:
space:
mode:
Diffstat (limited to 'source/ap/linuxdoc-tools/sources/libsgmls-perl_1.03ii-32.diff')
-rw-r--r--source/ap/linuxdoc-tools/sources/libsgmls-perl_1.03ii-32.diff949
1 files changed, 0 insertions, 949 deletions
diff --git a/source/ap/linuxdoc-tools/sources/libsgmls-perl_1.03ii-32.diff b/source/ap/linuxdoc-tools/sources/libsgmls-perl_1.03ii-32.diff
deleted file mode 100644
index 917e834c..00000000
--- a/source/ap/linuxdoc-tools/sources/libsgmls-perl_1.03ii-32.diff
+++ /dev/null
@@ -1,949 +0,0 @@
---- libsgmls-perl-1.03ii.orig/sgmlspl.pl
-+++ libsgmls-perl-1.03ii/sgmlspl.pl
-@@ -238,7 +238,7 @@
- package main;
-
- $ARGV = shift;
--unless ($ARGV eq '' || do $ARGV) {
-+unless ($ARGV eq '' || do 'sgmlspl-specs/' . $ARGV || do $ARGV) {
- if (!-e $ARGV) {
- die "FATAL: $ARGV does not exist.\n";
- } elsif (!-r $ARGV) {
---- libsgmls-perl-1.03ii.orig/Refs.pm
-+++ libsgmls-perl-1.03ii/Refs.pm
-@@ -2,11 +2,11 @@
-
- use Carp;
-
--$version = '$Id: Refs.pm,v 1.5 1995/12/03 21:28:36 david Exp $';
-+$version = '$Id: Refs.pm,v 1.1 1999/10/26 19:30:45 ardo Exp $';
-
- =head1 NAME
-
--SGMLS::Refs
-+SGMLS::Refs - Forward reference handling
-
- =head1 SYNOPSIS
-
---- libsgmls-perl-1.03ii.orig/Output.pm
-+++ libsgmls-perl-1.03ii/Output.pm
-@@ -5,7 +5,7 @@
- @ISA = Exporter;
- @EXPORT = qw(output push_output pop_output);
-
--$version = '$Id: Output.pm,v 1.6 1995/12/05 12:21:51 david Exp $';
-+$version = '$Id: Output.pm,v 1.1 1999/10/26 19:30:45 ardo Exp $';
-
- =head1 NAME
-
---- libsgmls-perl-1.03ii.orig/sgmlspl.1
-+++ libsgmls-perl-1.03ii/sgmlspl.1
-@@ -0,0 +1,47 @@
-+.\" -*- nroff -*-
-+.\" ----------------------------------------------------------------------
-+.TH SGMLSPL 1 "October 26, 1999" "SGMLSPL" "SGMLSPL"
-+.\"
-+.\" ----------------------------------------------------------------------
-+.SH "NAME"
-+sgmlspl \- a simple post-processor for nsgmls
-+.\"
-+.\" ----------------------------------------------------------------------
-+.SH "SYNOPSIS"
-+.B sgmlspl
-+.I "spec file"
-+.\"
-+.\" ----------------------------------------------------------------------
-+.SH "DESCRIPTION"
-+sgmlspl is a sample application to convert SGML documents to other
-+formats by providing a specification file detailing exactly how to
-+handle each element, external data entity, subdocument entity, CDATA
-+string, record end, SDATA string, and processing instruction.
-+
-+To use sgmlspl, prepare a specification file containing regular perl5
-+code. If the SGML document were named doc.sgml, the sgmlspl
-+specification file were named, spec.pl, and the name of the new file
-+were doc.latex, then use the following command in a Unix shell to
-+convert the SGML document:
-+
-+nsgmls doc.sgml | sgmlspl spec.pl > doc.latex
-+
-+sgmlspl will pass any additional arguments on to the specification
-+file, which can then process them in the regular perl5 fashion.
-+.\"
-+.\" ----------------------------------------------------------------------
-+.SH "SEE ALSO"
-+.TP
-+.BR /usr/share/doc/sgmls-doc/sgmlspl/sgmlspl.html
-+sgmlspl documentation in HTML format
-+.TP
-+.BR /usr/share/doc/sgmls-doc/SGMLSpm/sgmls.html
-+SGMLS documentation in HTML format
-+.TP
-+.BR nsgmls (1)
-+.\"
-+.\" ----------------------------------------------------------------------
-+.SH "AUTHOR"
-+Ardo van Rangelrooij <ardo@debian.org>
-+.\"
-+.\" ----------------------------------------------------------------------
---- libsgmls-perl-1.03ii.orig/Makefile.PL
-+++ libsgmls-perl-1.03ii/Makefile.PL
-@@ -0,0 +1,17 @@
-+use ExtUtils::MakeMaker;
-+# See lib/ExtUtils/MakeMaker.pm for details of how to influence
-+# the contents of the Makefile that is written.
-+WriteMakefile(
-+ 'NAME' => 'SGMLS',
-+ 'VERSION' => '1.03ii',
-+ 'PM' => { 'SGMLS.pm' => '$(INST_LIBDIR)/SGMLS.pm',
-+ 'Output.pm' => '$(INST_LIBDIR)/SGMLS/Output.pm',
-+ 'Refs.pm' => '$(INST_LIBDIR)/SGMLS/Refs.pm',
-+ 'skel.pl' => '$(INST_LIBDIR)/sgmlspl-specs/skel.pl',
-+ },
-+ 'MAN3PODS'=> { 'SGMLS.pm' => '$(INST_MAN3DIR)/SGMLS.3pm',
-+ 'Output.pm' => '$(INST_MAN3DIR)/SGMLS::Output.3pm',
-+ 'Refs.pm' => '$(INST_MAN3DIR)/SGMLS::Refs.3pm',
-+ },
-+ 'EXE_FILES' => [ 'sgmlspl', ],
-+);
---- libsgmls-perl-1.03ii.orig/Makefile
-+++ libsgmls-perl-1.03ii/Makefile
-@@ -94,5 +94,5 @@
- mv /tmp/${DIST} SGMLSpm
-
- clean:
-- cd DOC; make clean
-+ #cd DOC; make clean
- rm -f *~ core *.tar *.tar.gz
---- libsgmls-perl-1.03ii.orig/SGMLS.pm
-+++ libsgmls-perl-1.03ii/SGMLS.pm
-@@ -1,7 +1,7 @@
- package SGMLS;
- use Carp;
-
--$version = '$Revision: 1.14 $';
-+$version = '$Revision: 1.1 $';
-
- =head1 NAME
-
---- libsgmls-perl-1.03ii.orig/debian/libsgmls-perl.examples
-+++ libsgmls-perl-1.03ii/debian/libsgmls-perl.examples
-@@ -0,0 +1 @@
-+DOC/sample.pl
---- libsgmls-perl-1.03ii.orig/debian/sgmls-doc.doc-base.SGMLSpm
-+++ libsgmls-perl-1.03ii/debian/sgmls-doc.doc-base.SGMLSpm
-@@ -0,0 +1,9 @@
-+Document: SGMLSpm
-+Title: SGMLSpm
-+Author: David Megginson
-+Abstract: This manual describes the SGMLS Perl modules
-+Section: Text
-+
-+Format: HTML
-+Index: /usr/share/doc/sgmls-doc/SGMLSpm/index.html
-+Files: /usr/share/doc/sgmls-doc/SGMLSpm/*.html
---- libsgmls-perl-1.03ii.orig/debian/rules
-+++ libsgmls-perl-1.03ii/debian/rules
-@@ -0,0 +1,76 @@
-+#!/usr/bin/make -f
-+## ----------------------------------------------------------------------
-+## debian/rules : package script for libsgmls-perl
-+## ----------------------------------------------------------------------
-+
-+## ----------------------------------------------------------------------
-+## uncomment this to turn on verbose mode
-+#export DH_VERBOSE=1
-+
-+## ----------------------------------------------------------------------
-+TMP_DIR := $(CURDIR)/debian/tmp
-+
-+## ----------------------------------------------------------------------
-+CFLAGS = -Wall -g
-+ifneq (,$(findstring noopt,$(DEB_BUILD_OPTIONS)))
-+ CFLAGS += -O0
-+else
-+ CFLAGS += -O2
-+endif
-+
-+## ----------------------------------------------------------------------
-+## targets
-+
-+clean:
-+ dh_testdir
-+ dh_testroot
-+ [ ! -f Makefile ] || $(MAKE) clean
-+ dh_clean build-stamp install-stamp
-+
-+build: build-stamp
-+build-stamp:
-+ dh_testdir
-+ perl Makefile.PL INSTALLDIRS=vendor
-+ $(MAKE) OPTIMIZE="$(CFLAGS)"
-+ $(MAKE) test
-+ touch build-stamp
-+
-+install: install-stamp
-+install-stamp: build
-+ dh_testdir
-+ dh_testroot
-+ dh_clean -k
-+ dh_installdirs
-+ $(MAKE) install DESTDIR=$(TMP_DIR) PREFIX=/usr
-+ touch install-stamp
-+
-+binary-indep: build install
-+ dh_testdir
-+ dh_testroot
-+ dh_install --sourcedir=$(TMP_DIR)
-+ dh_installman
-+ dh_installdocs
-+ dh_installexamples
-+ dh_installchangelogs ChangeLog
-+ dh_link
-+ dh_compress
-+ dh_fixperms
-+ dh_installdeb
-+ dh_perl
-+ dh_gencontrol
-+ dh_md5sums
-+ dh_builddeb
-+
-+binary-arch:
-+
-+binary: binary-indep binary-arch
-+
-+.PHONY: clean build install binary-indep binary-arch binary
-+
-+## ----------------------------------------------------------------------
-+## Copyright 1994,1995 by Ian Jackson.
-+## I hereby give you perpetual unlimited permission to copy,
-+## modify and relicense this file, provided that you do not remove
-+## my name from the file itself. (I assert my moral right of
-+## paternity under the Copyright, Designs and Patents Act 1988.)
-+## ----------------------------------------------------------------------
---- libsgmls-perl-1.03ii.orig/debian/control
-+++ libsgmls-perl-1.03ii/debian/control
-@@ -0,0 +1,48 @@
-+Source: libsgmls-perl
-+Section: perl
-+Priority: optional
-+Maintainer: Debian XML/SGML Group <debian-xml-sgml-pkgs@lists.alioth.debian.org>
-+Uploaders: Ardo van Rangelrooij <ardo@debian.org>
-+Vcs-Browser: http://alioth.debian.org/plugins/scmcvs/cvsweb.php/packages/libsgmls-perl/?cvsroot=debian-xml-sgml
-+Vcs-Cvs: :pserver:anonymous@cvs.alioth.debian.org:/cvsroot/debian-xml-sgml/packages/libsgmls-perl
-+Standards-Version: 3.7.3
-+Build-Depends: debhelper (>= 5.0)
-+Build-Depends-Indep: perl
-+
-+Package: libsgmls-perl
-+Section: perl
-+Priority: optional
-+Architecture: all
-+Conflicts: sgmlspm
-+Depends: ${perl:Depends}
-+Recommends: sp
-+Replaces: sgmlspm
-+Suggests: sgmlspl, sgmls-doc
-+Description: Perl modules for processing SGML parser output
-+ This is a set of Perl5 routines for processing the output from the
-+ sgmls and nsgmls SGML parsers. To make sensible use of this package
-+ you will need to install a suitable SGML parser as well.
-+
-+Package: sgmlspl
-+Section: text
-+Priority: optional
-+Architecture: all
-+Conflicts: sgmlspm
-+Depends: ${perl:Depends}, libsgmls-perl
-+Replaces: sgmlspm
-+Suggests: sgmls-doc
-+Description: SGMLS-based example Perl script for processing SGML parser output
-+ This is an example of a Perl script to post-process SGML parser output
-+ using the SGMLS Perl modules. To make sensible use of this package
-+ you will need to install a suitable SGML parser as well.
-+
-+Package: sgmls-doc
-+Section: doc
-+Priority: optional
-+Architecture: all
-+Conflicts: sgmlspm
-+Replaces: sgmlspm
-+Suggests: libsgmls-perl, sgmlspl
-+Description: HTML documentation of libsgmls-perl and sgmlspl
-+ This package contains the documentation in HTML format of the
-+ packages libsgmls-perl and sgmlspl.
---- libsgmls-perl-1.03ii.orig/debian/sgmlspl.manpages
-+++ libsgmls-perl-1.03ii/debian/sgmlspl.manpages
-@@ -0,0 +1 @@
-+sgmlspl.1
---- libsgmls-perl-1.03ii.orig/debian/changelog
-+++ libsgmls-perl-1.03ii/debian/changelog
-@@ -0,0 +1,262 @@
-+libsgmls-perl (1.03ii-32) unstable; urgency=low
-+
-+ * Refs.pm: fixed typo
-+ (closes: Bug#414110)
-+ * debian/compat: bumped version to 5
-+ * debian/control:
-+ * moved debhelper from 'Build-Depends-Indep' to 'Build-Depends'
-+ (detected by lintian)
-+ * changed build dependency on 'debhelper' to '(>= 5.0)'
-+ * upgraded to Debian Policy 3.7.3 (no changes)
-+ * added Vcs-Browser and Vcs-Cvs fields
-+ * debian/watch: bumped version to 3
-+ * debian/copyright: updated FSF address
-+ (detected by lintian)
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Fri, 04 Jan 2008 10:48:06 -0600
-+
-+libsgmls-perl (1.03ii-31) unstable; urgency=low
-+
-+ * Added 'debian/watch'
-+ * debiam/rules: various small improvements
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Wed, 24 Nov 2004 12:23:21 -0600
-+
-+libsgmls-perl (1.03ii-30) unstable; urgency=low
-+
-+ * Makefile: commented out documentation clean
-+ (closes: Bug#240645)
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sun, 28 Mar 2004 10:29:33 -0600
-+
-+libsgmls-perl (1.03ii-29) unstable; urgency=low
-+
-+ * debian/control: changed maintainer's email address to the new Debian
-+ XML/SGML Group's packages mailing list
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sun, 29 Feb 2004 10:48:45 -0600
-+
-+libsgmls-perl (1.03ii-28) unstable; urgency=low
-+
-+ * debian/control: changed 'Maintainer' to 'Debian XML/SGML Group
-+ <debian-xml-sgml-devel@lists.alioth.debian.org>' and added current
-+ maintainer as 'Uploader'
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sun, 22 Feb 2004 19:38:41 -0600
-+
-+libsgmls-perl (1.03ii-27) unstable; urgency=low
-+
-+ * debian/control: upgraded to Debian Policy 3.6.1 (no changes)
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sat, 7 Feb 2004 22:31:22 -0600
-+
-+libsgmls-perl (1.03ii-26) unstable; urgency=low
-+
-+ * Fixed missing documentation
-+ (closes: Bug#226085)
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sun, 4 Jan 2004 10:56:51 -0600
-+
-+libsgmls-perl (1.03ii-25) unstable; urgency=low
-+
-+ * sgmlspl.1: fixed references to HTML documentation
-+ (closes: Bug#202985)
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sat, 26 Jul 2003 23:06:50 -0500
-+
-+libsgmls-perl (1.03ii-24) unstable; urgency=low
-+
-+ * debian/rules: moved debhelper compatibility level setting to
-+ 'debian/compat' per latest debhelper best practices
-+ * debian/control: updated sections according to latest archive changes:
-+ - 'libsgmls-perl' from 'text' to 'perl'
-+ * debian/control: changed build dependency on 'debhelper' to '(>= 4.1)'
-+ * debian/control: upgraded to Debian Policy 3.6.0 (no changes)
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sat, 26 Jul 2003 22:15:48 -0500
-+
-+libsgmls-perl (1.03ii-23) unstable; urgency=low
-+
-+ * debian/sgmls-doc.links: fixed broken symlink
-+ (closes: Bug#158923)
-+ * debian/control: added dependency on perl for sgmlspl (warning from linda)
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Thu, 19 Sep 2002 19:45:17 -0500
-+
-+libsgmls-perl (1.03ii-22) unstable; urgency=low
-+
-+ * debian/rules: added erroneously removed 'dh_testroot' to 'binary-indep'
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sun, 4 Aug 2002 16:33:00 -0500
-+
-+libsgmls-perl (1.03ii-21) unstable; urgency=low
-+
-+ * debian/rules: upgraded to debhelper v4
-+ * debian/control: changed build dependency on debhelper accordingly
-+ * debian/rules: migrated from 'dh_movefiles' to 'dh_install'
-+ * debian/rules: split off 'install' target from 'binary-indep' target
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sun, 4 Aug 2002 09:41:59 -0500
-+
-+libsgmls-perl (1.03ii-20) unstable; urgency=low
-+
-+ * Removed explicit support of dhelp since doc-base now takes care of this
-+ * debian/control: upgraded to Debian Policy 3.5.6
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sun, 4 Nov 2001 16:13:15 -0600
-+
-+libsgmls-perl (1.03ii-19) unstable; urgency=low
-+
-+ * debian/control: upgraded to Debian Policy 3.5.5
-+ * debian/control: upgraded to Debian Perl Policy 1.20
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sat, 1 Sep 2001 22:03:51 -0500
-+
-+libsgmls-perl (1.03ii-18) unstable; urgency=low
-+
-+ * Makefile.PL: removed handling of manpage sgmlspl.1
-+ * debian/control: added handling of manpage sgmlspl.1
-+ (closes: Bug#94518)
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Mon, 30 Apr 2001 21:26:08 -0500
-+
-+libsgmls-perl (1.03ii-17) unstable; urgency=low
-+
-+ * debian/control: updated debhelper dependency to remove dh_testversion
-+ * debian/control: upgraded to Debian Policy 3.5.2
-+ * debian/control: upgraded to Debian Perl Policy 1.17
-+ * debian/rules: upgraded to Debian Perl Policy 1.17
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sat, 14 Apr 2001 20:49:19 -0500
-+
-+sgmlspm (1.03ii-16) unstable; urgency=low
-+
-+ * debian/control: upgraded to Debian Policy 3.2.1
-+ * debian/rules: upgraded to debhelper v3
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Mon, 15 Jan 2001 19:35:32 -0600
-+
-+sgmlspm (1.03ii-15) unstable; urgency=low
-+
-+ * debian/control: updated short descriptions
-+ * debian/control: added missing Build-Depends
-+ * debian/rules: added missing `$(MAKE) test`
-+ * debian/rules: added missing build-stamp stuff
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sun, 11 Jun 2000 19:40:09 +0200
-+
-+sgmlspm (1.03ii-14) frozen unstable; urgency=high
-+
-+ * sgmlspl.pl: updated to reflect change in spec files location
-+ (closes: #58443) (thanks Yann!!!)
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sun, 20 Feb 2000 09:35:08 +0100
-+
-+sgmlspm (1.03ii-13) unstable; urgency=high
-+
-+ * sgmlspl.pl: updated to reflect change in spec files location
-+ (closes: #58443) (thanks Yann!!!)
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Sat, 19 Feb 2000 19:38:22 +0100
-+
-+sgmlspm (1.03ii-12) unstable; urgency=low
-+
-+ * Moved HTML documentation to separate package sgmls-doc
-+ (closes: #52856) (thanks Andreas!)
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Thu, 30 Dec 1999 11:42:02 +0100
-+
-+sgmlspm (1.03ii-11) unstable; urgency=low
-+
-+ * Removed test-SGMLS.pl from examples
-+ * Moved skel.pl from libsgmls-perl to sgmlspl and into a new direcotry
-+ /usr/lib/perl5/sgmlspl-specs
-+ (closes: #52169) (thanks Yann!)
-+ * Upgraded to Debian Policy 3.1.1
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Mon, 13 Dec 1999 21:54:48 +0100
-+
-+sgmlspm (1.03ii-10) unstable; urgency=low
-+
-+ * Split binary package into libsgmls-perl and sgmlspl. The former only
-+ contains the SGMLS Perl modules, documentation and examples. The
-+ latter only contains the (example) Perl script `sgmlspl' and its
-+ documentation
-+ * Turned libsgmls-perl into a 'real' Perl package with Makefile.PL and all
-+ (closes: #39684)
-+ * Added doc-base support
-+ (closes: #31181)
-+ * Added manual page for sgmlspl
-+ (closes: #17909)
-+ * Upgraded to Debian Policy 3.0.1
-+ * Upgraded to Debian Perl Policy 1.1
-+ * Made lintian-free
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Tue, 26 Oct 1999 19:58:37 +0200
-+
-+sgmlspm (1.03ii-9) unstable; urgency=low
-+
-+ * Complies with Perl packaging standard 1.0
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Tue, 13 Jul 1999 19:19:39 -0500
-+
-+sgmlspm (1.03ii-8) unstable; urgency=low
-+
-+ * debian/control: fixed typo in description
-+ (closes: Bug#27441)
-+ * Maintainer's email address changed
-+
-+ -- Ardo van Rangelrooij <ardo@debian.org> Mon, 5 Oct 1998 19:14:22 +0200
-+
-+sgmlspm (1.03ii-7) frozen unstable; urgency=low
-+
-+ * debian/rules: corrected upstream ChangeLog installation (lintian bug)
-+ * debian/copyright: updated postal address of the FSF (lintian bug)
-+
-+ -- Ardo van Rangelrooij <ardo.van.rangelrooij@tip.nl> Sun, 26 Apr 1998 17:03:11 +0200
-+
-+sgmlspm (1.03ii-6) frozen unstable; urgency=low
-+
-+ * debian/rules: added sgmlspl man page as undocumented man page
-+ * debian/rules: changed to use debhelper
-+ * debian/rules: removed handling of index.html links
-+ * Makefile: added handling of index.html links
-+ * debian/control: updated to debian standard 2.4.0.0
-+ * debian/rules: removed installation of DocBook examples
-+ (closes: Bug#19689)
-+
-+ -- Ardo van Rangelrooij <ardo.van.rangelrooij@tip.nl> Mon, 6 Apr 1998 19:37:59 +0200
-+
-+sgmlspm (1.03ii-5) unstable; urgency=low
-+
-+ * Fixed permissions bug
-+ (closes: Bug#17490)
-+
-+ -- Ardo van Rangelrooij <ardo.van.rangelrooij@tip.nl> Wed, 18 Feb 1998 21:30:57 +0100
-+
-+sgmlspm (1.03ii-4) unstable; urgency=low
-+
-+ * New maintainer.
-+
-+ -- Ardo van Rangelrooij <ardo.van.rangelrooij@tip.nl> Wed, 14 Jan 1998 21:29:45 +0100
-+
-+sgmlspm (1.03ii-3) frozen unstable; urgency=low
-+
-+ * Updated Standards-Version to 2.1.3.0.
-+ * New maintainer.
-+
-+ -- Christian Schwarz <schwarz@debian.org> Thu, 17 Apr 1997 15:53:51 +0200
-+
-+sgmlspm (1.03ii-2) unstable; urgency=low
-+
-+ * Split binary target into binary-indep and binary-arch.
-+ * Updated Standards-Version.
-+ * Released into unstable.
-+
-+ -- Ian Jackson <ian@chiark.chu.cam.ac.uk> Fri, 23 Aug 1996 12:11:40 +0100
-+
-+sgmlspm (1.03ii-1) experimental; urgency=LOW
-+
-+ * Initial Debian release.
-+
-+ -- Ian Jackson <ian@chiark.chu.cam.ac.uk> Sat, 10 Aug 1996 01:47:30 +0100
---- libsgmls-perl-1.03ii.orig/debian/sgmls-doc.docs
-+++ libsgmls-perl-1.03ii/debian/sgmls-doc.docs
-@@ -0,0 +1,2 @@
-+DOC/HTML/SGMLSpm
-+DOC/HTML/sgmlspl
---- libsgmls-perl-1.03ii.orig/debian/libsgmls-perl.install
-+++ libsgmls-perl-1.03ii/debian/libsgmls-perl.install
-@@ -0,0 +1,2 @@
-+usr/share/perl5/SGMLS*
-+usr/share/man/man3
---- libsgmls-perl-1.03ii.orig/debian/sgmls-doc.doc-base.sgmlspl
-+++ libsgmls-perl-1.03ii/debian/sgmls-doc.doc-base.sgmlspl
-@@ -0,0 +1,9 @@
-+Document: sgmlspl
-+Title: sgmlspl
-+Author: David Megginson
-+Abstract: This manual describes the (example) sgmlspl Perl script
-+Section: Text
-+
-+Format: HTML
-+Index: /usr/share/doc/sgmls-doc/sgmlspl/index.html
-+Files: /usr/share/doc/sgmls-doc/sgmlspl/*.html
---- libsgmls-perl-1.03ii.orig/debian/copyright
-+++ libsgmls-perl-1.03ii/debian/copyright
-@@ -0,0 +1,28 @@
-+This is Debian GNU/Linux's prepackaged version of David Megginson's
-+sgmlspm-1.03ii Perl modules for processing sgmls and nsgmls output.
-+
-+This package was put together by me, Ian Jackson
-+<ijackson@gnu.ai.mit.edu>, from the sources on src.doc.ic.ac.uk in
-+/packages/perl/CPAN/modules/by-module/SGMLS/SGMLSpm-1.03ii.tar.gz.
-+The changes were very minimal - merely adding support for the Debian
-+package maintenance scheme, by adding various debian/* files.
-+
-+Program Copyright (C)1994,1995 David Megginson.
-+Modifications for Debian Copyright (C)1996 Ian Jackson.
-+Modifications for Debian Copyright (C) 1998,1999 Ardo van Rangelrooij
-+
-+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, 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 with
-+your Debian GNU/Linux system, in /usr/share/common-licenses/GPL-2, or
-+with the Debian GNU/Linux hello source package as the file COPYING.
-+If not, write to the Free Software Foundation, Inc., 51 Franklin
-+Street, Fifth Floor, Boston, MA 02110-1301 USA.
---- libsgmls-perl-1.03ii.orig/debian/compat
-+++ libsgmls-perl-1.03ii/debian/compat
-@@ -0,0 +1 @@
-+5
---- libsgmls-perl-1.03ii.orig/debian/sgmls-doc.links
-+++ libsgmls-perl-1.03ii/debian/sgmls-doc.links
-@@ -0,0 +1,2 @@
-+usr/share/doc/sgmls-doc/SGMLSpm/sgmlspm.html usr/share/doc/sgmls-doc/SGMLSpm/index.html
-+usr/share/doc/sgmls-doc/sgmlspl/sgmlspl.html usr/share/doc/sgmls-doc/sgmlspl/index.html
---- libsgmls-perl-1.03ii.orig/debian/watch
-+++ libsgmls-perl-1.03ii/debian/watch
-@@ -0,0 +1,2 @@
-+version=3
-+http://www.cpan.org/modules/by-module/SGMLS/SGMLSpm-([\d.]+[\w]+).tar.gz
---- libsgmls-perl-1.03ii.orig/debian/sgmlspl.install
-+++ libsgmls-perl-1.03ii/debian/sgmlspl.install
-@@ -0,0 +1,2 @@
-+usr/bin
-+/usr/share/perl5/sgmlspl-specs
---- libsgmls-perl-1.03ii.orig/debian/libsgmls-perl.docs
-+++ libsgmls-perl-1.03ii/debian/libsgmls-perl.docs
-@@ -0,0 +1,2 @@
-+BUGS
-+TODO
---- libsgmls-perl-1.03ii.orig/sgmlspl
-+++ libsgmls-perl-1.03ii/sgmlspl
-@@ -0,0 +1,326 @@
-+#!/usr/bin/perl
-+########################################################################
-+# sgmlspl: a simple SGML postprocesser for the SGMLS and NSGMLS
-+# parsers (requires SGMLS.pm library).
-+#
-+# Copyright (c) 1995 by David Megginson <dmeggins@aix1.uottawa.ca>
-+#
-+# 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., 675 Mass Ave, Cambridge, MA 02139, USA.
-+#
-+# $Log: sgmlspl,v $
-+# Revision 1.2 2008-01-03 23:49:25 ardo
-+# applied patch for 414110 & upgraded policy
-+#
-+# Revision 1.1 2004/02/23 01:23:07 ardo
-+# Added debian changes for version 1.03ii-27.
-+#
-+# Revision 1.1 2001/04/15 14:42:01 ardo
-+# *** empty log message ***
-+#
-+# Revision 1.8 1995/12/03 21:46:31 david
-+# Eliminated all use of the SGMLS_Event::key method.
-+#
-+# Revision 1.7 1995/11/15 20:22:24 david
-+# Changed "use Output" to "use SGMLS::Output". Qualified the STDIN
-+# filehandle for the SGMLS object with the main:: package name.
-+#
-+# Revision 1.6 1995/08/12 16:15:14 david
-+# Revised version for 1.01 distribution.
-+#
-+# Revision 1.5 1995/04/27 11:52:25 david
-+# Changed 'print' to 'main::output' for re handler; empty string
-+# translates into an empty sub {} rather than a sub printing an empty
-+# string; instead of evaluating every argument as a perl script, take
-+# only the first as a perl script and the rest as its arguments; allow
-+# empty scripts or scripts which do not end with '1;'; pass the event
-+# itself as the second argument to each handler, after the event data.
-+#
-+# Revision 1.4 1995/04/23 14:44:58 david
-+# Use the Output package. Fixed the $version variable.
-+#
-+# Revision 1.3 1995/04/22 21:02:49 david
-+# Added some missing 'last SWITCH;' statements in the sgmls function.
-+#
-+# Revision 1.2 1995/04/22 20:58:48 david
-+# Added $SGMLS_PL::version variable and changed SDATA notation from
-+# [SDATA] to |SDATA|.
-+#
-+# Revision 1.1 1995/04/22 14:40:50 david
-+# Initial revision
-+#
-+########################################################################
-+
-+use SGMLS::Output;
-+
-+package SGMLS_PL;
-+use SGMLS;
-+
-+$version = '$Id: sgmlspl,v 1.2 2008-01-03 23:49:25 ardo Exp $';
-+
-+#
-+# Set up handler defaults.
-+#
-+$start_document_handler = sub {};
-+$end_document_handler = sub {};
-+$start_element_handlers = { '' => sub {} };
-+$end_element_handlers = { '' => sub {} };
-+$cdata_handler = sub { main::output($_[0]); };
-+$sdata_handlers = { '' => sub { main::output($_[0]);} };
-+$re_handler = sub { main::output("\n"); };
-+$pi_handler = sub { '' => sub {} };
-+$entity_handlers = { '' => sub {} };
-+$start_subdoc_handlers = { '' => sub {} };
-+$end_subdoc_handlers = { '' => sub {} };
-+$conforming_handler = sub {};
-+
-+#
-+# Main access point: declare handlers for different SGML events.
-+#
-+# Usage: sgml(event, handler);
-+#
-+# The event may be one of the following strings, or a special pattern.
-+# The generic events are as follow:
-+#
-+# 'start' The beginning of the document.
-+# 'end' The end of the document.
-+# 'start_element' The beginning of an element.
-+# 'end_element' The end of an element.
-+# 'cdata' Regular character data.
-+# 'sdata' Special system-specific data.
-+# 're' A record-end.
-+# 'pi' A processing instruction.
-+# 'entity' An external-entity reference.
-+# 'start_subdoc' The beginning of a subdocument entity.
-+# 'end_subdoc' The end of a subdocument entity.
-+# 'conforming' The document is conforming.
-+#
-+# In addition to these generic events, it is possible to handlers
-+# for certain specific, named events, as follow:
-+#
-+# '<GI>' The beginning of element GI.
-+# '</GI>' The end of element GI.
-+# '[SDATA]' The system-specific data SDATA.
-+# '&ENAME;' A reference to the external entity ENAME.
-+# '{ENAME}' The beginning of the subdocument-entity ENAME.
-+# '{/ENAME}' The end of the subdocument-entity ENAME.
-+#
-+#
-+# The handler may be a string, which will simply be printed when the
-+# event occurs (this is usually useful only for the specific, named
-+# events), or a reference to an anonymous subroutine, which will
-+# receive two arguments: the event data and the event itself. For
-+# example,
-+#
-+# sgml('<FOO>', "\n\\begin{foo}\n");
-+#
-+# and
-+#
-+# sgml('<FOO>', sub { output("\n\\begin{foo}\n"); });
-+#
-+# will have identical results.
-+#
-+sub main::sgml {
-+ my ($spec,$handler) = (@_);
-+ if (ref($handler) ne 'CODE') {
-+ $handler =~ s/\\/\\\\/g;
-+ $handler =~ s/'/\\'/g;
-+ if ($handler eq '') {
-+ $handler = sub {};
-+ } else {
-+ $handler = eval "sub { main::output('$handler'); };";
-+ }
-+ }
-+ SWITCH: {
-+ # start-document handler
-+ $spec eq 'start' && do {
-+ $start_document_handler = $handler;
-+ last SWITCH;
-+ };
-+ # end-document handler
-+ $spec eq 'end' && do {
-+ $end_document_handler = $handler;
-+ last SWITCH;
-+ };
-+ # start-element handler
-+ $spec =~ /^<([^\/].*|)>$/ && do {
-+ $start_element_handlers->{$1} = $handler;
-+ last SWITCH;
-+ };
-+ # generic start-element handler
-+ $spec eq 'start_element' && do {
-+ $start_element_handlers->{''} = $handler;
-+ last SWITCH;
-+ };
-+ # end-element handler
-+ $spec =~ /^<\/(.*)>$/ && do {
-+ $end_element_handlers->{$1} = $handler;
-+ last SWITCH;
-+ };
-+ # generic end-element handler
-+ $spec =~ 'end_element' && do {
-+ $end_element_handlers->{''} = $handler;
-+ last SWITCH;
-+ };
-+ # cdata handler
-+ $spec eq 'cdata' && do {
-+ $cdata_handler = $handler;
-+ last SWITCH;
-+ };
-+ # sdata handler
-+ $spec =~ /^\|(.*)\|$/ && do {
-+ $sdata_handlers->{$1} = $handler;
-+ last SWITCH;
-+ };
-+ # generic sdata handler
-+ $spec eq 'sdata' && do {
-+ $sdata_handlers->{''} = $handler;
-+ last SWITCH;
-+ };
-+ # record-end handler
-+ $spec eq 're' && do {
-+ $re_handler = $handler;
-+ last SWITCH;
-+ };
-+ # processing-instruction handler
-+ $spec eq 'pi' && do {
-+ $pi_handler = $handler;
-+ last SWITCH;
-+ };
-+ # entity-reference handler
-+ $spec =~ /^\&(.*);$/ && do {
-+ $entity_handlers->{$1} = $handler;
-+ last SWITCH;
-+ };
-+ # generic entity-reference handler
-+ $spec eq 'entity' && do {
-+ $entity_handlers->{''} = $handler;
-+ last SWITCH;
-+ };
-+ # start-subdoc handler
-+ $spec =~ /^\{([^\/].*|)\}$/ && do {
-+ $start_subdoc_handlers->{$1} = $handler;
-+ last SWITCH;
-+ };
-+ # generic start-subdoc handler
-+ $spec eq 'start_subdoc' && do {
-+ $start_subdoc_handlers->{''} = $handler;
-+ last SWITCH;
-+ };
-+ # end-subdoc handler
-+ $spec =~ /^\{\/(.*)\}$/ && do {
-+ $end_subdoc_handlers->{$1} = $handler;
-+ last SWITCH;
-+ };
-+ # generic end-subdoc handler
-+ $spec eq 'end_subdoc' && do {
-+ $end_subdoc_handlers->{''} = $handler;
-+ last SWITCH;
-+ };
-+ # conforming handler
-+ $spec eq 'conforming' && do {
-+ $conforming_handler = $handler;
-+ last SWITCH;
-+ };
-+
-+ die "Bad SGML handler pattern: $spec\n";
-+ }
-+}
-+
-+
-+#
-+# The first argument on the command line is a perl module which will be
-+# read here and evaluated in the 'main' package -- everything else will
-+# be an argument to it.
-+#
-+package main;
-+
-+$ARGV = shift;
-+unless ($ARGV eq '' || do 'sgmlspl-specs/' . $ARGV || do $ARGV) {
-+ if (!-e $ARGV) {
-+ die "FATAL: $ARGV does not exist.\n";
-+ } elsif (!-r $ARGV) {
-+ die "FATAL: $ARGV exists but is read-protected.\n";
-+ } elsif ($@) {
-+ die "FATAL: $@\n";
-+ }
-+}
-+
-+
-+#
-+# Do the actual work, using the SGMLS package.
-+#
-+package SGMLS_PL;
-+
-+$parse = new SGMLS(main::STDIN); # a new parse object
-+
-+&{$start_document_handler}(); # run the start handler.
-+
-+ # run the appropriate handler for each
-+ # event
-+while ($event = $parse->next_event) {
-+ my $type = $event->type;
-+ SWITCH: {
-+ $type eq 'start_element' && do {
-+ &{($start_element_handlers->{$event->data->name}||
-+ $start_element_handlers->{''} || sub {})}($event->data,$event);
-+ last SWITCH;
-+ };
-+ $type eq 'end_element' && do {
-+ &{($end_element_handlers->{$event->data->name}||
-+ $end_element_handlers->{''} || sub {})}($event->data,$event);
-+ last SWITCH;
-+ };
-+ $type eq 'cdata' && do {
-+ &{$cdata_handler}($event->data,$event);
-+ last SWITCH;
-+ };
-+ $type eq 'sdata' && do {
-+ &{($sdata_handlers->{$event->data}||
-+ $sdata_handlers->{''} || sub {})}($event->data,$event);
-+ last SWITCH;
-+ };
-+ $type eq 're' && do {
-+ &{$re_handler}($event->data,$event);
-+ last SWITCH;
-+ };
-+ $type eq 'pi' && do {
-+ &{$pi_handler}($event->data,$event);
-+ last SWITCH;
-+ };
-+ $type eq 'entity' && do {
-+ &{($entity_handlers->{$event->data->name}||
-+ $entity_handlers->{''} || sub {})}($event->data,$event);
-+ last SWITCH;
-+ };
-+ $type eq 'start_subdoc' && do {
-+ &{($start_subdoc_handlers->{$event->data->name}||
-+ $start_subdoc_handlers->{''} || sub {})}($event->data,$event);
-+ last SWITCH;
-+ };
-+ $type eq 'end_subdoc' && do {
-+ &{($end_subdoc_handlers->{$event->data->name}||
-+ $end_subdoc_handlers->{''} || sub {})}($event->data,$event);
-+ last SWITCH;
-+ };
-+ $type eq 'conforming' && do {
-+ &{$conforming_handler}($event->data,$event);
-+ last SWITCH;
-+ };
-+
-+ die "Unknown SGML event type: $type\n";
-+ }
-+}
-+
-+&{$end_document_handler}(); # run the end handler