Revision: 98259 http://trac.macports.org//changeset/98259 Author: pixilla@macports.org Date: 2012-09-30 22:34:33 -0700 (Sun, 30 Sep 2012) Log Message: ----------- textproc/docbook-util: - Maintainer patches. Closes #36354 - Added all patch files and an extra "helper program" from the original RPM used as source for this port. Modified Paths: -------------- trunk/dports/textproc/docbook-utils/Portfile Added Paths: ----------- trunk/dports/textproc/docbook-utils/files/ trunk/dports/textproc/docbook-utils/files/docbook-utils-2ndspaces.patch trunk/dports/textproc/docbook-utils/files/docbook-utils-grepnocolors.patch trunk/dports/textproc/docbook-utils/files/docbook-utils-newgrep.patch trunk/dports/textproc/docbook-utils/files/docbook-utils-nofinalecho.patch trunk/dports/textproc/docbook-utils/files/docbook-utils-papersize.patch trunk/dports/textproc/docbook-utils/files/docbook-utils-rtfmanpage.patch trunk/dports/textproc/docbook-utils/files/docbook-utils-sgmlinclude.patch trunk/dports/textproc/docbook-utils/files/docbook-utils-spaces.patch trunk/dports/textproc/docbook-utils/files/docbook-utils-w3mtxtconvert.patch trunk/dports/textproc/docbook-utils/files/docbook2man-spec.pl Modified: trunk/dports/textproc/docbook-utils/Portfile =================================================================== --- trunk/dports/textproc/docbook-utils/Portfile 2012-10-01 05:32:40 UTC (rev 98258) +++ trunk/dports/textproc/docbook-utils/Portfile 2012-10-01 05:34:33 UTC (rev 98259) @@ -5,6 +5,7 @@ name docbook-utils version 0.6.14 +revision 1 categories textproc platforms darwin license GPL-2+ @@ -32,6 +33,23 @@ configure.args-append --mandir=${prefix}/share/man +post-extract { + copy ${filespath}/docbook2man-spec.pl \ + ${worksrcpath}/bin/ +} + +patch.pre_args -p1 +patchfiles docbook-utils-spaces.patch \ + docbook-utils-2ndspaces.patch \ + docbook-utils-w3mtxtconvert.patch \ + docbook-utils-grepnocolors.patch \ + docbook-utils-sgmlinclude.patch \ + docbook-utils-rtfmanpage.patch \ + docbook-utils-papersize.patch \ + docbook-utils-nofinalecho.patch \ + docbook-utils-newgrep.patch + + post-patch { reinplace -E "s|^docdir=.+$|docdir='${prefix}/share/doc'|" \ ${worksrcpath}/configure Added: trunk/dports/textproc/docbook-utils/files/docbook-utils-2ndspaces.patch =================================================================== --- trunk/dports/textproc/docbook-utils/files/docbook-utils-2ndspaces.patch (rev 0) +++ trunk/dports/textproc/docbook-utils/files/docbook-utils-2ndspaces.patch 2012-10-01 05:34:33 UTC (rev 98259) @@ -0,0 +1,260 @@ +--- Original/backends/dvi 2003-01-13 18:14:10.000000000 +0100 ++++ Changes/backends/dvi 2007-05-21 14:10:42.000000000 +0200 +@@ -6,31 +6,31 @@ + export TEXINPUTS + + # Convert to TeX +-$SGML_JADE -t tex -o ${SGML_FILE_NAME}.tex $SGML_ARGUMENTS ++$SGML_JADE -t tex -o "${SGML_FILE_NAME}.tex" $SGML_ARGUMENTS "$SGML_FILE" + if [ $? -ne 0 ] + then exit 1 + fi + + # Convert from TeX to DVI +-jadetex ${SGML_FILE_NAME}.tex >${SGML_FILE_NAME}.tmp ++jadetex "${SGML_FILE_NAME}.tex" > "${SGML_FILE_NAME}.tmp" + if [ $? -ne 0 ] + then +- cat ${SGML_FILE_NAME}.tmp +- rm ${SGML_FILE_NAME}.tmp +- rm ${SGML_FILE_NAME}.tex ++ cat "${SGML_FILE_NAME}.tmp" ++ rm "${SGML_FILE_NAME}.tmp" ++ rm "${SGML_FILE_NAME}.tex" + exit 2 + fi +-rm ${SGML_FILE_NAME}.tmp ++rm "${SGML_FILE_NAME}.tmp" + + # If there are unresolved references, re-run jadetex, twice +-if egrep '^LaTeX Warning: There were undefined references.$' ${SGML_FILE_NAME}.log >/dev/null 2>&1 ++if egrep '^LaTeX Warning: There were undefined references.$' "${SGML_FILE_NAME}.log" >/dev/null 2>&1 + then +- jadetex ${SGML_FILE_NAME}.tex >/dev/null +- jadetex ${SGML_FILE_NAME}.tex >/dev/null ++ jadetex "${SGML_FILE_NAME}.tex" >/dev/null ++ jadetex "${SGML_FILE_NAME}.tex" >/dev/null + fi +-rm ${SGML_FILE_NAME}.log +-rm ${SGML_FILE_NAME}.aux +-rm ${SGML_FILE_NAME}.tex +-rm ${SGML_FILE_NAME}.out ++rm "${SGML_FILE_NAME}.log" ++rm "${SGML_FILE_NAME}.aux" ++rm "${SGML_FILE_NAME}.tex" ++rm "${SGML_FILE_NAME}.out" + + exit 0 +--- Original/backends/html 2000-07-21 20:15:22.000000000 +0200 ++++ Changes/backends/html 2007-05-21 14:11:32.000000000 +0200 +@@ -3,7 +3,7 @@ + # This program is under GPL license. See LICENSE file for details. + + # Convert to HTML +-$SGML_JADE -t sgml $SGML_ARGUMENTS ++$SGML_JADE -t sgml $SGML_ARGUMENTS "$SGML_FILE" + if [ $? -ne 0 ] + then exit 1 + fi +--- Original/backends/pdf 2003-03-17 18:47:11.000000000 +0100 ++++ Changes/backends/pdf 2007-05-21 14:13:58.000000000 +0200 +@@ -6,26 +6,26 @@ + export TEXINPUTS + + # Convert to TeX +-$SGML_JADE -t tex -o ${SGML_FILE_NAME}.tex $SGML_ARGUMENTS ++$SGML_JADE -t tex -o "${SGML_FILE_NAME}.tex" $SGML_ARGUMENTS "$SGML_FILE" + if [ $? -ne 0 ] + then exit 1 + fi + + # Convert from TeX to PDF +-pdfjadetex ${SGML_FILE_NAME}.tex >${SGML_FILE_NAME}.tmp ++pdfjadetex "${SGML_FILE_NAME}.tex" > "${SGML_FILE_NAME}.tmp" + if [ $? -ne 0 ] + then +- cat ${SGML_FILE_NAME}.tmp +- rm ${SGML_FILE_NAME}.tmp +- rm ${SGML_FILE_NAME}.tex ++ cat "${SGML_FILE_NAME}.tmp" ++ rm "${SGML_FILE_NAME}.tmp" ++ rm "${SGML_FILE_NAME}.tex" + exit 2 + fi +-rm ${SGML_FILE_NAME}.tmp ++rm "${SGML_FILE_NAME}.tmp" + + # Unconditionally re-run pdfjadetex, twice +-pdfjadetex ${SGML_FILE_NAME}.tex >/dev/null +-pdfjadetex ${SGML_FILE_NAME}.tex >/dev/null +-rm -f ${SGML_FILE_NAME}.log ${SGML_FILE_NAME}.aux \ +- ${SGML_FILE_NAME}.tex ${SGML_FILE_NAME}.out ++pdfjadetex "${SGML_FILE_NAME}.tex" >/dev/null ++pdfjadetex "${SGML_FILE_NAME}.tex" >/dev/null ++rm -f "${SGML_FILE_NAME}.log" "${SGML_FILE_NAME}.aux" \ ++ "${SGML_FILE_NAME}.tex" "${SGML_FILE_NAME}.out" + + exit 0 +--- Original/backends/ps 2003-03-17 18:51:48.000000000 +0100 ++++ Changes/backends/ps 2007-05-21 14:16:51.000000000 +0200 +@@ -6,30 +6,30 @@ + export TEXINPUTS + + # Convert to TeX +-$SGML_JADE -t tex -o ${SGML_FILE_NAME}.tex $SGML_ARGUMENTS ++$SGML_JADE -t tex -o "${SGML_FILE_NAME}.tex" $SGML_ARGUMENTS "$SGML_FILE" + if [ $? -ne 0 ] + then exit 1 + fi + + # Convert from TeX to DVI +-jadetex ${SGML_FILE_NAME}.tex >${SGML_FILE_NAME}.tmp ++jadetex "${SGML_FILE_NAME}.tex" > "${SGML_FILE_NAME}.tmp" + if [ $? -ne 0 ] + then +- cat ${SGML_FILE_NAME}.tmp +- rm ${SGML_FILE_NAME}.tmp +- rm ${SGML_FILE_NAME}.tex ++ cat "${SGML_FILE_NAME}.tmp" ++ rm "${SGML_FILE_NAME}.tmp" ++ rm "${SGML_FILE_NAME}.tex" + exit 2 + fi +-rm ${SGML_FILE_NAME}.tmp ++rm "${SGML_FILE_NAME}.tmp" + + # If there are unresolved references, re-run jadetex, twice +-if egrep '^LaTeX Warning: There were undefined references.$' ${SGML_FILE_NAME}.log >/dev/null 2>&1 ++if egrep '^LaTeX Warning: There were undefined references.$' "${SGML_FILE_NAME}.log" >/dev/null 2>&1 + then +- jadetex ${SGML_FILE_NAME}.tex >/dev/null +- jadetex ${SGML_FILE_NAME}.tex >/dev/null ++ jadetex "${SGML_FILE_NAME}.tex" >/dev/null ++ jadetex "${SGML_FILE_NAME}.tex" >/dev/null + fi +-rm -f ${SGML_FILE_NAME}.log ${SGML_FILE_NAME}.aux \ +- ${SGML_FILE_NAME}.tex ${SGML_FILE_NAME}.out ++rm -f "${SGML_FILE_NAME}.log" "${SGML_FILE_NAME}.aux" \ ++ "${SGML_FILE_NAME}.tex" "${SGML_FILE_NAME}.out" + + # Convert from DVI to PostScript + PAPERSIZE="-t letter" +@@ -38,12 +38,12 @@ + PAPERSIZE="-t a4" + fi + +-dvips -R -q $PAPERSIZE ${SGML_FILE_NAME}.dvi -o ${SGML_FILE_NAME}.ps ++dvips -R -q $PAPERSIZE "${SGML_FILE_NAME}.dvi" -o "${SGML_FILE_NAME}.ps" + if [ $? -ne 0 ] + then +- rm ${SGML_FILE_NAME}.dvi ++ rm "${SGML_FILE_NAME}.dvi" + exit 3 + fi +-rm ${SGML_FILE_NAME}.dvi ++rm "${SGML_FILE_NAME}.dvi" + + exit 0 +--- Original/backends/rtf 2000-07-21 20:15:22.000000000 +0200 ++++ Changes/backends/rtf 2007-05-21 14:18:37.000000000 +0200 +@@ -3,7 +3,7 @@ + # This program is under GPL license. See LICENSE file for details. + + # Convert to RTF +-$SGML_JADE -t rtf -o ${SGML_FILE_NAME}.rtf $SGML_ARGUMENTS ++$SGML_JADE -t rtf -o "${SGML_FILE_NAME}.rtf" $SGML_ARGUMENTS "$SGML_FILE" + if [ $? -ne 0 ] + then exit 1 + fi +--- Original/backends/tex 2000-07-21 20:15:22.000000000 +0200 ++++ Changes/backends/tex 2007-05-21 14:21:12.000000000 +0200 +@@ -3,7 +3,7 @@ + # This program is under GPL license. See LICENSE file for details. + + # Convert to TeX +-$SGML_JADE -t tex -o ${SGML_FILE_NAME}.tex $SGML_ARGUMENTS ++$SGML_JADE -t tex -o "${SGML_FILE_NAME}.tex" $SGML_ARGUMENTS "$SGML_FILE" + if [ $? -ne 0 ] + then exit 1 + fi +--- Original/backends/txt 2004-02-11 14:58:03.000000000 +0100 ++++ Changes/backends/txt 2007-05-21 14:22:33.000000000 +0200 +@@ -23,7 +23,7 @@ + trap 'rm -f "$HTML"; exit' 0 1 2 3 7 13 15 + + # Convert to HTML +-$SGML_JADE -V nochunks -t sgml ${SGML_ARGUMENTS} >${HTML} ++$SGML_JADE -V nochunks -t sgml ${SGML_ARGUMENTS} "$SGML_FILE" >${HTML} + if [ $? -ne 0 ] + then exit 1 + fi +--- Original/bin/jw.in 2003-04-30 18:21:49.000000000 +0200 ++++ Changes/bin/jw.in 2007-05-21 14:28:58.000000000 +0200 +@@ -246,7 +246,7 @@ then + echo -e $SGML_HELP_MESSAGE >&2 + exit 1 + fi +-if [ ! -s $SGML_FRONTEND ] ++if [ ! -s "$SGML_FRONTEND" ] + then + echo "`basename $0`: There is no frontend called \"$SGML_FRONTEND\"." >&2 + exit 2 +@@ -270,14 +270,14 @@ + echo -e $SGML_HELP_MESSAGE >&2 + exit 1 + fi +-if [ ! -s $SGML_FILE ] ++if [ ! -s "$SGML_FILE" ] + then + echo "`basename $0`: Cannot open \"$SGML_FILE\"." >&2 + exit 3 + fi + + # Separate the file name and the extension (if any) +-SGML_FILE_NAME=`basename $SGML_FILE` ++SGML_FILE_NAME=`basename "$SGML_FILE"` + SGML_FILE_NAME=${SGML_FILE_NAME%.*} + + # Determine if we are in an XML file +@@ -416,7 +416,7 @@ + fi + + # Prepare the parser's arguments +-SGML_ARGUMENTS="$SGML_INCLUDE -i $SGML_TYPE -d $SGML_STYLESHEET $SGML_OPTIONS $SGML_WARNINGS $SGML_DECL $SGML_FILE" ++SGML_ARGUMENTS="$SGML_INCLUDE -i $SGML_TYPE -d $SGML_STYLESHEET $SGML_OPTIONS $SGML_WARNINGS $SGML_DECL" + + # Call the backend + echo "Using catalogs: `echo $SGML_CATALOG_FILES | sed 's/:/, /g'`" +@@ -430,7 +430,7 @@ + then + sh $SGML_BACKEND + else +- sh $SGML_BACKEND >$SGML_FILE_NAME.html ++ sh $SGML_BACKEND >"$SGML_FILE_NAME.html" + fi + SGML_RETURN=$? + cd "$SGML_CURRENT_DIRECTORY" +diff -urNp docbook-utils-0.6.14-orig/backends/man.in docbook-utils-0.6.14/backends/man.in +--- docbook-utils-0.6.14-orig/backends/man.in 2003-02-11 13:56:23.000000000 +0100 ++++ docbook-utils-0.6.14/backends/man.in 2009-07-24 15:07:04.000000000 +0200 +@@ -7,7 +7,7 @@ HELPER=$SGML_BASE_DIR/docbook/utils-@VER + TMPDIR=`mktemp -d /tmp/man.XXXXXX` || \ + { echo >&2 "man backend: could not create secure temporary directory"; exit 1;} + trap 'rm -rf "${TMPDIR}"' EXIT +-nsgmls $SGML_FILE > "${TMPDIR}/nsgmls.tmp" ++nsgmls "$SGML_FILE" > "${TMPDIR}/nsgmls.tmp" + sgmlspl $HELPER <"${TMPDIR}/nsgmls.tmp" 2>"${TMPDIR}/errs" + if [ $? -ne 0 ] + then +diff -urNp docbook-utils-0.6.14-orig/backends/texi.in docbook-utils-0.6.14/backends/texi.in +--- docbook-utils-0.6.14-orig/backends/texi.in 2002-08-05 23:20:56.000000000 +0200 ++++ docbook-utils-0.6.14/backends/texi.in 2009-07-24 15:08:02.000000000 +0200 +@@ -3,7 +3,7 @@ + # This program is under GPL license. See LICENSE file for details. + + # Convert to texinfo +-nsgmls $SGML_FILE | sgmlspl $SGML_BASE_DIR/docbook/utils-@VERSION@/helpers/docbook2texi-spec.pl >$SGML_FILE_NAME.texi ++nsgmls "$SGML_FILE" | sgmlspl $SGML_BASE_DIR/docbook/utils-@VERSION@/helpers/docbook2texi-spec.pl >$SGML_FILE_NAME.texi + if [ $? -ne 0 ] + then exit 1 + fi Added: trunk/dports/textproc/docbook-utils/files/docbook-utils-grepnocolors.patch =================================================================== --- trunk/dports/textproc/docbook-utils/files/docbook-utils-grepnocolors.patch (rev 0) +++ trunk/dports/textproc/docbook-utils/files/docbook-utils-grepnocolors.patch 2012-10-01 05:34:33 UTC (rev 98259) @@ -0,0 +1,15 @@ +diff -urNp docbook-utils-0.6.14-orig/bin/jw.in docbook-utils-0.6.14/bin/jw.in +--- docbook-utils-0.6.14-orig/bin/jw.in 2008-11-28 10:53:09.000000000 +0100 ++++ docbook-utils-0.6.14/bin/jw.in 2008-11-28 11:22:28.000000000 +0100 +@@ -81,9 +81,9 @@ SGML_CATALOGS_DIR="/etc/sgml" + if [ -f "$SGML_CONF" ] + then + RE='^[:space:]*SGML_BASE_DIR[:space:]*=[:space:]*' +- SGML_BASE_DIR=`grep $RE $SGML_CONF | sed "s/$RE//"` ++ SGML_BASE_DIR=`grep --color=never $RE $SGML_CONF | sed "s/$RE//"` + RE='^[:space:]*SGML_CATALOGS_DIR[:space:]*=[:space:]*' +- SGML_CATALOGS_DIR=`grep $RE $SGML_CONF | sed "s/$RE//"` ++ SGML_CATALOGS_DIR=`grep --color=never $RE $SGML_CONF | sed "s/$RE//"` + fi + + # Set frontend to use Added: trunk/dports/textproc/docbook-utils/files/docbook-utils-newgrep.patch =================================================================== --- trunk/dports/textproc/docbook-utils/files/docbook-utils-newgrep.patch (rev 0) +++ trunk/dports/textproc/docbook-utils/files/docbook-utils-newgrep.patch 2012-10-01 05:34:33 UTC (rev 98259) @@ -0,0 +1,24 @@ +diff -urNp docbook-utils-0.6.14-orig/bin/jw.in docbook-utils-0.6.14/bin/jw.in +--- docbook-utils-0.6.14-orig/bin/jw.in 2010-09-28 18:18:39.567895321 +0200 ++++ docbook-utils-0.6.14/bin/jw.in 2010-09-28 18:23:25.849756994 +0200 +@@ -80,9 +80,9 @@ SGML_BASE_DIR="@prefix@/share/sgml" + SGML_CATALOGS_DIR="/etc/sgml" + if [ -f "$SGML_CONF" ] + then +- RE='^[:space:]*SGML_BASE_DIR[:space:]*=[:space:]*' ++ RE='^[[:space:]]*SGML_BASE_DIR[[:space:]]*=[[:space:]]*' + SGML_BASE_DIR=`grep --color=never $RE $SGML_CONF | sed "s/$RE//"` +- RE='^[:space:]*SGML_CATALOGS_DIR[:space:]*=[:space:]*' ++ RE='^[[:space:]]*SGML_CATALOGS_DIR[[:space:]]*=[[:space:]]*' + SGML_CATALOGS_DIR=`grep --color=never $RE $SGML_CONF | sed "s/$RE//"` + fi + +@@ -312,7 +312,7 @@ case $SGML_STANDARD_CATALOGS in + SGML_CATALOG_FILES=$SGML_CENTRALIZED_CATALOG + else + SGML_CATALOG_FILES=`find $SGML_BASE_DIR -name catalog` +- SGML_CATALOG_FILES=`echo "$SGML_CATALOG_FILES" | tr [:space:] :` ++ SGML_CATALOG_FILES=`echo "$SGML_CATALOG_FILES" | tr [[:space:]] :` + fi + ;; + no) SGML_CATALOG_FILES="" Added: trunk/dports/textproc/docbook-utils/files/docbook-utils-nofinalecho.patch =================================================================== --- trunk/dports/textproc/docbook-utils/files/docbook-utils-nofinalecho.patch (rev 0) +++ trunk/dports/textproc/docbook-utils/files/docbook-utils-nofinalecho.patch 2012-10-01 05:34:33 UTC (rev 98259) @@ -0,0 +1,12 @@ +diff -urNp docbook-utils-0.6.14-orig/bin/jw.in docbook-utils-0.6.14/bin/jw.in +--- docbook-utils-0.6.14-orig/bin/jw.in 2010-05-31 16:21:46.379401250 +0200 ++++ docbook-utils-0.6.14/bin/jw.in 2010-05-31 16:23:55.348413466 +0200 +@@ -438,5 +438,7 @@ cd "$SGML_CURRENT_DIRECTORY" + if [ $SGML_RETURN -gt 0 ] + then exit `expr 7 + $SGML_RETURN` + fi +-echo "Done." ++#Final echo commented out, it causes manpage noise when generating some ++#manpages with new perl(#513271, #587012) ++#echo "Done." + exit 0 Added: trunk/dports/textproc/docbook-utils/files/docbook-utils-papersize.patch =================================================================== --- trunk/dports/textproc/docbook-utils/files/docbook-utils-papersize.patch (rev 0) +++ trunk/dports/textproc/docbook-utils/files/docbook-utils-papersize.patch 2012-10-01 05:34:33 UTC (rev 98259) @@ -0,0 +1,12 @@ +diff -urNp docbook-utils-0.6.14-orig/bin/jw.in docbook-utils-0.6.14/bin/jw.in +--- docbook-utils-0.6.14-orig/bin/jw.in 2009-10-07 14:41:19.000000000 +0200 ++++ docbook-utils-0.6.14/bin/jw.in 2009-10-07 14:45:22.000000000 +0200 +@@ -368,7 +368,7 @@ case "$SGML_OPTIONS" in + fi + if [ -n "$papersize" ] + then +- SGML_OPTIONS="-V paper-type=$papersize $SGML_OPTIONS" ++ SGML_OPTIONS="-V %paper-type%=$papersize $SGML_OPTIONS" + fi + ;; + esac Added: trunk/dports/textproc/docbook-utils/files/docbook-utils-rtfmanpage.patch =================================================================== --- trunk/dports/textproc/docbook-utils/files/docbook-utils-rtfmanpage.patch (rev 0) +++ trunk/dports/textproc/docbook-utils/files/docbook-utils-rtfmanpage.patch 2012-10-01 05:34:33 UTC (rev 98259) @@ -0,0 +1,15 @@ +diff -urNp docbook-utils-0.6.14-orig/doc/man/jw.1 docbook-utils-0.6.14/doc/man/jw.1 +--- docbook-utils-0.6.14-orig/doc/man/jw.1 2004-02-11 15:16:21.000000000 +0100 ++++ docbook-utils-0.6.14/doc/man/jw.1 2009-08-13 10:44:03.000000000 +0200 +@@ -192,6 +192,11 @@ by calling \fBJade\fR or + \fBOpenJade\fR\&. The resulting file can + then be inported into \fBMS Word\fR + or one of its Linux replacement programs. ++ ++\fBNote\fR - The original picture must be ++present when RTF document is viewed, because ++the RTF documents created by \fBOpenJade\fR ++includes pictures by reference. + .TP + \fB\fItex\fB\fR + Converts to TeX by calling \fBJade\fR or Added: trunk/dports/textproc/docbook-utils/files/docbook-utils-sgmlinclude.patch =================================================================== --- trunk/dports/textproc/docbook-utils/files/docbook-utils-sgmlinclude.patch (rev 0) +++ trunk/dports/textproc/docbook-utils/files/docbook-utils-sgmlinclude.patch 2012-10-01 05:34:33 UTC (rev 98259) @@ -0,0 +1,24 @@ +diff -urNp docbook-utils-0.6.14-orig/backends/man.in docbook-utils-0.6.14/backends/man.in +--- docbook-utils-0.6.14-orig/backends/man.in 2009-07-24 15:17:42.000000000 +0200 ++++ docbook-utils-0.6.14/backends/man.in 2009-07-24 15:20:57.000000000 +0200 +@@ -7,7 +7,7 @@ HELPER=$SGML_BASE_DIR/docbook/utils-@VER + TMPDIR=`mktemp -d /tmp/man.XXXXXX` || \ + { echo >&2 "man backend: could not create secure temporary directory"; exit 1;} + trap 'rm -rf "${TMPDIR}"' EXIT +-nsgmls "$SGML_FILE" > "${TMPDIR}/nsgmls.tmp" ++nsgmls "$SGML_INCLUDE" "$SGML_FILE" > "${TMPDIR}/nsgmls.tmp" + sgmlspl $HELPER <"${TMPDIR}/nsgmls.tmp" 2>"${TMPDIR}/errs" + if [ $? -ne 0 ] + then +diff -urNp docbook-utils-0.6.14-orig/bin/jw.in docbook-utils-0.6.14/bin/jw.in +--- docbook-utils-0.6.14-orig/bin/jw.in 2009-07-24 15:17:42.000000000 +0200 ++++ docbook-utils-0.6.14/bin/jw.in 2009-07-24 15:18:51.000000000 +0200 +@@ -423,7 +423,7 @@ echo "Using catalogs: `echo $SGML_CATALO + echo "Using stylesheet: $SGML_STYLESHEET" + echo "Working on: $SGML_FILE" + cd "$SGML_OUTPUT_DIRECTORY" +-export SGML_JADE SGML_FILE_NAME SGML_ARGUMENTS ++export SGML_JADE SGML_FILE_NAME SGML_ARGUMENTS SGML_INCLUDE + export SGML_CATALOG_FILES SGML_BASE_DIR SGML_FILE SGML_STYLESHEET + NOCHUNKS=`echo $SGML_OPTIONS | grep nochunks` + if [ -z "$NOCHUNKS" ] Added: trunk/dports/textproc/docbook-utils/files/docbook-utils-spaces.patch =================================================================== --- trunk/dports/textproc/docbook-utils/files/docbook-utils-spaces.patch (rev 0) +++ trunk/dports/textproc/docbook-utils/files/docbook-utils-spaces.patch 2012-10-01 05:34:33 UTC (rev 98259) @@ -0,0 +1,32 @@ +--- docbook-utils-0.6.14/bin/jw.in.spaces 2003-04-30 17:21:49.000000000 +0100 ++++ docbook-utils-0.6.14/bin/jw.in 2004-08-19 09:33:34.989426640 +0100 +@@ -405,9 +405,9 @@ + echo -e $SGML_HELP_MESSAGE >&2 + exit 1 + fi +-if [ ! -d $SGML_OUTPUT_DIRECTORY ] ++if [ ! -d "$SGML_OUTPUT_DIRECTORY" ] + then +- mkdir $SGML_OUTPUT_DIRECTORY 2>/dev/null ++ mkdir "$SGML_OUTPUT_DIRECTORY" 2>/dev/null + if [ $? -ne 0 ] + then + echo "`basename $0`: Could not create \"$SGML_OUTPUT_DIRECTORY\" output directory" >&2 +@@ -422,7 +422,7 @@ + echo "Using catalogs: `echo $SGML_CATALOG_FILES | sed 's/:/, /g'`" + echo "Using stylesheet: $SGML_STYLESHEET" + echo "Working on: $SGML_FILE" +-cd $SGML_OUTPUT_DIRECTORY ++cd "$SGML_OUTPUT_DIRECTORY" + export SGML_JADE SGML_FILE_NAME SGML_ARGUMENTS + export SGML_CATALOG_FILES SGML_BASE_DIR SGML_FILE SGML_STYLESHEET + NOCHUNKS=`echo $SGML_OPTIONS | grep nochunks` +@@ -433,7 +433,7 @@ + sh $SGML_BACKEND >$SGML_FILE_NAME.html + fi + SGML_RETURN=$? +-cd $SGML_CURRENT_DIRECTORY ++cd "$SGML_CURRENT_DIRECTORY" + + if [ $SGML_RETURN -gt 0 ] + then exit `expr 7 + $SGML_RETURN` Added: trunk/dports/textproc/docbook-utils/files/docbook-utils-w3mtxtconvert.patch =================================================================== --- trunk/dports/textproc/docbook-utils/files/docbook-utils-w3mtxtconvert.patch (rev 0) +++ trunk/dports/textproc/docbook-utils/files/docbook-utils-w3mtxtconvert.patch 2012-10-01 05:34:33 UTC (rev 98259) @@ -0,0 +1,12 @@ +diff -urNp original/txt new/txt +--- original/backends/txt 2007-11-05 18:44:52.000000000 +0100 ++++ new/backends/txt 2007-11-22 15:21:36.000000000 +0100 +@@ -13,7 +13,7 @@ then + elif [ -x /usr/bin/w3m ] + then + CONVERT=/usr/bin/w3m +- ARGS="-dump" ++ ARGS="-T text/html -dump" + else + echo >&2 "No way to convert HTML to text found." + exit 1 Added: trunk/dports/textproc/docbook-utils/files/docbook2man-spec.pl =================================================================== --- trunk/dports/textproc/docbook-utils/files/docbook2man-spec.pl (rev 0) +++ trunk/dports/textproc/docbook-utils/files/docbook2man-spec.pl 2012-10-01 05:34:33 UTC (rev 98259) @@ -0,0 +1,1564 @@ +=head1 NAME + +docbook2man-spec.pl - convert DocBook RefEntries to Unix manpages + +=head1 SYNOPSIS + +The sgmlspl script from the SGMLSpm Perl module must be used to run +this script. Use it like this: + +nsgmls some-docbook-document.sgml | sgmlspl docbook2man-spec.pl + +See man page or included DocBook documentation for details. + +=head1 DESCRIPTION + +This is a sgmlspl spec file that produces Unix-style +man pages from DocBook RefEntry markup. + +=head1 COPYRIGHT + +Copyright (C) 1998-2001 Steve Cheng <stevecheng@users.sourceforge.net> + +Copyright (C) 1999 Thomas Lockhart <lockhart@alumni.caltech.edu> + +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. + +You should have received a copy of the GNU General Public License along with +this program; see the file COPYING. If not, please write to the Free +Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. + +=cut + +# $Id: docbook2man-spec.pl,v 1.11 2010/10/04 10:23:31 ovasik Exp $ + +use SGMLS; # Use the SGMLS package. +use SGMLS::Output; # Use stack-based output. +use SGMLS::Refs; + + +######################################################################## +# SGMLSPL script produced automatically by the script sgmlspl.pl +# +# Document Type: any, but processes only RefEntries +# Edited by: me :) +######################################################################## + + +$write_manpages = 0; +$blank_xrefs = 0; + +$default_sect = "1"; +$default_date = `date "+%d %B %Y"`; +$cite_numeral_only = 1; + +while (@ARGV) { + my $arg = shift @ARGV; + if ($arg eq "--section") { + $default_sect = shift @ARGV || die "$arg requires an argument\n"; + } elsif ($arg eq "--date") { + $default_date = shift @ARGV || die "$arg requires an argument\n"; + } elsif ($arg eq "--lowercase") { + $lowercase_names = 1; + } elsif ($arg eq "--preserve-case") { + $lowercase_names = 0; + } elsif ($arg eq "--cite-numeral-only") { + $cite_numeral_only = 1; + } elsif ($arg eq "--nocite-numeral-only") { + $cite_numeral_only = 0; + } elsif ($arg eq "--help") { + print "Usage: $0", + " [ --section <label> ]", + " [ --date <string> ]", + " [ --lowercase | --preserve-case ]", + " [ --cite-numeral-only | --nocite-numeral-only ]", + "\n"; + exit; + } else { + die "unrecognized switch $arg; try $0 --help\n"; + } +} + +sgml('start', sub { + push_output('nul'); + $raw_cdata = 1; # Makes it a bit faster. + + # Links file + open(LINKSFILE, ">manpage.links"); + + $Refs = new SGMLS::Refs("manpage.refs", "manpage.log"); +}); +sgml('end', sub { + close(LINKSFILE); + + # Explicitly invoke destructor, + # otherwise cache file may not get written! + # Thomas Lockhart, 1999-08-03, perl-5.004, RedHat5.2 + undef $Refs; + + if($blank_xrefs) { + warn "Warning: output contains unresolved XRefs\n"; + } +}); + + +######################################################################## +# +# Output helpers +# +######################################################################## + +# Remove leading and trailing blanks. + +sub StripString +{ + my $str = shift; + + $str = $1 if ($str =~ m#^\s*(\S.*)#); + $str = $1 if ($str =~ m#^(.*\S)\s*$#); + + return $str; +} + +# Generate a good file name, for given manpage title and manvolnum +# (cdata content). +# Cleanup whitespace and convert to lower case if required. + +sub FileInfo +{ + my $title = StripString(shift); + my $volnum = StripString(shift); + + $title = lc $title if $lowercase_names; + + $title =~ tr/ /_/; + $volnum =~ tr/ /_/; + + my $sectcite = $volnum; + # The 'package name' part of the section should + # not be used when citing it. + if ($cite_numeral_only) { + $sectcite = $1 if ($volnum =~ /^([0-9]+)/); + } + + return ("$title.$volnum", "$title($sectcite)"); +} + +# Our own version of sgml() and output() to allow simple string output +# to play well with roff's stupid whitespace rules. + +sub man_sgml +{ + if(ref($_[1]) eq 'CODE') { + return &sgml; + } + + my $s = $_[1]; + $s =~ s/\\/\\\\/g; + $s =~ s/'/\\'/g; + + sgml($_[0], eval("sub { man_output '$s' }")); +} + +sub man_output +{ + if($separator eq 'full') { + output "\n" unless $newline_last++; + output ".PP\n"; + $separator = ''; + } + + $_ = shift; + if(s/^\n//) { + output "\n" unless $newline_last++; + } + return if $_ eq ''; + + output $_; + + if(@_) { + output @_; + $newline_last = (pop(@_) =~ /\n$/); + } else { + $newline_last = ($_ =~ /\n$/) + } +} + +# Fold lines into one, quote some characters +sub fold_string +{ + $_ = shift; + + s/\\/\\\\/g; + s/"/""/g; + + # Change tabs and newlines to spaces + # The newlines will be swallowed later while trimming + tr/[\t\n]/ /; + + # Trim whitespace from beginning and end. + s/^ +//; + s/ +$//; + + return $_; +} + +sub save_cdata() +{ + $raw_cdata++; + push_output('string'); +} + +sub bold_on() +{ + # If the last font is also bold, don't change anything. + # Basically this is to just get more readable man output. + if($fontstack[$#fontstack] ne 'bold') { + if(!$raw_cdata) { + output '\fB'; + #$newline_last = 0; + } + } + push(@fontstack, 'bold'); +} + +sub italic_on() +{ + # If the last font is also italic, don't change anything. + if($fontstack[$#fontstack] ne 'italic') { + if(!$raw_cdata) { + output '\fI'; + #$newline_last = 0; + } + } + push(@fontstack, 'italic'); +} + +sub font_off() +{ + my $thisfont = pop(@fontstack); + my $lastfont = $fontstack[$#fontstack]; + + # Only output font change if it is different + if($thisfont ne $lastfont) { + if($raw_cdata) { return; } + elsif($lastfont eq 'bold') { output '\fB'; } + elsif($lastfont eq 'italic') { output '\fI'; } + else { output '\fR'; } + + #$newline_last = 0; + } +} + + +######################################################################## +# +# Manpage management +# +######################################################################## + +sgml('<REFENTRY>', sub { + # This will be overwritten at end of REFMETA, when we know the name of the page. + pop_output(); + + $write_manpages = 1; # Currently writing manpage. + + $nocollapse_whitespace = 0; # Current whitespace collapse counter. + $newline_last = 1; # At beginning of line? + # Just a bit of warning, you will see this variable manipulated + # manually a lot. It makes the code harder to follow but it + # saves you from having to worry about collapsing at the end of + # parse, stopping at verbatims, etc. + $raw_cdata = 0; # Instructs certain output functions to + # leave CDATA alone, so we can assign + # it to a string and process it, etc. + @fontstack = (); # Fonts being activated. + + $list_nestlevel = 0; # Indent certain nested content. + + # Separator to use between 'elements' in the content of a + # paragraph (usually). This makes sure that PCDATA after a list + # in a PARA gets a break in between and not become part of the + # last listitem. Note that we can't do it after the list ends, + # because often the list ends the paragraph and we'll get an + # extra break. Anything that changes the separator status from + # the default should also save its last state in the parent + # element's ext, but I'm not going to explain further. It's a + # gross hack and almost guaranteed to fail in unforseen cases. + # The only way to avoid all this is to use a tree/grove model, which + # we're _not_ doing. + $separator = ''; + + $manpage_title = ''; # Needed for indexing. + $manpage_sect = ''; + @manpage_names = (); + + $manpage_misc = ''; + + # check refentry's language + if(defined($_[0]->attribute('LANG')->value)) { + $manpage_lang = $_[0]->attribute('LANG')->value; + } + else { + $manpage_lang = ''; + } +}); +sgml('</REFENTRY>', sub { + if(!$newline_last) { + output "\n"; + } + + $raw_cdata = 1; + push_output('nul'); + + $write_manpages = 0; +}); + +sgml('</REFMETA>', sub { + my ($filename, $citation) = + FileInfo($manpage_title, $manpage_sect || $default_sect); + + push_output('file', $filename); + + output <<'_END_BANNER'; +.\" auto-generated by docbook2man-spec from docbook-utils package +_END_BANNER + + my $manpage_date = $_[0]->parent->ext->{'date'} || $default_date; + + output '.TH "'; + + # If the title is not mixed-case, convention says to + # uppercase the whole title. (The canonical title is + # lowercase.) + if($manpage_title =~ /[A-Z]/) { + output fold_string($manpage_title); + } else { + output uc(fold_string($manpage_title)); + } + + output '" "', fold_string($manpage_sect), + '" "', fold_string($manpage_date), + '" "', $manpage_misc, + '" "', $manpage_manual, + "\"\n"; + + $newline_last = 1; + + # References to this RefEntry. + if(defined($_[0]->parent->attribute('ID')->value)) { + my $id = $_[0]->parent->attribute('ID')->value; + + # Append XREFLABEL content to citations. + if(defined($_[0]->parent->attribute('XREFLABEL')->value)) { + $citation = $_[0]->parent->attribute('XREFLABEL')->value . + ' [' . $citation . ']'; + } + + $Refs->put("refentry:$id", $citation); + } +}); + +sgml('<REFENTRYTITLE>', sub { + if($_[0]->in('REFMETA')) { + save_cdata(); + } else { + # Manpage citations are in bold. + bold_on(); + } +}); +sgml('</REFENTRYTITLE>', sub { + if($_[0]->in('REFMETA')) { + $raw_cdata--; + $manpage_title = pop_output(); + } + else { font_off(); } + + if (defined($_[0]->attribute('ID')->value)) { + my $id = $_[0]->attribute('ID')->value; + $Refs->put("refentrytitle:$id", $manpage_title); + } +}); + +sgml('<MANVOLNUM>', sub { + if($_[0]->in('REFMETA')) { + save_cdata(); + } else { + # Manpage citations use (). + output '('; + } +}); +sgml('</MANVOLNUM>', sub { + if($_[0]->in('REFMETA')) { + $raw_cdata--; + $manpage_sect = pop_output(); + } + else { output ')' } +}); + +sgml('<REFMISCINFO>', \&save_cdata); +sgml('</REFMISCINFO>', sub { + $raw_cdata--; + $manpage_misc = fold_string(pop_output()); +}); + + +# NAME section +#man_sgml('<REFNAMEDIV>', "\n.SH NAME\n"); +man_sgml('<REFNAMEDIV>', sub { + my %text = { fr=>'NOM', es=>'NOMBRE', pl=>'NAZWA' }; + + if(defined $text{lc($manpage_lang)}) + { + man_output "\n.SH " . $text{lc($manpage_lang)} . "\n"; + } elsif(defined $_[0]->attribute('LANG') and + defined $text{lc($_[0]->attribute('LANG')->value)}) + { + man_output "\n.SH " . $text{lc($_[0]->attribute('LANG'))} . "\n"; + } else { + man_output "\n.SH NAME\n"; + } +}); + +sgml('<REFNAME>', \&save_cdata); +sgml('</REFNAME>', sub { + $raw_cdata--; + push(@manpage_names, pop_output()); +}); + +sgml('<REFPURPOSE>', \&save_cdata); +sgml('</REFPURPOSE>', sub { + $raw_cdata--; + my $manpage_purpose = fold_string(pop_output()); + + for(my $i = 0; $i < $#manpage_names; $i++) { + output fold_string($manpage_names[$i]), ', '; + } + + output fold_string($manpage_names[$#manpage_names]); + output " \\- $manpage_purpose\n"; + + $newline_last = 1; + + foreach(@manpage_names) { + # Don't link to itself + if($_ ne $manpage_title) { + print LINKSFILE "$manpage_title.$manpage_sect $_.$manpage_sect\n"; + } + } +}); + +man_sgml('<REFCLASS>', "\n.sp\n"); + +#RefDescriptor + + +######################################################################## +# +# SYNOPSIS section and synopses +# +######################################################################## + +#man_sgml('<REFSYNOPSISDIV>', "\n.SH SYNOPSIS\n"); +man_sgml('<REFSYNOPSISDIV>', sub { + if ($manpage_lang eq "pl") { man_output "\n.SH SK\xA3ADNIA\n"; } + # waits for another languages + #elsif ($manpage_lang eq "xx") { man_output "\n.SH xxxxxxx\n"; } + else { man_output "\n.SH SYNOPSIS\n"; } +}); + +man_sgml('</REFSYNOPSISDIV>', "\n"); + +## FIXME! Must be made into block elements!! +#sgml('<FUNCSYNOPSIS>', \&bold_on); +#sgml('</FUNCSYNOPSIS>', \&font_off); +#sgml('<CMDSYNOPSIS>', \&bold_on); +#sgml('</CMDSYNOPSIS>', \&font_off); + +man_sgml('<FUNCSYNOPSIS>', sub { + man_output("\n.nf\n"); + bold_on(); +}); +man_sgml('</FUNCSYNOPSIS>', sub { + man_output("\n.fi"); + font_off(); +}); + +man_sgml('<CMDSYNOPSIS>', "\n.sp\n"); +man_sgml('</CMDSYNOPSIS>', "\n"); + +man_sgml('<FUNCPROTOTYPE>', "\n.sp\n"); + +# Arguments to functions. This is C convention. +#man_sgml('<PARAMDEF>', '('); +#man_sgml('</PARAMDEF>', ");\n"); +#man_sgml('<VOID>', "(void);\n"); +sub paramdef +{ + if($_[0]->parent->ext->{'inparams'}) { + output ', '; + } else { + output ' ('; + $_[0]->parent->ext->{'inparams'} = 1; + } +} +man_sgml('<PARAMDEF>', \¶mdef); +man_sgml('</FUNCPROTOTYPE>', ");\n"); +man_sgml('<VOID>', "(void"); +man_sgml('<VARARGS>', "(..."); + + +sub arg_start +{ + # my $choice = $_[0]->attribute('CHOICE')->value; + + # The content model for CmdSynopsis doesn't include #PCDATA, + # so we won't see any of the whitespace in the source file, + # so we have to add it after each component. + man_output ' '; + + if($_[0]->attribute('CHOICE')->value =~ /opt/i) { + man_output '[ '; + } + bold_on(); +} +sub arg_end +{ + font_off(); + if($_[0]->attribute('REP')->value =~ /^Repeat/i) { + italic_on(); + man_output '...'; + font_off(); + } + if($_[0]->attribute('CHOICE')->value =~ /opt/i) { + man_output ' ] '; + } +} + +sgml('<ARG>', \&arg_start); +sgml('</ARG>', \&arg_end); +sgml('<GROUP>', \&arg_start); +sgml('</GROUP>', \&arg_end); + +sgml('<OPTION>', \&bold_on); +sgml('</OPTION>', \&font_off); + +# FIXME: This is one _blank_ line. +man_sgml('<SBR>', "\n\n"); + + +######################################################################## +# +# General sections +# +######################################################################## + +# The name of the section is handled by TITLE. This just sets +# up the roff markup. +man_sgml('<REFSECT1>', sub { $separator = ''; man_output "\n.SH "}); +man_sgml('<REFSECT2>', sub { $separator = ''; man_output "\n.SS "}); +man_sgml('<REFSECT3>', sub { $separator = ''; man_output "\n.SS "}); + + +######################################################################## +# +# Titles, metadata. +# +######################################################################## + +sgml('<TITLE>', sub { + if($_[0]->in('REFERENCE') or $_[0]->in('BOOK')) { + $write_manpages = 1; + } + save_cdata(); +}); +sgml('</TITLE>', sub { + my ($element, $event) = @_; + my $title = fold_string(pop_output()); + $raw_cdata--; + + if($element->in('REFERENCE') or $element->in('BOOK')) { + # We use TITLE of enclosing Reference or Book as manual name + $manpage_manual = $title; + $write_manpages = 0; + } + elsif(exists $element->parent->ext->{'title'}) { + # By far the easiest case. Just fold the string as + # above, and then set the parent element's variable. + $_[0]->parent->ext->{'title'} = $title; + } + else { + # If the parent element's handlers are lazy, + # output the folded string for them :) + # We assume they want uppercase and a newline. + man_output '"', uc($title), "\"\n"; + } + + if (defined($element->attribute('ID')->value)) { + my $id = $_[0]->attribute('ID')->value; + $Refs->put("title:$id", $title); + } + + my ($filename, $citation) = + FileInfo($manpage_title, $manpage_sect || $default_sect); + my $parentid = $element->parent->attribute('ID')->value; + if ($parentid and ($element->in('REFSECT1') or $element->in('REFSECT2') or $element->in('REFSECT3'))) { + $Refs->put("refsect:$parentid", "$citation"); + } +}); + +sgml('<ATTRIBUTION>', sub { + if($_[0]->in('BLOCKQUOTE')) { + push_output('string'); + } +}); +sgml('</ATTRIBUTION>', sub { + if($_[0]->in('BLOCKQUOTE')) { + $_[0]->parent->ext->{'attribution'} = pop_output(); + } else { + # For an Epigraph. + man_output "\n\n"; + } +}); + +sgml('<DATE>', sub { + save_cdata(); +}); +sgml('</DATE>', sub { + $_[0]->parent->parent->ext->{'date'} = fold_string(pop_output()); + $raw_cdata--; +}); + +sub ignore_content { push_output 'nul'; } +sub restore_content { pop_output(); } + +sgml('<DOCINFO>', \&ignore_content); +sgml('</DOCINFO>', \&restore_content); +sgml('<REFSYNOPSISDIVINFO>', \&ignore_content); +sgml('</REFSYNOPSISDIVINFO>', \&restore_content); +sgml('<REFSECT1INFO>', \&ignore_content); +sgml('</REFSECT1INFO>', \&restore_content); +sgml('<REFSECT2INFO>', \&ignore_content); +sgml('</REFSECT2INFO>', \&restore_content); +sgml('<REFSECT3INFO>', \&ignore_content); +sgml('</REFSECT3INFO>', \&restore_content); + +sgml('<INDEXTERM>', \&ignore_content); +sgml('</INDEXTERM>', \&restore_content); + +sgml('<AUTHORBLURB>', \&ignore_content); +sgml('</AUTHORBLURB>', \&restore_content); + + +######################################################################## +# +# Set bold on enclosed content +# +######################################################################## + +sgml('<APPLICATION>', \&bold_on); +sgml('</APPLICATION>', \&font_off); + +sgml('<CLASSNAME>', \&bold_on); sgml('</CLASSNAME>', \&font_off); +sgml('<STRUCTNAME>', \&bold_on); sgml('</STRUCTNAME>', \&font_off); +sgml('<STRUCTFIELD>', \&bold_on); sgml('</STRUCTFIELD>', \&font_off); +sgml('<SYMBOL>', \&bold_on); sgml('</SYMBOL>', \&font_off); +sgml('<TYPE>', \&bold_on); sgml('</TYPE>', \&font_off); + +sgml('<ENVAR>', \&bold_on); sgml('</ENVAR>', \&font_off); + +sgml('<FUNCTION>', \&bold_on); sgml('</FUNCTION>', \&font_off); + +sgml('<EMPHASIS>', \&bold_on); sgml('</EMPHASIS>', \&font_off); + +sgml('<ERRORNAME>', \&bold_on); sgml('</ERRORNAME>', \&font_off); +# ERRORTYPE + +sgml('<COMMAND>', \&bold_on); sgml('</COMMAND>', \&font_off); + +sgml('<GUIBUTTON>', \&bold_on); sgml('</GUIBUTTON>', \&font_off); +sgml('<GUIICON>', \&bold_on); sgml('</GUIICON>', \&font_off); +# GUILABEL +# GUIMENU +# GUIMENUITEM +# GUISUBMENU +# MENUCHOICE + +sgml('<ACCEL>', \&bold_on); sgml('</ACCEL>', \&font_off); +# KEYCODE +# SHORTCUT + + +sgml('<KEYCOMBO>', sub { + $separator = 'none'; + $_[0]->ext->{'separator'} = 'none'; +}); +sgml('</KEYCOMBO>', sub { $separator = $_[0]->parent->ext->{'separator'}; }); + +sub _keycombo { + if($_[0]->in('KEYCOMBO')) { + if($separator eq 'none') { $separator = '' } + else { man_output "+"; } + } + bold_on(); +} +sgml('<KEYCAP>', \&_keycombo); sgml('</KEYCAP>', \&font_off); +sgml('<KEYSYM>', \&_keycombo); sgml('</KEYSYM>', \&font_off); +sgml('<MOUSEBUTTON>', \&_keycombo); sgml('</MOUSEBUTTON>', \&font_off); + + +sgml('<USERINPUT>', \&bold_on); sgml('</USERINPUT>', \&font_off); + +sgml('<INTERFACEDEFINITION>', \&bold_on); +sgml('</INTERFACEDEFINITION>', \&font_off); + +# May need to look at the CLASS +sgml('<SYSTEMITEM>', \&bold_on); +sgml('</SYSTEMITEM>', \&font_off); + + +######################################################################## +# +# Set italic on enclosed content +# +######################################################################## + +sgml('<FIRSTTERM>', \&italic_on); sgml('</FIRSTTERM>', \&font_off); + +sgml('<FILENAME>', \&italic_on); sgml('</FILENAME>', \&font_off); +sgml('<PARAMETER>', \&italic_on); sgml('</PARAMETER>', \&font_off); +sgml('<PROPERTY>', \&italic_on); sgml('</PROPERTY>', \&font_off); + +sgml('<REPLACEABLE>', sub { + italic_on(); + if($_[0]->in('TOKEN')) { + # When tokenizing, follow more 'intuitive' convention + output "<"; + } +}); +sgml('</REPLACEABLE>', sub { + if($_[0]->in('TOKEN')) { + output ">"; + } + font_off(); +}); + +sgml('<CITETITLE>', \&italic_on); sgml('</CITETITLE>', \&font_off); +sgml('<FOREIGNPHRASE>', \&italic_on); sgml('</FOREIGNPHRASE>', \&font_off); + +sgml('<LINEANNOTATION>', \&italic_on); sgml('</LINEANNOTATION>', \&font_off); + + +######################################################################## +# +# Other 'inline' elements +# +######################################################################## + +man_sgml('<EMAIL>', '<'); +man_sgml('</EMAIL>', '>'); +man_sgml('<OPTIONAL>', '['); +man_sgml('</OPTIONAL>', ']'); + +man_sgml('</TRADEMARK>', "\\u\\s-2TM\\s+2\\d"); + +man_sgml('<COMMENT>', "[Comment: "); +man_sgml('</COMMENT>', "]"); + +man_sgml('<QUOTE>', "``"); +man_sgml('</QUOTE>', "''"); + +#man_sgml('<LITERAL>', '"'); +#man_sgml('</LITERAL>', '"'); +# There doesn't seem to be a good way to represent LITERAL in -man +# ComputerOutput, SGMLTag, Markup are the same thing. + +# These create spaces between content in special elements +# without PCDATA content. +man_sgml('</HONORIFIC>', " "); +man_sgml('</FIRSTNAME>', " "); +man_sgml('</SURNAME>', " "); +man_sgml('</LINEAGE>', " "); +man_sgml('</OTHERNAME>', " "); + +man_sgml('<AFFILIATION>', "("); +man_sgml('</AFFILIATION>', ") "); +man_sgml('<CONTRIB>', "("); +man_sgml('</CONTRIB>', ") "); + +man_sgml('</STREET>', " "); +man_sgml('</POB>', " "); +man_sgml('</POSTCODE>', " "); +man_sgml('</CITY>', " "); +man_sgml('</STATE>', " "); +man_sgml('</COUNTRY>', " "); +man_sgml('</PHONE>', " "); +man_sgml('</FAX>', " "); +man_sgml('</OTHERADDRESS>', " "); + +man_sgml('</ALT>', ": "); +man_sgml('<GRAPHIC>', " [GRAPHIC] "); + +# No special presentation: + +# AUTHORINITIALS + +# ABBREV +# ACTION +# ACRONYM +# CITATION +# PHRASE +# QUOTE +# WORDASWORD + +# PROMPT +# RETURNVALUE +# TOKEN + +# DATABASE +# HARDWARE +# INTERFACE +# MEDIALABEL + + +######################################################################## +# +# Paragraph and paragraph-like elements +# +######################################################################## + +sub para_start { + if($separator eq '' or $separator eq 'full') { + $separator = ''; + man_output "\n.PP\n"; + } elsif($separator eq 'blank') { + man_output "\n\n"; + } elsif($separator eq 'none' ) { + $_[0]->parent->ext->{'separator'} = 'blank'; + $separator = 'blank'; + } +} +# Actually applies to a few other block elements as well +sub para_end { + $separator = $_[0]->parent->ext->{'separator'}; + man_output "\n"; +} + +sgml('<PARA>', \¶_start); +sgml('</PARA>', \¶_end); +sgml('<SIMPARA>', \¶_start); +sgml('</SIMPARA>', \¶_end); + +# Nothing special, except maybe FIXME set nobreak. +sgml('<INFORMALEXAMPLE>', \¶_start); +sgml('</INFORMALEXAMPLE>', \¶_end); + + +######################################################################## +# +# Blocks using SS sections +# +######################################################################## + +# FIXME: We need to consider the effects of SS +# in a hanging tag :( + +# Complete with the optional-title dilemma (again). +sgml('<ABSTRACT>', sub { + $_[0]->ext->{'title'} = 'ABSTRACT'; + output "\n" unless $newline_last++; + push_output('string'); +}); +sgml('</ABSTRACT>', sub { + my $content = pop_output(); + + # As ABSTRACT is never on the same level as RefSect1, + # this leaves us with only .SS in terms of -man macros. + output ".SS \"", uc($_[0]->ext->{'title'}), "\"\n"; + + output $content; + output "\n" unless $newline_last++; +}); + + + +# Ah, I needed a break. Example always has a title. +sgml('<EXAMPLE>', sub { $separator = ''; man_output "\n.SS "}); +sgml('</EXAMPLE>', \¶_end); + +# Same with sidebar. +sgml('<SIDEBAR>', sub { $separator = ''; man_output "\n.SS "}); +sgml('</SIDEBAR>', \¶_end); + +sgml('<FORMALPARA>', sub { $separator = ''; man_output "\n.SS "}); +sgml('</FORMALPARA>', \¶_end); + +sgml('<FIGURE>', sub { $separator = ''; man_output "\n.SS "}); +sgml('</FIGURE>', \¶_end); + + + +# NO title. +sgml('<HIGHLIGHTS>', sub { $separator = ''; man_output "\n.SS HIGHLIGHTS\n"}); +sgml('</HIGHLIGHTS>', \¶_end); + + +######################################################################## +# +# Indented 'Block' elements +# +######################################################################## + +sub indent_block_start +{ + $separator = ''; + man_output "\n.sp\n.RS\n"; +} +sub indent_block_end +{ + $separator = $_[0]->parent->ext->{'separator'}; + man_output "\n.RE\n.sp\n"; +} + +sgml('<ADDRESS>', sub { + &indent_block_start; + if($_[0]->attribute('FORMAT')->type eq 'NOTATION' + and $_[0]->attribute('FORMAT')->value->name eq 'LINESPECIFIC') { + &verbatim_start; + } +}); +sgml('</ADDRESS>', sub { + if($_[0]->attribute('FORMAT')->type eq 'NOTATION' + and $_[0]->attribute('FORMAT')->value->name eq 'LINESPECIFIC') { + &verbatim_end; + } + &indent_block_end; +}); + +# This element is almost like an admonition (below), +# only the default title is blank :) + +sgml('<BLOCKQUOTE>', sub { + $_[0]->ext->{'title'} = ''; + &indent_block_start; + push_output('string'); +}); +sgml('</BLOCKQUOTE>', sub { + my $content = pop_output(); + + if($_[0]->ext->{'title'}) { + output ".B \"", $_[0]->ext->{'title'}, ":\"\n"; + } + + output $content; + + if($_[0]->ext->{'attribution'}) { + man_output "\n\n -- ", + $_[0]->ext->{'attribution'}, "\n"; + } + + &indent_block_end; +}); + +# Set off admonitions from the rest of the text by indenting. +# FIXME: Need to check if this works inside paragraphs, not enclosing them. +sub admonition_end { + my $content = pop_output(); + + # When the admonition is only one paragraph, + # it looks nicer if the title was inline. + my $num_para; + while ($content =~ /^\.PP/gm) { $num_para++ } + if($num_para==1) { + $content =~ s/^\.PP\n//; + } + + output ".B \"" . $_[0]->ext->{'title'} . ":\"\n"; + output $content; + + &indent_block_end; +} + +sgml('<NOTE>', sub { + # We can't see right now whether or not there is a TITLE + # element, so we have to save the output now and add it back + # at the end of this admonition. + $_[0]->ext->{'title'} = 'Note'; + + &indent_block_start; + + push_output('string'); +}); +sgml('</NOTE>', \&admonition_end); + +# Same as above. +sgml('<WARNING>', sub { + $_[0]->ext->{'title'} = 'Warning'; + &indent_block_start; + push_output('string'); +}); +sgml('</WARNING>', \&admonition_end); + +sgml('<TIP>', sub { + $_[0]->ext->{'title'} = 'Tip'; + &indent_block_start; + push_output('string'); +}); +sgml('</TIP>', \&admonition_end); +sgml('<CAUTION>', sub { + $_[0]->ext->{'title'} = 'Caution'; + &indent_block_start; + push_output('string'); +}); +sgml('</CAUTION>', \&admonition_end); + +sgml('<IMPORTANT>', sub { + $_[0]->ext->{'title'} = 'Important'; + &indent_block_start; + push_output('string'); +}); +sgml('</IMPORTANT>', \&admonition_end); + + +######################################################################## +# +# Verbatim displays. +# +######################################################################## + +sub verbatim_start { + $separator = ''; + man_output "\n.sp\n"; + man_output "\n.nf\n" unless $nocollapse_whitespace++; +} + +sub verbatim_end { + man_output "\n.sp\n"; + man_output "\n.fi\n" unless --$nocollapse_whitespace; + $separator = $_[0]->parent->ext->{'separator'}; +} + +sgml('<PROGRAMLISTING>', \&verbatim_start); +sgml('</PROGRAMLISTING>', \&verbatim_end); + +sgml('<SCREEN>', \&verbatim_start); +sgml('</SCREEN>', \&verbatim_end); + +sgml('<LITERALLAYOUT>', \&verbatim_start); +sgml('</LITERALLAYOUT>', \&verbatim_end); + +sgml('<SYNOPSIS>', sub { + my $format = $_[0]->attribute('FORMAT'); + + if($format->type eq 'NOTATION' + and $format->value->name eq 'LINESPECIFIC') + { + &verbatim_start; + } else { + $separator = ''; + man_output "\n.sp\n"; + } +}); + +sgml('</SYNOPSIS>', sub { + my $format = $_[0]->attribute('FORMAT'); + + if($format->type eq 'NOTATION' + and $format->value->name eq 'LINESPECIFIC') + { + &verbatim_end; + } else { + man_output "\n"; + $_[0]->parent->ext->{'separator'} = 'full'; + $separator = 'full'; + } +}); + + +######################################################################## +# +# Lists +# +######################################################################## + +# Indent nested lists. +sub list_start { + man_output "\n.RS\n" if $list_nestlevel++; +} +sub list_end { + man_output "\n.RE\n" if --$list_nestlevel; + $_[0]->parent->ext->{'separator'} = 'full'; + $separator = 'full'; +} + +sgml('<VARIABLELIST>', \&list_start); +sgml('</VARIABLELIST>', \&list_end); +sgml('<ITEMIZEDLIST>', \&list_start); +sgml('</ITEMIZEDLIST>', \&list_end); +sgml('<ORDEREDLIST>', sub { + &list_start; + $_[0]->ext->{'count'} = 1; +}); +sgml('</ORDEREDLIST>', \&list_end); + +# Output content on one line, bolded. +sgml('<TERM>', sub { + man_output "\n.TP\n"; + bold_on(); + push_output('string'); +}); +sgml('</TERM>', sub { + my $term = StripString(pop_output()); + $term =~ tr/\n/ /; + output $term; + font_off(); + output "\n"; + $newline_last = 1; +}); + +sgml('<LISTITEM>', sub { + # A bulleted list. + if($_[0]->in('ITEMIZEDLIST')) { + man_output "\n.TP 0.2i\n\\(bu\n"; + } + + # Need numbers. + # Assume Arabic numeration for now. + elsif($_[0]->in('ORDEREDLIST')) { + man_output "\n.IP ", $_[0]->parent->ext->{'count'}++, ". \n"; + } + + $_[0]->ext->{'separator'} = 'none'; + $separator = 'none'; +}); + +sgml('<SIMPLELIST>', sub { + $_[0]->ext->{'first_member'} = 1; +}); +sgml('<MEMBER>', sub { + my $parent = $_[0]->parent; + + if($parent->attribute('TYPE')->value =~ /Inline/i) { + if($parent->ext->{'first_member'}) { + # If this is the first member don't put any commas + $parent->ext->{'first_member'} = 0; + } else { + man_output ", "; + } + + # We don't really have Horiz rendering, so it's the same + # as Vert. + } else { + man_output "\n\n"; + } +}); + +# We implement Procedures as indent and lists + +sgml('<PROCEDURE>', sub { + $_[0]->ext->{'count'} = 1; + &indent_block_start; +}); +sgml('</PROCEDURE>', sub { + &indent_block_end; + $_[0]->parent->ext->{'separator'} = 'full'; + $separator = 'full'; +}); + +sgml('<STEP>', sub { + man_output "\n.IP ", $_[0]->parent->ext->{'count'}++, ". \n"; + $_[0]->ext->{'separator'} = 'none'; + $separator = 'none'; +}); + + +######################################################################## +# +# Linkage, cross references +# +######################################################################## + +# Print the URL +sgml('</ULINK>', sub { + man_output ' <URL:', $_[0]->attribute('URL')->value, '>'; +}); + +# If cross reference target is a RefEntry, +# output CiteRefEntry-style references. +sgml('<XREF>', sub { + my $id = $_[0]->attribute('LINKEND')->value; + + my $manref = $Refs->get("refentry:$id") || $Refs->get("refsect:$id"); + if(!defined $manref) { + $blank_xrefs++ if $write_manpages; + man_output "[XRef to $id]"; + return; + } + + # Limited ENDTERM support. + if(defined $_[0]->attribute('ENDTERM')->value) { + my $endterm = $_[0]->attribute('ENDTERM')->value; + my $content = $Refs->get("title:$endterm") || + $Refs->get("refentrytitle:$endterm"); + man_output $content, ' ['; + } + + # This also displays the XREFLABEL (as bold)... + # It's not worth the bother to fix it though, there + # are better tools for this. + my ($title, $sect) = ($manref =~ /(.*)(\(.*\))/); + bold_on(); + man_output $title; + font_off(); + man_output $sect; + + if(defined $_[0]->attribute('ENDTERM')->value) { + man_output ']'; + } +}); + +# Anchor + +######################################################################## +# +# SDATA +# +######################################################################## + +man_sgml('|[lt ]|', '<'); +man_sgml('|[equals]|', '='); +man_sgml('|[gt ]|', '>'); +man_sgml('|[plus ]|', '\(pl'); +man_sgml('|[dollar]|', '$'); +man_sgml('|[num ]|', '#'); +man_sgml('|[percnt]|', '%'); +man_sgml('|[amp ]|', '&'); +man_sgml('|[commat]|', '@'); +man_sgml('|[lsqb ]|', '['); +man_sgml('|[bsol ]|', '\e'); +man_sgml('|[rsqb ]|', ']'); +man_sgml('|[lcub ]|', '{'); +man_sgml('|[verbar]|', '\(or'); +man_sgml('|[rcub ]|', '}'); +man_sgml('|[excl ]|', '!'); +man_sgml('|[quot ]|', '"'); +man_sgml('|[apos ]|', '\\&\''); +man_sgml('|[lpar ]|', '('); +man_sgml('|[rpar ]|', ')'); +man_sgml('|[comma ]|', ','); +man_sgml('|[lowbar]|', '_'); +man_sgml('|[period]|', '.'); +man_sgml('|[sol ]|', '/'); +man_sgml('|[colon ]|', ':'); +man_sgml('|[semi ]|', ';'); +man_sgml('|[quest ]|', '?'); +man_sgml('|[grave ]|', '`'); +man_sgml('|[tilde ]|', '~'); +man_sgml('|[half ]|', '\(12'); +man_sgml('|[frac12]|', '\(12'); +man_sgml('|[frac14]|', '\(14'); +man_sgml('|[frac34]|', '\(34'); +man_sgml('|[frac18]|', '1/8'); +man_sgml('|[frac38]|', '3/8'); +man_sgml('|[frac58]|', '5/8'); +man_sgml('|[frac78]|', '7/8'); +man_sgml('|[sup1 ]|', '\u1\l'); +man_sgml('|[sup2 ]|', '\u2\l'); +man_sgml('|[sup3 ]|', '\u3\l'); +man_sgml('|[plusmn]|', '\(+-'); +man_sgml('|[divide]|', '\(di'); +man_sgml('|[times ]|', '\(ti'); +man_sgml('|[pound ]|', '#'); +man_sgml('|[cent ]|', '\(ct'); +man_sgml('|[yen ]|', 'yen'); +man_sgml('|[ast ]|', '*'); +man_sgml('|[horbar]|', '_'); +man_sgml('|[micro ]|', '\(*m'); +man_sgml('|[ohm ]|', '\(*W'); +man_sgml('|[deg ]|', '\(de'); +man_sgml('|[sect ]|', '\(sc'); +man_sgml('|[larr ]|', '\(<-'); +man_sgml('|[rarr ]|', '\(->'); +man_sgml('|[uarr ]|', '\(ua'); +man_sgml('|[darr ]|', '\(da'); +man_sgml('|[copy ]|', '\(co'); +man_sgml('|[reg ]|', '\(rg'); +man_sgml('|[trade ]|', '\(tm'); +man_sgml('|[brvbar]|', '|'); +man_sgml('|[not ]|', '\(no'); +man_sgml('|[hyphen]|', '\-'); +man_sgml('|[laquo ]|', '<<'); +man_sgml('|[raquo ]|', '>>'); +man_sgml('|[lsquo ]|', '`'); +man_sgml('|[rsquo ]|', '\&\''); +man_sgml('|[ldquo ]|', '"'); +man_sgml('|[rdquo ]|', '"'); +man_sgml('|[nbsp ]|', '\ '); +man_sgml('|[shy ]|', '\%'); +man_sgml('|[emsp ]|', '\ \ '); +man_sgml('|[ensp ]|', '\ '); +man_sgml('|[emsp3 ]|', '\ '); +man_sgml('|[emsp4 ]|', '\ '); +man_sgml('|[numsp ]|', '\0'); +man_sgml('|[puncsp]|', '\|'); +man_sgml('|[thinsp]|', '\!'); +man_sgml('|[hairsp]|', '\\^'); +man_sgml('|[mdash ]|', '\(em'); +man_sgml('|[ndash ]|', '-'); +man_sgml('|[dash ]|', '-'); +man_sgml('|[blank ]|', '\ '); +man_sgml('|[hellip]|', '\&...'); +man_sgml('|[nldr ]|', '\&..'); +man_sgml('|[frac13]|', '1/3'); +man_sgml('|[frac23]|', '2/3'); +man_sgml('|[frac15]|', '1/5'); +man_sgml('|[frac25]|', '2/5'); +man_sgml('|[frac35]|', '3/5'); +man_sgml('|[frac45]|', '4/5'); +man_sgml('|[frac16]|', '1/6'); +man_sgml('|[frac56]|', '5/6'); +man_sgml('|[cir ]|', '\(ci'); +man_sgml('|[squ ]|', '\(sq'); +man_sgml('|[star ]|', '\(**'); +man_sgml('|[bull ]|', '\(bu'); +man_sgml('|[dagger]|', '\(dg'); +man_sgml('|[Dagger]|', '\(dd'); +man_sgml('|[caret ]|', '\^'); +man_sgml('|[lsquor]|', '`'); +man_sgml('|[ldquor]|', '``'); +man_sgml('|[fflig ]|', '\(ff'); +man_sgml('|[filig ]|', '\(fi'); +man_sgml('|[ffilig]|', '\(Fi'); +man_sgml('|[ffllig]|', '\(Fl'); +man_sgml('|[fllig ]|', '\(fl'); +man_sgml('|[rdquor]|', '\&\'\''); +man_sgml('|[rsquor]|', '\&\''); +man_sgml('|[vellip]|', '\&...'); +man_sgml('|[aacute]|', '\(a\''); +man_sgml('|[Aacute]|', '\(A\''); +man_sgml('|[acirc ]|', '\(a^'); +man_sgml('|[Acirc ]|', '\(A^'); +man_sgml('|[agrave]|', '\(a`'); +man_sgml('|[Agrave]|', '\(A`'); +man_sgml('|[auml ]|', '\(a:'); +man_sgml('|[aelig ]|', '\(ae'); +man_sgml('|[AElig ]|', '\(AE'); +man_sgml('|[eacute]|', '\(e\''); +man_sgml('|[Eacute]|', '\(E\''); +man_sgml('|[egrave]|', '\(e`'); +man_sgml('|[Egrave]|', '\(E`'); +man_sgml('|[iacute]|', '\(i\''); +man_sgml('|[Iacute]|', '\(I\''); +man_sgml('|[igrave]|', '\(i`'); +man_sgml('|[Igrave]|', '\(I`'); +man_sgml('|[ntilde]|', '\(n~'); +man_sgml('|[Ntilde]|', '\(N~'); +man_sgml('|[oacute]|', '\(o\''); +man_sgml('|[Oacute]|', '\(O\''); +man_sgml('|[ograve]|', '\(o`'); +man_sgml('|[Ograve]|', '\(O`'); +man_sgml('|[oslash]|', '\(o/'); +man_sgml('|[Oslash]|', '\(O/'); +man_sgml('|[szlig ]|', '\(ss'); +man_sgml('|[thorn ]|', '\(th'); +man_sgml('|[uacute]|', '\(u\''); +man_sgml('|[Uacute]|', '\(U\''); +man_sgml('|[ugrave]|', '\(u`'); +man_sgml('|[Ugrave]|', '\(U`'); +man_sgml('|[aogon ]|', '\(ao'); +man_sgml('|[agr ]|', '\(*a'); +man_sgml('|[Agr ]|', '\(*A'); +man_sgml('|[bgr ]|', '\(*b'); +man_sgml('|[Bgr ]|', '\(*B'); +man_sgml('|[ggr ]|', '\(*g'); +man_sgml('|[Ggr ]|', '\(*G'); +man_sgml('|[dgr ]|', '\(*d'); +man_sgml('|[Dgr ]|', '\(*D'); +man_sgml('|[egr ]|', '\(*e'); +man_sgml('|[Egr ]|', '\(*E'); +man_sgml('|[zgr ]|', '\(*z'); +man_sgml('|[Zgr ]|', '\(*Z'); +man_sgml('|[eegr ]|', '\(*y'); +man_sgml('|[EEgr ]|', '\(*Y'); +man_sgml('|[thgr ]|', '\(*h'); +man_sgml('|[THgr ]|', '\(*H'); +man_sgml('|[igr ]|', '\(*i'); +man_sgml('|[Igr ]|', '\(*I'); +man_sgml('|[kgr ]|', '\(*k'); +man_sgml('|[Kgr ]|', '\(*K'); +man_sgml('|[lgr ]|', '\(*l'); +man_sgml('|[Lgr ]|', '\(*L'); +man_sgml('|[mgr ]|', '\(*m'); +man_sgml('|[Mgr ]|', '\(*M'); +man_sgml('|[ngr ]|', '\(*n'); +man_sgml('|[Ngr ]|', '\(*N'); +man_sgml('|[xgr ]|', '\(*c'); +man_sgml('|[Xgr ]|', '\(*C'); +man_sgml('|[ogr ]|', '\(*o'); +man_sgml('|[Ogr ]|', '\(*O'); +man_sgml('|[pgr ]|', '\(*p'); +man_sgml('|[Pgr ]|', '\(*P'); +man_sgml('|[rgr ]|', '\(*r'); +man_sgml('|[Rgr ]|', '\(*R'); +man_sgml('|[sgr ]|', '\(*s'); +man_sgml('|[Sgr ]|', '\(*S'); +man_sgml('|[sfgr ]|', '\(ts'); +man_sgml('|[tgr ]|', '\(*t'); +man_sgml('|[Tgr ]|', '\(*T'); +man_sgml('|[ugr ]|', '\(*u'); +man_sgml('|[Ugr ]|', '\(*U'); +man_sgml('|[phgr ]|', '\(*f'); +man_sgml('|[PHgr ]|', '\(*F'); +man_sgml('|[khgr ]|', '\(*x'); +man_sgml('|[KHgr ]|', '\(*X'); +man_sgml('|[psgr ]|', '\(*q'); +man_sgml('|[PSgr ]|', '\(*Q'); +man_sgml('|[ohgr ]|', '\(*w'); +man_sgml('|[OHgr ]|', '\(*W'); +man_sgml('|[alpha ]|', '\(*a'); +man_sgml('|[beta ]|', '\(*b'); +man_sgml('|[gamma ]|', '\(*g'); +man_sgml('|[Gamma ]|', '\(*G'); +man_sgml('|[delta ]|', '\(*d'); +man_sgml('|[Delta ]|', '\(*D'); +man_sgml('|[epsi ]|', '\(*e'); +man_sgml('|[epsis ]|', '\(*e'); +man_sgml('|[zeta ]|', '\(*z'); +man_sgml('|[eta ]|', '\(*y'); +man_sgml('|[thetas]|', '\(*h'); +man_sgml('|[Theta ]|', '\(*H'); +man_sgml('|[iota ]|', '\(*i'); +man_sgml('|[kappa ]|', '\(*k'); +man_sgml('|[lambda]|', '\(*l'); +man_sgml('|[Lambda]|', '\(*L'); +man_sgml('|[mu ]|', '\(*m'); +man_sgml('|[nu ]|', '\(*n'); +man_sgml('|[xi ]|', '\(*c'); +man_sgml('|[Xi ]|', '\(*C'); +man_sgml('|[pi ]|', '\(*p'); +man_sgml('|[Pi ]|', '\(*P'); +man_sgml('|[rho ]|', '\(*r'); +man_sgml('|[sigma ]|', '\(*s'); +man_sgml('|[Sigma ]|', '\(*S'); +man_sgml('|[tau ]|', '\(*t'); +man_sgml('|[upsi ]|', '\(*u'); +man_sgml('|[Upsi ]|', '\(*U'); +man_sgml('|[phis ]|', '\(*f'); +man_sgml('|[Phi ]|', '\(*F'); +man_sgml('|[chi ]|', '\(*x'); +man_sgml('|[psi ]|', '\(*q'); +man_sgml('|[Psi ]|', '\(*X'); +man_sgml('|[omega ]|', '\(*w'); +man_sgml('|[Omega ]|', '\(*W'); +man_sgml('|[ap ]|', '\(ap'); +man_sgml('|[equiv ]|', '\(=='); +man_sgml('|[ge ]|', '\(>='); +man_sgml('|[infin ]|', '\(if'); +man_sgml('|[isin ]|', '\(sb'); +man_sgml('|[le ]|', '\(<='); +man_sgml('|[minus ]|', '\(mi'); +man_sgml('|[ne ]|', '\(!='); +man_sgml('|[prop ]|', '\(pt'); +man_sgml('|[square]|', '\(sq'); +man_sgml('|[sub ]|', '\(sb'); +man_sgml('|[sube ]|', '\(ib'); +man_sgml('|[sup ]|', '\(sp'); +man_sgml('|[supe ]|', '\(ip'); +man_sgml('|[acute ]|', '\&\''); +man_sgml('|[breve ]|', '\(be'); +man_sgml('|[caron ]|', '\(hc'); +man_sgml('|[cedil ]|', '\(cd'); +man_sgml('|[dot ]|', '\(dt'); +man_sgml('|[macr ]|', '\(ma'); +man_sgml('|[ogon ]|', '\(og'); +man_sgml('|[ring ]|', '\(ri'); +man_sgml('|[uml ]|', '\(..'); + +sgml('sdata',sub { + my ($element, $event) = @_; + my ($file, $line) = ($event->file, $event->line); + man_output "|[", $_[0], "]|"; + warn "Warning: unrecognized SDATA '$_[0]'" + . ($file && $line ? " in $file on line $line" : "") + . ": please add definition to docbook2man-spec.pl\n"; +}); + +# +# Default handlers (uncomment these if needed). Right now, these are set +# up to gag on any unrecognised elements, sdata, processing-instructions, +# or entities. +# +# sgml('start_element',sub { die "Unknown element: " . $_[0]->name; }); +# sgml('end_element',''); + +# This is for weeding out and escaping certain characters. +# This looks like it's inefficient since it's done on every line, but +# in reality, SGMLSpm and sgmlspl parsing ESIS takes _much_ longer. + +sgml('cdata', sub +{ + if(!$write_manpages) { return; } + elsif($raw_cdata) { output $_[0]; return; } + + if($separator eq 'full') { + output "\n" unless $newline_last++; + output ".PP\n"; + $separator = ''; + } + + # Escape backslashes + $_[0] =~ s/\\/\\\\/g; + + # Escape dots and single quotes in column 1 + $_[0] =~ s/^[ \t]*\./\\\&\./; + $_[0] =~ s/^[ \t]*\'/\\\&\'/; + + + # In non-'pre'-type elements: + if(!$nocollapse_whitespace) { + # Change tabs to spaces + $_[0] =~ tr/\t / /s; + + # Do not allow indents at beginning of line + # groff chokes on that. + if($newline_last) { + $_[0] =~ s/^ //; + + # If the line is all blank, don't do anything. + if($_[0] eq '') { return; } + + $_[0] =~ s/^\./\\\&\./; + + # Argh... roff doesn't like ' for some unknown reason + $_[0] =~ s/^\'/\\\&\'/; + } + } + + $newline_last = 0; + + output $_[0]; +}); + + +# When in whitespace-collapsing mode, we disallow consecutive newlines. + +sgml('re', sub +{ + if($nocollapse_whitespace || !$newline_last) { + output "\n"; + } + + $newline_last = 1; +}); + +sgml('pi', sub {}); +sgml('entity',sub { die "Unknown external entity: " . $_[0]->name; }); +sgml('start_subdoc',sub { die "Unknown subdoc entity: " . $_[0]->name; }); +sgml('end_subdoc',sub{}); +sgml('conforming',sub{}); + +1; +