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.
tdegraphics/kdvi/special.cpp

728 lines
28 KiB

// special.cpp
// Methods for dviRenderer which deal with "\special" commands found in the
// DVI file
// Copyright 2000--2004, Stefan Kebekus (kebekus@kde.org).
#include <config.h>
#include <kdebug.h>
#include <klocale.h>
#include <kmimetype.h>
#include <kprocio.h>
#include <tqdir.h>
#include <tqfile.h>
#include <tqfileinfo.h>
#include <tqimage.h>
#include <tqstringlist.h>
#include "dviFile.h"
#include "dviRenderer.h"
#include "hyperlink.h"
#include "kdvi.h"
#include "kdvi_multipage.h"
#include "psgs.h"
#include "xdvi.h"
//#define DEBUG_SPECIAL
extern TQPainter *foreGroundPainter;
void dviRenderer::printErrorMsgForSpecials(const TQString& msg)
{
if (dviFile->errorCounter < 25) {
kdError(4300) << msg << endl;
dviFile->errorCounter++;
if (dviFile->errorCounter == 25)
kdError(4300) << i18n("That makes 25 errors. Further error messages will not be printed.") << endl;
}
}
// Parses a color specification, as explained in the manual to
// dvips. If the spec could not be parsed, an invalid color will be
// returned.
TQColor dviRenderer::parseColorSpecification(const TQString& colorSpec)
{
// Initialize the map of known colors, if that is not done yet.
if (namedColors.isEmpty()) {
namedColors["Red"] = TQColor( (int)(255.0*1), (int)(255.0*0), (int)(255.0*0));
namedColors["Tan"] = TQColor( (int)(255.0*0.86), (int)(255.0*0.58), (int)(255.0*0.44));
namedColors["Blue"] = TQColor( (int)(255.0*0), (int)(255.0*0), (int)(255.0*1));
namedColors["Cyan"] = TQColor( (int)(255.0*0), (int)(255.0*1), (int)(255.0*1));
namedColors["Gray"] = TQColor( (int)(255.0*0.5), (int)(255.0*0.5), (int)(255.0*0.5));
namedColors["Plum"] = TQColor( (int)(255.0*0.5), (int)(255.0*0), (int)(255.0*1));
namedColors["Black"] = TQColor( (int)(255.0*0), (int)(255.0*0), (int)(255.0*0));
namedColors["Brown"] = TQColor( (int)(255.0*0.4), (int)(255.0*0), (int)(255.0*0));
namedColors["Green"] = TQColor( (int)(255.0*0), (int)(255.0*1), (int)(255.0*0));
namedColors["Melon"] = TQColor( (int)(255.0*1), (int)(255.0*0.54), (int)(255.0*0.5));
namedColors["Peach"] = TQColor( (int)(255.0*1), (int)(255.0*0.5), (int)(255.0*0.3));
namedColors["Sepia"] = TQColor( (int)(255.0*0.3), (int)(255.0*0), (int)(255.0*0));
namedColors["White"] = TQColor( (int)(255.0*1), (int)(255.0*1), (int)(255.0*1));
namedColors["Maroon"] = TQColor( (int)(255.0*0.68), (int)(255.0*0), (int)(255.0*0));
namedColors["Orange"] = TQColor( (int)(255.0*1), (int)(255.0*0.39), (int)(255.0*0.13));
namedColors["Orchid"] = TQColor( (int)(255.0*0.68), (int)(255.0*0.36), (int)(255.0*1));
namedColors["Purple"] = TQColor( (int)(255.0*0.55), (int)(255.0*0.14), (int)(255.0*1));
namedColors["Salmon"] = TQColor( (int)(255.0*1), (int)(255.0*0.47), (int)(255.0*0.62));
namedColors["Violet"] = TQColor( (int)(255.0*0.21), (int)(255.0*0.12), (int)(255.0*1));
namedColors["Yellow"] = TQColor( (int)(255.0*1), (int)(255.0*1), (int)(255.0*0));
namedColors["Apricot"] = TQColor( (int)(255.0*1), (int)(255.0*0.68), (int)(255.0*0.48));
namedColors["Emerald"] = TQColor( (int)(255.0*0), (int)(255.0*1), (int)(255.0*0.5));
namedColors["Fuchsia"] = TQColor( (int)(255.0*0.45), (int)(255.0*0.01), (int)(255.0*0.92));
namedColors["Magenta"] = TQColor( (int)(255.0*1), (int)(255.0*0), (int)(255.0*1));
namedColors["SkyBlue"] = TQColor( (int)(255.0*0.38), (int)(255.0*1), (int)(255.0*0.88));
namedColors["Thistle"] = TQColor( (int)(255.0*0.88), (int)(255.0*0.41), (int)(255.0*1));
namedColors["BrickRed"] = TQColor( (int)(255.0*0.72), (int)(255.0*0), (int)(255.0*0));
namedColors["Cerulean"] = TQColor( (int)(255.0*0.06), (int)(255.0*0.89), (int)(255.0*1));
namedColors["Lavender"] = TQColor( (int)(255.0*1), (int)(255.0*0.52), (int)(255.0*1));
namedColors["Mahogany"] = TQColor( (int)(255.0*0.65), (int)(255.0*0), (int)(255.0*0));
namedColors["Mulberry"] = TQColor( (int)(255.0*0.64), (int)(255.0*0.08), (int)(255.0*0.98));
namedColors["NavyBlue"] = TQColor( (int)(255.0*0.06), (int)(255.0*0.46), (int)(255.0*1));
namedColors["SeaGreen"] = TQColor( (int)(255.0*0.31), (int)(255.0*1), (int)(255.0*0.5));
namedColors["TealBlue"] = TQColor( (int)(255.0*0.12), (int)(255.0*0.98), (int)(255.0*0.64));
namedColors["BlueGreen"] = TQColor( (int)(255.0*0.15), (int)(255.0*1), (int)(255.0*0.67));
namedColors["CadetBlue"] = TQColor( (int)(255.0*0.38), (int)(255.0*0.43), (int)(255.0*0.77));
namedColors["Dandelion"] = TQColor( (int)(255.0*1), (int)(255.0*0.71), (int)(255.0*0.16));
namedColors["Goldenrod"] = TQColor( (int)(255.0*1), (int)(255.0*0.9), (int)(255.0*0.16));
namedColors["LimeGreen"] = TQColor( (int)(255.0*0.5), (int)(255.0*1), (int)(255.0*0));
namedColors["OrangeRed"] = TQColor( (int)(255.0*1), (int)(255.0*0), (int)(255.0*0.5));
namedColors["PineGreen"] = TQColor( (int)(255.0*0), (int)(255.0*0.75), (int)(255.0*0.16));
namedColors["RawSienna"] = TQColor( (int)(255.0*0.55), (int)(255.0*0), (int)(255.0*0));
namedColors["RedOrange"] = TQColor( (int)(255.0*1), (int)(255.0*0.23), (int)(255.0*0.13));
namedColors["RedViolet"] = TQColor( (int)(255.0*0.59), (int)(255.0*0), (int)(255.0*0.66));
namedColors["Rhodamine"] = TQColor( (int)(255.0*1), (int)(255.0*0.18), (int)(255.0*1));
namedColors["RoyalBlue"] = TQColor( (int)(255.0*0), (int)(255.0*0.5), (int)(255.0*1));
namedColors["RubineRed"] = TQColor( (int)(255.0*1), (int)(255.0*0), (int)(255.0*0.87));
namedColors["Turquoise"] = TQColor( (int)(255.0*0.15), (int)(255.0*1), (int)(255.0*0.8));
namedColors["VioletRed"] = TQColor( (int)(255.0*1), (int)(255.0*0.19), (int)(255.0*1));
namedColors["Aquamarine"] = TQColor( (int)(255.0*0.18), (int)(255.0*1), (int)(255.0*0.7));
namedColors["BlueViolet"] = TQColor( (int)(255.0*0.1), (int)(255.0*0.05), (int)(255.0*0.96));
namedColors["DarkOrchid"] = TQColor( (int)(255.0*0.6), (int)(255.0*0.2), (int)(255.0*0.8));
namedColors["OliveGreen"] = TQColor( (int)(255.0*0), (int)(255.0*0.6), (int)(255.0*0));
namedColors["Periwinkle"] = TQColor( (int)(255.0*0.43), (int)(255.0*0.45), (int)(255.0*1));
namedColors["Bittersweet"] = TQColor( (int)(255.0*0.76), (int)(255.0*0.01), (int)(255.0*0));
namedColors["BurntOrange"] = TQColor( (int)(255.0*1), (int)(255.0*0.49), (int)(255.0*0));
namedColors["ForestGreen"] = TQColor( (int)(255.0*0), (int)(255.0*0.88), (int)(255.0*0));
namedColors["GreenYellow"] = TQColor( (int)(255.0*0.85), (int)(255.0*1), (int)(255.0*0.31));
namedColors["JungleGreen"] = TQColor( (int)(255.0*0.01), (int)(255.0*1), (int)(255.0*0.48));
namedColors["ProcessBlue"] = TQColor( (int)(255.0*0.04), (int)(255.0*1), (int)(255.0*1));
namedColors["RoyalPurple"] = TQColor( (int)(255.0*0.25), (int)(255.0*0.1), (int)(255.0*1));
namedColors["SpringGreen"] = TQColor( (int)(255.0*0.74), (int)(255.0*1), (int)(255.0*0.24));
namedColors["YellowGreen"] = TQColor( (int)(255.0*0.56), (int)(255.0*1), (int)(255.0*0.26));
namedColors["MidnightBlue"] = TQColor( (int)(255.0*0), (int)(255.0*0.44), (int)(255.0*0.57));
namedColors["YellowOrange"] = TQColor( (int)(255.0*1), (int)(255.0*0.58), (int)(255.0*0));
namedColors["CarnationPink"] = TQColor( (int)(255.0*1), (int)(255.0*0.37), (int)(255.0*1));
namedColors["CornflowerBlue"] = TQColor( (int)(255.0*0.35), (int)(255.0*0.87), (int)(255.0*1));
namedColors["WildStrawberry"] = TQColor( (int)(255.0*1), (int)(255.0*0.04), (int)(255.0*0.61));
}
TQString specType = colorSpec.section(' ', 0, 0);
if (specType.find("rgb", false) == 0) {
bool ok;
double r = colorSpec.section(' ', 1, 1).toDouble(&ok);
if ((ok == false) || (r < 0.0) || (r > 1.0))
return TQColor();
double g = colorSpec.section(' ', 2, 2).toDouble(&ok);
if ((ok == false) || (g < 0.0) || (g > 1.0))
return TQColor();
double b = colorSpec.section(' ', 3, 3).toDouble(&ok);
if ((ok == false) || (b < 0.0) || (b > 1.0))
return TQColor();
return TQColor((int)(r*255.0+0.5), (int)(g*255.0+0.5), (int)(b*255.0+0.5));
}
if (specType.find("hsb", false) == 0) {
bool ok;
double h = colorSpec.section(' ', 1, 1).toDouble(&ok);
if ((ok == false) || (h < 0.0) || (h > 1.0))
return TQColor();
double s = colorSpec.section(' ', 2, 2).toDouble(&ok);
if ((ok == false) || (s < 0.0) || (s > 1.0))
return TQColor();
double b = colorSpec.section(' ', 3, 3).toDouble(&ok);
if ((ok == false) || (b < 0.0) || (b > 1.0))
return TQColor();
return TQColor((int)(h*359.0+0.5), (int)(s*255.0+0.5), (int)(b*255.0+0.5), TQColor::Hsv);
}
if (specType.find("cmyk", false) == 0) {
bool ok;
double c = colorSpec.section(' ', 1, 1).toDouble(&ok);
if ((ok == false) || (c < 0.0) || (c > 1.0))
return TQColor();
double m = colorSpec.section(' ', 2, 2).toDouble(&ok);
if ((ok == false) || (m < 0.0) || (m > 1.0))
return TQColor();
double y = colorSpec.section(' ', 3, 3).toDouble(&ok);
if ((ok == false) || (y < 0.0) || (y > 1.0))
return TQColor();
double k = colorSpec.section(' ', 3, 3).toDouble(&ok);
if ((ok == false) || (k < 0.0) || (k > 1.0))
return TQColor();
// Convert cmyk coordinates to rgb.
double r = 1.0 - c - k;
if (r < 0.0)
r = 0.0;
double g = 1.0 - m - k;
if (g < 0.0)
g = 0.0;
double b = 1.0 - y - k;
if (b < 0.0)
b = 0.0;
return TQColor((int)(r*255.0+0.5), (int)(g*255.0+0.5), (int)(b*255.0+0.5));
}
if (specType.find("gray", false) == 0) {
bool ok;
double g = colorSpec.section(' ', 1, 1).toDouble(&ok);
if ((ok == false) || (g < 0.0) || (g > 1.0))
return TQColor();
return TQColor((int)(g*255.0+0.5), (int)(g*255.0+0.5), (int)(g*255.0+0.5));
}
// Check if the color is one of the known named colors.
TQMap<TQString, TQColor>::Iterator f = namedColors.find(specType);
if (f != namedColors.end())
return *f;
return TQColor(specType);
}
void dviRenderer::color_special(const TQString& _cp)
{
TQString const cp = _cp.stripWhiteSpace();
TQString command = cp.section(' ', 0, 0);
if (command == "pop") {
// Take color off the stack
if (colorStack.isEmpty())
printErrorMsgForSpecials( i18n("Error in DVIfile '%1', page %2. Color pop command issued when the color stack is empty." ).
tqarg(dviFile->filename).tqarg(current_page));
else
colorStack.pop();
return;
}
if (command == "push") {
// Get color specification
TQColor const col = parseColorSpecification(cp.section(' ', 1));
// Set color
if (col.isValid())
colorStack.push(col);
else
colorStack.push(TQt::black);
return;
}
// Get color specification and set the color for the rest of this
// page
TQColor col = parseColorSpecification(cp);
// Set color
if (col.isValid())
globalColor = col;
else
globalColor = TQt::black;
return;
}
void dviRenderer::html_href_special(const TQString& _cp)
{
TQString cp = _cp;
cp.truncate(cp.find('"'));
#ifdef DEBUG_SPECIAL
kdDebug(4300) << "HTML-special, href " << cp.latin1() << endl;
#endif
HTML_href = new TQString(cp);
}
void dviRenderer::html_anchor_end()
{
#ifdef DEBUG_SPECIAL
kdDebug(4300) << "HTML-special, anchor-end" << endl;
#endif
if (HTML_href != NULL) {
delete HTML_href;
HTML_href = NULL;
}
}
void dviRenderer::source_special(const TQString& cp)
{
// only when rendering really takes place: set source_href to the
// current special string. When characters are rendered, the
// rendering routine will then generate a DVI_HyperLink and add it
// to the proper list. This DVI_HyperLink is used to match mouse
// positions with the hyperlinks for inverse search.
if (source_href)
*source_href = cp;
else
source_href = new TQString(cp);
}
void parse_special_argument(const TQString& strg, const char* argument_name, int* variable)
{
int index = strg.find(argument_name);
if (index >= 0) {
TQString tmp = strg.mid(index + strlen(argument_name));
index = tmp.find(' ');
if (index >= 0)
tmp.truncate(index);
bool OK;
float const tmp_float = tmp.toFloat(&OK);
if (OK)
*variable = int(tmp_float+0.5);
else
// Maybe we should open a dialog here.
kdError(4300) << i18n("Malformed parameter in the epsf special command.\n"
"Expected a float to follow %1 in %2")
.tqarg(argument_name).tqarg(strg) << endl;
}
}
void dviRenderer::epsf_special(const TQString& cp)
{
#ifdef DEBUG_SPECIAL
kdDebug(4300) << "epsf-special: psfile=" << cp <<endl;
#endif
TQString include_command = cp.simplifyWhiteSpace();
// The line is supposed to start with "..ile=", and then comes the
// filename. Figure out what the filename is and stow it away. Of
// course, this does not work if the filename contains spaces
// (already the simplifyWhiteSpace() above is wrong). If you have
// files like this, go away.
TQString EPSfilename_orig = include_command;
EPSfilename_orig.truncate(EPSfilename_orig.find(' '));
// Strip enclosing quotation marks which are included by some LaTeX
// macro packages (but not by others). This probably means that
// graphic files are no longer found if the filename really does
// contain quotes, but we don't really care that much.
if ((EPSfilename_orig.at(0) == '\"') && (EPSfilename_orig.at(EPSfilename_orig.length()-1) == '\"')) {
EPSfilename_orig = EPSfilename_orig.mid(1,EPSfilename_orig.length()-2);
}
TQString EPSfilename = ghostscript_interface::locateEPSfile(EPSfilename_orig, baseURL);
// Now parse the arguments.
int llx = 0;
int lly = 0;
int urx = 0;
int ury = 0;
int rwi = 0;
int rhi = 0;
int angle = 0;
// just to avoid ambiguities; the filename could contain keywords
include_command = include_command.mid(include_command.find(' '));
parse_special_argument(include_command, "llx=", &llx);
parse_special_argument(include_command, "lly=", &lly);
parse_special_argument(include_command, "urx=", &urx);
parse_special_argument(include_command, "ury=", &ury);
parse_special_argument(include_command, "rwi=", &rwi);
parse_special_argument(include_command, "rhi=", &rhi);
parse_special_argument(include_command, "angle=", &angle);
// If we have a png, gif, jpeg or mng file, we need to draw it here.
KMimeType::Ptr const mime_type = KMimeType::findByFileContent(EPSfilename);
TQString const & mime_type_name = mime_type->name();
bool const isGFX = (mime_type_name == "image/png" ||
mime_type_name == "image/gif" ||
mime_type_name == "image/jpeg" ||
mime_type_name == "video/x-mng");
// So, if we do not have a PostScript file, but a graphics file, and
// if that file exists, we draw it here.
if (isGFX && TQFile::exists(EPSfilename)) {
// Don't show PostScript, just draw the bounding box. For this,
// calculate the size of the bounding box in Pixels.
double bbox_width = urx - llx;
double bbox_height = ury - lly;
if ((rwi != 0)&&(bbox_width != 0)) {
bbox_height *= rwi/bbox_width;
bbox_width = rwi;
}
if ((rhi != 0)&&(bbox_height != 0)) {
bbox_width *= rhi/bbox_height;
bbox_height = rhi;
}
double fontPixelPerDVIunit = dviFile->getCmPerDVIunit() * 1200.0/2.54;
bbox_width *= 0.1 * 65536.0*fontPixelPerDVIunit / shrinkfactor;
bbox_height *= 0.1 * 65536.0*fontPixelPerDVIunit / shrinkfactor;
TQImage image(EPSfilename);
image = image.smoothScale((int)(bbox_width), (int)(bbox_height));
foreGroundPainter->drawImage( ((int) ((currinf.data.dvi_h) / (shrinkfactor * 65536))), currinf.data.pxl_v - (int)bbox_height, image);
return;
}
if (!_postscript || !TQFile::exists(EPSfilename)) {
// Don't show PostScript, just draw the bounding box. For this,
// calculate the size of the bounding box in Pixels.
double bbox_width = urx - llx;
double bbox_height = ury - lly;
if ((rwi != 0)&&(bbox_width != 0)) {
bbox_height *= rwi/bbox_width;
bbox_width = rwi;
}
if ((rhi != 0)&&(bbox_height != 0)) {
bbox_width *= rhi/bbox_height;
bbox_height = rhi;
}
double fontPixelPerDVIunit = dviFile->getCmPerDVIunit() * 1200.0/2.54;
bbox_width *= 0.1 * 65536.0*fontPixelPerDVIunit / shrinkfactor;
bbox_height *= 0.1 * 65536.0*fontPixelPerDVIunit / shrinkfactor;
TQRect bbox(((int) ((currinf.data.dvi_h) / (shrinkfactor * 65536))), currinf.data.pxl_v - (int)bbox_height,
(int)bbox_width, (int)bbox_height);
foreGroundPainter->save();
if (TQFile::exists(EPSfilename))
foreGroundPainter->setBrush(TQt::lightGray);
else
foreGroundPainter->setBrush(TQt::red);
foreGroundPainter->setPen(TQt::black);
foreGroundPainter->drawRoundRect(bbox, 2, 2);
TQFont f = foreGroundPainter->font();
f.setPointSize(8);
foreGroundPainter->setFont(f);
if (TQFile::exists(EPSfilename))
foreGroundPainter->drawText (bbox, (int)(TQt::AlignCenter), EPSfilename_orig, -1);
else
foreGroundPainter->drawText (bbox, (int)(TQt::AlignCenter),
i18n("File not found: \n %1").tqarg(EPSfilename_orig), -1);
foreGroundPainter->restore();
}
return;
}
void dviRenderer::TPIC_flushPath_special()
{
#ifdef DEBUG_SPECIAL
kdDebug(4300) << "TPIC special flushPath" << endl;
#endif
if (number_of_elements_in_path == 0) {
printErrorMsgForSpecials("TPIC special flushPath called when path was empty.");
return;
}
TQPen pen(TQt::black, (int)(penWidth_in_mInch*resolutionInDPI/1000.0 + 0.5)); // Sets the pen size in milli-inches
foreGroundPainter->setPen(pen);
foreGroundPainter->tqdrawPolyline(TPIC_path, 0, number_of_elements_in_path);
number_of_elements_in_path = 0;
}
void dviRenderer::TPIC_addPath_special(const TQString& cp)
{
#ifdef DEBUG_SPECIAL
kdDebug(4300) << "TPIC special addPath: " << cp << endl;
#endif
// Adds a point to the path list
TQString cp_noWhiteSpace = cp.stripWhiteSpace();
bool ok;
float xKoord = cp_noWhiteSpace.section(' ', 0, 0).toFloat(&ok);
if (ok == false) {
printErrorMsgForSpecials( TQString("TPIC special; cannot parse first argument in 'pn %1'.").tqarg(cp) );
return;
}
float yKoord = cp_noWhiteSpace.section(' ', 1, 1).toFloat(&ok);
if (ok == false) {
printErrorMsgForSpecials( TQString("TPIC special; cannot parse second argument in 'pn %1'.").tqarg(cp) );
return;
}
float mag = dviFile->getMagnification()/1000.0;
int x = (int)( currinf.data.dvi_h/(shrinkfactor*65536.0) + mag*xKoord*resolutionInDPI/1000.0 + 0.5 );
int y = (int)( currinf.data.pxl_v + mag*yKoord*resolutionInDPI/1000.0 + 0.5 );
// Initialize the point array used to store the path
if (TPIC_path.size() == 0)
number_of_elements_in_path = 0;
if (TPIC_path.size() == number_of_elements_in_path)
TPIC_path.resize(number_of_elements_in_path+100);
TPIC_path.setPoint(number_of_elements_in_path++, x, y);
}
void dviRenderer::TPIC_setPen_special(const TQString& cp)
{
#ifdef DEBUG_SPECIAL
kdDebug(4300) << "TPIC special setPen: " << cp << endl;
#endif
// Sets the pen size in milli-inches
bool ok;
penWidth_in_mInch = cp.stripWhiteSpace().toFloat(&ok);
if (ok == false) {
printErrorMsgForSpecials( TQString("TPIC special; cannot parse argument in 'pn %1'.").tqarg(cp) );
penWidth_in_mInch = 0.0;
return;
}
}
void dviRenderer::applicationDoSpecial(char *cp)
{
TQString special_command(cp);
// First come specials which is only interpreted during rendering,
// and NOT during the prescan phase
// font color specials
if (strncasecmp(cp, "color", 5) == 0) {
color_special(special_command.mid(5));
return;
}
// HTML reference
if (strncasecmp(cp, "html:<A href=", 13) == 0) {
html_href_special(special_command.mid(14));
return;
}
// HTML anchor end
if (strncasecmp(cp, "html:</A>", 9) == 0) {
html_anchor_end();
return;
}
// TPIC specials
if (strncasecmp(cp, "pn", 2) == 0) {
TPIC_setPen_special(special_command.mid(2));
return;
}
if (strncasecmp(cp, "pa ", 3) == 0) {
TPIC_addPath_special(special_command.mid(3));
return;
}
if (strncasecmp(cp, "fp", 2) == 0) {
TPIC_flushPath_special();
return;
}
// Encapsulated Postscript File
if (strncasecmp(cp, "PSfile=", 7) == 0) {
epsf_special(special_command.mid(7));
return;
}
// source special
if (strncasecmp(cp, "src:", 4) == 0) {
source_special(special_command.mid(4));
return;
}
// Unfortunately, in some TeX distribution the hyperref package uses
// the dvips driver by default, rather than the hypertex driver. As
// a result, the DVI files produced are full of PostScript that
// specifies links and anchors, and KDVI would call the ghostscript
// interpreter for every page which makes it really slow. This is a
// major nuisance, so that we try to filter and interpret the
// hypertex generated PostScript here.
if (special_command.startsWith("ps:SDict begin")) {
// Hyperref: start of hyperref rectangle. At this stage it is not
// yet clear if the rectangle will conain a hyperlink, an anchor,
// or another type of object. We suspect that this rectangle will
// define a hyperlink, allocate a TQString and set HTML_href to
// point to this string. The string contains the name of the
// destination which ---due to the nature of the PostScript
// language--- will be defined only after characters are drawn and
// the hyperref rectangle has been closed. We use "glopglyph" as a
// temporary name. Since the pointer HTML_href is not NULL, the
// chracter drawing routines will now underline all characters in
// blue to point out that they correspond to a hyperlink. Also, as
// soon as characters are drawn, the drawing routines will
// allocate a Hyperlink and add it to the top of the vector
// currentlyDrawnPage->hyperLinkList.
if (special_command == "ps:SDict begin H.S end") {
// At this stage, the vector 'hyperLinkList' should not contain
// links with unspecified destinations (i.e. destination set to
// 'glopglyph'). As a protection against bad DVI files, we make
// sure to remove all link rectangles which point to
// 'glopglyph'.
while (!currentlyDrawnPage->hyperLinkList.isEmpty())
if (currentlyDrawnPage->hyperLinkList.last().linkText == "glopglyph")
currentlyDrawnPage->hyperLinkList.pop_back();
else
break;
HTML_href = new TQString("glopglyph");
return;
}
// Hyperref: end of hyperref rectangle of unknown type or hyperref
// link rectangle. In these cases we set HTML_href to NULL, which
// causes the character drawing routines to stop drawing
// characters underlined in blue. Note that the name of the
// destination is still set to "glopglyph". In a well-formed DVI
// file, this special command is immediately followed by another
// special, where the destination is specified. This special is
// treated below.
if ((special_command == "ps:SDict begin H.R end") || special_command.endsWith("H.L end")) {
if (HTML_href != NULL) {
delete HTML_href;
HTML_href = NULL;
}
return; // end of hyperref rectangle
}
// Hyperref: end of anchor rectangle. If this special is
// encountered, the rectangle, which was started with "ps:SDict
// begin H.S end" does not contain a link, but an anchor for a
// link. Anchors, however, have already been dealt with in the
// prescan phase and will not be considered here. Thus, we set
// HTML_href to NULL so that character drawing routines will no
// longer underline hyperlinks in blue, and remove the link from
// the hyperLinkList. NOTE: in a well-formed DVI file, the "H.A"
// special comes directly after the "H.S" special. A
// hyperlink-anchor rectangle therefore never contains characters,
// so no character will by accidentally underlined in blue.
if (special_command.endsWith("H.A end")) {
if (HTML_href != NULL) {
delete HTML_href;
HTML_href = NULL;
}
while (!currentlyDrawnPage->hyperLinkList.isEmpty())
if (currentlyDrawnPage->hyperLinkList.last().linkText == "glopglyph")
currentlyDrawnPage->hyperLinkList.pop_back();
else
break;
return; // end of hyperref anchor
}
// Hyperref: specification of a hyperref link rectangle's
// destination. As mentioned above, the destination of a hyperlink
// is specified only AFTER the rectangle has been specified. We
// will therefore go through the list of rectangles stored in
// currentlyDrawnPage->hyperLinkList, find those whose destination
// is open and fill in the value found here. NOTE: the character
// drawing routines sometimes split a single hyperlink rectangle
// into several rectangles (e.g. if the font changes, or when a
// line break is encountered)
if (special_command.startsWith("ps:SDict begin [") && special_command.endsWith(" pdfmark end")) {
if (!currentlyDrawnPage->hyperLinkList.isEmpty()) {
// Parse the PostScript literal text string inside parentheses
// and store it into 'targetName'. The scanner works
// according to "PostScript language reference, third edition"
// - Sec. 3.2.2. The specification is implemented completely:
// balanced parentheses and all escape sequences are
// considered.
TQString tmpTargetName = special_command.section('(', 1);
TQString targetName;
int parencount = 1;
for(int i=0; i<tmpTargetName.length(); i++) {
if (tmpTargetName[i] == '(')
if ((i == 0) || (tmpTargetName[i-1] != '\\'))
parencount++;
if (tmpTargetName[i] == ')')
if ((i == 0) || (tmpTargetName[i-1] != '\\'))
parencount--;
if (parencount == 0)
break;
targetName += tmpTargetName[i];
}
targetName = PDFencodingToTQString(targetName);
TQValueVector<Hyperlink>::iterator it;
for( it = currentlyDrawnPage->hyperLinkList.begin(); it != currentlyDrawnPage->hyperLinkList.end(); ++it )
if (it->linkText == "glopglyph")
it->linkText = targetName;
}
return; // hyperref definition of link/anchor/bookmark/etc
}
}
// Detect text rotation specials that are included by the graphicx
// package. If one of these specials is found, the state of the
// painter is saved, and the coordinate system is rotated
// accordingly
if (special_command.startsWith("ps: gsave currentpoint currentpoint translate ") &&
special_command.endsWith(" neg rotate neg exch neg exch translate") ) {
bool ok;
double angle = special_command.section(' ', 5, 5).toDouble(&ok);
if (ok == true) {
int x = ((int) ((currinf.data.dvi_h) / (shrinkfactor * 65536)));
int y = currinf.data.pxl_v;
foreGroundPainter->save();
// Rotate about the current point
foreGroundPainter->translate(x,y);
foreGroundPainter->rotate(-angle);
foreGroundPainter->translate(-x,-y);
} else
printErrorMsgForSpecials( i18n("Error in DVIfile '%1', page %2. Could not interpret angle in text rotation special." ).
tqarg(dviFile->filename).tqarg(current_page));
}
// The graphicx package marks the end of rotated text with this
// special. The state of the painter is restored.
if (special_command == "ps: currentpoint grestore moveto") {
foreGroundPainter->restore();
}
// The following special commands are not used here; they are of
// interest only during the prescan phase. We recognize them here
// anyway, to make sure that KDVI doesn't complain about
// unrecognized special commands.
if ((cp[0] == '!') ||
(cp[0] == '"') ||
(strncasecmp(cp, "html:<A name=", 13) == 0) ||
(strncasecmp(cp, "ps:", 3) == 0) ||
(strncasecmp(cp, "papersize", 9) == 0) ||
(strncasecmp(cp, "header", 6) == 0) ||
(strncasecmp(cp, "background", 10) == 0) )
return;
printErrorMsgForSpecials(i18n("The special command '%1' is not implemented.").tqarg(special_command));
return;
}