Clean up saving as PDF

This removes the global PDF_Password interface that had completely
bitrotted and moves it into the standard misc operation table with a
sensible defualt implementation.

This also cleans up and fixes the gtk frontend implementation of the
pdf password callback so it compiles.

Finally this moves the implementation to a sensible place alongside
the other exporters reducing target makefile complexity futher.

1 files changed, 375 insertions, 0 deletions

diff --git a/desktop/font_haru.c b/desktop/font_haru.c
new file mode 100644
index 000000000..aaee84c35
--- /dev/null
+++ b/desktop/font_haru.c
@@ -0,0 +1,375 @@
+/*
+ * Copyright 2008 Adam Blokus <adamblokus@gmail.com>
+ * Copyright 2009 John Tytgat <joty@netsurf-browser.org>
+ *
+ * This file is part of NetSurf, http://www.netsurf-browser.org/
+ *
+ * NetSurf is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; version 2 of the License.
+ *
+ * NetSurf is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+
+ /** \file
+  * Font handling in Haru pdf documents (implementation).
+  *
+  * The functions were written to implement the same interface as the Pango ones
+  * so that the usage of the latter wouldn't have to be modified.
+  */
+
+#include "utils/config.h"
+#ifdef WITH_PDF_EXPORT
+
+/*#define FONT_HARU_DEBUG */
+
+#include <assert.h>
+#include <float.h>
+#include <math.h>
+#include <string.h>
+
+#include <hpdf.h>
+
+#include "css/css.h"
+#include "css/utils.h"
+
+#include "utils/nsoption.h"
+#include "desktop/save_pdf/font_haru.h"
+#include "desktop/font.h"
+#include "utils/log.h"
+
+
+static bool haru_nsfont_init(HPDF_Doc *pdf, HPDF_Page *page,
+		const char *string, char **string_nt, int length);
+
+static bool haru_nsfont_width(const plot_font_style_t *fstyle,
+		const char *string, size_t length,
+		int *width);
+
+static bool haru_nsfont_position_in_string(const plot_font_style_t *fstyle,
+		const char *string, size_t length,
+		int x, size_t *char_offset, int *actual_x);
+
+static bool haru_nsfont_split(const plot_font_style_t *fstyle,
+		const char *string, size_t length,
+	 	int x, size_t *char_offset, int *actual_x);
+
+static float pdf_text_scale = DEFAULT_EXPORT_SCALE;
+
+const struct font_functions haru_nsfont = {
+	haru_nsfont_width,
+ 	haru_nsfont_position_in_string,
+ 	haru_nsfont_split
+};
+
+/**
+ * Haru error handler
+ * for debugging purposes - it immediately exits the program on the first error,
+ * as it would otherwise flood the user with all resulting complications,
+ * covering the most important error source.
+ */
+static void error_handler(HPDF_STATUS error_no, HPDF_STATUS detail_no,
+		void *user_data)
+{
+	LOG(("ERROR: in font_haru \n\terror_no=%x\n\tdetail_no=%d\n",
+			(HPDF_UINT)error_no, (HPDF_UINT)detail_no));
+#ifdef FONT_HARU_DEBUG
+	exit(1);
+#endif
+}
+
+static bool haru_nsfont_init(HPDF_Doc *pdf, HPDF_Page *page,
+		const char *string, char **string_nt, int length)
+{
+
+	*pdf = HPDF_New(error_handler, NULL);
+
+	if (*pdf == NULL)
+		return false;
+
+	*page = HPDF_AddPage(*pdf);
+
+	if (*page == NULL) {
+		HPDF_Free(*pdf);
+		return false;
+	}
+
+	*string_nt = malloc((length + 1) * sizeof(char));
+	if (*string_nt == NULL) {
+		HPDF_Free(*pdf);
+		return false;
+	}
+
+	memcpy(*string_nt, string, length);
+	(*string_nt)[length] = '\0';
+	return true;
+}
+
+/**
+ * Measure the width of a string.
+ *
+ * \param  fstyle  style for this text
+ * \param  string  string to measure (no UTF-8 currently)
+ * \param  length  length of string
+ * \param  width   updated to width of string[0..length]
+ * \return  true on success, false on error and error reported
+ */
+bool haru_nsfont_width(const plot_font_style_t *fstyle,
+		const char *string, size_t length,
+	 	int *width)
+{
+	HPDF_Doc pdf;
+	HPDF_Page page;
+	char *string_nt;
+	HPDF_REAL width_real;
+
+	*width = 0;
+
+	if (length == 0)
+		return true;
+
+	if (!haru_nsfont_init(&pdf, &page, string, &string_nt, length))
+		return false;
+
+	if (!haru_nsfont_apply_style(fstyle, pdf, page, NULL, NULL)) {
+		free(string_nt);
+		HPDF_Free(pdf);
+		return false;
+	}
+
+	width_real = HPDF_Page_TextWidth(page, string_nt);
+	*width = width_real;
+
+#ifdef FONT_HARU_DEBUG
+	LOG(("Measuring string: %s ; Calculated width: %f %i",string_nt, width_real, *width));
+#endif
+	free(string_nt);
+	HPDF_Free(pdf);
+
+	return true;
+}
+
+
+/**
+ * Find the position in a string where an x coordinate falls.
+ *
+ * \param  fstyle	style for this text
+ * \param  string	string to measure (no UTF-8 currently)
+ * \param  length	length of string
+ * \param  x		x coordinate to search for
+ * \param  char_offset	updated to offset in string of actual_x, [0..length]
+ * \param  actual_x	updated to x coordinate of character closest to x
+ * \return  true on success, false on error and error reported
+ */
+
+bool haru_nsfont_position_in_string(const plot_font_style_t *fstyle,
+		const char *string, size_t length,
+		int x, size_t *char_offset, int *actual_x)
+{
+	HPDF_Doc pdf;
+	HPDF_Page page;
+	char *string_nt;
+	HPDF_UINT offset;
+	HPDF_REAL real_width;
+
+	if (!haru_nsfont_init(&pdf, &page, string, &string_nt, length))
+		return false;
+
+	if (HPDF_Page_SetWidth(page, x) != HPDF_OK
+			|| !haru_nsfont_apply_style(fstyle, pdf, page, NULL, NULL)) {
+		free(string_nt);
+		HPDF_Free(pdf);
+		return false;
+	}
+
+
+	offset = HPDF_Page_MeasureText(page, string_nt, x,
+			HPDF_FALSE, &real_width);
+
+
+	if (real_width < x)
+		*char_offset = offset;
+	else {
+		assert(fabs(real_width - x) < FLT_EPSILON);
+		assert(offset > 0);
+		*char_offset = offset - 1;
+	}
+
+	/*TODO: this is only the right edge of the character*/
+	*actual_x = real_width;
+
+#ifdef FONT_HARU_DEBUG
+	LOG(("Position in string: %s at x: %i; Calculated position: %i",
+			string_nt, x, *char_offset));
+#endif
+	free(string_nt);
+	HPDF_Free(pdf);
+
+	return true;
+}
+
+/**
+ * Find where to split a string to make it fit a width.
+ *
+ * \param  fstyle	style for this text
+ * \param  string	string to measure (no UTF-8 currently)
+ * \param  length	length of string
+ * \param  x		width available
+ * \param  char_offset	updated to offset in string of actual_x, [0..length]
+ * \param  actual_x	updated to x coordinate of character closest to x
+ * \return  true on success, false on error and error reported
+ */
+
+bool haru_nsfont_split(const plot_font_style_t *fstyle,
+		const char *string, size_t length,
+		int x, size_t *char_offset, int *actual_x)
+{
+	HPDF_Doc pdf;
+	HPDF_Page page;
+	char *string_nt;
+	HPDF_REAL real_width;
+	HPDF_UINT offset;
+
+
+	if (!haru_nsfont_init(&pdf, &page, string, &string_nt, length))
+		return false;
+
+	if (HPDF_Page_SetWidth(page, x) != HPDF_OK
+		    || !haru_nsfont_apply_style(fstyle, pdf, page, NULL, NULL)) {
+		free(string_nt);
+		HPDF_Free(pdf);
+		return false;
+	}
+
+	offset = HPDF_Page_MeasureText(page, string_nt, x,
+			HPDF_TRUE, &real_width);
+
+#ifdef FONT_HARU_DEBUG
+	LOG(("Splitting string: %s for width: %i ; Calculated position: %i Calculated real_width: %f",
+	string_nt, x, *char_offset, real_width));
+#endif
+	*char_offset = offset - 1;
+
+	/*TODO: this is only the right edge of the character*/
+	*actual_x = real_width;
+
+	free(string_nt);
+	HPDF_Free(pdf);
+
+	return true;
+}
+
+/**
+ * Apply font style to a Haru HPDF_Page
+ *
+ * \param  fstyle	plot style for this page
+ * \param  doc		document owning the page
+ * \param  page		the page to apply the style to
+ * \param  font		if this is non NULL it is updated to the font based
+ *			on given style
+ * \param  font_size	if this is non NULL it is updated to the font size
+ *			based on given style
+ * \return true on success, false on error and error reported
+ *
+ * When both font and font_size are NULL, the HPDF_Page is updated for given
+ * style, otherwise it is left to the called to do this.
+ */
+bool haru_nsfont_apply_style(const plot_font_style_t *fstyle,
+		HPDF_Doc doc, HPDF_Page page,
+		HPDF_Font *font, HPDF_REAL *font_size)
+{
+	HPDF_Font pdf_font;
+	HPDF_REAL size;
+	char font_name[50];
+	bool roman = false;
+	bool bold = false;
+	bool styled = false;
+
+	/*TODO: style handling, we are mapping the
+		styles on the basic 14 fonts only
+	*/
+	switch (fstyle->family) {
+	case PLOT_FONT_FAMILY_SERIF:
+		strcpy(font_name, "Times");
+		roman = true;
+		break;
+	case PLOT_FONT_FAMILY_MONOSPACE:
+		strcpy(font_name, "Courier");
+		break;
+	case PLOT_FONT_FAMILY_SANS_SERIF:
+		strcpy(font_name, "Helvetica");
+		break;
+	case PLOT_FONT_FAMILY_CURSIVE:
+	case PLOT_FONT_FAMILY_FANTASY:
+	default:
+		strcpy(font_name, "Times");
+		roman=true;
+		break;
+	}
+
+	if (fstyle->weight == 700) {
+		strcat(font_name, "-Bold");
+		bold = true;
+	}
+
+	if ((fstyle->flags & FONTF_ITALIC) || (fstyle->flags & FONTF_OBLIQUE)) {
+		if (!bold)
+			strcat(font_name,"-");
+		if (roman)
+			strcat(font_name,"Italic");
+		else
+			strcat(font_name,"Oblique");
+
+		styled = true;
+	}
+
+	if (roman && !styled && !bold)
+		strcat(font_name, "-Roman");
+
+#ifdef FONT_HARU_DEBUG
+	LOG(("Setting font: %s", font_name));
+#endif
+
+	size = fstyle->size;
+
+	if (font != NULL)
+		size *= pdf_text_scale;
+
+	if (size <= 0)
+		return true;
+
+	size /= FONT_SIZE_SCALE;
+
+	if (size > HPDF_MAX_FONTSIZE)
+		size = HPDF_MAX_FONTSIZE;
+
+	if (font_size)
+		*font_size = size;
+
+	pdf_font = HPDF_GetFont(doc, font_name, "StandardEncoding");
+	if (pdf_font == NULL)
+		return false;
+	if (font != NULL)
+		*font = pdf_font;
+
+	if (font == NULL || font_size == NULL)
+		HPDF_Page_SetFontAndSize(page, pdf_font, size);
+
+	return true;
+}
+
+/**
+ * Sync the text scale with the scale for the whole content
+ */
+void haru_nsfont_set_scale(float s)
+{
+	pdf_text_scale = s;
+}
+
+#endif /* WITH_PDF_EXPORT */