TDE
/
tdebase
mirror of https://mirror.git.trinitydesktop.org/gitea/TDE/tdebase
0
0
Fork 0
Code Issues Releases Wiki Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '75349be43e'
${ noResults }
tdebase/tdeioslave/man/man2html.cpp

5686 lines
181 KiB
Raw Blame History

/*
This file is part of the KDE libraries
Copyright (C) 2005 Nicolas GOUTTE <goutte@kde.org>
### TODO: who else?
*/
// Start of verbatim comment
/*
** This program was written by Richard Verhoeven (NL:5482ZX35)
** at the Eindhoven University of Technology. Email: rcb5@win.tue.nl
**
** Permission is granted to distribute, modify and use this program as long
** as this comment is not removed or changed.
*/
// End of verbatim comment
/*
* man2html-linux-1.0/1.1
* This version modified for Redhat/Caldera linux - March 1996.
* Michael Hamilton <michael@actrix.gen.nz>.
*
* man2html-linux-1.2
* Added support for BSD mandoc pages - I didn't have any documentation
* on the mandoc macros, so I may have missed some.
* Michael Hamilton <michael@actrix.gen.nz>.
*
* vh-man2html-1.3
* Renamed to avoid confusion (V for Verhoeven, H for Hamilton).
*
* vh-man2html-1.4
* Now uses /etc/man.config
* Added support for compressed pages.
* Added "length-safe" string operations for client input parameters.
* More secure, -M secured, and client input string lengths checked.
*
*/
/*
** If you want to use this program for your WWW server, adjust the line
** which defines the CGIBASE or compile it with the -DCGIBASE='"..."' option.
**
** You have to adjust the built-in manpath to your local system. Note that
** every directory should start and end with the '/' and that the first
** directory should be "/" to allow a full path as an argument.
**
** The program first check if PATH_INFO contains some information.
** If it does (t.i. man2html/some/thing is used), the program will look
** for a manpage called PATH_INFO in the manpath.
**
** Otherwise the manpath is searched for the specified command line argument,
** where the following options can be used:
**
** name name of manpage (csh, printf, xv, troff)
** section the section (1 2 3 4 5 6 7 8 9 n l 1v ...)
** -M path an extra directory to look for manpages (replaces "/")
**
** If man2html finds multiple manpages that satisfy the options, an index
** is displayed and the user can make a choice. If only one page is
** found, that page will be displayed.
**
** man2html will add links to the converted manpages. The function add_links
** is used for that. At the moment it will add links as follows, where
** indicates what should match to start with:
** ^^^
** Recognition Item Link
** ----------------------------------------------------------
** name(*) Manpage ../man?/name.*
** ^
** name@hostname Email address mailto:name@hostname
** ^
** method://string URL method://string
** ^^^
** www.host.name WWW server http://www.host.name
** ^^^^
** ftp.host.name FTP server ftp://ftp.host.name
** ^^^^
** <file.h> Include file file:/usr/include/file.h
** ^^^
**
** Since man2html does not check if manpages, hosts or email addresses exist,
** some links might not work. For manpages, some extra checks are performed
** to make sure not every () pair creates a link. Also out of date pages
** might point to incorrect places.
**
** The program will not allow users to get system specific files, such as
** /etc/passwd. It will check that "man" is part of the specified file and
** that "/../" isn't. Even if someone manages to get such file, man2html will
** handle it like a manpage and will usually not produce any output (or crash).
**
** If you find any bugs when normal manpages are converted, please report
** them to me (rcb5@win.tue.nl) after you have checked that man(1) can handle
** the manpage correct.
**
** Known bugs and missing features:
**
** * Equations are not converted at all.
** * Tables are converted but some features are not possible in html.
** * The tabbing environment is converted by counting characters and adding
** spaces. This might go wrong (outside <PRE>)
** * Some manpages rely on the fact that troff/nroff is used to convert
** them and use features which are not descripted in the man manpages.
** (definitions, calculations, conditionals, requests). I can't guarantee
** that all these features work on all manpages. (I didn't have the
** time to look through all the available manpages.)
*/
#ifdef SIMPLE_MAN2HTML
// We suppose that we run on a standard Linux
# define HAVE_STRING_H 1
# define HAVE_UNISTD_H 1
#else
# include <config.h>
#endif
#include <ctype.h>
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif
#ifdef HAVE_STRING_H
# include <string.h>
#endif
#include <stdio.h>
#include <tqvaluestack.h>
#include <tqstring.h>
#include <tqptrlist.h>
#include <tqmap.h>
#include <tqdatetime.h>
#ifdef SIMPLE_MAN2HTML
# include <stdlib.h>
# include <iostream>
# include <dirent.h>
# include <sys/stat.h>
# define kdDebug(x) cerr
# define kdWarning(x) cerr << "WARNING "
#else
# include <tqtextcodec.h>
# include <kdebug.h>
# include <tdeversion.h>
#endif
#include "man2html.h"
using namespace std;
#define NULL_TERMINATED(n) ((n) + 1)
#define HUGE_STR_MAX 10000
#define LARGE_STR_MAX 2000
#define MED_STR_MAX 500
#define SMALL_STR_MAX 100
#define TINY_STR_MAX 10
#if 1
// The output is current too horrible to be called HTML 4.01
#define DOCTYPE "<!DOCTYPE HTML>"
#else
#define DOCTYPE "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\">\n"
#endif
/* mdoc(7) Bl/El lists to HTML list types */
#define BL_DESC_LIST 1
#define BL_BULLET_LIST 2
#define BL_ENUM_LIST 4
/* mdoc(7) Bd/Ed example(?) blocks */
#define BD_LITERAL 1
#define BD_INDENT 2
static int s_nroff = 1; // NROFF mode by default
static int mandoc_name_count = 0; /* Don't break on the first Nm */
static char *stralloc(int len)
{
/* allocate enough for len + NULL */
char *news = new char [len+1];
#ifdef SIMPLE_MAN2HTML
if (!news)
{
cerr << "man2html: out of memory" << endl;
exit(EXIT_FAILURE);
}
#else
// modern compilers do not return a NULL pointer for a new
#endif
return news;
}
static char *strlimitcpy(char *to, char *from, int n, int limit)
{ /* Assumes space for limit plus a null */
const int len = n > limit ? limit : n;
tqstrncpy(to, from, len + 1);
to[len] = '\0';
return to;
}
/* below this you should not change anything unless you know a lot
** about this program or about troff.
*/
/// Structure for character definitions
struct CSTRDEF {
int nr, slen;
const char *st;
};
const char NEWLINE[2]="\n";
/**
* Class for defining strings and macros
*/
class StringDefinition
{
public:
StringDefinition( void ) : m_length(0) {}
StringDefinition( int len, const char* cstr ) : m_length( len ), m_output( cstr ) {}
public:
int m_length; ///< Length of output text
TQCString m_output; ///< Defined string
};
/**
* Class for defining number registers
* \note Not for internal read-only registers
*/
class NumberDefinition
{
public:
NumberDefinition( void ) : m_value(0), m_increment(0) {}
NumberDefinition( int value ) : m_value( value ), m_increment(0) {}
NumberDefinition( int value, int incr) : m_value( value ), m_increment( incr ) {}
public:
int m_value; ///< value of number register
int m_increment; ///< Increment of number register
// ### TODO: display form (.af)
};
/**
* Map of character definitions
*/
static TQMap<TQCString,StringDefinition> s_characterDefinitionMap;
/**
* Map of string variable and macro definitions
* \note String variables and macros are the same thing!
*/
static TQMap<TQCString,StringDefinition> s_stringDefinitionMap;
/**
* Map of number registers
* \note Intern number registers (starting with a dot are not handled here)
*/
static TQMap<TQCString,NumberDefinition> s_numberDefinitionMap;
static void fill_old_character_definitions( void );
/**
* Initialize character variables
*/
static void InitCharacterDefinitions( void )
{
fill_old_character_definitions();
// ### HACK: as we are converting to HTML too early, define characters with HTML references
s_characterDefinitionMap.insert( "&lt;-", StringDefinition( 1, "&larr;" ) ); // <-
s_characterDefinitionMap.insert( "-&gt;", StringDefinition( 1, "&rarr;" ) ); // ->
s_characterDefinitionMap.insert( "&lt;&gt;", StringDefinition( 1, "&harr;" ) ); // <>
s_characterDefinitionMap.insert( "&lt;=", StringDefinition( 1, "&le;" ) ); // <=
s_characterDefinitionMap.insert( "&gt;=", StringDefinition( 1, "&ge;" ) ); // >=
// End HACK
}
/**
* Initialize string variables
*/
static void InitStringDefinitions( void )
{
// mdoc-only, see mdoc.samples(7)
s_stringDefinitionMap.insert( "<=", StringDefinition( 1, "&le;" ) );
s_stringDefinitionMap.insert( ">=", StringDefinition( 1, "&ge;" ) );
s_stringDefinitionMap.insert( "Rq", StringDefinition( 1, "&rdquo;" ) );
s_stringDefinitionMap.insert( "Lq", StringDefinition( 1, "&ldquo;" ) );
s_stringDefinitionMap.insert( "ua", StringDefinition( 1, "&circ" ) ); // Note this is different from \(ua
s_stringDefinitionMap.insert( "aa", StringDefinition( 1, "&acute;" ) );
s_stringDefinitionMap.insert( "ga", StringDefinition( 1, "`" ) );
s_stringDefinitionMap.insert( "q", StringDefinition( 1, "&quot;" ) );
s_stringDefinitionMap.insert( "Pi", StringDefinition( 1, "&pi;" ) );
s_stringDefinitionMap.insert( "Ne", StringDefinition( 1, "&ne;" ) );
s_stringDefinitionMap.insert( "Le", StringDefinition( 1, "&le;" ) );
s_stringDefinitionMap.insert( "Ge", StringDefinition( 1, "&ge;" ) );
s_stringDefinitionMap.insert( "Lt", StringDefinition( 1, "&lt;" ) );
s_stringDefinitionMap.insert( "Gt", StringDefinition( 1, "&gt;" ) );
s_stringDefinitionMap.insert( "Pm", StringDefinition( 1, "&plusmn;" ) );
s_stringDefinitionMap.insert( "If", StringDefinition( 1, "&infin;" ) );
s_stringDefinitionMap.insert( "Na", StringDefinition( 3, "NaN" ) );
s_stringDefinitionMap.insert( "Ba", StringDefinition( 1, "|" ) );
// end mdoc-only
// man(7)
s_stringDefinitionMap.insert( "Tm", StringDefinition( 1, "&trade;" ) ); // \*(TM
s_stringDefinitionMap.insert( "R", StringDefinition( 1, "&reg;" ) ); // \*R
// end man(7)
// Missing characters from man(7):
// \*S "Change to default font size"
#ifndef SIMPLE_MAN2HTML
// Special KDE TDEIO man:
const TQCString tdeversion(TDE_VERSION_STRING);
s_stringDefinitionMap.insert( ".TDE_VERSION_STRING", StringDefinition( tdeversion.length(), tdeversion ) );
#endif
}
/**
* Initialize number registers
* \note Internal read-only registers are not handled here
*/
static void InitNumberDefinitions( void )
{
// As the date number registers are more for end-users, better choose local time.
// Groff seems to support Gregorian dates only
TQDate today( TQDate::currentDate( TQt::LocalTime ) );
s_numberDefinitionMap.insert( "year", today.year() ); // Y2K-correct year
s_numberDefinitionMap.insert( "yr", today.year() - 1900 ); // Y2K-incorrect year
s_numberDefinitionMap.insert( "mo", today.month() );
s_numberDefinitionMap.insert( "dy", today.day() );
s_numberDefinitionMap.insert( "dw", today.dayOfWeek() );
}
#define V(A,B) ((A)*256+(B))
//used in expand_char, e.g. for "\(bu"
// see groff_char(7) for list
static CSTRDEF standardchar[] = {
{ V('*','*'), 1, "*" },
{ V('*','A'), 1, "&Alpha;" },
{ V('*','B'), 1, "&Beta;" },
{ V('*','C'), 1, "&Xi;" },
{ V('*','D'), 1, "&Delta;" },
{ V('*','E'), 1, "&Epsilon;" },
{ V('*','F'), 1, "&Phi;" },
{ V('*','G'), 1, "&Gamma;" },
{ V('*','H'), 1, "&Theta;" },
{ V('*','I'), 1, "&Iota;" },
{ V('*','K'), 1, "&Kappa;" },
{ V('*','L'), 1, "&Lambda;" },
{ V('*','M'), 1, "&Mu:" },
{ V('*','N'), 1, "&Nu;" },
{ V('*','O'), 1, "&Omicron;" },
{ V('*','P'), 1, "&Pi;" },
{ V('*','Q'), 1, "&Psi;" },
{ V('*','R'), 1, "&Rho;" },
{ V('*','S'), 1, "&Sigma;" },
{ V('*','T'), 1, "&Tau;" },
{ V('*','U'), 1, "&Upsilon;" },
{ V('*','W'), 1, "&Omega;" },
{ V('*','X'), 1, "&Chi;" },
{ V('*','Y'), 1, "&Eta;" },
{ V('*','Z'), 1, "&Zeta;" },
{ V('*','a'), 1, "&alpha;"},
{ V('*','b'), 1, "&beta;"},
{ V('*','c'), 1, "&xi;"},
{ V('*','d'), 1, "&delta;"},
{ V('*','e'), 1, "&epsilon;"},
{ V('*','f'), 1, "&phi;"},
{ V('*','g'), 1, "&gamma;"},
{ V('*','h'), 1, "&theta;"},
{ V('*','i'), 1, "&iota;"},
{ V('*','k'), 1, "&kappa;"},
{ V('*','l'), 1, "&lambda;"},
{ V('*','m'), 1, "&mu;" },
{ V('*','n'), 1, "&nu;"},
{ V('*','o'), 1, "&omicron;"},
{ V('*','p'), 1, "&pi;"},
{ V('*','q'), 1, "&psi;"},
{ V('*','r'), 1, "&rho;"},
{ V('*','s'), 1, "&sigma;"},
{ V('*','t'), 1, "&tau;"},
{ V('*','u'), 1, "&upsilon;"},
{ V('*','w'), 1, "&omega;"},
{ V('*','x'), 1, "&chi;"},
{ V('*','y'), 1, "&eta;"},
{ V('*','z'), 1, "&zeta;"},
{ V('+','-'), 1, "&plusmn;" }, // not in groff_char(7)
{ V('+','f'), 1, "&phi;"}, // phi1, we use the standard phi
{ V('+','h'), 1, "&theta;"}, // theta1, we use the standard theta
{ V('+','p'), 1, "&omega;"}, // omega1, we use the standard omega
{ V('1','2'), 1, "&frac12;" },
{ V('1','4'), 1, "&frac14;" },
{ V('3','4'), 1, "&frac34;" },
{ V('F','i'), 1, "&#xFB03;" }, // ffi ligature
{ V('F','l'), 1, "&#xFB04;" }, // ffl ligature
{ V('a','p'), 1, "~" },
{ V('b','r'), 1, "|" },
{ V('b','u'), 1, "&bull;" },
{ V('b','v'), 1, "|" },
{ V('c','i'), 1, "&#x25CB;" }, // circle ### TODO verify
{ V('c','o'), 1, "&copy;" },
{ V('c','t'), 1, "&cent;" },
{ V('d','e'), 1, "&deg;" },
{ V('d','g'), 1, "&dagger;" },
{ V('d','i'), 1, "&divide;" },
{ V('e','m'), 1, "&emdash;" },
{ V('e','n'), 1, "&endash;"},
{ V('e','q'), 1, "=" },
{ V('e','s'), 1, "&empty;" },
{ V('f','f'), 1, "&#0xFB00;" }, // ff ligature
{ V('f','i'), 1, "&#0xFB01;" }, // fi ligature
{ V('f','l'), 1, "&#0xFB02;" }, // fl ligature
{ V('f','m'), 1, "&prime;" },
{ V('g','a'), 1, "`" },
{ V('h','y'), 1, "-" },
{ V('l','c'), 2, "|&#175;" }, // ### TODO: not in groff_char(7)
{ V('l','f'), 2, "|_" }, // ### TODO: not in groff_char(7)
{ V('l','k'), 1, "<FONT SIZE=+2>{</FONT>" }, // ### TODO: not in groff_char(7)
{ V('m','i'), 1, "-" }, // ### TODO: not in groff_char(7)
{ V('m','u'), 1, "&times;" },
{ V('n','o'), 1, "&not;" },
{ V('o','r'), 1, "|" },
{ V('p','l'), 1, "+" },
{ V('r','c'), 2, "&#175;|" }, // ### TODO: not in groff_char(7)
{ V('r','f'), 2, "_|" }, // ### TODO: not in groff_char(7)
{ V('r','g'), 1, "&reg;" },
{ V('r','k'), 1, "<FONT SIZE=+2>}</FONT>" }, // ### TODO: not in groff_char(7)
{ V('r','n'), 1, "&oline;" },
{ V('r','u'), 1, "_" },
{ V('s','c'), 1, "&sect;" },
{ V('s','l'), 1, "/" },
{ V('s','q'), 2, "&#x25A1" }, // WHITE SQUARE
{ V('t','s'), 1, "&#x03C2;" }, // FINAL SIGMA
{ V('u','l'), 1, "_" },
{ V('-','D'), 1, "&ETH;" },
{ V('S','d'), 1, "&eth;" },
{ V('T','P'), 1, "&THORN;" },
{ V('T','p'), 1, "&thorn;" },
{ V('A','E'), 1, "&AElig;" },
{ V('a','e'), 1, "&aelig;" },
{ V('O','E'), 1, "&OElig;" },
{ V('o','e'), 1, "&oelig;" },
{ V('s','s'), 1, "&szlig;" },
{ V('\'','A'), 1, "&Aacute;" },
{ V('\'','E'), 1, "&Eacute;" },
{ V('\'','I'), 1, "&Iacute;" },
{ V('\'','O'), 1, "&Oacute;" },
{ V('\'','U'), 1, "&Uacute;" },
{ V('\'','Y'), 1, "&Yacute;" },
{ V('\'','a'), 1, "&aacute;" },
{ V('\'','e'), 1, "&eacute;" },
{ V('\'','i'), 1, "&iacute;" },
{ V('\'','o'), 1, "&oacute;" },
{ V('\'','u'), 1, "&uacute;" },
{ V('\'','y'), 1, "&yacute;" },
{ V(':','A'), 1, "&Auml;" },
{ V(':','E'), 1, "&Euml;" },
{ V(':','I'), 1, "&Iuml;" },
{ V(':','O'), 1, "&Ouml;" },
{ V(':','U'), 1, "&Uuml;" },
{ V(':','a'), 1, "&auml;" },
{ V(':','e'), 1, "&euml;" },
{ V(':','i'), 1, "&iuml;" },
{ V(':','o'), 1, "&ouml;" },
{ V(':','u'), 1, "&uuml;" },
{ V(':','y'), 1, "&yuml;" },
{ V('^','A'), 1, "&Acirc;" },
{ V('^','E'), 1, "&Ecirc;" },
{ V('^','I'), 1, "&Icirc;" },
{ V('^','O'), 1, "&Ocirc;" },
{ V('^','U'), 1, "&Ucirc;" },
{ V('^','a'), 1, "&acirc;" },
{ V('^','e'), 1, "&ecirc;" },
{ V('^','i'), 1, "&icirc;" },
{ V('^','o'), 1, "&ocirc;" },
{ V('^','u'), 1, "&ucirc;" },
{ V('`','A'), 1, "&Agrave;" },
{ V('`','E'), 1, "&Egrave;" },
{ V('`','I'), 1, "&Igrave;" },
{ V('`','O'), 1, "&Ograve;" },
{ V('`','U'), 1, "&Ugrave;" },
{ V('`','a'), 1, "&agrave;" },
{ V('`','e'), 1, "&egrave;" },
{ V('`','i'), 1, "&igrave;" },
{ V('`','o'), 1, "&ograve;" },
{ V('`','u'), 1, "&ugrave;" },
{ V('~','A'), 1, "&Atilde;" },
{ V('~','N'), 1, "&Ntilde;" },
{ V('~','O'), 1, "&Otilde;" },
{ V('~','a'), 1, "&atilde" },
{ V('~','n'), 1, "&ntidle;" },
{ V('~','o'), 1, "&otidle;" },
{ V(',','C'), 1, "&Ccedil;" },
{ V(',','c'), 1, "&ccedil;" },
{ V('/','L'), 1, "&#x0141;" },
{ V('/','l'), 1, "&#x0142;" },
{ V('/','O'), 1, "&Oslash;" },
{ V('/','o'), 1, "&oslash;" },
{ V('o','A'), 1, "&Aring;" },
{ V('o','a'), 1, "&aring;" },
{ V('a','"'), 1, "\"" },
{ V('a','-'), 1, "&macr;" },
{ V('a','.'), 1, "." },
{ V('a','^'), 1, "&circ;" },
{ V('a','a'), 1, "&acute;" },
{ V('a','b'), 1, "`" },
{ V('a','c'), 1, "&cedil;" },
{ V('a','d'), 1, "&uml;" },
{ V('a','h'), 1, "&#x02C2;" }, // caron
{ V('a','o'), 1, "&#x02DA;" }, // ring
{ V('a','~'), 1, "&tilde;" },
{ V('h','o'), 1, "&#x02DB;" }, // ogonek
{ V('.','i'), 1, "&#x0131;" }, // dot less i
{ V('C','s'), 1, "&curren;" },
{ V('D','o'), 1, "$" },
{ V('P','o'), 1, "&pound;" },
{ V('Y','e'), 1, "&yen;" },
{ V('F','n'), 1, "&fnof;" },
{ V('F','o'), 1, "&laquo;" },
{ V('F','c'), 1, "&raquo;" },
{ V('f','o'), 1, "&#x2039;" }, // single left guillemet
{ V('f','c'), 1, "&#x203A;" }, // single right guillemet
{ V('r','!'), 1, "&iecl;" },
{ V('r','?'), 1, "&iquest;" },
{ V('O','f'), 1, "&ordf" },
{ V('O','m'), 1, "&ordm;" },
{ V('p','c'), 1, "&middot;" },
{ V('S','1'), 1, "&sup1;" },
{ V('S','2'), 1, "&sup2;" },
{ V('S','3'), 1, "&sup3;" },
{ V('<','-'), 1, "&larr;" },
{ V('-','>'), 1, "&rarr;" },
{ V('<','>'), 1, "&harr;" },
{ V('d','a'), 1, "&darr;" },
{ V('u','a'), 1, "&uarr;" },
{ V('l','A'), 1, "&lArr;" },
{ V('r','A'), 1, "&rArr;" },
{ V('h','A'), 1, "&hArr;" },
{ V('d','A'), 1, "&dArr;" },
{ V('u','A'), 1, "&uArr;" },
{ V('b','a'), 1, "|" },
{ V('b','b'), 1, "&brvbar;" },
{ V('t','m'), 1, "&trade;" },
{ V('d','d'), 1, "&Dagger;" },
{ V('p','s'), 1, "&para;" },
{ V('%','0'), 1, "&permil;" },
{ V('f','/'), 1, "&frasl;" }, // Fraction slash
{ V('s','d'), 1, "&Prime;" },
{ V('h','a'), 1, "^" },
{ V('t','i'), 1, "&tidle;" },
{ V('l','B'), 1, "[" },
{ V('r','B'), 1, "]" },
{ V('l','C'), 1, "{" },
{ V('r','C'), 1, "}" },
{ V('l','a'), 1, "&lt;" },
{ V('r','a'), 1, "&gt;" },
{ V('l','h'), 1, "&le;" },
{ V('r','h'), 1, "&ge;" },
{ V('B','q'), 1, "&bdquo;" },
{ V('b','q'), 1, "&sbquo;" },
{ V('l','q'), 1, "&ldquo;" },
{ V('r','q'), 1, "&rdquo;" },
{ V('o','q'), 1, "&lsquo;" },
{ V('c','q'), 1, "&rsquo;" },
{ V('a','q'), 1, "'" },
{ V('d','q'), 1, "\"" },
{ V('a','t'), 1, "@" },
{ V('s','h'), 1, "#" },
{ V('r','s'), 1, "\\" },
{ V('t','f'), 1, "&there4;" },
{ V('~','~'), 1, "&cong;" },
{ V('~','='), 1, "&asymp;" },
{ V('!','='), 1, "&ne;" },
{ V('<','='), 1, "&le;" },
{ V('=','='), 1, "&equiv;" },
{ V('=','~'), 1, "&cong;" }, // ### TODO: verify
{ V('>','='), 1, "&ge;" },
{ V('A','N'), 1, "&and;" },
{ V('O','R'), 1, "&or;" },
{ V('t','e'), 1, "&exist;" },
{ V('f','a'), 1, "&forall;" },
{ V('A','h'), 1, "&alefsym;" },
{ V('I','m'), 1, "&image;" },
{ V('R','e'), 1, "&real;" },
{ V('i','f'), 1, "&infin;" },
{ V('m','d'), 1, "&sdot;" },
{ V('m','o'), 1, "&#x2206;" }, // element ### TODO verify
{ V('n','m'), 1, "&notin;" },
{ V('p','t'), 1, "&prop;" },
{ V('p','p'), 1, "&perp;" },
{ V('s','b'), 1, "&sub;" },
{ V('s','p'), 1, "&sup;" },
{ V('i','b'), 1, "&sube;" },
{ V('i','p'), 1, "&supe;" },
{ V('i','s'), 1, "&int;" },
{ V('s','r'), 1, "&radic;" },
{ V('p','d'), 1, "&part;" },
{ V('c','*'), 1, "&otimes;" },
{ V('c','+'), 1, "&oplus;" },
{ V('c','a'), 1, "&cap;" },
{ V('c','u'), 1, "&cup;" },
{ V('g','r'), 1, "V" }, // gradient ### TODO Where in Unicode?
{ V('C','R'), 1, "&crarr;" },
{ V('s','t'), 2, "-)" }, // "such that" ### TODO Where in Unicode?
{ V('/','_'), 1, "&ang;" },
{ V('w','p'), 1, "&weierp;" },
{ V('l','z'), 1, "&loz;" },
{ V('a','n'), 1, "-" }, // "horizontal arrow extension" ### TODO Where in Unicode?
};
/* default: print code */
/* static char eqndelimopen=0, eqndelimclose=0; */
static char escapesym='\\', nobreaksym='\'', controlsym='.', fieldsym=0, padsym=0;
static char *buffer=NULL;
static int buffpos=0, buffmax=0;
static bool scaninbuff=false;
static int itemdepth=0;
static int section=0;
static int dl_set[20]= { 0 };
static bool still_dd=0;
static int tabstops[20] = { 8, 16, 24, 32, 40, 48, 56, 64, 72, 80, 88, 96 };
static int maxtstop=12;
static int curpos=0;
static char *scan_troff(char *c, bool san, char **result);
static char *scan_troff_mandoc(char *c, bool san, char **result);
static TQValueList<char*> s_argumentList;
static TQCString htmlPath, cssPath;
static TQCString s_dollarZero; // Value of $0
void setResourcePath(const TQCString& _htmlPath, const TQCString& _cssPath)
{
htmlPath=_htmlPath;
cssPath=_cssPath;
}
static void fill_old_character_definitions( void )
{
for (size_t i = 0; i < sizeof(standardchar)/sizeof(CSTRDEF); i++)
{
const int nr = standardchar[i].nr;
const char temp[3] = { (char)(nr / 256), (char)(nr % 256), 0 };
TQCString name( temp );
s_characterDefinitionMap.insert( name, StringDefinition( standardchar[i].slen, standardchar[i].st ) );
}
}
static char outbuffer[NULL_TERMINATED(HUGE_STR_MAX)];
static int no_newline_output=0;
static int newline_for_fun=0;
static bool output_possible=false;
static const char *includedirs[] = {
"/usr/include",
"/usr/include/sys",
"/usr/local/include",
"/opt/local/include",
"/usr/ccs",
"/usr/X11R6/include",
"/usr/openwin/include",
"/usr/include/g++",
0
};
static bool ignore_links=false;
static void add_links(char *c)
{
/*
** Add the links to the output.
** At the moment the following are recognized:
**
** name(*) -> ../man?/name.*
** method://string -> method://string
** www.host.name -> http://www.host.name
** ftp.host.name -> ftp://ftp.host.name
** name@host -> mailto:name@host
** <name.h> -> file:/usr/include/name.h (guess)
**
** Other possible links to add in the future:
**
** /dir/dir/file -> file:/dir/dir/file
*/
if (ignore_links)
{
output_real(c);
return;
}
int i,j,nr;
char *f, *h;
char *g;
const int numtests=6; // Nmber of tests
char *idtest[numtests]; // url, mailto, www, ftp, manpage, C header file
bool ok;
/* search for (section) */
nr=0;
idtest[0]=strstr(c+1,"://");
idtest[1]=strchr(c+1,'@');
idtest[2]=strstr(c,"www.");
idtest[3]=strstr(c,"ftp.");
idtest[4]=strchr(c+1,'(');
idtest[5]=strstr(c+1,".h&gt;");
for (i=0; i<numtests; ++i) nr += (idtest[i]!=NULL);
while (nr) {
j=-1;
for (i=0; i<numtests; i++)
if (idtest[i] && (j<0 || idtest[i]<idtest[j])) j=i;
switch (j) {
case 5: { /* <name.h> */
f=idtest[5];
h=f+2;
g=f;
while (g>c && g[-1]!=';') g--;
bool wrote_include = false;
if (g!=c) {
TQCString dir;
TQCString file(g, h - g + 1);
file = file.stripWhiteSpace();
for (int index = 0; includedirs[index]; index++) {
TQCString str = TQCString(includedirs[index]) + "/" + file;
if (!access(str, R_OK)) {
dir = includedirs[index];
break;
}
}
if (!dir.isEmpty()) {
char t;
t=*g;
*g=0;
output_real(c);
*g=t;*h=0;
TQCString str;
str.sprintf("<A HREF=\"file:%s/%s\">%s</A>&gt;", dir.data(), file.data(), file.data());
output_real(str.data());
c=f+6;
wrote_include = true;
}
}
if (!wrote_include) {
f[5]=0;
output_real(c);
f[5]=';';
c=f+5;
}
}
break;
case 4: /* manpage */
f=idtest[j];
/* check section */
g=strchr(f,')');
// The character before f must alphanumeric, the end of a HTML tag or the end of a &nbsp;
if (g!=NULL && f>c && (g-f)<12 && (isalnum(f[-1]) || f[-1]=='>' || ( f[-1] == ';' ) ) &&
isdigit(f[1]) && f[1]!='0' && ((g-f)<=2 || isalpha(f[2])))
{
ok = TRUE;
h = f+2;
while (h<g)
{
if (!isalnum(*h++))
{
ok = FALSE;
break;
}
}
}
else
ok = false;
h = f - 1;
if ( ok )
{
// Skip &nbsp;
kdDebug(7107) << "BEFORE SECTION:" << *h << endl;
if ( ( h > c + 5 ) && ( ! memcmp( h-5, "&nbsp;", 6 ) ) )
{
h -= 6;
kdDebug(7107) << "Skip &nbsp;" << endl;
}
else if ( *h == ';' )
{
// Not a non-breaking space, so probably not ok
ok = false;
}
}
if (ok)
{
/* this might be a link */
/* skip html makeup */
while (h>c && *h=='>') {
while (h!=c && *h!='<') h--;
if (h!=c) h--;
}
if (isalnum(*h)) {
char t,sec, *e;
TQString subsec; // ### TODO avoid using TQString, as we do not know the encoding
TQString fstr(f); // ### TODO avoid using TQString, as we do not know the encoding
e=h+1;
sec=f[1];
subsec=f[2];
int index = fstr.find(')', 2);
if (index != -1)
subsec = fstr.mid(2, index - 2);
else // No closing ')' found, take first character as subsection.
subsec = fstr.mid(2, 1);
while (h>c && (isalnum(h[-1]) || h[-1]=='_'
|| h[-1]==':' || h[-1]=='-' || h[-1]=='.'))
h--;
t=*h;
*h='\0';
output_real(c);
*h=t;
t=*e;
*e='\0';
TQCString str;
if (subsec.isEmpty())
str.sprintf("<A HREF=\"man:%s(%c)\">%s</A>", h, sec, h);
else
str.sprintf("<A HREF=\"man:%s(%c%s)\">%s</A>", h, sec, subsec.lower().latin1(), h);
output_real(str.data());
*e=t;
c=e;
}
}
*f='\0';
output_real(c);
*f='(';
idtest[4]=f-1;
c=f;
break; /* manpage */
case 3: /* ftp */
case 2: /* www */
g=f=idtest[j];
while (*g && (isalnum(*g) || *g=='_' || *g=='-' || *g=='+' ||
*g=='.' || *g=='/')) g++;
if (g[-1]=='.') g--;
if (g-f>4) {
char t;
t=*f; *f='\0';
output_real(c);
*f=t; t=*g;*g='\0';
TQCString str;
str.sprintf("<A HREF=\"%s://%s\">%s</A>", ((j==3)?"ftp":"http"), f, f);
output_real(str.data());
*g=t;
c=g;
} else {
f[3]='\0';
output_real(c);
c=f+3;
f[3]='.';
}
break;
case 1: /* mailto */
g=f=idtest[1];
while (g>c && (isalnum(g[-1]) || g[-1]=='_' || g[-1]=='-' ||
g[-1]=='+' || g[-1]=='.' || g[-1]=='%')) g--;
if (g-7>=c && g[-1]==':')
{
// We have perhaps an email address starting with mailto:
if (!tqstrncmp("mailto:",g-7,7))
g-=7;
}
h=f+1;
while (*h && (isalnum(*h) || *h=='_' || *h=='-' || *h=='+' ||
*h=='.')) h++;
if (*h=='.') h--;
if (h-f>4 && f-g>1) {
char t;
t=*g;
*g='\0';
output_real(c);
*g=t;t=*h;*h='\0';
TQCString str;
str.sprintf("<A HREF=\"mailto:%s\">%s</A>", g, g);
output_real(str.data());
*h=t;
c=h;
} else {
*f='\0';
output_real(c);
*f='@';
idtest[1]=c;
c=f;
}
break;
case 0: /* url */
g=f=idtest[0];
while (g>c && isalpha(g[-1]) && islower(g[-1])) g--;
h=f+3;
while (*h && !isspace(*h) && *h!='<' && *h!='>' && *h!='"' &&
*h!='&') h++;
if (f-g>2 && f-g<7 && h-f>3) {
char t;
t=*g;
*g='\0';
output_real(c);
*g=t; t=*h; *h='\0';
TQCString str;
str.sprintf("<A HREF=\"%s\">%s</A>", g, g);
output_real(str.data());
*h=t;
c=h;
} else {
f[1]='\0';
output_real(c);
f[1]='/';
c=f+1;
}
break;
default:
break;
}
nr=0;
if (idtest[0] && idtest[0]<=c) idtest[0]=strstr(c+1,"://");
if (idtest[1] && idtest[1]<=c) idtest[1]=strchr(c+1,'@');
if (idtest[2] && idtest[2]<c) idtest[2]=strstr(c,"www.");
if (idtest[3] && idtest[3]<c) idtest[3]=strstr(c,"ftp.");
if (idtest[4] && idtest[4]<=c) idtest[4]=strchr(c+1,'(');
if (idtest[5] && idtest[5]<=c) idtest[5]=strstr(c+1,".h&gt;");
for (i=0; i<numtests; i++) nr += (idtest[i]!=NULL);
}
output_real(c);
}
static TQCString current_font;
static int current_size=0;
static int fillout=1;
static void out_html(const char *c)
{
if (!c) return;
// Added, probably due to the const?
char *c2 = tqstrdup(c);
char *c3 = c2;
static int obp=0;
if (no_newline_output) {
int i=0;
no_newline_output=1;
while (c2[i]) {
if (!no_newline_output) c2[i-1]=c2[i];
if (c2[i]=='\n') no_newline_output=0;
i++;
}
if (!no_newline_output) c2[i-1]=0;
}
if (scaninbuff) {
while (*c2) {
if (buffpos>=buffmax) {
char *h = new char[buffmax*2];
#ifdef SIMPLE_MAN2HTML
if (!h)
{
cerr << "Memory full, cannot output!" << endl;
exit(1);
}
#else
// modern compiler do not return a NULL for a new
#endif
memcpy(h, buffer, buffmax);
delete [] buffer;
buffer=h;
buffmax=buffmax*2;
}
buffer[buffpos++]=*c2++;
}
} else
if (output_possible) {
while (*c2) {
outbuffer[obp++]=*c2;
if (*c=='\n' || obp >= HUGE_STR_MAX) {
outbuffer[obp]='\0';
add_links(outbuffer);
obp=0;
}
c2++;
}
}
delete [] c3;
}
static TQCString set_font( const TQCString& name )
{
// Every font but R (Regular) creates <span> elements
TQCString markup;
if ( current_font != "R" && !current_font.isEmpty() )
markup += "</span>";
const uint len = name.length();
bool fontok = true;
if ( len == 1 )
{
const char lead = name[0];
switch (lead)
{
case 'P': // Palatino?
case 'R': break; // regular, do nothing
case 'I': markup += "<span style=\"font-style:italic\">"; break;
case 'B': markup += "<span style=\"font-weight:bold\">"; break;
case 'L': markup += "<span style=\"font-family:monospace\">"; break; // ### What's L?
default: fontok = false;
}
}
else if ( len == 2 )
{
if ( name == "BI" )
markup += "<span style=\"font-style:italic;font-weight:bold\">";
// Courier
else if ( name == "CR" )
markup += "<span style=\"font-family:monospace\">";
else if ( name == "CW" ) // CW is used by pod2man(1) (alias PerlDoc)
markup += "<span style=\"font-family:monospace\">";
else if ( name == "CI" )
markup += "<span style=\"font-family:monospace;font-style:italic\">";
else if ( name == "CB" )
markup += "<span style=\"font-family:monospace;font-weight:bold\">";
// Times
else if ( name == "TR" )
markup += "<span style=\"font-family:serif\">";
else if ( name == "TI" )
markup += "<span style=\"font-family:serif;font-style:italic\">";
else if ( name == "TB" )
markup += "<span style=\"font-family:serif;font-weight:bold\">";
// Helvetica
else if ( name == "HR" )
markup += "<span style=\"font-family:sans-serif\">";
else if ( name == "HI" )
markup += "<span style=\"font-family:sans-serif;font-style:italic\">";
else if ( name == "HB" )
markup += "<span style=\"font-family:sans-serif;font-weight:bold\">";
else
fontok = false;
}
else if ( len == 3 )
{
if ( name == "CBI" )
markup += "<span style=\"font-family:monospace;font-style:italic;font-weight:bold\">";
else if ( name == "TBI" )
markup += "<span style=\"font-family:serif;font-style:italic;font-weight:bold\">";
else if ( name == "HBI" )
markup += "<span style=\"font-family:sans-serif;font-style:italic;font-weight:bold\">";
}
if (fontok)
current_font = name;
else
current_font = "R"; // Still nothing, then it is 'R' (Regular)
return markup;
}
/// \deprecated
static TQCString set_font( const char ch )
#ifndef SIMPLE_MAN2HTML
KDE_DEPRECATED;
static TQCString set_font( const char ch )
#endif
{
const TQCString name = &ch;
return set_font( name );
}
static TQCString change_to_size(int nr)
{
switch (nr)
{
case '0': case '1': case '2': case '3': case '4': case '5': case '6':
case '7': case '8': case '9': nr=nr-'0'; break;
case '\0': break;
default: nr=current_size+nr; if (nr>9) nr=9; if (nr< -9) nr=-9; break;
}
if ( nr == current_size )
return "";
const TQCString font ( current_font );
TQCString markup;
markup = set_font("R");
if (current_size)
markup += "</FONT>";
current_size=nr;
if (nr)
{
markup += "<FONT SIZE=\"";
if (nr>0)
markup += '+';
else
{
markup += '-';
nr=-nr;
}
markup += char( nr + '0' );
markup += "\">";
}
markup += set_font( font );
return markup;
}
/* static int asint=0; */
static int intresult=0;
#define SKIPEOL while (*c && *c++!='\n')
static bool skip_escape=false;
static bool single_escape=false;
static char *scan_escape_direct( char *c, TQCString& cstr );
/**
* scan a named character
* param c position
*/
static TQCString scan_named_character( char*& c )
{
TQCString name;
if ( *c == '(' )
{
// \*(ab Name of two characters
if ( c[1] == escapesym )
{
TQCString cstr;
c = scan_escape_direct( c+2, cstr );
// ### HACK: as we convert characters too early to HTML, we need to support more than 2 characters here and assume that all characters passed by the variable are to be used.
name = cstr;
}
else
{
name+=c[1];
name+=c[2];
c+=3;
}
}
else if ( *c == '[' )
{
// \*[long_name] Long name
// Named character groff(7)
// We must find the ] to get a name
c++;
while ( *c && *c != ']' && *c != '\n' )
{
if ( *c == escapesym )
{
TQCString cstr;
c = scan_escape_direct( c+1, cstr );
const int result = cstr.find(']');
if ( result == -1 )
name += cstr;
else
{
// Note: we drop the characters after the ]
name += cstr.left( result );
}
}
else
{
name+=*c;
c++;
}
}
if ( !*c || *c == '\n' )
{
kdDebug(7107) << "Found linefeed! Could not parse character name: " << name << endl;
return "";
}
c++;
}
else if ( *c =='C' || c[1]== '\'' )
{
// \C'name'
c+=2;
while ( *c && *c != '\'' && *c != '\n' )
{
if ( *c == escapesym )
{
TQCString cstr;
c = scan_escape_direct( c+1, cstr );
const int result = cstr.find('\'');
if ( result == -1 )
name += cstr;
else
{
// Note: we drop the characters after the ]
name += cstr.left( result );
}
}
else
{
name+=*c;
c++;
}
}
if ( !*c || *c == '\n' )
{
kdDebug(7107) << "Found linefeed! Could not parse (\\C mode) character name: " << name << endl;
return "";
}
c++;
}
// Note: characters with a one character length name doe not exist, as they would collide with other escapes
// Now we have the name, let us find it between the string names
TQMap<TQCString,StringDefinition>::iterator it=s_characterDefinitionMap.find(name);
if (it==s_characterDefinitionMap.end())
{
kdDebug(7107) << "EXCEPTION: cannot find character with name: " << name << endl;
// No output, as an undefined string is empty by default
return "";
}
else
{
kdDebug(7107) << "Character with name: \"" << name << "\" => " << (*it).m_output << endl;
return (*it).m_output;
}
}
static TQCString scan_named_string(char*& c)
{
TQCString name;
if ( *c == '(' )
{
// \*(ab Name of two characters
if ( c[1] == escapesym )
{
TQCString cstr;
c = scan_escape_direct( c+2, cstr );
kdDebug(7107) << "\\(" << cstr << endl;
// ### HACK: as we convert characters too early to HTML, we need to support more than 2 characters here and assume that all characters passed by the variable are to be used.
name = cstr;
}
else
{
name+=c[1];
name+=c[2];
c+=3;
}
}
else if ( *c == '[' )
{
// \*[long_name] Long name
// Named character groff(7)
// We must find the ] to get a name
c++;
while ( *c && *c != ']' && *c != '\n' )
{
if ( *c == escapesym )
{
TQCString cstr;
c = scan_escape_direct( c+1, cstr );
const int result = cstr.find(']');
if ( result == -1 )
name += cstr;
else
{
// Note: we drop the characters after the ]
name += cstr.left( result );
}
}
else
{
name+=*c;
c++;
}
}
if ( !*c || *c == '\n' )
{
kdDebug(7107) << "Found linefeed! Could not parse string name: " << name << endl;
return "";
}
c++;
}
else
{
// \*a Name of one character
name+=*c;
c++;
}
// Now we have the name, let us find it between the string names
TQMap<TQCString,StringDefinition>::iterator it=s_stringDefinitionMap.find(name);
if (it==s_stringDefinitionMap.end())
{
kdDebug(7107) << "EXCEPTION: cannot find string with name: " << name << endl;
// No output, as an undefined string is empty by default
return "";
}
else
{
kdDebug(7107) << "String with name: \"" << name << "\" => " << (*it).m_output << endl;
return (*it).m_output;
}
}
static TQCString scan_dollar_parameter(char*& c)
{
unsigned int argno = 0; // No dollar argument number yet!
if ( *c == '0' )
{
//kdDebug(7107) << "$0" << endl;
c++;
return s_dollarZero;
}
else if ( *c >= '1' && *c <= '9' )
{
//kdDebug(7107) << "$ direct" << endl;
argno = ( *c - '0' );
c++;
}
else if ( *c == '(' )
{
//kdDebug(7107) << "$(" << endl;
if ( c[1] && c[2] && c[1] >= '0' && c[1] <= '9' && c[2] >= '0' && c[2] <= '9' )
{
argno = ( c[1] - '0' ) * 10 + ( c[2] - '0' );
c += 3;
}
else
{
if ( !c[1] )
c++;
else if ( !c[2] )
c+=2;
else
c += 3;
return "";
}
}
else if ( *c == '[' )
{
//kdDebug(7107) << "$[" << endl;
argno = 0;
c++;
while ( *c && *c>='0' && *c<='9' && *c!=']' )
{
argno *= 10;
argno += ( *c - '0' );
c++;
}
if ( *c != ']' )
{
return "";
}
c++;
}
else if ( ( *c == '*' ) || ( *c == '@' ) )
{
const bool quote = ( *c == '@' );
TQValueList<char*>::const_iterator it = s_argumentList.begin();
TQCString param;
bool space = false;
for ( ; it != s_argumentList.end(); ++it )
{
if (space)
param += " ";
if (quote)
param += '\"'; // Not as HTML, as it could be used by macros !
param += (*it);
if (quote)
param += '\"'; // Not as HTML, as it could be used by macros!
space = true;
}
c++;
return param;
}
else
{
kdDebug(7107) << "EXCEPTION: unknown parameter $" << *c << endl;
return "";
}
//kdDebug(7107) << "ARG $" << argno << endl;
if ( !s_argumentList.isEmpty() && argno > 0 )
{
//kdDebug(7107) << "ARG $" << argno << " OK!" << endl;
argno--;
if ( argno >= s_argumentList.size() )
{
kdDebug(7107) << "EXCEPTION: cannot find parameter $" << (argno+1) << endl;
return "";
}
return s_argumentList[argno];
}
return "";
}
/// return the value of read-only number registers
static int read_only_number_register( const TQCString& name )
{
// Internal read-only variables
if ( name == ".$" )
{
kdDebug(7107) << "\\n[.$] == " << s_argumentList.size() << endl;
return s_argumentList.size();
}
else if ( name == ".g" )
return 0; // We are not groff(1)
else if ( name == ".s" )
return current_size;
#if 0
// ### TODO: map the fonts to a number
else if ( name == ".f" )
return current_font;
#endif
else if ( name == ".P" )
return 0; // We are not printing
else if ( name == ".A" )
return s_nroff;
#ifndef SIMPLE_MAN2HTML
// Special KDE TDEIO man:
else if ( name == ".TDE_VERSION_MAJOR" )
return TDE_VERSION_MAJOR;
else if ( name == ".TDE_VERSION_MINOR" )
return TDE_VERSION_MINOR;
else if ( name == ".TDE_VERSION_RELEASE" )
return TDE_VERSION_RELEASE;
else if ( name == ".TDE_VERSION" )
return TDE_VERSION;
#endif
// ### TODO: should .T be set to "html"? But we are not the HTML post-processor. :-(
// ### TODO: groff defines much more read-only number registers
#ifndef SIMPLE_MAN2HTML
kdDebug(7107) << "EXCEPTION: unknown read-only number register: " << name << endl;
#endif
return 0; // Undefined variable
}
/// get the value of a number register and auto-increment if asked
static int scan_number_register( char*& c)
{
int sign = 0; // Sign for auto-increment (if any)
switch (*c)
{
case '+': sign = 1; c++; break;
case '-': sign = -1; c++; break;
default: break;
}
TQCString name;
if ( *c == '[' )
{
c++;
if ( *c == '+' )
{
sign = 1;
c++;
}
else if ( *c == '-' )
{
sign = -1;
c++;
}
while ( *c && *c != ']' && *c != '\n' )
{
// ### TODO: a \*[string] could be inside and should be processed
name+=*c;
c++;
}
if ( !*c || *c == '\n' )
{
kdDebug(7107) << "Found linefeed! Could not parse number register name: " << name << endl;
return 0;
}
c++;
}
else if ( *c == '(' )
{
c++;
if ( *c == '+' )
{
sign = 1;
c++;
}
else if ( *c == '-' )
{
sign = -1;
c++;
}
name+=c[0];
name+=c[1];
c+=2;
}
else
{
name += *c;
c++;
}
if ( name[0] == '.' )
{
return read_only_number_register( name );
}
else
{
TQMap< TQCString, NumberDefinition >::iterator it = s_numberDefinitionMap.find( name );
if ( it == s_numberDefinitionMap.end() )
{
return 0; // Undefined variable
}
else
{
(*it).m_value += sign * (*it).m_increment;
return (*it).m_value;
}
}
}
/// get and set font
static TQCString scan_named_font( char*& c )
{
TQCString name;
if ( *c == '(' )
{
// \f(ab Name of two characters
if ( c[1] == escapesym )
{
TQCString cstr;
c = scan_escape_direct( c+2, cstr );
kdDebug(7107) << "\\(" << cstr << endl;
// ### HACK: as we convert characters too early to HTML, we need to support more than 2 characters here and assume that all characters passed by the variable are to be used.
name = cstr;
}
else
{
name+=c[1];
name+=c[2];
c+=3;
}
}
else if ( *c == '[' )
{
// \f[long_name] Long name
// We must find the ] to get a name
c++;
while ( *c && *c != ']' && *c != '\n' )
{
if ( *c == escapesym )
{
TQCString cstr;
c = scan_escape_direct( c+1, cstr );
const int result = cstr.find(']');
if ( result == -1 )
name += cstr;
else
{
// Note: we drop the characters after the ]
name += cstr.left( result );
}
}
else
{
name+=*c;
c++;
}
}
if ( !*c || *c == '\n' )
{
kdDebug(7107) << "Found linefeed! Could not parse font name: " << name << endl;
return "";
}
c++;
}
else
{
// \fa Font name with one character or one digit
// ### HACK do *not* use: name = *c; or name would be empty
name += *c;
c++;
}
//kdDebug(7107) << "FONT NAME: " << name << endl;
// Now we have the name, let us find the font
bool ok = false;
const unsigned int number = name.toUInt( &ok );
if ( ok )
{
if ( number < 5 )
{
const char* fonts[] = { "R", "I", "B", "BI", "CR" }; // Regular, Italic, Bold, Bold Italic, Courier regular
name = fonts[ number ];
}
else
{
kdDebug(7107) << "EXCEPTION: font has too big number: " << name << " => " << number << endl;
name = "R"; // Let assume Regular
}
}
else if ( name.isEmpty() )
{
kdDebug(7107) << "EXCEPTION: font has no name: " << name << endl;
name = "R"; // Let assume Regular
}
if ( !skip_escape )
return set_font( name );
else
return "";
}
static TQCString scan_number_code( char*& c )
{
TQCString number;
if ( *c != '\'' )
return "";
while ( *c && ( *c != '\n' ) && ( *c != '\'' ) )
{
number += *c;
c++;
}
bool ok = false;
unsigned int result = number.toUInt( &ok );
if ( ( result < ' ' ) || ( result > 65535 ) )
return "";
else if ( result == '\t' )
{
curpos += 8;
curpos &= 0xfff8;
return "\t";
}
number.setNum( result );
number.prepend( "&#" );
number.append( ";" );
curpos ++;
return number;
}
// ### TODO known missing escapes from groff(7):
// ### TODO \& \! \) \: \R
static char *scan_escape_direct( char *c, TQCString& cstr )
{
bool exoutputp;
bool exskipescape;
int i,j;
bool cplusplus = true; // Should the c++ be done at the end of the function
cstr = "";
intresult=0;
switch (*c) {
case 'e': cstr = "\\"; curpos++;break; // ### FIXME: it should be the current escape symbol
case '0': // ### TODO Where in Unicode? (space of digit width)
case '~': // non-breakable-space (resizeable!)
case ' ':
case '|': // half-non-breakable-space
case '^': // quarter-non-breakable-space
cstr = "&nbsp;"; curpos++; break;
case '"': SKIPEOL; c--; break;
// ### TODO \# like \" but does not ignore the end of line (groff(7))
case '$':
{
c++;
cstr = scan_dollar_parameter( c );
cplusplus = false;
break;
}
case 'z':
{
c++;
if (*c=='\\')
{
c=scan_escape_direct( c+1, cstr );
c--;
}
else
cstr = TQCString( c, 1 );
break;
}
case 'k': c++; if (*c=='(') c+=2; // ### FIXME \k[REG] exists too
case '!':
case '%':
case 'a':
case 'd':
case 'r':
case 'u':
case '\n':
case '&':
cstr = ""; break;
case '(':
case '[':
case 'C':
{
// Do not go forward as scan_named_character needs the leading symbol
cstr = scan_named_character( c );
cplusplus = false;
break;
}
case '*':
{
c++;
cstr = scan_named_string( c );
cplusplus = false;
break;
}
case 'f':
{
c++;
cstr = scan_named_font( c );
cplusplus = false;
break;
}
case 's': // ### FIXME: many forms are missing
c++;
j=0;i=0;
if (*c=='-') {j= -1; c++;} else if (*c=='+') {j=1; c++;}
if (*c=='0') c++; else if (*c=='\\') {
c++;
c=scan_escape_direct( c, cstr );
i=intresult; if (!j) j=1;
} else
while (isdigit(*c) && (!i || (!j && i<4))) i=i*10+(*c++)-'0';
if (!j) { j=1; if (i) i=i-10; }
if (!skip_escape) cstr=change_to_size(i*j);
c--;
break;
case 'n':
{
c++;
intresult = scan_number_register( c );
cplusplus = false;
break;
}
case 'w':
c++;
i=*c;
c++;
exoutputp=output_possible;
exskipescape=skip_escape;
output_possible=false;
skip_escape=true;
j=0;
while (*c!=i)
{
j++;
if ( *c == escapesym )
c = scan_escape_direct( c+1, cstr);
else
c++;
}
output_possible=exoutputp;
skip_escape=exskipescape;
intresult=j;
break;
case 'l': cstr = "<HR>"; curpos=0;
case 'b':
case 'v':
case 'x':
case 'o':
case 'L':
case 'h':
c++;
i=*c;
c++;
exoutputp=output_possible;
exskipescape=skip_escape;
output_possible=0;
skip_escape=true;
while (*c != i)
if (*c==escapesym) c=scan_escape_direct( c+1, cstr );
else c++;
output_possible=exoutputp;
skip_escape=exskipescape;
break;
case 'c': no_newline_output=1; break;
case '{': newline_for_fun++; break; // Start conditional block
case '}': if (newline_for_fun) newline_for_fun--; break; // End conditional block
case 'p': cstr = "<BR>\n";curpos=0; break;
case 't': cstr = "\t";curpos=(curpos+8)&0xfff8; break;
case '<': cstr = "&lt;";curpos++; break;
case '>': cstr = "&gt;";curpos++; break;
case '\\':
{
if (single_escape)
c--;
else
cstr="\\";
break;
}
case 'N':
{
c++;
cstr = scan_number_code( c );
cplusplus = false;
break;
}
#if 0
{
if (*++c) c++; // c += 2
if (sscanf(c, "%d", &i) != 1) // (### FIXME ugly!)
break;
TQCString temp;
temp.sprintf( "%d", i ); // Skip over number (### FIXME ugly!)
c += temp.length();
switch(i) {
case 8: cstr = "\t"; curpos=(curpos+8)&0xfff8; break;
case 34: cstr = "&quot;"; curpos++; break;
default: cstr = char( i ); curpos++; break;
}
break;
}
#endif
case '\'': cstr = "&acute;";curpos++; break; // groff(7) ### TODO verify
case '`': cstr = "`";curpos++; break; // groff(7)
case '-': cstr = "-";curpos++; break; // groff(7)
case '.': cstr = ".";curpos++; break; // groff(7)
default: cstr = *c; curpos++; break;
}
if (cplusplus)
c++;
return c;
}
static char *scan_escape(char *c)
{
TQCString cstr;
char* result = scan_escape_direct( c, cstr );
if ( !skip_escape )
out_html(cstr);
return result;
}
class TABLEROW;
class TABLEITEM {
public:
TABLEITEM(TABLEROW *row);
~TABLEITEM() {
delete [] contents;
}
void setContents(const char *_contents) {
delete [] contents;
contents = tqstrdup(_contents);
}
const char *getContents() const { return contents; }
void init() {
delete [] contents;
contents = 0;
size = 0;
align = 0;
valign = 0;
colspan = 1;
rowspan = 1;
font = 0;
vleft = 0;
vright = 0;
space = 0;
width = 0;
}
void copyLayout(const TABLEITEM *orig) {
size = orig->size;
align = orig->align;
valign = orig->valign;
colspan = orig->colspan;
rowspan = orig->rowspan;
font = orig->font;
vleft = orig->vleft;
vright = orig->vright;
space = orig->space;
width = orig->width;
}
public:
int size,align,valign,colspan,rowspan,font,vleft,vright,space,width;
private:
char *contents;
TABLEROW *_parent;
};
class TABLEROW {
char *test;
public:
TABLEROW() {
test = new char;
items.setAutoDelete(true);
prev = 0; next = 0;
}
~TABLEROW() {
delete test;
}
int length() const { return items.count(); }
bool has(int index) {
return (index >= 0) && (index < (int)items.count());
}
TABLEITEM &at(int index) {
return *items.at(index);
}
TABLEROW *copyLayout() const;
void addItem(TABLEITEM *item) {
items.append(item);
}
TABLEROW *prev, *next;
private:
TQPtrList<TABLEITEM> items;
};
TABLEITEM::TABLEITEM(TABLEROW *row) : contents(0), _parent(row) {
init();
_parent->addItem(this);
}
TABLEROW *TABLEROW::copyLayout() const {
TABLEROW *newrow = new TABLEROW();
TQPtrListIterator<TABLEITEM> it(items);
for ( ; it.current(); ++it) {
TABLEITEM *newitem = new TABLEITEM(newrow);
newitem->copyLayout(it.current());
}
return newrow;
}
static const char *tableopt[]= { "center", "expand", "box", "allbox",
"doublebox", "tab", "linesize",
"delim", NULL };
static int tableoptl[] = { 6,6,3,6,9,3,8,5,0};
static void clear_table(TABLEROW *table)
{
TABLEROW *tr1,*tr2;
tr1=table;
while (tr1->prev) tr1=tr1->prev;
while (tr1) {
tr2=tr1;
tr1=tr1->next;
delete tr2;
}
}
static char *scan_expression(char *c, int *result);
static char *scan_format(char *c, TABLEROW **result, int *maxcol)
{
TABLEROW *layout, *currow;
TABLEITEM *curfield;
int i,j;
if (*result) {
clear_table(*result);
}
layout= currow=new TABLEROW();
curfield=new TABLEITEM(currow);
while (*c && *c!='.') {
switch (*c) {
case 'C': case 'c': case 'N': case 'n':
case 'R': case 'r': case 'A': case 'a':
case 'L': case 'l': case 'S': case 's':
case '^': case '_':
if (curfield->align)
curfield=new TABLEITEM(currow);
curfield->align=toupper(*c);
c++;
break;
case 'i': case 'I': case 'B': case 'b':
curfield->font = toupper(*c);
c++;
break;
case 'f': case 'F':
c++;
curfield->font = toupper(*c);
c++;
if (!isspace(*c) && *c!='.') c++;
break;
case 't': case 'T': curfield->valign='t'; c++; break;
case 'p': case 'P':
c++;
i=j=0;
if (*c=='+') { j=1; c++; }
if (*c=='-') { j=-1; c++; }
while (isdigit(*c)) i=i*10+(*c++)-'0';
if (j) curfield->size= i*j; else curfield->size=j-10;
break;
case 'v': case 'V':
case 'w': case 'W':
c=scan_expression(c+2,&curfield->width);
break;
case '|':
if (curfield->align) curfield->vleft++;
else curfield->vright++;
c++;
break;
case 'e': case 'E':
c++;
break;
case '0': case '1': case '2': case '3': case '4':
case '5': case '6': case '7': case '8': case '9':
i=0;
while (isdigit(*c)) i=i*10+(*c++)-'0';
curfield->space=i;
break;
case ',': case '\n':
currow->next=new TABLEROW();
currow->next->prev=currow;
currow=currow->next;
currow->next=NULL;
curfield=new TABLEITEM(currow);
c++;
break;
default:
c++;
break;
}
}
if (*c=='.') while (*c++!='\n');
*maxcol=0;
currow=layout;
while (currow) {
i=currow->length();
if (i>*maxcol) *maxcol=i;
currow=currow->next;
}
*result=layout;
return c;
}
static TABLEROW *next_row(TABLEROW *tr)
{
if (tr->next) {
tr=tr->next;
if (!tr->next)
return next_row(tr);
return tr;
} else {
tr->next = tr->copyLayout();
tr->next->prev = tr;
return tr->next;
}
}
static char itemreset[20]="\\fR\\s0";
#define FORWARDCUR do { curfield++; } while (currow->has(curfield) && currow->at(curfield).align=='S');
static char *scan_table(char *c)
{
char *h;
char *g;
int center=0, expand=0, box=0, border=0, linesize=1;
int i,j,maxcol=0, finished=0;
TQCString oldfont;
int oldsize,oldfillout;
char itemsep='\t';
TABLEROW *layout=NULL, *currow;
int curfield = -1;
while (*c++!='\n');
h=c;
if (*h=='.') return c-1;
oldfont=current_font;
oldsize=current_size;
oldfillout=fillout;
out_html(set_font("R"));
out_html(change_to_size(0));
if (!fillout) {
fillout=1;
out_html("</PRE>");
}
while (*h && *h!='\n') h++;
if (h[-1]==';') {
/* scan table options */
while (c<h) {
while (isspace(*c)) c++;
for (i=0; tableopt[i] && tqstrncmp(tableopt[i],c,tableoptl[i]);i++);
c=c+tableoptl[i];
switch (i) {
case 0: center=1; break;
case 1: expand=1; break;
case 2: box=1; break;
case 3: border=1; break;
case 4: box=2; break;
case 5: while (*c++!='('); itemsep=*c++; break;
case 6: while (*c++!='('); linesize=0;
while (isdigit(*c)) linesize=linesize*10+(*c++)-'0';
break;
case 7: while (*c!=')') c++;
default: break;
}
c++;
}
c=h+1;
}
/* scan layout */
c=scan_format(c,&layout, &maxcol);
// currow=layout;
currow=next_row(layout);
curfield=0;
i=0;
while (!finished && *c) {
/* search item */
h=c;
if ((*c=='_' || *c=='=') && (c[1]==itemsep || c[1]=='\n')) {
if (c[-1]=='\n' && c[1]=='\n') {
if (currow->prev) {
currow->prev->next=new TABLEROW();
currow->prev->next->next=currow;
currow->prev->next->prev=currow->prev;
currow->prev=currow->prev->next;
} else {
currow->prev=layout=new TABLEROW();
currow->prev->prev=NULL;
currow->prev->next=currow;
}
TABLEITEM *newitem = new TABLEITEM(currow->prev);
newitem->align=*c;
newitem->colspan=maxcol;
curfield=0;
c=c+2;
} else {
if (currow->has(curfield)) {
currow->at(curfield).align=*c;
FORWARDCUR;
}
if (c[1]=='\n') {
currow=next_row(currow);
curfield=0;
}
c=c+2;
}
} else if (*c=='T' && c[1]=='{') {
h=c+2;
c=strstr(h,"\nT}");
c++;
*c='\0';
g=NULL;
scan_troff(h,0,&g);
scan_troff(itemreset, 0, &g);
*c='T';
c+=3;
if (currow->has(curfield)) {
currow->at(curfield).setContents(g);
FORWARDCUR;
}
delete [] g;
if (c[-1]=='\n') {
currow=next_row(currow);
curfield=0;
}
} else if (*c=='.' && c[1]=='T' && c[2]=='&' && c[-1]=='\n') {
TABLEROW *hr;
while (*c++!='\n');
hr=currow;
currow=currow->prev;
hr->prev=NULL;
c=scan_format(c,&hr, &i);
hr->prev=currow;
currow->next=hr;
currow=hr;
next_row(currow);
curfield=0;
} else if (*c=='.' && c[1]=='T' && c[2]=='E' && c[-1]=='\n') {
finished=1;
while (*c++!='\n');
if (currow->prev)
currow->prev->next=NULL;
currow->prev=NULL;
clear_table(currow);
currow = 0;
} else if (*c=='.' && c[-1]=='\n' && !isdigit(c[1])) {
/* skip troff request inside table (usually only .sp ) */
while (*c++!='\n');
} else {
h=c;
while (*c && (*c!=itemsep || c[-1]=='\\') &&
(*c!='\n' || c[-1]=='\\')) c++;
i=0;
if (*c==itemsep) {i=1; *c='\n'; }
if (h[0]=='\\' && h[2]=='\n' &&
(h[1]=='_' || h[1]=='^')) {
if (currow->has(curfield)) {
currow->at(curfield).align=h[1];
FORWARDCUR;
}
h=h+3;
} else {
g=NULL;
h=scan_troff(h,1,&g);
scan_troff(itemreset,0, &g);
if (currow->has(curfield)) {
currow->at(curfield).setContents(g);
FORWARDCUR;
}
delete [] g;
}
if (i) *c=itemsep;
c=h;
if (c[-1]=='\n') {
currow=next_row(currow);
curfield=0;
}
}
}
/* calculate colspan and rowspan */
currow=layout;
while (currow->next) currow=currow->next;
while (currow) {
int ti = 0, ti1 = 0, ti2 = -1;
TABLEROW *prev = currow->prev;
if (!prev)
break;
while (prev->has(ti1)) {
if (currow->has(ti))
switch (currow->at(ti).align) {
case 'S':
if (currow->has(ti2)) {
currow->at(ti2).colspan++;
if (currow->at(ti2).rowspan<prev->at(ti1).rowspan)
currow->at(ti2).rowspan=prev->at(ti1).rowspan;
}
break;
case '^':
if (prev->has(ti1)) prev->at(ti1).rowspan++;
default:
if (ti2 < 0) ti2=ti;
else {
do {
ti2++;
} while (currow->has(ti2) && currow->at(ti2).align=='S');
}
break;
}
ti++;
if (ti1 >= 0) ti1++;
}
currow=currow->prev;
}
/* produce html output */
if (center) out_html("<CENTER>");
if (box==2) out_html("<TABLE BORDER><TR><TD>");
out_html("<TABLE");
if (box || border) {
out_html(" BORDER");
if (!border) out_html("><TR><TD><TABLE");
if (expand) out_html(" WIDTH=\"100%\"");
}
out_html(">\n");
currow=layout;
while (currow) {
j=0;
out_html("<TR VALIGN=top>");
curfield=0;
while (currow->has(curfield)) {
if (currow->at(curfield).align!='S' && currow->at(curfield).align!='^') {
out_html("<TD");
switch (currow->at(curfield).align) {
case 'N':
currow->at(curfield).space+=4;
case 'R':
out_html(" ALIGN=right");
break;
case 'C':
out_html(" ALIGN=center");
default:
break;
}
if (!currow->at(curfield).valign && currow->at(curfield).rowspan>1)
out_html(" VALIGN=center");
if (currow->at(curfield).colspan>1) {
char buf[5];
out_html(" COLSPAN=");
sprintf(buf, "%i", currow->at(curfield).colspan);
out_html(buf);
}
if (currow->at(curfield).rowspan>1) {
char buf[5];
out_html(" ROWSPAN=");
sprintf(buf, "%i", currow->at(curfield).rowspan);
out_html(buf);
}
j=j+currow->at(curfield).colspan;
out_html(">");
if (currow->at(curfield).size) out_html(change_to_size(currow->at(curfield).size));
if (currow->at(curfield).font) out_html(set_font(currow->at(curfield).font));
switch (currow->at(curfield).align) {
case '=': out_html("<HR><HR>"); break;
case '_': out_html("<HR>"); break;
default:
out_html(currow->at(curfield).getContents());
break;
}
if (currow->at(curfield).space)
for (i=0; i<currow->at(curfield).space;i++) out_html("&nbsp;");
if (currow->at(curfield).font) out_html(set_font("R"));
if (currow->at(curfield).size) out_html(change_to_size(0));
if (j>=maxcol && currow->at(curfield).align>'@' && currow->at(curfield).align!='_')
out_html("<BR>");
out_html("</TD>");
}
curfield++;
}
out_html("</TR>\n");
currow=currow->next;
}
clear_table(layout);
if (box && !border) out_html("</TABLE>");
out_html("</TABLE>");
if (box==2) out_html("</TABLE>");
if (center) out_html("</CENTER>\n");
else out_html("\n");
if (!oldfillout) out_html("<PRE>");
fillout=oldfillout;
out_html(change_to_size(oldsize));
out_html(set_font(oldfont));
return c;
}
static char *scan_expression( char *c, int *result, const unsigned int numLoop )
{
int value=0,value2,sign=1,opex=0;
char oper='c';
if (*c=='!') {
c=scan_expression(c+1, &value);
value= (!value);
} else if (*c=='n') {
c++;
value=s_nroff;
} else if (*c=='t') {
c++;
value=1-s_nroff;
} else if (*c=='\'' || *c=='"' || *c<' ' || (*c=='\\' && c[1]=='(')) {
/* ?string1?string2?
** test if string1 equals string2.
*/
char *st1=NULL, *st2=NULL, *h;
char *tcmp=NULL;
char sep;
sep=*c;
if (sep=='\\') {
tcmp=c;
c=c+3;
}
c++;
h=c;
while (*c!= sep && (!tcmp || tqstrncmp(c,tcmp,4))) c++;
*c='\n';
scan_troff(h, 1, &st1);
*c=sep;
if (tcmp) c=c+3;
c++;
h=c;
while (*c!=sep && (!tcmp || tqstrncmp(c,tcmp,4))) c++;
*c='\n';
scan_troff(h,1,&st2);
*c=sep;
if (!st1 && !st2) value=1;
else if (!st1 || !st2) value=0;
else value=(!qstrcmp(st1, st2));
delete [] st1;
delete [] st2;
if (tcmp) c=c+3;
c++;
} else {
while (*c && ( !isspace(*c) || ( numLoop > 0 ) ) && *c!=')' && opex >= 0) {
opex=0;
switch (*c) {
case '(':
c = scan_expression( c + 1, &value2, numLoop + 1 );
value2=sign*value2;
opex=1;
break;
case '.':
case '0': case '1':
case '2': case '3':
case '4': case '5':
case '6': case '7':
case '8': case '9': {
int num=0,denum=1;
value2=0;
while (isdigit(*c)) value2=value2*10+((*c++)-'0');
if (*c=='.' && isdigit(c[1])) {
c++;
while (isdigit(*c)) {
num=num*10+((*c++)-'0');
denum=denum*10;
}
}
if (isalpha(*c)) {
/* scale indicator */
switch (*c) {
case 'i': /* inch -> 10pt */
value2=value2*10+(num*10+denum/2)/denum;
num=0;
break;
default:
break;
}
c++;
}
value2=value2+(num+denum/2)/denum;
value2=sign*value2;
opex=1;
if (*c=='.')
opex = -1;
}
break;
case '\\':
c=scan_escape(c+1);
value2=intresult*sign;
if (isalpha(*c)) c++; /* scale indicator */
opex=1;
break;
case '-':
if (oper) { sign=-1; c++; break; }
case '>':
case '<':
case '+':
case '/':
case '*':
case '%':
case '&':
case '=':
case ':':
if (c[1]=='=') oper=(*c++) +16; else oper=*c;
c++;
break;
default: c++; break;
}
if (opex > 0) {
sign=1;
switch (oper) {
case 'c': value=value2; break;
case '-': value=value-value2; break;
case '+': value=value+value2; break;
case '*': value=value*value2; break;
case '/': if (value2) value=value/value2; break;
case '%': if (value2) value=value%value2; break;
case '<': value=(value<value2); break;
case '>': value=(value>value2); break;
case '>'+16: value=(value>=value2); break;
case '<'+16: value=(value<=value2); break;
case '=': case '='+16: value=(value==value2); break;
case '&': value = (value && value2); break;
case ':': value = (value || value2); break;
default:
{
kdDebug(7107) << "Unknown operator " << char(oper) << endl;
}
}
oper=0;
}
}
if (*c==')') c++;
}
*result=value;
return c;
}
static char *scan_expression(char *c, int *result)
{
return scan_expression( c, result, 0 );
}
static void trans_char(char *c, char s, char t)
{
char *sl=c;
int slash=0;
while (*sl!='\n' || slash) {
if (!slash) {
if (*sl==escapesym)
slash=1;
else if (*sl==s)
*sl=t;
} else slash=0;
sl++;
}
}
// 2004-10-19, patched by Waldo Bastian <bastian@kde.org>:
// Fix handling of lines like:
// .TH FIND 1L \" -*- nroff -*-
// Where \" indicates the start of comment.
//
// The problem is the \" handling in fill_words(), the return value
// indicates the end of the word as well as the end of the line, which makes it
// basically impossible to express that the end of the last word is not the end of
// the line.
//
// I have corrected that by adding an extra parameter 'next_line' that returns a
// pointer to the next line, while the function itself returns a pointer to the end
// of the last word.
static char *fill_words(char *c, char *words[], int *n, bool newline, char **next_line)
{
char *sl=c;
int slash=0;
int skipspace=0;
*n=0;
words[*n]=sl;
while (*sl && (*sl!='\n' || slash)) {
if (!slash) {
if (*sl=='"') {
if (skipspace && (*(sl+1)=='"'))
*sl++ = '\a';
else {
*sl='\a';
skipspace=!skipspace;
}
} else if (*sl==escapesym) {
slash=1;
if (sl[1]=='\n')
*sl='\a';
} else if ((*sl==' ' || *sl=='\t') && !skipspace) {
if (newline) *sl='\n';
if (words[*n]!=sl) (*n)++;
words[*n]=sl+1;
}
} else {
if (*sl=='"') {
sl--;
if (newline) *sl='\n';
if (words[*n]!=sl) (*n)++;
if (next_line)
{
char *eow = sl;
sl++;
while (*sl && *sl !='\n') sl++;
*next_line = sl;
return eow;
}
return sl;
}
slash=0;
}
sl++;
}
if (sl!=words[*n]) (*n)++;
if (next_line) *next_line = sl+1;
return sl;
}
static const char *abbrev_list[] = {
"GSBG", "Getting Started ",
"SUBG", "Customizing SunOS",
"SHBG", "Basic Troubleshooting",
"SVBG", "SunView User's Guide",
"MMBG", "Mail and Messages",
"DMBG", "Doing More with SunOS",
"UNBG", "Using the Network",
"GDBG", "Games, Demos &amp; Other Pursuits",
"CHANGE", "SunOS 4.1 Release Manual",
"INSTALL", "Installing SunOS 4.1",
"ADMIN", "System and Network Administration",
"SECUR", "Security Features Guide",
"PROM", "PROM User's Manual",
"DIAG", "Sun System Diagnostics",
"SUNDIAG", "Sundiag User's Guide",
"MANPAGES", "SunOS Reference Manual",
"REFMAN", "SunOS Reference Manual",
"SSI", "Sun System Introduction",
"SSO", "System Services Overview",
"TEXT", "Editing Text Files",
"DOCS", "Formatting Documents",
"TROFF", "Using <B>nroff</B> and <B>troff</B>",
"INDEX", "Global Index",
"CPG", "C Programmer's Guide",
"CREF", "C Reference Manual",
"ASSY", "Assembly Language Reference",
"PUL", "Programming Utilities and Libraries",
"DEBUG", "Debugging Tools",
"NETP", "Network Programming",
"DRIVER", "Writing Device Drivers",
"STREAMS", "STREAMS Programming",
"SBDK", "SBus Developer's Kit",
"WDDS", "Writing Device Drivers for the SBus",
"FPOINT", "Floating-Point Programmer's Guide",
"SVPG", "SunView 1 Programmer's Guide",
"SVSPG", "SunView 1 System Programmer's Guide",
"PIXRCT", "Pixrect Reference Manual",
"CGI", "SunCGI Reference Manual",
"CORE", "SunCore Reference Manual",
"4ASSY", "Sun-4 Assembly Language Reference",
"SARCH", "<FONT SIZE=\"-1\">SPARC</FONT> Architecture Manual",
"KR", "The C Programming Language",
NULL, NULL };
static const char *lookup_abbrev(char *c)
{
int i=0;
if (!c) return "";
while (abbrev_list[i] && qstrcmp(c,abbrev_list[i])) i=i+2;
if (abbrev_list[i]) return abbrev_list[i+1];
else return c;
}
static const char *section_list[] = {
#ifdef Q_OS_SOLARIS
// for Solaris
"1", "User Commands",
"1B", "SunOS/BSD Compatibility Package Commands",
"1b", "SunOS/BSD Compatibility Package Commands",
"1C", "Communication Commands ",
"1c", "Communication Commands",
"1F", "FMLI Commands ",
"1f", "FMLI Commands",
"1G", "Graphics and CAD Commands ",
"1g", "Graphics and CAD Commands ",
"1M", "Maintenance Commands",
"1m", "Maintenance Commands",
"1S", "SunOS Specific Commands",
"1s", "SunOS Specific Commands",
"2", "System Calls",
"3", "C Library Functions",
"3B", "SunOS/BSD Compatibility Library Functions",
"3b", "SunOS/BSD Compatibility Library Functions",
"3C", "C Library Functions",
"3c", "C Library Functions",
"3E", "C Library Functions",
"3e", "C Library Functions",
"3F", "Fortran Library Routines",
"3f", "Fortran Library Routines",
"3G", "C Library Functions",
"3g", "C Library Functions",
"3I", "Wide Character Functions",
"3i", "Wide Character Functions",
"3K", "Kernel VM Library Functions",
"3k", "Kernel VM Library Functions",
"3L", "Lightweight Processes Library",
"3l", "Lightweight Processes Library",
"3M", "Mathematical Library",
"3m", "Mathematical Library",
"3N", "Network Functions",
"3n", "Network Functions",
"3R", "Realtime Library",
"3r", "Realtime Library",
"3S", "Standard I/O Functions",
"3s", "Standard I/O Functions",
"3T", "Threads Library",
"3t", "Threads Library",
"3W", "C Library Functions",
"3w", "C Library Functions",
"3X", "Miscellaneous Library Functions",
"3x", "Miscellaneous Library Functions",
"4", "File Formats",
"4B", "SunOS/BSD Compatibility Package File Formats",
"4b", "SunOS/BSD Compatibility Package File Formats",
"5", "Headers, Tables, and Macros",
"6", "Games and Demos",
"7", "Special Files",
"7B", "SunOS/BSD Compatibility Special Files",
"7b", "SunOS/BSD Compatibility Special Files",
"8", "Maintenance Procedures",
"8C", "Maintenance Procedures",
"8c", "Maintenance Procedures",
"8S", "Maintenance Procedures",
"8s", "Maintenance Procedures",
"9", "DDI and DKI",
"9E", "DDI and DKI Driver Entry Points",
"9e", "DDI and DKI Driver Entry Points",
"9F", "DDI and DKI Kernel Functions",
"9f", "DDI and DKI Kernel Functions",
"9S", "DDI and DKI Data Structures",
"9s", "DDI and DKI Data Structures",
"L", "Local Commands",
#elif defined(__NetBSD__) || defined(__OpenBSD__) || defined(__FreeBSD__) || defined(__DragonFly__)
"1", "General Commands",
"2", "System Calls",
"3", "Library Functions",
"4", "Kernel Interfaces",
"5", "File Formats",
"6", "Games",
"7", "Miscellaneous Information",
"8", "System Manager's Manuals",
"9", "Kernel Developer's Manuals",
#else
// Other OS
"1", "User Commands ",
"1C", "User Commands",
"1G", "User Commands",
"1S", "User Commands",
"1V", "User Commands ",
"2", "System Calls",
"2V", "System Calls",
"3", "C Library Functions",
"3C", "Compatibility Functions",
"3F", "Fortran Library Routines",
"3K", "Kernel VM Library Functions",
"3L", "Lightweight Processes Library",
"3M", "Mathematical Library",
"3N", "Network Functions",
"3p", "Perl Functions",
"3R", "RPC Services Library",
"3S", "Standard I/O Functions",
"3V", "C Library Functions",
"3X", "Miscellaneous Library Functions",
"4", "Devices and Network Interfaces",
"4F", "Protocol Families",
"4I", "Devices and Network Interfaces",
"4M", "Devices and Network Interfaces",
"4N", "Devices and Network Interfaces",
"4P", "Protocols",
"4S", "Devices and Network Interfaces",
"4V", "Devices and Network Interfaces",
"5", "File Formats",
"5V", "File Formats",
"6", "Games and Demos",
"7", "Environments, Tables, and Troff Macros",
"7V", "Environments, Tables, and Troff Macros",
"8", "Maintenance Commands",
"8C", "Maintenance Commands",
"8S", "Maintenance Commands",
"8V", "Maintenance Commands",
"L", "Local Commands",
#endif
// The defaults
NULL, "Misc. Reference Manual Pages",
NULL, NULL
};
static const char *section_name(char *c)
{
int i=0;
if (!c) return "";
while (section_list[i] && qstrcmp(c,section_list[i])) i=i+2;
if (section_list[i+1]) return section_list[i+1];
else return c;
}
static char *skip_till_newline(char *c)
{
int lvl=0;
while (*c && (*c!='\n' || lvl>0)) {
if (*c=='\\') {
c++;
if (*c=='}') lvl--; else if (*c=='{') lvl++;
}
c++;
}
if (*c) c++;
if (lvl<0 && newline_for_fun) {
newline_for_fun = newline_for_fun+lvl;
if (newline_for_fun<0) newline_for_fun=0;
}
return c;
}
static bool s_whileloop = false;
/// Processing the .while request
static void request_while( char*& c, int j, bool mdoc )
{
// ### TODO: .break and .continue
kdDebug(7107) << "Entering .while" << endl;
c += j;
char* newline = skip_till_newline( c );
const char oldchar = *newline;
*newline = 0;
// We store the full .while stuff into a TQCString as if it would be a macro
const TQCString macro = c ;
kdDebug(7107) << "'Macro' of .while" << endl << macro << endl;
// Prepare for continuing after .while loop end
*newline = oldchar;
c = newline;
// Process -while loop
const bool oldwhileloop = s_whileloop;
s_whileloop = true;
int result = true; // It must be an int due to the call to scan_expression
while ( result )
{
// Unlike for a normal macro, we have the condition at start, so we do not need to prepend extra bytes
char* liveloop = tqstrdup( macro.data() );
kdDebug(7107) << "Scanning .while condition" << endl;
kdDebug(7101) << "Loop macro " << liveloop << endl;
char* end_expression = scan_expression( liveloop, &result );
kdDebug(7101) << "After " << end_expression << endl;
if ( result )
{
kdDebug(7107) << "New .while iteration" << endl;
// The condition is true, so call the .while's content
char* help = end_expression + 1;
while ( *help && ( *help == ' ' || *help == '\t' ) )
++help;
if ( ! *help )
{
// We have a problem, so stop .while
result = false;
break;
}
if ( mdoc )
scan_troff_mandoc( help, false, 0 );
else
scan_troff( help, false, 0 );
}
delete[] liveloop;
}
//
s_whileloop = oldwhileloop;
kdDebug(7107) << "Ending .while" << endl;
}
const int max_wordlist = 100;
/// Processing mixed fonts reqiests like .BI
static void request_mixed_fonts( char*& c, int j, const char* font1, const char* font2, const bool mode, const bool inFMode )
{
c += j;
if (*c=='\n') c++;
int words;
char *wordlist[max_wordlist];
fill_words(c, wordlist, &words, true, &c);
for (int i=0; i<words; i++)
{
if ((mode) || (inFMode))
{
out_html(" ");
curpos++;
}
wordlist[i][-1]=' ';
out_html( set_font( (i&1) ? font2 : font1 ) );
scan_troff(wordlist[i],1,NULL);
}
out_html(set_font("R"));
if (mode)
{
out_html(" ]");
curpos++;
}
out_html(NEWLINE);
if (!fillout)
curpos=0;
else
curpos++;
}
// Some known missing requests from man(7):
// - see "safe subset": .tr
// Some known missing requests from mdoc(7):
// - start or end of quotings
// Some of the requests are from mdoc.
// On Linux see the man pages mdoc(7), mdoc.samples(7) and groff_mdoc(7)
// See also the online man pages of FreeBSD: mdoc(7)
#define REQ_UNKNOWN -1
#define REQ_ab 0
#define REQ_di 1
#define REQ_ds 2
#define REQ_as 3
#define REQ_br 4
#define REQ_c2 5
#define REQ_cc 6
#define REQ_ce 7
#define REQ_ec 8
#define REQ_eo 9
#define REQ_ex 10
#define REQ_fc 11
#define REQ_fi 12
#define REQ_ft 13 // groff(7) "FonT"
#define REQ_el 14
#define REQ_ie 15
#define REQ_if 16
#define REQ_ig 17
#define REQ_nf 18
#define REQ_ps 19
#define REQ_sp 20
#define REQ_so 21
#define REQ_ta 22
#define REQ_ti 23
#define REQ_tm 24
#define REQ_B 25
#define REQ_I 26
#define REQ_Fd 27
#define REQ_Fn 28
#define REQ_Fo 29
#define REQ_Fc 30
#define REQ_OP 31
#define REQ_Ft 32
#define REQ_Fa 33
#define REQ_BR 34
#define REQ_BI 35
#define REQ_IB 36
#define REQ_IR 37
#define REQ_RB 38
#define REQ_RI 39
#define REQ_DT 40
#define REQ_IP 41 // man(7) "Indent Paragraph"
#define REQ_TP 42
#define REQ_IX 43
#define REQ_P 44
#define REQ_LP 45
#define REQ_PP 46
#define REQ_HP 47
#define REQ_PD 48
#define REQ_Rs 49
#define REQ_RS 50
#define REQ_Re 51
#define REQ_RE 52
#define REQ_SB 53
#define REQ_SM 54
#define REQ_Ss 55
#define REQ_SS 56
#define REQ_Sh 57
#define REQ_SH 58 // man(7) "Sub Header"
#define REQ_Sx 59
#define REQ_TS 60
#define REQ_Dt 61
#define REQ_TH 62
#define REQ_TX 63
#define REQ_rm 64
#define REQ_rn 65
#define REQ_nx 66
#define REQ_in 67
#define REQ_nr 68 // groff(7) "Number Register"
#define REQ_am 69
#define REQ_de 70
#define REQ_Bl 71 // mdoc(7) "Begin List"
#define REQ_El 72 // mdoc(7) "End List"
#define REQ_It 73 // mdoc(7) "ITem"
#define REQ_Bk 74
#define REQ_Ek 75
#define REQ_Dd 76
#define REQ_Os 77 // mdoc(7)
#define REQ_Bt 78
#define REQ_At 79 // mdoc(7) "AT&t" (not parsable, not callable)
#define REQ_Fx 80 // mdoc(7) "Freebsd" (not parsable, not callable)
#define REQ_Nx 81
#define REQ_Ox 82
#define REQ_Bx 83 // mdoc(7) "Bsd"
#define REQ_Ux 84 // mdoc(7) "UniX"
#define REQ_Dl 85
#define REQ_Bd 86
#define REQ_Ed 87
#define REQ_Be 88
#define REQ_Xr 89 // mdoc(7) "eXternal Reference"
#define REQ_Fl 90 // mdoc(7) "FLag"
#define REQ_Pa 91
#define REQ_Pf 92
#define REQ_Pp 93
#define REQ_Dq 94 // mdoc(7) "Double Quote"
#define REQ_Op 95
#define REQ_Oo 96
#define REQ_Oc 97
#define REQ_Pq 98 // mdoc(7) "Parenthese Quote"
#define REQ_Ql 99
#define REQ_Sq 100 // mdoc(7) "Single Quote"
#define REQ_Ar 101
#define REQ_Ad 102
#define REQ_Em 103 // mdoc(7) "EMphasis"
#define REQ_Va 104
#define REQ_Xc 105
#define REQ_Nd 106
#define REQ_Nm 107
#define REQ_Cd 108
#define REQ_Cm 109
#define REQ_Ic 110
#define REQ_Ms 111
#define REQ_Or 112
#define REQ_Sy 113
#define REQ_Dv 114
#define REQ_Ev 115
#define REQ_Fr 116
#define REQ_Li 117
#define REQ_No 118
#define REQ_Ns 119
#define REQ_Tn 120
#define REQ_nN 121
#define REQ_perc_A 122
#define REQ_perc_D 123
#define REQ_perc_N 124
#define REQ_perc_O 125
#define REQ_perc_P 126
#define REQ_perc_Q 127
#define REQ_perc_V 128
#define REQ_perc_B 129
#define REQ_perc_J 130
#define REQ_perc_R 131
#define REQ_perc_T 132
#define REQ_An 133 // mdoc(7) "Author Name"
#define REQ_Aq 134 // mdoc(7) "Angle bracket Quote"
#define REQ_Bq 135 // mdoc(7) "Bracket Quote"
#define REQ_Qq 136 // mdoc(7) "straight double Quote"
#define REQ_UR 137 // man(7) "URl"
#define REQ_UE 138 // man(7) "Url End"
#define REQ_UN 139 // man(7) "Url Name" (a.k.a. anchors)
#define REQ_troff 140 // groff(7) "TROFF mode"
#define REQ_nroff 141 // groff(7) "NROFF mode"
#define REQ_als 142 // groff(7) "ALias String"
#define REQ_rr 143 // groff(7) "Remove number Register"
#define REQ_rnn 144 // groff(7) "ReName Number register"
#define REQ_aln 145 // groff(7) "ALias Number register"
#define REQ_shift 146 // groff(7) "SHIFT parameter"
#define REQ_while 147 // groff(7) "WHILE loop"
#define REQ_do 148 // groff(7) "DO command"
#define REQ_Dx 149 // mdoc(7) "DragonFly" macro
static int get_request(char *req, int len)
{
static const char *requests[] = {
"ab", "di", "ds", "as", "br", "c2", "cc", "ce", "ec", "eo", "ex", "fc",
"fi", "ft", "el", "ie", "if", "ig", "nf", "ps", "sp", "so", "ta", "ti",
"tm", "B", "I", "Fd", "Fn", "Fo", "Fc", "OP", "Ft", "Fa", "BR", "BI",
"IB", "IR", "RB", "RI", "DT", "IP", "TP", "IX", "P", "LP", "PP", "HP",
"PD", "Rs", "RS", "Re", "RE", "SB", "SM", "Ss", "SS", "Sh", "SH", "Sx",
"TS", "Dt", "TH", "TX", "rm", "rn", "nx", "in", "nr", "am", "de", "Bl",
"El", "It", "Bk", "Ek", "Dd", "Os", "Bt", "At", "Fx", "Nx", "Ox", "Bx",
"Ux", "Dl", "Bd", "Ed", "Be", "Xr", "Fl", "Pa", "Pf", "Pp", "Dq", "Op",
"Oo", "Oc", "Pq", "Ql", "Sq", "Ar", "Ad", "Em", "Va", "Xc", "Nd", "Nm",
"Cd", "Cm", "Ic", "Ms", "Or", "Sy", "Dv", "Ev", "Fr", "Li", "No", "Ns",
"Tn", "nN", "%A", "%D", "%N", "%O", "%P", "%Q", "%V", "%B", "%J", "%R",
"%T", "An", "Aq", "Bq", "Qq", "UR", "UE", "UN", "troff", "nroff", "als",
"rr", "rnn", "aln", "shift", "while", "do", "Dx", 0 };
int r = 0;
while (requests[r] && tqstrncmp(req, requests[r], len)) r++;
return requests[r] ? r : REQ_UNKNOWN;
}
// &%(#@ c programs !!!
//static int ifelseval=0;
// If/else can be nested!
static TQValueStack<int> s_ifelseval;
// Process a (mdoc) request involving quotes
static char* process_quote(char* c, int j, const char* open, const char* close)
{
trans_char(c,'"','\a');
c+=j;
if (*c=='\n') c++; // ### TODO: why? Quote requests cannot be empty!
out_html(open);
c=scan_troff_mandoc(c,1,0);
out_html(close);
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
return c;
}
/**
* Is the char \p ch a puntuaction in sence of mdoc(7)
*/
static bool is_mdoc_punctuation( const char ch )
{
if ( ( ch >= '0' && ch <= '9' ) || ( ch >='A' && ch <='Z' ) || ( ch >= 'a' && ch <= 'z' ) )
return false;
else if ( ch == '.' || ch == ',' || ch == ';' || ch == ':' || ch == '(' || ch == ')'
|| ch == '[' || ch == ']' )
return true;
else
return false;
}
/**
* Can the char \p c be part of an identifier
* \note For groff, an identifier can consist of nearly all ASCII printable non-white-space characters
* See info:/groff/Identifiers
*/
static bool is_identifier_char( const char c )
{
if ( c >= '!' && c <= '[' ) // Include digits and upper case
return true;
else if ( c >= ']' && c <= '~' ) // Include lower case
return true;
else if ( c== '\\' )
return false; // ### TODO: it should be treated as escape instead!
return false;
}
static TQCString scan_identifier( char*& c )
{
char* h = c; // help pointer
// ### TODO Groff seems to eat nearly everything as identifier name (info:/groff/Identifiers)
while ( *h && *h != '\a' && *h != '\n' && is_identifier_char( *h ) )
++h;
const char tempchar = *h;
*h = 0;
const TQCString name = c;
*h = tempchar;
if ( name.isEmpty() )
{
kdDebug(7107) << "EXCEPTION: identifier empty!" << endl;
}
c = h;
return name;
}
static char *scan_request(char *c)
{
// mdoc(7) stuff
static bool mandoc_synopsis=false; /* True if we are in the synopsis section */
static bool mandoc_command=false; /* True if this is mdoc(7) page */
static int mandoc_bd_options; /* Only copes with non-nested Bd's */
static int function_argument=0; // Number of function argument (.Fo, .Fa, .Fc)
// man(7) stuff
static bool ur_ignore=false; // Has .UR a parameter : (for .UE to know if or not to write </a>)
int i=0;
bool mode=false;
char *h=0;
char *wordlist[max_wordlist];
int words;
char *sl;
while (*c==' ' || *c=='\t') c++; // Spaces or tabs allowed between control character and request
if (c[0]=='\n') return c+1;
if (c[0]==escapesym)
{
/* some pages use .\" .\$1 .\} */
/* .\$1 is too difficult/stuppid */
if (c[1]=='$')
{
kdDebug(7107) << "Found .\\$" << endl;
c=skip_till_newline(c); // ### TODO
}
else
c = scan_escape(c+1);
}
else
{
int nlen = 0;
TQCString macroName;
while (c[nlen] && (c[nlen] != ' ') && (c[nlen] != '\t') && (c[nlen] != '\n') && (c[nlen] != escapesym))
{
macroName+=c[nlen];
nlen++;
}
int j = nlen;
while (c[j] && c[j]==' ' || c[j]=='\t') j++;
/* search macro database of self-defined macros */
TQMap<TQCString,StringDefinition>::iterator it=s_stringDefinitionMap.find(macroName);
if (it!=s_stringDefinitionMap.end())
{
kdDebug(7107) << "CALLING MACRO: " << macroName << endl;
const TQCString oldDollarZero = s_dollarZero; // Previous value of $0
s_dollarZero = macroName;
sl=fill_words(c+j, wordlist, &words, true, &c);
*sl='\0';
for (i=1;i<words; i++) wordlist[i][-1]='\0';
for (i=0; i<words; i++)
{
char *h=NULL;
if (mandoc_command)
scan_troff_mandoc(wordlist[i],1,&h);
else
scan_troff(wordlist[i],1,&h);
wordlist[i] = tqstrdup(h);
delete [] h;
}
for ( i=words; i<max_wordlist; i++ ) wordlist[i]=NULL;
if ( !(*it).m_output.isEmpty() )
{
//kdDebug(7107) << "Macro content is: " << endl << (*it).m_output << endl;
const unsigned int length = (*it).m_output.length();
char* work = new char [length+2];
work[0] = '\n'; // The macro must start after an end of line to allow a request on first line
tqstrncpy(work+1,(*it).m_output.data(),length+1);
const TQValueList<char*> oldArgumentList( s_argumentList );
s_argumentList.clear();
for ( i = 0 ; i < max_wordlist; i++ )
{
if (!wordlist[i])
break;
s_argumentList.push_back( wordlist[i] );
}
const int onff=newline_for_fun;
if (mandoc_command)
scan_troff_mandoc( work + 1, 0, NULL );
else
scan_troff( work + 1, 0, NULL);
delete[] work;
newline_for_fun=onff;
s_argumentList = oldArgumentList;
}
for (i=0; i<words; i++) delete [] wordlist[i];
*sl='\n';
s_dollarZero = oldDollarZero;
kdDebug(7107) << "ENDING MACRO: " << macroName << endl;
}
else
{
kdDebug(7107) << "REQUEST: " << macroName << endl;
switch (int request = get_request(c, nlen))
{
case REQ_ab: // groff(7) "ABort"
{
h=c+j;
while (*h && *h !='\n') h++;
*h='\0';
if (scaninbuff && buffpos)
{
buffer[buffpos]='\0';
kdDebug(7107) << "ABORT: " << buffer << endl;
}
// ### TODO find a way to display it to the user
kdDebug(7107) << "Aborting: .ab " << (c+j) << endl;
return 0;
break;
}
case REQ_An: // mdoc(7) "Author Name"
{
c+=j;
c=scan_troff_mandoc(c,1,0);
break;
}
case REQ_di: // groff(7) "end current DIversion"
{
kdDebug(7107) << "Start .di" << endl;
c+=j;
if (*c=='\n')
{
++c;
break;
}
const TQCString name ( scan_identifier( c ) );
while (*c && *c!='\n') c++;
c++;
h=c;
while (*c && tqstrncmp(c,".di",3)) while (*c && *c++!='\n');
*c='\0';
char* result=0;
scan_troff(h,0,&result);
TQMap<TQCString,StringDefinition>::iterator it=s_stringDefinitionMap.find(name);
if (it==s_stringDefinitionMap.end())
{
StringDefinition def;
def.m_length=0;
def.m_output=result;
s_stringDefinitionMap.insert(name,def);
}
else
{
(*it).m_length=0;
(*it).m_output=result;
}
delete[] result;
if (*c) *c='.';
c=skip_till_newline(c);
kdDebug(7107) << "end .di" << endl;
break;
}
case REQ_ds: // groff(7) "Define String variable"
mode=true;
case REQ_as: // groff (7) "Append String variable"
{
kdDebug(7107) << "start .ds/.as" << endl;
int oldcurpos=curpos;
c+=j;
const TQCString name( scan_identifier( c) );
if ( name.isEmpty() )
break;
while (*c && isspace(*c)) c++;
if (*c && *c=='"') c++;
single_escape=true;
curpos=0;
char* result=0;
c=scan_troff(c,1,&result);
TQMap<TQCString,StringDefinition>::iterator it=s_stringDefinitionMap.find(name);
if (it==s_stringDefinitionMap.end())
{
StringDefinition def;
def.m_length=curpos;
def.m_output=result;
s_stringDefinitionMap.insert(name,def);
}
else
{
if (mode)
{ // .ds Defining String
(*it).m_length=curpos;
(*it).m_output=result;
}
else
{ // .as Appending String
(*it).m_length+=curpos;
(*it).m_output+=result;
}
}
delete[] result;
single_escape=false;
curpos=oldcurpos;
kdDebug(7107) << "end .ds/.as" << endl;
break;
}
case REQ_br: // groff(7) "line BReak"
{
if (still_dd)
out_html("<DD>"); // ### VERIFY (does not look like generating good HTML)
else
out_html("<BR>\n");
curpos=0;
c=c+j;
if (c[0]==escapesym) c=scan_escape(c+1);
c=skip_till_newline(c);
break;
}
case REQ_c2: // groff(7) "reset non-break Control character" (2 means non-break)
{
c=c+j;
if (*c!='\n')
nobreaksym=*c;
else
nobreaksym='\'';
c=skip_till_newline(c);
break;
}
case REQ_cc: // groff(7) "reset Control Character"
{
c=c+j;
if (*c!='\n')
controlsym=*c;
else
controlsym='.';
c=skip_till_newline(c);
break;
}
case REQ_ce: // groff (7) "CEnter"
{
c=c+j;
if (*c=='\n')
i=1;
else
{
i=0;
while ('0'<=*c && *c<='9')
{
i=i*10+*c-'0';
c++;
}
}
c=skip_till_newline(c);
/* center next i lines */
if (i>0)
{
out_html("<CENTER>\n");
while (i && *c)
{
char *line=NULL;
c=scan_troff(c,1, &line);
if (line && tqstrncmp(line, "<BR>", 4))
{
out_html(line);
out_html("<BR>\n");
delete [] line; // ### FIXME: memory leak!
i--;
}
}
out_html("</CENTER>\n");
curpos=0;
}
break;
}
case REQ_ec: // groff(7) "reset Escape Character"
{
c=c+j;
if (*c!='\n')
escapesym=*c;
else
escapesym='\\';
break;
c=skip_till_newline(c);
}
case REQ_eo: // groff(7) "turn Escape character Off"
{
escapesym='\0';
c=skip_till_newline(c);
break;
}
case REQ_ex: // groff(7) "EXit"
{
return 0;
break;
}
case REQ_fc: // groff(7) "set Field and pad Character"
{
c=c+j;
if (*c=='\n')
fieldsym=padsym='\0';
else
{
fieldsym=c[0];
padsym=c[1];
}
c=skip_till_newline(c);
break;
}
case REQ_fi: // groff(7) "FIll"
{
if (!fillout)
{
out_html(set_font("R"));
out_html(change_to_size('0'));
out_html("</PRE>\n");
}
curpos=0;
fillout=1;
c=skip_till_newline(c);
break;
}
case REQ_ft: // groff(7) "FonT"
{
c += j;
h = skip_till_newline( c );
const char oldChar = *h;
*h = 0;
const TQCString name = c;
// ### TODO: name might contain a variable
if ( name.isEmpty() )
out_html( set_font( "P" ) ); // Previous font
else
out_html( set_font( name ) );
*h = oldChar;
c = h;
break;
}
case REQ_el: // groff(7) "ELse"
{
int ifelseval = s_ifelseval.pop();
/* .el anything : else part of if else */
if (ifelseval)
{
c=c+j;
c[-1]='\n';
c=scan_troff(c,1,NULL);
}
else
c=skip_till_newline(c+j);
break;
}
case REQ_ie: // groff(7) "If with Else"
/* .ie c anything : then part of if else */
case REQ_if: // groff(7) "IF"
{
/* .if c anything
* .if !c anything
* .if N anything
* .if !N anything
* .if 'string1'string2' anything
* .if !'string1'string2' anything
*/
c=c+j;
c=scan_expression(c, &i);
if (request == REQ_ie)
{
int ifelseval=!i;
s_ifelseval.push( ifelseval );
}
if (i)
{
*c='\n';
c++;
c=scan_troff(c,1,NULL);
}
else
c=skip_till_newline(c);
break;
}
case REQ_ig: // groff(7) "IGnore"
{
const char *endwith="..\n";
i=3;
c=c+j;
if (*c!='\n' && *c != '\\')
{
/* Not newline or comment */
endwith=c-1;i=1;
c[-1]='.';
while (*c && *c!='\n') c++,i++;
}
c++;
while (*c && tqstrncmp(c,endwith,i)) while (*c++!='\n');
while (*c && *c++!='\n');
break;
}
case REQ_nf: // groff(7) "No Filling"
{
if (fillout)
{
out_html(set_font("R"));
out_html(change_to_size('0'));
out_html("<PRE>\n");
}
curpos=0;
fillout=0;
c=skip_till_newline(c);
break;
}
case REQ_ps: // groff(7) "previous Point Size"
{
c=c+j;
if (*c=='\n')
out_html(change_to_size('0'));
else
{
j=0; i=0;
if (*c=='-')
{
j= -1;
c++;
}
else if (*c=='+')
j=1;c++;
c=scan_expression(c, &i);
if (!j)
{
j=1;
if (i>5) i=i-10;
}
out_html(change_to_size(i*j));
}
c=skip_till_newline(c);
break;
}
case REQ_sp: // groff(7) "SKip one line"
{
c=c+j;
if (fillout)
out_html("<br><br>");
else
{
out_html(NEWLINE);
}
curpos=0;
c=skip_till_newline(c);
break;
}
case REQ_so: // groff(7) "Include SOurce file"
{
char *buf;
char *name=NULL;
curpos=0;
c=c+j;
if (*c=='/')
h=c;
else
{
h=c-3;
h[0]='.';
h[1]='.';
h[2]='/';
}
while (*c!='\n') c++;
*c='\0';
scan_troff(h,1, &name);
if (name[3]=='/')
h=name+3;
else
h=name;
/* this works alright, except for section 3 */
buf=read_man_page(h);
if (!buf)
{
kdDebug(7107) << "Unable to open or read file: .so " << (h) << endl;
out_html("<BLOCKQUOTE>"
"man2html: unable to open or read file.\n");
out_html(h);
out_html("</BLOCKQUOTE>\n");
}
else
scan_troff(buf+1,0,NULL);
delete [] buf;
delete [] name;
*c++='\n';
break;
}
case REQ_ta: // gorff(7) "set TAbulators"
{
c=c+j;
j=0;
while (*c!='\n')
{
sl=scan_expression(c, &tabstops[j]);
if (j>0 && (*c=='-' || *c=='+')) tabstops[j]+=tabstops[j-1];
c=sl;
while (*c==' ' || *c=='\t') c++;
j++;
}
maxtstop=j;
curpos=0;
break;
}
case REQ_ti: // groff(7) "Temporary Indent"
{
/*while (itemdepth || dl_set[itemdepth]) {
out_html("</DL>\n");
if (dl_set[itemdepth]) dl_set[itemdepth]=0;
else itemdepth--;
}*/
out_html("<BR>\n");
c=c+j;
c=scan_expression(c, &j);
for (i=0; i<j; i++) out_html("&nbsp;");
curpos=j;
c=skip_till_newline(c);
break;
}
case REQ_tm: // groff(7) "TerMinal" ### TODO: what are useful uses for it
{
c=c+j;
h=c;
while (*c!='\n') c++;
*c='\0';
kdDebug(7107) << ".tm " << (h) << endl;
*c='\n';
break;
}
case REQ_B: // man(7) "Bold"
mode=1;
case REQ_I: // man(7) "Italic"
{
/* parse one line in a certain font */
out_html( set_font( mode?"B":"I" ) );
fill_words(c, wordlist, &words, false, 0);
c=c+j;
if (*c=='\n') c++;
c=scan_troff(c, 1, NULL);
out_html(set_font("R"));
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Fd: // mdoc(7) "Function Definition"
{
// Normal text must be printed in bold, punctuation in regular font
c+=j;
if (*c=='\n') c++; // ### TODO: verify
sl=fill_words(c, wordlist, &words, true, &c);
for (i=0; i<words; i++)
{
wordlist[i][-1]=' ';
// ### FIXME In theory, only a single punctuation character is recognized as punctuation
if ( is_mdoc_punctuation ( *wordlist[i] ) )
out_html( set_font ( "R" ) );
else
out_html( set_font ( "B" ) );
scan_troff(wordlist[i],1,NULL);
out_html(" ");
}
// In the mdoc synopsis, there are automatical line breaks (### TODO: before or after?)
if (mandoc_synopsis)
{
out_html("<br>");
};
out_html(set_font("R"));
out_html(NEWLINE);
if (!fillout)
curpos=0;
else
curpos++;
break;
}
case REQ_Fn: // mdoc(7) for "Function calls"
{
// brackets and commas have to be inserted automatically
c+=j;
if (*c=='\n') c++;
sl=fill_words(c, wordlist, &words, true, &c);
if ( words )
{
for (i=0; i<words; i++)
{
wordlist[i][-1]=' ';
if ( i )
out_html( set_font( "I" ) );
else
out_html( set_font( "B" ) );
scan_troff(wordlist[i],1,NULL);
out_html( set_font( "R" ) );
if (i==0)
{
out_html(" (");
}
else if (i<words-1)
out_html(", ");
}
out_html(")");
}
out_html(set_font("R"));
if (mandoc_synopsis)
out_html("<br>");
out_html(NEWLINE);
if (!fillout)
curpos=0;
else
curpos++;
break;
}
case REQ_Fo: // mdoc(7) "Function definition Opening"
{
const char* font[2] = { "B", "R" };
c+=j;
if (*c=='\n') c++;
char *eol=strchr(c,'\n');
char *semicolon=strchr(c,';');
if ((semicolon!=0) && (semicolon<eol)) *semicolon=' ';
sl=fill_words(c, wordlist, &words, true, &c);
// Normally a .Fo has only one parameter
for (i=0; i<words; i++)
{
wordlist[i][-1]=' ';
out_html(set_font(font[i&1]));
scan_troff(wordlist[i],1,NULL);
if (i==0)
{
out_html(" (");
}
// ### TODO What should happen if there is more than one argument
// else if (i<words-1) out_html(", ");
}
function_argument=1; // Must be > 0
out_html(set_font("R"));
out_html(NEWLINE);
if (!fillout)
curpos=0;
else
curpos++;
break;
}
case REQ_Fc:// mdoc(7) "Function definition Close"
{
// .Fc has no parameter
c+=j;
c=skip_till_newline(c);
const char* font[2] = { "B", "R" };
out_html(set_font(font[i&1]));
out_html(")");
out_html(set_font("R"));
if (mandoc_synopsis)
out_html("<br>");
out_html(NEWLINE);
if (!fillout)
curpos=0;
else
curpos++;
function_argument=0; // Reset the count variable
break;
}
case REQ_Fa: // mdoc(7) "Function definition argument"
{
const char* font[2] = { "B", "R" };
c+=j;
if (*c=='\n') c++;
sl=fill_words(c, wordlist, &words, true, &c);
out_html(set_font(font[i&1]));
// function_argument==0 means that we had no .Fo before, e.g. in mdoc.samples(7)
if (function_argument > 1)
{
out_html(", ");
curpos+=2;
function_argument++;
}
else if (function_argument==1)
{
// We are only at the first parameter
function_argument++;
}
for (i=0; i<words; i++)
{
wordlist[i][-1]=' ';
scan_troff(wordlist[i],1,NULL);
}
out_html(set_font("R"));
if (!fillout)
curpos=0;
else
curpos++;
break;
}
case REQ_OP: /* groff manpages use this construction */
{
/* .OP a b : [ <B>a</B> <I>b</I> ] */
mode=true;
out_html(set_font("R"));
out_html("[");
curpos++;
request_mixed_fonts( c, j, "B", "I", true, false );
break;
// Do not break!
}
case REQ_Ft: //perhaps "Function return type"
{
request_mixed_fonts( c, j, "B", "I", false, true );
break;
}
case REQ_BR:
{
request_mixed_fonts( c, j, "B", "R", false, false );
break;
}
case REQ_BI:
{
request_mixed_fonts( c, j, "B", "I", false, false );
break;
}
case REQ_IB:
{
request_mixed_fonts( c, j, "I", "B", false, false );
break;
}
case REQ_IR:
{
request_mixed_fonts( c, j, "I", "R", false, false );
break;
}
case REQ_RB:
{
request_mixed_fonts( c, j, "R", "B", false, false );
break;
}
case REQ_RI:
{
request_mixed_fonts( c, j, "R", "I", false, false );
break;
}
case REQ_DT: // man(7) "Default Tabulators"
{
for (j=0;j<20; j++) tabstops[j]=(j+1)*8;
maxtstop=20;
c=skip_till_newline(c);
break;
}
case REQ_IP: // man(7) "Ident Paragraph"
{
sl=fill_words(c+j, wordlist, &words, true, &c);
if (!dl_set[itemdepth])
{
out_html("<DL>\n");
dl_set[itemdepth]=1;
}
out_html("<DT>");
if (words)
scan_troff(wordlist[0], 1,NULL);
out_html("<DD>");
curpos=0;
break;
}
case REQ_TP: // man(7) "hanging Tag Paragraph"
{
if (!dl_set[itemdepth])
{
out_html("<br><br><DL>\n");
dl_set[itemdepth]=1;
}
out_html("<DT>");
c=skip_till_newline(c);
/* somewhere a definition ends with '.TP' */
if (!*c)
still_dd=true;
else
{
// HACK for proc(5)
while (c[0]=='.' && c[1]=='\\' && c[2]=='\"')
{
// We have a comment, so skip the line
c=skip_till_newline(c);
}
c=scan_troff(c,1,NULL);
out_html("<DD>");
}
curpos=0;
break;
}
case REQ_IX: // "INdex" ### TODO: where is it defined?
{
/* general index */
c=skip_till_newline(c);
break;
}
case REQ_P: // man(7) "Paragraph"
case REQ_LP:// man(7) "Paragraph"
case REQ_PP:// man(7) "Paragraph; reset Prevailing indent"
{
if (dl_set[itemdepth])
{
out_html("</DL>\n");
dl_set[itemdepth]=0;
}
if (fillout)
out_html("<br><br>\n");
else
{
out_html(NEWLINE);
}
curpos=0;
c=skip_till_newline(c);
break;
}
case REQ_HP: // man(7) "Hanging indent Paragraph"
{
if (!dl_set[itemdepth])
{
out_html("<DL>");
dl_set[itemdepth]=1;
}
out_html("<DT>\n");
still_dd=true;
c=skip_till_newline(c);
curpos=0;
break;
}
case REQ_PD: // man(7) "Paragraph Distance"
{
c=skip_till_newline(c);
break;
}
case REQ_Rs: // mdoc(7) "Relative margin Start"
case REQ_RS: // man(7) "Relative margin Start"
{
sl=fill_words(c+j, wordlist, &words, true, 0);
j=1;
if (words>0) scan_expression(wordlist[0], &j);
if (j>=0)
{
itemdepth++;
dl_set[itemdepth]=0;
out_html("<DL><DT><DD>");
c=skip_till_newline(c);
curpos=0;
break;
}
}
case REQ_Re: // mdoc(7) "Relative margin End"
case REQ_RE: // man(7) "Relative margin End"
{
if (itemdepth > 0)
{
if (dl_set[itemdepth]) out_html("</DL>");
out_html("</DL>\n");
itemdepth--;
}
c=skip_till_newline(c);
curpos=0;
break;
}
case REQ_SB: // man(7) "Small; Bold"
{
out_html(set_font("B"));
out_html("<small>");
trans_char(c,'"','\a'); // ### VERIFY
c=scan_troff(c+j, 1, NULL);
out_html("</small>");
out_html(set_font("R"));
break;
}
case REQ_SM: // man(7) "SMall"
{
c=c+j;
if (*c=='\n') c++;
out_html("<small>");
trans_char(c,'"','\a'); // ### VERIFY
c=scan_troff(c,1,NULL);
out_html("</small>");
break;
}
case REQ_Ss: // mdoc(7) "Sub Section"
mandoc_command = 1;
case REQ_SS: // mdoc(7) "Sub Section"
mode=true;
case REQ_Sh: // mdoc(7) "Sub Header"
/* hack for fallthru from above */
mandoc_command = !mode || mandoc_command;
case REQ_SH: // man(7) "Sub Header"
{
c=c+j;
if (*c=='\n') c++;
while (itemdepth || dl_set[itemdepth])
{
out_html("</DL>\n");
if (dl_set[itemdepth])
dl_set[itemdepth]=0;
else if (itemdepth > 0)
itemdepth--;
}
out_html(set_font("R"));
out_html(change_to_size(0));
if (!fillout)
{
fillout=1;
out_html("</PRE>");
}
trans_char(c,'"', '\a');
if (section)
{
out_html("</div>\n");
section=0;
}
if (mode)
out_html("\n<H3>");
else
out_html("\n<H2>");
mandoc_synopsis = tqstrncmp(c, "SYNOPSIS", 8) == 0;
c = mandoc_command ? scan_troff_mandoc(c,1,NULL) : scan_troff(c,1,NULL);
if (mode)
out_html("</H3>\n");
else
out_html("</H2>\n");
out_html("<div>\n");
section=1;
curpos=0;
break;
}
case REQ_Sx: // mdoc(7)
{
// reference to a section header
out_html(set_font("B"));
trans_char(c,'"','\a');
c=c+j;
if (*c=='\n') c++;
c=scan_troff(c, 1, NULL);
out_html(set_font("R"));
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_TS: // ### TODO where is it defined? (tbl?)
{
c=scan_table(c);
break;
}
case REQ_Dt: /* mdoc(7) */
mandoc_command = true;
case REQ_TH: // man(7) "Title Header"
{
if (!output_possible)
{
sl = fill_words(c+j, wordlist, &words, true, &c);
// ### TODO: the page should be displayed even if it is "anonymous" (words==0)
if (words>=1)
{
for (i=1; i<words; i++) wordlist[i][-1]='\0';
*sl='\0';
for (i=0; i<words; i++)
{
if (wordlist[i][0] == '\007')
wordlist[i]++;
if (wordlist[i][tqstrlen(wordlist[i])-1] == '\007')
wordlist[i][tqstrlen(wordlist[i])-1] = 0;
}
output_possible=true;
out_html( DOCTYPE"<HTML>\n<HEAD>\n");
#ifdef SIMPLE_MAN2HTML
// Most English man pages are in ISO-8859-1
out_html("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=ISO-8859-1\">\n");
#else
// tdeio_man transforms from local to UTF-8
out_html("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=");
out_html(TQTextCodec::codecForLocale()->mimeName());
out_html("\">\n");
#endif
out_html("<TITLE>");
out_html(scan_troff(wordlist[0], 0, NULL));
out_html( " Manpage</TITLE>\n");
out_html( "<link rel=\"stylesheet\" href=\"");
out_html(htmlPath);
out_html("/tde-default.css\" type=\"text/css\">\n" );
out_html( "<meta name=\"ROFF Type\" content=\"");
if (mandoc_command)
out_html("mdoc");
else
out_html("man");
out_html("\">\n");
out_html( "</HEAD>\n\n" );
out_html("<BODY BGCOLOR=\"#FFFFFF\">\n\n" );
out_html("<div style=\"background-image: url(");
out_html(cssPath);
out_html("/top-middle.png); width: 100%; height: 131pt;\">\n" );
out_html("<div style=\"position: absolute; right: 0pt;\">\n");
out_html("<img src=\"");
out_html(htmlPath);
out_html("/top-right-konqueror.png\" style=\"margin: 0pt\" alt=\"Top right\">\n");
out_html("</div>\n");
out_html("<div style=\"position: absolute; left: 0pt;\">\n");
out_html("<img src=\"");
out_html(htmlPath);
out_html("/top-left.png\" style=\"margin: 0pt\" alt=\"Top left\">\n");
out_html("</div>\n");
out_html("<div style=\"position: absolute; top: 25pt; right: 100pt; text-align: right; font-size: xx-large; font-weight: bold; text-shadow: #fff 0pt 0pt 5pt; color: #444\">\n");
out_html( scan_troff(wordlist[0], 0, NULL ) );
out_html("</div>\n");
out_html("</div>\n");
out_html("<div style=\"margin-left: 5em; margin-right: 5em;\">\n");
out_html("<h1>" );
out_html( scan_troff(wordlist[0], 0, NULL ) );
out_html( "</h1>\n" );
if (words>1)
{
out_html("Section: " );
if (!mandoc_command && words>4)
out_html(scan_troff(wordlist[4], 0, NULL) );
else
out_html(section_name(wordlist[1]));
out_html(" (");
out_html(scan_troff(wordlist[1], 0, NULL));
out_html(")\n");
}
else
{
out_html("Section not specified");
}
*sl='\n';
}
}
else
{
kdWarning(7107) << ".TH found but output not possible" << endl;
c=skip_till_newline(c);
}
curpos=0;
break;
}
case REQ_TX: // mdoc(7)
{
sl=fill_words(c+j, wordlist, &words, true, &c);
*sl='\0';
out_html(set_font("I"));
if (words>1) wordlist[1][-1]='\0';
const char *c2=lookup_abbrev(wordlist[0]);
curpos+=tqstrlen(c2);
out_html(c2);
out_html(set_font("R"));
if (words>1)
out_html(wordlist[1]);
*sl='\n';
break;
}
case REQ_rm: // groff(7) "ReMove"
/* .rm xx : Remove request, macro or string */
mode=true;
case REQ_rn: // groff(7) "ReName"
/* .rn xx yy : Rename request, macro or string xx to yy */
{
kdDebug(7107) << "start .rm/.rn" << endl;
c+=j;
const TQCString name( scan_identifier( c ) );
if ( name.isEmpty() )
{
kdDebug(7107) << "EXCEPTION: empty origin string to remove/rename: " << endl;
break;
}
TQCString name2;
if ( !mode )
{
while (*c && isspace(*c) && *c!='\n') ++c;
name2 = scan_identifier( c );
if ( name2.isEmpty() )
{
kdDebug(7107) << "EXCEPTION: empty destination string to rename: " << endl;
break;
}
}
c=skip_till_newline(c);
TQMap<TQCString,StringDefinition>::iterator it=s_stringDefinitionMap.find(name);
if (it==s_stringDefinitionMap.end())
{
kdDebug(7107) << "EXCEPTION: cannot find string to rename or remove: " << name << endl;
}
else
{
if (mode)
{
// .rm ReMove
s_stringDefinitionMap.remove(name);
}
else
{
// .rn ReName
StringDefinition def=(*it);
s_stringDefinitionMap.remove(name);
s_stringDefinitionMap.insert(name2,def);
}
}
kdDebug(7107) << "end .rm/.rn" << endl;
break;
}
case REQ_nx: // ### TODO in man(7) it is "No filling", not "next file"
/* .nx filename : next file. */
case REQ_in: // groff(7) "INdent"
{
/* .in +-N : Indent */
c=skip_till_newline(c);
break;
}
case REQ_nr: // groff(7) "Number Register"
{
kdDebug(7107) << "start .nr" << endl;
c += j;
const TQCString name( scan_identifier( c ) );
if ( name.isEmpty() )
{
kdDebug(7107) << "EXCEPTION: empty name for register variable" << endl;
break;
}
while ( *c && ( *c==' ' || *c=='\t' ) ) c++;
int sign = 0;
if ( *c && ( *c == '+' || *c == '-' ) )
{
if ( *c == '+' )
sign = 1;
else if ( *c == '-' )
sign = -1;
}
int value = 0;
int increment = 0;
c=scan_expression( c, &value );
if ( *c && *c!='\n')
{
while ( *c && ( *c==' ' || *c=='\t' ) ) c++;
c=scan_expression( c, &increment );
}
c = skip_till_newline( c );
TQMap <TQCString, NumberDefinition>::iterator it = s_numberDefinitionMap.find( name );
if ( it == s_numberDefinitionMap.end() )
{
if ( sign < 1 )
value = -value;
NumberDefinition def( value, increment );
s_numberDefinitionMap.insert( name, def );
}
else
{
if ( sign > 0 )
(*it).m_value += value;
else if ( sign < 0 )
(*it).m_value += - value;
else
(*it).m_value = value;
(*it).m_increment = increment;
}
kdDebug(7107) << "end .nr" << endl;
break;
}
case REQ_am: // groff(7) "Append Macro"
/* .am xx yy : append to a macro. */
/* define or handle as .ig yy */
mode=true;
case REQ_de: // groff(7) "DEfine macro"
/* .de xx yy : define or redefine macro xx; end at .yy (..) */
/* define or handle as .ig yy */
{
kdDebug(7107) << "Start .am/.de" << endl;
c+=j;
char *next_line;
sl = fill_words(c, wordlist, &words, true, &next_line);
char *nameStart = wordlist[0];
c = nameStart;
while (*c && (*c != ' ') && (*c != '\n')) c++;
*c = '\0';
const TQCString name(nameStart);
TQCString endmacro;
if (words == 1)
{
endmacro="..";
}
else
{
endmacro='.';
c = wordlist[1];
while (*c && (*c != ' ') && (*c != '\n'))
endmacro+=*c++;
}
c = next_line;
sl=c;
const int length=tqstrlen(endmacro);
while (*c && tqstrncmp(c,endmacro,length))
c=skip_till_newline(c);
TQCString macro;
while (sl!=c)
{
if (sl[0]=='\\' && sl[1]=='\\')
{
macro+='\\';
sl++;
}
else
macro+=*sl;
sl++;
}
TQMap<TQCString,StringDefinition>::iterator it=s_stringDefinitionMap.find(name);
if (it==s_stringDefinitionMap.end())
{
StringDefinition def;
def.m_length=0;
def.m_output=macro;
s_stringDefinitionMap.insert(name,def);
}
else if (mode)
{
// .am Append Macro
(*it).m_length=0; // It could be formerly a string
// if ((*it).m_output.right(1)!='\n')
if (*((*it).m_output.right(1).data())!='\n')
(*it).m_output+='\n';
(*it).m_output+=macro;
}
else
{
// .de DEfine macro
(*it).m_length=0; // It could be formerly a string
(*it).m_output=macro;
}
c=skip_till_newline(c);
kdDebug(7107) << "End .am/.de" << endl;
break;
}
case REQ_Bl: // mdoc(7) "Begin List"
{
char list_options[NULL_TERMINATED(MED_STR_MAX)];
char *nl = strchr(c,'\n');
c=c+j;
if (dl_set[itemdepth])
/* These things can nest. */
itemdepth++;
if (nl)
{
/* Parse list options */
strlimitcpy(list_options, c, nl - c, MED_STR_MAX);
}
if (strstr(list_options, "-bullet"))
{
/* HTML Unnumbered List */
dl_set[itemdepth] = BL_BULLET_LIST;
out_html("<UL>\n");
}
else if (strstr(list_options, "-enum"))
{
/* HTML Ordered List */
dl_set[itemdepth] = BL_ENUM_LIST;
out_html("<OL>\n");
}
else
{
/* HTML Descriptive List */
dl_set[itemdepth] = BL_DESC_LIST;
out_html("<DL>\n");
}
if (fillout)
out_html("<br><br>\n");
else
{
out_html(NEWLINE);
}
curpos=0;
c=skip_till_newline(c);
break;
}
case REQ_El: // mdoc(7) "End List"
{
c=c+j;
if (dl_set[itemdepth] & BL_DESC_LIST)
out_html("</DL>\n");
else if (dl_set[itemdepth] & BL_BULLET_LIST)
out_html("</UL>\n");
else if (dl_set[itemdepth] & BL_ENUM_LIST)
out_html("</OL>\n");
dl_set[itemdepth]=0;
if (itemdepth > 0) itemdepth--;
if (fillout)
out_html("<br><br>\n");
else
{
out_html(NEWLINE);
}
curpos=0;
c=skip_till_newline(c);
break;
}
case REQ_It: // mdoc(7) "list ITem"
{
c=c+j;
if (tqstrncmp(c, "Xo", 2) == 0 && isspace(*(c+2)))
c = skip_till_newline(c);
if (dl_set[itemdepth] & BL_DESC_LIST)
{
out_html("<DT>");
out_html(set_font("B"));
if (*c=='\n')
{
/* Don't allow embedded comms after a newline */
c++;
c=scan_troff(c,1,NULL);
}
else
{
/* Do allow embedded comms on the same line. */
c=scan_troff_mandoc(c,1,NULL);
}
out_html(set_font("R"));
out_html(NEWLINE);
out_html("<DD>");
}
else if (dl_set[itemdepth] & (BL_BULLET_LIST | BL_ENUM_LIST))
{
out_html("<LI>");
c=scan_troff_mandoc(c,1,NULL);
out_html(NEWLINE);
}
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Bk: /* mdoc(7) */
case REQ_Ek: /* mdoc(7) */
case REQ_Dd: /* mdoc(7) */
case REQ_Os: // mdoc(7) "Operating System"
{
trans_char(c,'"','\a');
c=c+j;
if (*c=='\n') c++;
c=scan_troff_mandoc(c, 1, NULL);
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Bt: // mdoc(7) "Beta Test"
{
trans_char(c,'"','\a');
c=c+j;
out_html(" is currently in beta test.");
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_At: /* mdoc(7) */
case REQ_Fx: /* mdoc(7) */
case REQ_Nx: /* mdoc(7) */
case REQ_Ox: /* mdoc(7) */
case REQ_Bx: /* mdoc(7) */
case REQ_Ux: /* mdoc(7) */
case REQ_Dx: /* mdoc(7) */
{
bool parsable=true;
trans_char(c,'"','\a');
c=c+j;
if (*c=='\n') c++;
if (request==REQ_At)
{
out_html("AT&amp;T UNIX ");
parsable=false;
}
else if (request==REQ_Fx)
{
out_html("FreeBSD ");
parsable=false;
}
else if (request==REQ_Nx)
out_html("NetBSD ");
else if (request==REQ_Ox)
out_html("OpenBSD ");
else if (request==REQ_Bx)
out_html("BSD ");
else if (request==REQ_Ux)
out_html("UNIX ");
else if (request==REQ_Dx)
out_html("DragonFly ");
if (parsable)
c=scan_troff_mandoc(c,1,0);
else
c=scan_troff(c,1,0);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Dl: /* mdoc(7) */
{
c=c+j;
out_html(NEWLINE);
out_html("<BLOCKQUOTE>");
if (*c=='\n') c++;
c=scan_troff_mandoc(c, 1, NULL);
out_html("</BLOCKQUOTE>");
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Bd: /* mdoc(7) */
{ /* Seems like a kind of example/literal mode */
char bd_options[NULL_TERMINATED(MED_STR_MAX)];
char *nl = strchr(c,'\n');
c=c+j;
if (nl)
strlimitcpy(bd_options, c, nl - c, MED_STR_MAX);
out_html(NEWLINE);
mandoc_bd_options = 0; /* Remember options for terminating Bl */
if (strstr(bd_options, "-offset indent"))
{
mandoc_bd_options |= BD_INDENT;
out_html("<BLOCKQUOTE>\n");
}
if ( strstr(bd_options, "-literal") || strstr(bd_options, "-unfilled"))
{
if (fillout)
{
mandoc_bd_options |= BD_LITERAL;
out_html(set_font("R"));
out_html(change_to_size('0'));
out_html("<PRE>\n");
}
curpos=0;
fillout=0;
}
c=skip_till_newline(c);
break;
}
case REQ_Ed: /* mdoc(7) */
{
if (mandoc_bd_options & BD_LITERAL)
{
if (!fillout)
{
out_html(set_font("R"));
out_html(change_to_size('0'));
out_html("</PRE>\n");
}
}
if (mandoc_bd_options & BD_INDENT)
out_html("</BLOCKQUOTE>\n");
curpos=0;
fillout=1;
c=skip_till_newline(c);
break;
}
case REQ_Be: /* mdoc(7) */
{
c=c+j;
if (fillout)
out_html("<br><br>");
else
{
out_html(NEWLINE);
}
curpos=0;
c=skip_till_newline(c);
break;
}
case REQ_Xr: /* mdoc(7) */ // ### FIXME: it should issue a <a href="man:somewhere(x)"> directly
{
/* Translate xyz 1 to xyz(1)
* Allow for multiple spaces. Allow the section to be missing.
*/
char buff[NULL_TERMINATED(MED_STR_MAX)];
char *bufptr;
trans_char(c,'"','\a');
bufptr = buff;
c = c+j;
if (*c == '\n') c++; /* Skip spaces */
while (isspace(*c) && *c != '\n') c++;
while (isalnum(*c) || *c == '.' || *c == ':' || *c == '_' || *c == '-')
{
/* Copy the xyz part */
*bufptr = *c;
bufptr++;
if (bufptr >= buff + MED_STR_MAX) break;
c++;
}
while (isspace(*c) && *c != '\n') c++; /* Skip spaces */
if (isdigit(*c))
{
/* Convert the number if there is one */
*bufptr = '(';
bufptr++;
if (bufptr < buff + MED_STR_MAX)
{
while (isalnum(*c))
{
*bufptr = *c;
bufptr++;
if (bufptr >= buff + MED_STR_MAX) break;
c++;
}
if (bufptr < buff + MED_STR_MAX)
{
*bufptr = ')';
bufptr++;
}
}
}
while (*c != '\n')
{
/* Copy the remainder */
if (!isspace(*c))
{
*bufptr = *c;
bufptr++;
if (bufptr >= buff + MED_STR_MAX) break;
}
c++;
}
*bufptr = '\n';
bufptr[1] = 0;
scan_troff_mandoc(buff, 1, NULL);
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Fl: // mdoc(7) "FLags"
{
trans_char(c,'"','\a');
c+=j;
sl=fill_words(c, wordlist, &words, true, &c);
out_html(set_font("B"));
if (!words)
{
out_html("-"); // stdin or stdout
}
else
{
for (i=0;i<words;++i)
{
if (ispunct(wordlist[i][0]) && wordlist[i][0]!='-')
{
scan_troff_mandoc(wordlist[i], 1, NULL);
}
else
{
if (i>0)
out_html(" "); // Put a space between flags
out_html("-");
scan_troff_mandoc(wordlist[i], 1, NULL);
}
}
}
out_html(set_font("R"));
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Pa: /* mdoc(7) */
case REQ_Pf: /* mdoc(7) */
{
trans_char(c,'"','\a');
c=c+j;
if (*c=='\n') c++;
c=scan_troff_mandoc(c, 1, NULL);
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Pp: /* mdoc(7) */
{
if (fillout)
out_html("<br><br>\n");
else
{
out_html(NEWLINE);
}
curpos=0;
c=skip_till_newline(c);
break;
}
case REQ_Aq: // mdoc(7) "Angle bracket Quote"
c=process_quote(c,j,"&lt;","&gt;");
break;
case REQ_Bq: // mdoc(7) "Bracket Quote"
c=process_quote(c,j,"[","]");
break;
case REQ_Dq: // mdoc(7) "Double Quote"
c=process_quote(c,j,"&ldquo;","&rdquo;");
break;
case REQ_Pq: // mdoc(7) "Parenthese Quote"
c=process_quote(c,j,"(",")");
break;
case REQ_Qq: // mdoc(7) "straight double Quote"
c=process_quote(c,j,"&quot;","&quot;");
break;
case REQ_Sq: // mdoc(7) "Single Quote"
c=process_quote(c,j,"&lsquo;","&rsquo;");
break;
case REQ_Op: /* mdoc(7) */
{
trans_char(c,'"','\a');
c=c+j;
if (*c=='\n') c++;
out_html(set_font("R"));
out_html("[");
c=scan_troff_mandoc(c, 1, NULL);
out_html(set_font("R"));
out_html("]");
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Oo: /* mdoc(7) */
{
trans_char(c,'"','\a');
c=c+j;
if (*c=='\n') c++;
out_html(set_font("R"));
out_html("[");
c=scan_troff_mandoc(c, 1, NULL);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Oc: /* mdoc(7) */
{
trans_char(c,'"','\a');
c=c+j;
c=scan_troff_mandoc(c, 1, NULL);
out_html(set_font("R"));
out_html("]");
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Ql: /* mdoc(7) */
{
/* Single quote first word in the line */
char *sp;
trans_char(c,'"','\a');
c=c+j;
if (*c=='\n') c++;
sp = c;
do
{
/* Find first whitespace after the
* first word that isn't a mandoc macro
*/
while (*sp && isspace(*sp)) sp++;
while (*sp && !isspace(*sp)) sp++;
} while (*sp && isupper(*(sp-2)) && islower(*(sp-1)));
/* Use a newline to mark the end of text to
* be quoted
*/
if (*sp) *sp = '\n';
out_html("`"); /* Quote the text */
c=scan_troff_mandoc(c, 1, NULL);
out_html("'");
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Ar: /* mdoc(7) */
{
/* parse one line in italics */
out_html(set_font("I"));
trans_char(c,'"','\a');
c=c+j;
if (*c=='\n')
{
/* An empty Ar means "file ..." */
out_html("file ...");
}
else
c=scan_troff_mandoc(c, 1, NULL);
out_html(set_font("R"));
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Em: /* mdoc(7) */
{
out_html("<em>");
trans_char(c,'"','\a');
c+=j;
if (*c=='\n') c++;
c=scan_troff_mandoc(c, 1, NULL);
out_html("</em>");
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Ad: /* mdoc(7) */
case REQ_Va: /* mdoc(7) */
case REQ_Xc: /* mdoc(7) */
{
/* parse one line in italics */
out_html(set_font("I"));
trans_char(c,'"','\a');
c=c+j;
if (*c=='\n') c++;
c=scan_troff_mandoc(c, 1, NULL);
out_html(set_font("R"));
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Nd: /* mdoc(7) */
{
trans_char(c,'"','\a');
c=c+j;
if (*c=='\n') c++;
out_html(" - ");
c=scan_troff_mandoc(c, 1, NULL);
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Nm: // mdoc(7) "Name Macro" ### FIXME
{
static char mandoc_name[NULL_TERMINATED(SMALL_STR_MAX)] = ""; // ### TODO Use QCString
trans_char(c,'"','\a');
c=c+j;
if (mandoc_synopsis && mandoc_name_count)
{
/* Break lines only in the Synopsis.
* The Synopsis section seems to be treated
* as a special case - Bummer!
*/
out_html("<BR>");
}
else if (!mandoc_name_count)
{
char *nextbreak = strchr(c, '\n');
char *nextspace = strchr(c, ' ');
if (nextspace < nextbreak)
nextbreak = nextspace;
if (nextbreak)
{
/* Remember the name for later. */
strlimitcpy(mandoc_name, c, nextbreak - c, SMALL_STR_MAX);
}
}
mandoc_name_count++;
out_html(set_font("B"));
// ### FIXME: fill_words must be used
while (*c == ' '|| *c == '\t') c++;
if ((tolower(*c) >= 'a' && tolower(*c) <= 'z' ) || (*c >= '0' && *c <= '9'))
{
// alphanumeric argument
c=scan_troff_mandoc(c, 1, NULL);
out_html(set_font("R"));
out_html(NEWLINE);
}
else
{
/* If Nm has no argument, use one from an earlier
* Nm command that did have one. Hope there aren't
* too many commands that do this.
*/
out_html(mandoc_name);
out_html(set_font("R"));
}
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_Cd: /* mdoc(7) */
case REQ_Cm: /* mdoc(7) */
case REQ_Ic: /* mdoc(7) */
case REQ_Ms: /* mdoc(7) */
case REQ_Or: /* mdoc(7) */
case REQ_Sy: /* mdoc(7) */
{
/* parse one line in bold */
out_html(set_font("B"));
trans_char(c,'"','\a');
c=c+j;
if (*c=='\n') c++;
c=scan_troff_mandoc(c, 1, NULL);
out_html(set_font("R"));
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
// ### FIXME: punctuation is handled badly!
case REQ_Dv: /* mdoc(7) */
case REQ_Ev: /* mdoc(7) */
case REQ_Fr: /* mdoc(7) */
case REQ_Li: /* mdoc(7) */
case REQ_No: /* mdoc(7) */
case REQ_Ns: /* mdoc(7) */
case REQ_Tn: /* mdoc(7) */
case REQ_nN: /* mdoc(7) */
{
trans_char(c,'"','\a');
c=c+j;
if (*c=='\n') c++;
out_html(set_font("B"));
c=scan_troff_mandoc(c, 1, NULL);
out_html(set_font("R"));
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_perc_A: /* mdoc(7) biblio stuff */
case REQ_perc_D:
case REQ_perc_N:
case REQ_perc_O:
case REQ_perc_P:
case REQ_perc_Q:
case REQ_perc_V:
{
c=c+j;
if (*c=='\n') c++;
c=scan_troff(c, 1, NULL); /* Don't allow embedded mandoc coms */
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_perc_B:
case REQ_perc_J:
case REQ_perc_R:
case REQ_perc_T:
{
c=c+j;
out_html(set_font("I"));
if (*c=='\n') c++;
c=scan_troff(c, 1, NULL); /* Don't allow embedded mandoc coms */
out_html(set_font("R"));
if (fillout)
curpos++;
else
curpos=0;
break;
}
case REQ_UR: // ### FIXME man(7) "URl"
{
ignore_links=true;
c+=j;
char* newc;
h=fill_words(c, wordlist, &words, false, &newc);
*h=0;
if (words>0)
{
h=wordlist[0];
// A parameter : means that we do not want an URL, not here and not until .UE
ur_ignore=(!qstrcmp(h,":"));
}
else
{
// We cannot find the URL, assume :
ur_ignore=true;
h=0;
}
if (!ur_ignore && words>0)
{
out_html("<a href=\"");
out_html(h);
out_html("\">");
}
c=newc; // Go to next line
break;
}
case REQ_UE: // ### FIXME man(7) "Url End"
{
c+=j;
c = skip_till_newline(c);
if (!ur_ignore)
{
out_html("</a>");
}
ur_ignore=false;
ignore_links=false;
break;
}
case REQ_UN: // ### FIXME man(7) "Url Named anchor"
{
c+=j;
char* newc;
h=fill_words(c, wordlist, &words, false, &newc);
*h=0;
if (words>0)
{
h=wordlist[0];
out_html("<a name=\">");
out_html(h);
out_html("\" id=\"");
out_html(h);
out_html("\"></a>");
}
c=newc;
break;
}
case REQ_nroff: // groff(7) "NROFF mode"
mode = true;
case REQ_troff: // groff(7) "TROFF mode"
{
s_nroff = mode;
c+=j;
c = skip_till_newline(c);
}
case REQ_als: // groff(7) "ALias String"
{
/*
* Note an alias is supposed to be something like a hard link
* However to make it simplier, we only copy the string.
*/
// Be careful: unlike .rn, the destination is first, origin is second
kdDebug(7107) << "start .als" << endl;
c+=j;
const TQCString name ( scan_identifier( c ) );
if ( name.isEmpty() )
{
kdDebug(7107) << "EXCEPTION: empty destination string to alias" << endl;
break;
}
while (*c && isspace(*c) && *c!='\n') ++c;
const TQCString name2 ( scan_identifier ( c ) );
if ( name2.isEmpty() )
{
kdDebug(7107) << "EXCEPTION: empty origin string to alias" << endl;
break;
}
kdDebug(7107) << "Alias " << name2 << " to " << name << endl;
c=skip_till_newline(c);
if ( name == name2 )
{
kdDebug(7107) << "EXCEPTION: same origin and destination string to alias: " << name << endl;
break;
}
// Second parametr is origin (unlike in .rn)
TQMap<TQCString,StringDefinition>::iterator it=s_stringDefinitionMap.find(name2);
if (it==s_stringDefinitionMap.end())
{
kdDebug(7107) << "EXCEPTION: cannot find string to make alias: " << name2 << endl;
}
else
{
StringDefinition def=(*it);
s_stringDefinitionMap.insert(name,def);
}
kdDebug(7107) << "end .als" << endl;
break;
}
case REQ_rr: // groff(7) "Remove number Register"
{
kdDebug(7107) << "start .rr" << endl;
c += j;
const TQCString name ( scan_identifier( c ) );
if ( name.isEmpty() )
{
kdDebug(7107) << "EXCEPTION: empty origin string to remove/rename: " << endl;
break;
}
c = skip_till_newline( c );
TQMap <TQCString, NumberDefinition>::iterator it = s_numberDefinitionMap.find( name );
if ( it == s_numberDefinitionMap.end() )
{
kdDebug(7107) << "EXCEPTION: trying to remove inexistant number register: " << endl;
}
else
{
s_numberDefinitionMap.remove( name );
}
kdDebug(7107) << "end .rr" << endl;
break;
}
case REQ_rnn: // groff(7) "ReName Number register"
{
kdDebug(7107) << "start .rnn" << endl;
c+=j;
const TQCString name ( scan_identifier ( c ) );
if ( name.isEmpty() )
{
kdDebug(7107) << "EXCEPTION: empty origin to remove/rename number register" << endl;
break;
}
while (*c && isspace(*c) && *c!='\n') ++c;
const TQCString name2 ( scan_identifier ( c ) );
if ( name2.isEmpty() )
{
kdDebug(7107) << "EXCEPTION: empty destination to rename number register " << endl;
break;
}
c = skip_till_newline( c );
TQMap<TQCString,NumberDefinition>::iterator it=s_numberDefinitionMap.find(name);
if (it==s_numberDefinitionMap.end())
{
kdDebug(7107) << "EXCEPTION: cannot find number register to rename: " << name << endl;
}
else
{
NumberDefinition def=(*it);
s_numberDefinitionMap.remove(name);
s_numberDefinitionMap.insert(name2,def);
}
kdDebug(7107) << "end .rnn" << endl;
break;
}
case REQ_aln: // groff(7) "ALias Number Register"
{
/*
* Note an alias is supposed to be something like a hard link
* However to make it simplier, we only copy the string.
*/
// Be careful: unlike .rnn, the destination is first, origin is second
kdDebug(7107) << "start .aln" << endl;
c+=j;
const TQCString name ( scan_identifier( c ) );
if ( name.isEmpty() )
{
kdDebug(7107) << "EXCEPTION: empty destination number register to alias" << endl;
break;
}
while (*c && isspace(*c) && *c!='\n') ++c;
const TQCString name2 ( scan_identifier( c ) );
if ( name2.isEmpty() )
{
kdDebug(7107) << "EXCEPTION: empty origin number register to alias" << endl;
break;
}
kdDebug(7107) << "Alias " << name2 << " to " << name << endl;
c = skip_till_newline( c );
if ( name == name2 )
{
kdDebug(7107) << "EXCEPTION: same origin and destination number register to alias: " << name << endl;
break;
}
// Second parametr is origin (unlike in .rnn)
TQMap<TQCString,NumberDefinition>::iterator it=s_numberDefinitionMap.find(name2);
if (it==s_numberDefinitionMap.end())
{
kdDebug(7107) << "EXCEPTION: cannot find string to make alias: " << name2 << endl;
}
else
{
NumberDefinition def=(*it);
s_numberDefinitionMap.insert(name,def);
}
kdDebug(7107) << "end .aln" << endl;
break;
}
case REQ_shift: // groff(7) "SHIFT parameter"
{
c+=j;
h=c;
while (*h && *h!='\n' && isdigit(*h) ) ++h;
const char tempchar = *h;
*h = 0;
const TQCString number = c;
*h = tempchar;
c = skip_till_newline( h );
unsigned int result = 1; // Numbers of shifts to do
if ( !number.isEmpty() )
{
bool ok = false;
result = number.toUInt(&ok);
if ( !ok || result < 1 )
result = 1;
}
for ( unsigned int num = 0; num < result; ++num )
{
if ( !s_argumentList.isEmpty() )
s_argumentList.pop_front();
}
break;
}
case REQ_while: // groff(7) "WHILE loop"
{
request_while( c, j, mandoc_command );
break;
}
case REQ_do: // groff(7) "DO command"
{
// HACK: we just replace do by a \n and a .
*c = '\n';
c++;
*c = '.';
// The . will be treated as next character
break;
}
default:
{
if (mandoc_command &&
((isupper(*c) && islower(*(c+1)))
|| (islower(*c) && isupper(*(c+1)))) )
{
/* Let through any mdoc(7) commands that haven't
* been delt with.
* I don't want to miss anything out of the text.
*/
char buf[4] = { c[0], c[1], ' ', 0 };
out_html(buf); /* Print the command (it might just be text). */
c=c+j;
trans_char(c,'"','\a');
if (*c=='\n') c++;
out_html(set_font("R"));
c=scan_troff(c, 1, NULL);
out_html(NEWLINE);
if (fillout)
curpos++;
else
curpos=0;
}
else
c=skip_till_newline(c);
break;
}
}
}
}
if (fillout)
{
out_html(NEWLINE);
curpos++;
}
return c;
}
static int contained_tab=0;
static bool mandoc_line=false; /* Signals whether to look for embedded mandoc
* commands.
*/
static char *scan_troff(char *c, bool san, char **result)
{ /* san : stop at newline */
char *h;
char intbuff[NULL_TERMINATED(MED_STR_MAX)];
int ibp=0;
#define FLUSHIBP if (ibp) { intbuff[ibp]=0; out_html(intbuff); ibp=0; }
char *exbuffer;
int exbuffpos, exbuffmax, exnewline_for_fun;
bool exscaninbuff;
int usenbsp=0;
exbuffer=buffer;
exbuffpos=buffpos;
exbuffmax=buffmax;
exnewline_for_fun=newline_for_fun;
exscaninbuff=scaninbuff;
newline_for_fun=0;
if (result) {
if (*result) {
buffer=*result;
buffpos=tqstrlen(buffer);
buffmax=buffpos;
} else {
buffer = stralloc(LARGE_STR_MAX);
buffpos=0;
buffmax=LARGE_STR_MAX;
}
scaninbuff=true;
}
h=c; // ### FIXME below are too many tests that may go before the posiiton of c
/* start scanning */
// ### VERIFY: a dot must be at first position, we cannot add newlines or it would allow spaces before a dot
while (*h == ' ')
{
#if 1
++h;
#else
*h++ = '\n';
#endif
}
while (h && *h && (!san || newline_for_fun || *h!='\n')) {
if (*h==escapesym) {
h++;
FLUSHIBP;
h = scan_escape(h);
} else if (*h==controlsym && h[-1]=='\n') {
h++;
FLUSHIBP;
h = scan_request(h);
if (h && san && h[-1]=='\n') h--;
} else if (mandoc_line
&& ((*(h-1)) && (isspace(*(h-1)) || (*(h-1))=='\n'))
&& *(h) && isupper(*(h))
&& *(h+1) && islower(*(h+1))
&& *(h+2) && isspace(*(h+2))) {
// mdoc(7) embedded command eg ".It Fl Ar arg1 Fl Ar arg2"
FLUSHIBP;
h = scan_request(h);
if (san && h[-1]=='\n') h--;
} else if (*h==nobreaksym && h[-1]=='\n') {
h++;
FLUSHIBP;
h = scan_request(h);
if (san && h[-1]=='\n') h--;
} else {
/* int mx; */
if (still_dd && isalnum(*h) && h[-1]=='\n') {
/* sometimes a .HP request is not followed by a .br request */
FLUSHIBP;
out_html("<DD>");
curpos=0;
still_dd=false;
}
switch (*h) {
case '&':
intbuff[ibp++]='&';
intbuff[ibp++]='a';
intbuff[ibp++]='m';
intbuff[ibp++]='p';
intbuff[ibp++]=';';
curpos++;
break;
case '<':
intbuff[ibp++]='&';
intbuff[ibp++]='l';
intbuff[ibp++]='t';
intbuff[ibp++]=';';
curpos++;
break;
case '>':
intbuff[ibp++]='&';
intbuff[ibp++]='g';
intbuff[ibp++]='t';
intbuff[ibp++]=';';
curpos++;
break;
case '"':
intbuff[ibp++]='&';
intbuff[ibp++]='q';
intbuff[ibp++]='u';
intbuff[ibp++]='o';
intbuff[ibp++]='t';
intbuff[ibp++]=';';
curpos++;
break;
case '\n':
if (h != c && h[-1]=='\n' && fillout) {
intbuff[ibp++]='<';
intbuff[ibp++]='P';
intbuff[ibp++]='>';
}
if (contained_tab && fillout) {
intbuff[ibp++]='<';
intbuff[ibp++]='B';
intbuff[ibp++]='R';
intbuff[ibp++]='>';
}
contained_tab=0;
curpos=0;
usenbsp=0;
intbuff[ibp++]='\n';
break;
case '\t':
{
int curtab=0;
contained_tab=1;
FLUSHIBP;
/* like a typewriter, not like TeX */
tabstops[19]=curpos+1;
while (curtab<maxtstop && tabstops[curtab]<=curpos)
curtab++;
if (curtab<maxtstop) {
if (!fillout) {
while (curpos<tabstops[curtab]) {
intbuff[ibp++]=' ';
if (ibp>480) { FLUSHIBP; }
curpos++;
}
} else {
out_html("<TT>");
while (curpos<tabstops[curtab]) {
out_html("&nbsp;");
curpos++;
}
out_html("</TT>");
}
}
}
break;
default:
if (*h==' ' && (h[-1]=='\n' || usenbsp)) {
FLUSHIBP;
if (!usenbsp && fillout) {
out_html("<BR>");
curpos=0;
}
usenbsp=fillout;
if (usenbsp) out_html("&nbsp;"); else intbuff[ibp++]=' ';
} else if (*h>31 && *h<127) intbuff[ibp++]=*h;
else if (((unsigned char)(*h))>127) {
intbuff[ibp++]=*h;
}
curpos++;
break;
}
if (ibp > (MED_STR_MAX - 20)) FLUSHIBP;
h++;
}
}
FLUSHIBP;
if (buffer) buffer[buffpos]='\0';
if (san && h && *h) h++;
newline_for_fun=exnewline_for_fun;
if (result) {
*result = buffer;
buffer=exbuffer;
buffpos=exbuffpos;
buffmax=exbuffmax;
scaninbuff=exscaninbuff;
}
return h;
}
static char *scan_troff_mandoc(char *c, bool san, char **result)
{
char *ret;
char *end = c;
bool oldval = mandoc_line;
mandoc_line = true;
while (*end && *end != '\n') {
end++;
}
if (end >= c + 2
&& ispunct(*(end - 1))
&& isspace(*(end - 2)) && *(end - 2) != '\n') {
/* Don't format lonely punctuation E.g. in "xyz ," format
* the xyz and then append the comma removing the space.
*/
*(end - 2) = 0;
(void)scan_troff(c, 0, result);
ret = end-2;
*(end-2)=*(end-1);
*(end-1)=' ';
}
else {
ret = scan_troff(c, san, result);
}
mandoc_line = oldval;
return ret;
}
// Entry point
void scan_man_page(const char *man_page)
{
if (!man_page)
return;
kdDebug(7107) << "Start scanning man page" << endl;
// ## Do more init
// Unlike man2html, we actually call this several times, hence the need to
// properly cleanup all those static vars
s_ifelseval.clear();
s_characterDefinitionMap.clear();
InitCharacterDefinitions();
s_stringDefinitionMap.clear();
InitStringDefinitions();
s_numberDefinitionMap.clear();
InitNumberDefinitions();
s_argumentList.clear();
section = 0;
s_dollarZero = ""; // No macro called yet!
output_possible = false;
int strLength = tqstrlen(man_page);
char *buf = new char[strLength + 2];
qstrcpy(buf+1, man_page);
buf[0] = '\n';
kdDebug(7107) << "Parse man page" << endl;
scan_troff(buf+1,0,NULL);
kdDebug(7107) << "Man page parsed!" << endl;
while (itemdepth || dl_set[itemdepth]) {
out_html("</DL>\n");
if (dl_set[itemdepth]) dl_set[itemdepth]=0;
else if (itemdepth > 0) itemdepth--;
}
out_html(set_font("R"));
out_html(change_to_size(0));
if (!fillout) {
fillout=1;
out_html("</PRE>");
}
out_html(NEWLINE);
if (section) {
output_real("<div style=\"margin-left: 2cm\">\n");
section = 0;
}
if (output_possible) {
output_real("</div>\n");
output_real("<div class=\"bannerBottom\" style=\"background-image: url(");
output_real(cssPath);
output_real("/bottom-middle.png); background-repeat: x-repeat; width: 100%; height: 100px; bottom:0pt;\">\n");
output_real("<div class=\"bannerBottomLeft\">\n");
output_real("<img src=\"");
output_real(cssPath);
output_real("/bottom-left.png\" style=\"margin: 0pt;\" alt=\"Bottom left of the banner\">\n");
output_real("</div>\n");
output_real("<div class=\"bannerBottomRight\">\n");
output_real("<img src=\"");
output_real(cssPath);
output_real("/bottom-right.png\" style=\"margin: 0pt\" alt=\"Bottom right of the banner\">\n");
output_real("</div>\n");
output_real("</div>\n");
output_real("</BODY>\n</HTML>\n");
}
delete [] buf;
// Release memory
s_characterDefinitionMap.clear();
s_stringDefinitionMap.clear();
s_numberDefinitionMap.clear();
s_argumentList.clear();
// reinit static variables for reuse
delete [] buffer;
buffer = 0;
escapesym='\\';
nobreaksym='\'';
controlsym='.';
fieldsym=0;
padsym=0;
buffpos=0;
buffmax=0;
scaninbuff=false;
itemdepth=0;
for (int i = 0; i < 20; i++)
dl_set[i] = 0;
still_dd=false;
for (int i = 0; i < 12; i++)
tabstops[i] = (i+1)*8;
maxtstop=12;
curpos=0;
mandoc_name_count = 0;
}
#ifdef SIMPLE_MAN2HTML
void output_real(const char *insert)
{
cout << insert;
}
char *read_man_page(const char *filename)
{
int man_pipe = 0;
char *man_buf = NULL;
FILE *man_stream = NULL;
struct stat stbuf;
size_t buf_size;
if (stat(filename, &stbuf) == -1) {
std::cerr << "read_man_page: can't find " << filename << endl;
return NULL;
}
if (!S_ISREG(stbuf.st_mode)) {
std::cerr << "read_man_page: no file " << filename << endl;
return NULL;
}
buf_size = stbuf.st_size;
man_buf = stralloc(buf_size+5);
man_pipe = 0;
man_stream = fopen(filename, "r");
if (man_stream) {
man_buf[0] = '\n';
if (fread(man_buf+1, 1, buf_size, man_stream) == buf_size) {
man_buf[buf_size] = '\n';
man_buf[buf_size + 1] = man_buf[buf_size + 2] = '\0';
}
else {
man_buf = NULL;
}
fclose(man_stream);
}
return man_buf;
}
int main(int argc, char **argv)
{
htmlPath = ".";
cssPath = ".";
if (argc < 2) {
std::cerr << "call: " << argv[0] << " <filename>\n";
return 1;
}
if (chdir(argv[1])) {
char *buf = read_man_page(argv[1]);
if (buf) {
scan_man_page(buf);
delete [] buf;
}
} else {
DIR *dir = opendir(".");
struct dirent *ent;
while ((ent = readdir(dir)) != NULL) {
cerr << "converting " << ent->d_name << endl;
char *buf = read_man_page(ent->d_name);
if (buf) {
scan_man_page(buf);
delete [] buf;
}
}
closedir(dir);
}
return 0;
}
#endif
View Git Blame Copy Permalink