Second merge of Adam Blokus' GSoC work from his branch 'branches/adamblokus/netsurf'.

Merged revisions 4195-4211,4216,4219-4220,4222-4234,4236-4250,4252-4262,4264-4266,4268-4326,4329-4335,4338-4342,4344-4411,4413-4420,4422-4436,4438-4491,4494-4506,4508-4514,4516,4518-4552,4554,4556-4564,4567-4568,4570-4574,4576-4686,4689-4692,4694,4698-4709,4715-4723,4725-4755,4757-4769,4771-4919,4921-4996,4998-5110,5112-5117 via svnmerge from 
svn://svn.netsurf-browser.org/branches/adamblokus/netsurf

........
  r4736 | adamblokus | 2008-07-26 13:46:54 +0200 (Sat, 26 Jul 2008) | 2 lines
  
  Sorting out some problems with svn.
........
  r4737 | adamblokus | 2008-07-26 13:54:36 +0200 (Sat, 26 Jul 2008) | 4 lines
  
  Added export tab to the options dialog.
  Added the possibility of changing some print options.
........
  r4897 | adamblokus | 2008-08-04 17:59:05 +0200 (Mon, 04 Aug 2008) | 5 lines
  
  Added checking of horizontal clipping.
  Added better table loosening.
  Changed some minor bugs.
  Applied changes in the Export options tab according to the review from tlsa.
........
  r4905 | adamblokus | 2008-08-05 01:53:34 +0200 (Tue, 05 Aug 2008) | 2 lines
  
  Fixed bug which made it impossible to export pdf's.
........
  r4919 | adamblokus | 2008-08-05 16:39:33 +0200 (Tue, 05 Aug 2008) | 2 lines
  
  Fixed some memory leaks which caused Netsurf to break.
........
  r4927 | adamblokus | 2008-08-06 02:26:30 +0200 (Wed, 06 Aug 2008) | 4 lines
  
  Fixed bug with filenames which crashed Netsurf.
  Turned anti aliasing off for printing.
  Fixed some scaling issues.
........
  r4928 | adamblokus | 2008-08-06 17:52:44 +0200 (Wed, 06 Aug 2008) | 5 lines
  
  Added new export/print options:
  - suppressing images
  - turning off backgrounds
  - toggled loosening
........
  r4950 | adamblokus | 2008-08-07 21:15:21 +0200 (Thu, 07 Aug 2008) | 5 lines
  
  Added new options to PDF export:
  - document compression
  - document encryption
  Added PDF password dialog
........
  r4954 | adamblokus | 2008-08-07 22:11:31 +0200 (Thu, 07 Aug 2008) | 2 lines
  
  Added saving print settings.
........
  r4956 | adamblokus | 2008-08-07 22:44:48 +0200 (Thu, 07 Aug 2008) | 2 lines
  
  Fixes to PDF encryption
........
  r4970 | adamblokus | 2008-08-09 15:26:24 +0200 (Sat, 09 Aug 2008) | 3 lines
  
  Fixed bug in plotting tiled bitmaps.
  Fixed bug with too long text decorations.
........
  r4977 | adamblokus | 2008-08-09 19:18:56 +0200 (Sat, 09 Aug 2008) | 2 lines
  
  Fixed JPG embedding bug.
........
  r4988 | adamblokus | 2008-08-10 16:59:51 +0200 (Sun, 10 Aug 2008) | 3 lines
  
  Added clip checking to pdf plotters. No more "blank" clips.
  Made PDF compression a default setting.
........
  r4995 | adamblokus | 2008-08-10 20:03:00 +0200 (Sun, 10 Aug 2008) | 2 lines
  
  Fixed Haru crash on font-size==0.
........
  r4996 | adamblokus | 2008-08-10 21:04:43 +0200 (Sun, 10 Aug 2008) | 2 lines
  
  Added changing text mode only if necessary.
........
  r5045 | adamblokus | 2008-08-11 21:26:26 +0200 (Mon, 11 Aug 2008) | 3 lines
  
  Removing gtk stuff from core code.
  Little fix in options. 
........
  r5048 | adamblokus | 2008-08-11 21:57:45 +0200 (Mon, 11 Aug 2008) | 2 lines
  
  Better font size checking in PDF export.
........
  r5050 | adamblokus | 2008-08-11 22:19:56 +0200 (Mon, 11 Aug 2008) | 2 lines
  
  Fixed riscos text scale bug.
........
  r5073 | adamblokus | 2008-08-12 17:40:57 +0200 (Tue, 12 Aug 2008) | 2 lines
  
  Added missing tooltips
........
  r5092 | adamblokus | 2008-08-13 17:09:25 +0200 (Wed, 13 Aug 2008) | 2 lines
  
  Moved /pdf folder to desktop/save_pdf
........
  r5110 | adamblokus | 2008-08-13 22:44:50 +0200 (Wed, 13 Aug 2008) | 2 lines
  
  Added comments.
........
  r5113 | adamblokus | 2008-08-13 23:07:35 +0200 (Wed, 13 Aug 2008) | 2 lines
  
  Cosmetic changes
........
  r5116 | adamblokus | 2008-08-14 16:10:18 +0200 (Thu, 14 Aug 2008) | 2 lines
  
  Fixed bug with BOX_INLINE_END in tree duplication.
