Copy the KDE 3.5 branch to branches/trinity for new KDE 3.5 features.

BUG:215923


git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/kdegraphics@1054174 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 184 insertions, 0 deletions

diff --git a/kdvi/vf.cpp b/kdvi/vf.cpp
new file mode 100644
index 00000000..36cad0ba
--- /dev/null
+++ b/kdvi/vf.cpp
@@ -0,0 +1,184 @@
+/*
+ * Copyright (c) 1994 Paul Vojta.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#include <config.h>
+
+#include <kdebug.h>
+#include <klocale.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "dvi.h"
+#include "dviRenderer.h"
+#include "fontpool.h"
+#include "xdvi.h"
+
+extern void oops(QString message);
+
+/***
+ ***	VF font reading routines.
+ ***	Public routine is read_index---because virtual characters are presumed
+ ***	to be short, we read the whole virtual font in at once, instead of
+ ***	faulting in characters as needed.
+ ***/
+
+#define	LONG_CHAR	242
+
+/*
+ *	These are parameters which determine whether macros are combined for
+ *	storage allocation purposes.  Small macros ( <= VF_PARM_1 bytes) are
+ *	combined into chunks of size VF_PARM_2.
+ */
+
+#ifndef	VF_PARM_1
+#define	VF_PARM_1	20
+#endif
+#ifndef	VF_PARM_2
+#define	VF_PARM_2	256
+#endif
+
+/*
+ *	The main routine
+ */
+
+void TeXFontDefinition::read_VF_index()
+{
+#ifdef DEBUG_FONTS
+  kdDebug(4300) << "font::read_VF_index()" << endl;
+#endif
+  FILE *VF_file = file;
+  unsigned char	cmnd;
+  unsigned char	*avail, *availend;	/* available space for macros */
+
+  flags      |= FONT_VIRTUAL;
+  set_char_p  = &dviRenderer::set_vf_char;
+#ifdef DEBUG_FONTS
+  kdDebug(4300) << "TeXFontDefinition::read_VF_index: reading VF pixel file " << filename << endl;
+#endif
+  // Read preamble.
+  fseek(VF_file, (long) one(VF_file), 1);	/* skip comment */
+  Q_UINT32 file_checksum = four(VF_file);
+
+  if (file_checksum && checksum && file_checksum != checksum)
+    kdError(4300) << i18n("Checksum mismatch") << "(dvi = " << checksum << "u, vf = " << file_checksum << 
+      "u)" << i18n(" in font file ") << filename << endl;
+  (void) four(VF_file);		/* skip design size */
+
+  // Read the fonts.
+  first_font = NULL;
+  while ((cmnd = one(VF_file)) >= FNTDEF1 && cmnd <= FNTDEF4) {
+    int   TeXnumber = num(VF_file, (int) cmnd - FNTDEF1 + 1);
+    Q_UINT32 checksum  = four(VF_file);
+    Q_UINT32 scale     = four(VF_file);
+    Q_UINT32 design    = four(VF_file);
+    Q_UNUSED(design);
+    Q_UINT16 len       = one(VF_file) + one(VF_file); /* sequence point in the middle */
+    char *fontname  = new char[len + 1];
+    fread(fontname, sizeof(char), len, VF_file);
+    fontname[len] = '\0';
+    
+#ifdef DEBUG_FONTS
+    kdDebug(4300) << "Virtual font defines subfont \"" << fontname << "\" scale=" << scale << " design=" << design << endl;
+#endif
+
+    // According to Knuth's documentation found in the web source code
+    // of the "vftovp" program (which seems to be the standard
+    // definition of virtual fonts), the "scale" is a fixed point
+    // number which describes extra enlargement that the virtual font
+    // imposes. One obtains the enlargement by dividing 2^20. 
+    double enlargement_factor = double(scale)/(1<<20) * enlargement;
+
+    //    TeXFontDefinition *newfontp = font_pool->appendx(fontname, checksum, (Q_UINT32)(scaled_size_in_DVI_units*enlargement_factor), enlargement_factor);
+    TeXFontDefinition *newfontp = font_pool->appendx(fontname, checksum, (Q_UINT32)((double(scale)/(1<<20))*scaled_size_in_DVI_units), enlargement_factor);
+
+    // Insert font in dictionary and make sure the dictionary is big
+    // enough.
+    if (vf_table.size()-2 <= vf_table.count())
+      // Not quite optimal. The size of the dictionary should be a
+      // prime. I don't care.
+      vf_table.resize(vf_table.size()*2); 
+    vf_table.insert(TeXnumber, newfontp);
+    
+    if (first_font == NULL)
+      first_font = newfontp;
+  }
+
+  // Prepare macro array.
+  macrotable = new macro[max_num_of_chars_in_font];
+  if (macrotable == 0) {
+    kdError() << i18n("Could not allocate memory for a macro table.") << endl;
+    exit(0);
+  }
+
+  // Read macros.
+  avail = availend = NULL;
+  for (; cmnd <= LONG_CHAR; cmnd = one(VF_file)) {
+    macro *m;
+    int len;
+    unsigned long cc;
+    long width;
+
+    if (cmnd == LONG_CHAR) {	/* long form packet */
+      len = four(VF_file);
+      cc = four(VF_file);
+      width = four(VF_file);
+      if (cc >= 256) {
+	kdError() << i18n("Virtual character ") << cc << i18n(" in font ") 
+		  << fontname << i18n(" ignored.") << endl;
+	fseek(VF_file, (long) len, 1);
+	continue;
+      }
+    } else {	/* short form packet */
+      len = cmnd;
+      cc = one(VF_file);
+      width = num(VF_file, 3);
+    }
+    m = &macrotable[cc];
+
+    m->dvi_advance_in_units_of_design_size_by_2e20 = width;
+    if (len > 0) {
+      if (len <= availend - avail) {
+	m->pos = avail;
+	avail += len;
+      } else {
+	m->free_me = true;
+	if (len <= VF_PARM_1) {
+	  m->pos = avail = new unsigned char [VF_PARM_2];
+	  availend = avail + VF_PARM_2;
+	  avail += len;
+	} else 
+	  m->pos = new unsigned char[len];
+      }
+      fread((char *) m->pos, 1, len, VF_file);
+      m->end = m->pos + len;
+    }
+  }
+  if (cmnd != POST)
+    oops(i18n("Wrong command byte found in VF macro list: %1").arg(cmnd));
+  
+  fclose (VF_file);
+  file = NULL;
+}