diff options
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.diff | 949 |
1 files changed, 949 insertions, 0 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 new file mode 100644 index 00000000..917e834c --- /dev/null +++ b/source/ap/linuxdoc-tools/sources/libsgmls-perl_1.03ii-32.diff @@ -0,0 +1,949 @@ +--- 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 |