........
  r5117 | joty | 2008-08-14 21:47:46 +0200 (Thu, 14 Aug 2008) | 1 line
  
  Improvement for r5116: use local vars when possible; rename global last to box_duplicate_last; check on box_duplicate_main_tree failure.
........

svn path=/trunk/netsurf/; revision=5118

1 files changed, 372 insertions, 0 deletions

diff --git a/desktop/save_pdf/font_haru.c b/desktop/save_pdf/font_haru.c
new file mode 100644
index 000000000..2e5f90adb
--- /dev/null
+++ b/desktop/save_pdf/font_haru.c
@@ -0,0 +1,372 @@
+/*
+ * Copyright 2008 Adam Blokus <adamblokus@gmail.com>
+ *
+ * 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 "desktop/save_pdf/font_haru.h"
+#include "render/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 struct css_style *style,
+		const char *string, size_t length,
+		int *width);
+
+static bool haru_nsfont_position_in_string(const struct css_style *style,
+		const char *string, size_t length,
+		int x, size_t *char_offset, int *actual_x);
+
+static bool haru_nsfont_split(const struct css_style *style,
+		const char *string, size_t length,
+	 	int x, size_t *char_offset, int *actual_x);
+	 	
+
+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  style   css_style for this text, with style->font_size.size ==
+ *		   CSS_FONT_SIZE_LENGTH
+ * \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 struct css_style *style,
+		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(style, pdf, page, 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  style	css_style for this text, with style->font_size.size ==
+ *			CSS_FONT_SIZE_LENGTH
+ * \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 struct css_style *style,
+		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(style, pdf, page, 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  style	css_style for this text, with style->font_size.size ==
+ *			CSS_FONT_SIZE_LENGTH
+ * \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 struct css_style *style,
+		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(style, pdf, page, 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 css_style to a Haru HPDF_Page
+ *
+ * \param  style	css_style for this page, with style->font_size.size ==
+ *			CSS_FONT_SIZE_LENGTH
+ * \param  doc		document owning the page
+ * \param  page		the page to apply the style to
+ * \param  font		if this is not NULL it is updated to the font from the
+ *			style and nothing with the page is done
+ * \return true on success, false on error and error reported
+ */
+bool haru_nsfont_apply_style(const struct css_style *style,
+		HPDF_Doc doc, HPDF_Page page, HPDF_Font *font)
+{
+	HPDF_Font pdf_font;
+	HPDF_REAL size;
+	char font_name[50];
+	bool roman;
+	bool bold;
+	bool styled;
+	
+	roman = false;
+	bold = false;
+	styled = false;
+	
+	
+	/*TODO: style handling, we are mapping the
+		styles on the basic 14 fonts only
+	*/
+	switch (style->font_family) {
+		case CSS_FONT_FAMILY_SERIF:
+			strcpy(font_name, "Times");
+			roman = true;
+			break;
+		case CSS_FONT_FAMILY_MONOSPACE:
+			strcpy(font_name, "Courier");
+			break;
+		case CSS_FONT_FAMILY_SANS_SERIF:
+			strcpy(font_name, "Helvetica");
+			break;
+		case CSS_FONT_FAMILY_CURSIVE:			
+		case CSS_FONT_FAMILY_FANTASY:		
+		default:
+			strcpy(font_name, "Times");
+			roman=true;
+			break;
+	}
+	
+	if (style->font_weight == CSS_FONT_WEIGHT_BOLD){
+		strcat(font_name, "-Bold");
+		bold = true;
+	}
+
+	switch (style->font_style) {
+		case CSS_FONT_STYLE_ITALIC:
+		case CSS_FONT_STYLE_OBLIQUE:
+			if (!bold)
+				strcat(font_name,"-");
+			if (roman)
+				strcat(font_name,"Italic");
+			else
+				strcat(font_name,"Oblique");
+			
+			styled = true;
+			break;
+		default:
+			break;
+	}
+	
+	if (roman && !styled && !bold)
+		strcat(font_name, "-Roman");
+
+#ifdef FONT_HARU_DEBUG		
+	LOG(("Setting font: %s", font_name));
+#endif		
+	
+	/*the functions was invoked only to get the proper font*/
+	if (font != NULL) {
+		pdf_font = HPDF_GetFont(doc, font_name, "StandardEncoding");
+		if (pdf_font == NULL)
+			return false;
+		*font = pdf_font;
+	}
+	/*the function was invoked to set the page parameters*/
+	else {
+		if (style->font_size.value.length.unit  == CSS_UNIT_PX)
+			size = style->font_size.value.length.value;
+		else
+			size = css_len2pt(&style->font_size.value.length, style);
+	
+		if (size <= 0)
+			return false;
+		
+		if (size > HPDF_MAX_FONTSIZE)
+			size = HPDF_MAX_FONTSIZE;
+		
+		pdf_font = HPDF_GetFont(doc, font_name, "StandardEncoding");
+		if (pdf_font == NULL)
+			return false;
+		HPDF_Page_SetFontAndSize(page, pdf_font, size);
+	}	
+	
+	return true;
+}
+
+#endif /* WITH_PDF_EXPORT */
+