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

Merged revisions 4212-4552,4554-4709,4711-4724 via svnmerge from 
svn://svn.netsurf-browser.org/branches/adamblokus/netsurf

........
  r4212 | adamblokus | 2008-05-26 19:42:31 +0200 (Mon, 26 May 2008) | 4 lines
  
  Pdf plotting skeleton pinned on Print Preview in GTK.
  Just creates a file and draws lines. 
........
  r4213 | adamblokus | 2008-05-27 00:11:03 +0200 (Tue, 27 May 2008) | 4 lines
  
  Pdf plotter - added drawing some graphic primitives.
  Still with limited functionality, but a snapshot of the
  currently viewed page can be made and resembles the original.
........
  r4214 | adamblokus | 2008-05-27 11:43:31 +0200 (Tue, 27 May 2008) | 2 lines
  
  Corrected encoding name
........
  r4215 | adamblokus | 2008-05-27 12:47:26 +0200 (Tue, 27 May 2008) | 3 lines
  
  Colours and polygons added.
........
  r4217 | adamblokus | 2008-05-27 21:39:35 +0200 (Tue, 27 May 2008) | 6 lines
  
  Added rectangles, filled boxes and clipping.
  Taken into consideration joty's comments.
  Added a todo list for this part.
  Added some debug stuff and checking boundaries.
........
  r4218 | adamblokus | 2008-05-28 12:37:30 +0200 (Wed, 28 May 2008) | 2 lines
  
  Added path ploting (not sure if valid argument order for bezier) and dashed/dotted line styles
........
  r4221 | adamblokus | 2008-05-28 22:11:05 +0200 (Wed, 28 May 2008) | 3 lines
  
  Some more options in graphic primitives and normalizing some parameters.
........
  r4235 | adamblokus | 2008-05-31 22:54:56 +0200 (Sat, 31 May 2008) | 4 lines
  
  Plotting changed as jmb suggested (is the least invasive one from the possible)
  Added dummy bitmap plotting - way of plotting an image is determined by its type. 
........
  r4251 | adamblokus | 2008-06-03 17:12:15 +0200 (Tue, 03 Jun 2008) | 3 lines
  
  Added plotting jpg and png images - quite a lot to improve in this code, but it seems to work ;)
........
  r4263 | adamblokus | 2008-06-05 14:20:32 +0200 (Thu, 05 Jun 2008) | 3 lines
  
  Added hadling images other than png and jpeg - with transparency.
........
  r4267 | adamblokus | 2008-06-06 15:36:34 +0200 (Fri, 06 Jun 2008) | 5 lines
  
  Added handling NULL-returns from all mallocs.
  Added plot_bitmap_tile handling.
  Changed code style a little.
........
  r4327 | adamblokus | 2008-06-12 17:46:34 +0200 (Thu, 12 Jun 2008) | 5 lines
  
  Added a first prototype of the paged-output organization.
  Still not sure about naming, file locations etc.
  Works with the same pdf plotting as before.
........
  r4328 | adamblokus | 2008-06-13 13:52:15 +0200 (Fri, 13 Jun 2008) | 4 lines
  
  Added primitive width adjustment and outputing the whole
  website in multiple pages.
........
  r4336 | joty | 2008-06-15 15:06:57 +0200 (Sun, 15 Jun 2008) | 1 line
  
  Fix RISC OS build failure (change r4235 wasn't complete).
........
  r4337 | joty | 2008-06-15 18:15:32 +0200 (Sun, 15 Jun 2008) | 16 lines
  
  This enables "Export PDF" in RISC OS build:
  
  - Docs/Doxyfile(PREDEFINED): Added WITH_PDF_EXPORT
  - Makefile.sources(S_PDF): Add to RISC OS target as well.
  - utils/config.h: Define WITH_PDF_EXPORT which controls if we want to have
    PDF export functionality or not.
  - riscos/save_pdf.c,riscos/save_pdf.h(save_as_pdf): Use PDF print API made
    by Adam Blokus to write a PDF file under RISC OS.
  - riscos/save.c: Call save_as_pdf added.
  - riscos/menus.c: Add 'Export->PDF' menu entry.
  - riscos/menus.h(menu_action): Added BROWSER_EXPORT_PDF.
  - desktop/gui.h(gui_save_type): Added GUI_SAVE_PDF.
  - desktop/print.c(print_run): Added return value.
  - Makefile(CCACHE): Moved closed to the place where CC is set for the first time.
    (LDFLAGS): Centralised adding all non-pkgconfig libraries and added Haru + PNG libs.
........
  r4343 | adamblokus | 2008-06-16 01:08:52 +0200 (Mon, 16 Jun 2008) | 3 lines
  
  Added margins and page size adjustment.
........
  r4412 | adamblokus | 2008-06-21 20:22:07 +0200 (Sat, 21 Jun 2008) | 4 lines
  
  Added 'fuzzy' margins on page bottom. 
  Disabled direct png embedding, because it is too unstable in Haru now.
........
  r4421 | adamblokus | 2008-06-22 18:52:28 +0200 (Sun, 22 Jun 2008) | 2 lines
  
  Added "Save as.." dialog and Export->PDF menu entry. Print preview still works with default path.
........
  r4437 | adamblokus | 2008-06-25 02:44:46 +0200 (Wed, 25 Jun 2008) | 4 lines
  
  Added skeleton of applying loose layout.
  Minor code cleaning-up.
........
  r4492 | adamblokus | 2008-07-02 09:02:42 +0200 (Wed, 02 Jul 2008) | 5 lines
  
  Implemented the elementar ideas of the loose layout.
  Added scaling in the printing routine.
  Added some basic demonstrations.
........
  r4493 | adamblokus | 2008-07-02 09:05:55 +0200 (Wed, 02 Jul 2008) | 3 lines
  
  Cleaned up the loosing code - commited to much of leftover rubbish code.
........
  r4507 | adamblokus | 2008-07-04 14:25:48 +0200 (Fri, 04 Jul 2008) | 4 lines
  
  Added duplicating box tree and current content - window flickering during printing solved.
  Minor error checking after new HPDF_Image_AddSMask call.
........
  r4515 | adamblokus | 2008-07-06 22:28:16 +0200 (Sun, 06 Jul 2008) | 2 lines
  
  Changes in loosen layout (image resizing).
........
  r4517 | adamblokus | 2008-07-06 22:38:23 +0200 (Sun, 06 Jul 2008) | 2 lines
  
  Added pdf font handling and rendering functions with the use of Haru functions.
........
  r4555 | adamblokus | 2008-07-10 00:59:05 +0200 (Thu, 10 Jul 2008) | 2 lines
  
  Added a very basic and still buggy GTK print implementation.
........
  r4565 | adamblokus | 2008-07-10 14:50:16 +0200 (Thu, 10 Jul 2008) | 2 lines
  
  Added gtk printing one more time - I have forgotten to add the main file.
........
  r4566 | adamblokus | 2008-07-10 14:57:02 +0200 (Thu, 10 Jul 2008) | 2 lines
  
  removed error with comment
........
  r4569 | adamblokus | 2008-07-10 15:52:55 +0200 (Thu, 10 Jul 2008) | 5 lines
  
  Major style improvements - added a lot of doxygen comments, 
  followed tlsa's style guide.
  Added some more error checking, too.
........
  r4575 | adamblokus | 2008-07-10 18:48:26 +0200 (Thu, 10 Jul 2008) | 2 lines
  
  Cleaned up the code.
........
  r4687 | adamblokus | 2008-07-17 14:17:19 +0200 (Thu, 17 Jul 2008) | 2 lines
  
  Changed everything according to jmb's review plus some minor bug fixes to gtk_print.
........
  r4688 | adamblokus | 2008-07-17 17:16:34 +0200 (Thu, 17 Jul 2008) | 2 lines
  
  Solved the netsurf.glade clash from r4421.
........
  r4693 | adamblokus | 2008-07-18 18:11:51 +0200 (Fri, 18 Jul 2008) | 2 lines
  
  Fixed bug with wrong number of pages in gtk printing.
........
  r4695 | adamblokus | 2008-07-18 19:59:24 +0200 (Fri, 18 Jul 2008) | 3 lines
  
  - fixed uncommented line from the previous commit
  - fixed bug with scale bigger than 1.0 (incorretly clipped page)
........
  r4696 | adamblokus | 2008-07-18 23:28:00 +0200 (Fri, 18 Jul 2008) | 2 lines
  
  Fixed bug in gtk_print_font_paint (and nsfont_paint).
........
  r4697 | adamblokus | 2008-07-18 23:35:38 +0200 (Fri, 18 Jul 2008) | 2 lines
  
  Bug fix in nsfont_paint.
........
  r4711 | adamblokus | 2008-07-19 22:44:15 +0200 (Sat, 19 Jul 2008) | 2 lines
  
  Added gtk_selection files.
........
  r4712 | adamblokus | 2008-07-20 11:15:06 +0200 (Sun, 20 Jul 2008) | 2 lines
  
  Addam missing glade files.
........
  r4713 | joty | 2008-07-20 17:13:10 +0200 (Sun, 20 Jul 2008) | 1 line
  
  Follow change r4517 for RISC OS and BeOS platforms : Added pdf font handling and rendering functions with the use of Haru functions.
........
  r4714 | joty | 2008-07-20 18:19:50 +0200 (Sun, 20 Jul 2008) | 1 line
  
  Declare haru_nsfont iso define an instance for each C source including the font_haru.h header.  This fixes breakage of PDF export on RISC OS.
........
  r4724 | adamblokus | 2008-07-23 03:30:08 +0200 (Wed, 23 Jul 2008) | 6 lines
  
  Applied changes according to joty's review.
  Added checking the dimensions of a plotted image to pdf plotter.
  Commented out jpg embedding (it seems to cause some problems
  I'll bring it back when I figure out what's wrong) .
  Added back some files removed by mistake.
........


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

1 files changed, 373 insertions, 0 deletions

diff --git a/pdf/font_haru.c b/pdf/font_haru.c
new file mode 100644
index 000000000..045d481a2
--- /dev/null
+++ b/pdf/font_haru.c
@@ -0,0 +1,373 @@
+/*
+ * 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.
+  */
+ 
+#define FONT_HARU_DEBUG
+ 
+#include <assert.h> 
+#include <float.h> 
+#include <math.h>
+#include <string.h> 
+ 
+#include "css/css.h"
+#include "hpdf.h" 
+#include "render/font.h"
+#include "pdf/font_haru.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;
+	
+	if (length == 0) {
+		*width = 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;
+	HPDF_REAL width;
+	
+	
+	if (!haru_nsfont_init(&pdf, &page, string, &string_nt, length))
+		return false;
+	
+	if (!HPDF_Page_SetWidth(page, x)
+			|| !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)
+		    || !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		
+	
+	if (font != NULL) {
+		pdf_font = HPDF_GetFont(doc, font_name, "StandardEncoding");
+		if (pdf_font == NULL)
+			return false;
+		*font = pdf_font;
+	}
+	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);
+	
+		/*with 0.7 the pages look the best, this should be kept the same
+		as the scale in print settings*/
+		size = size / 0.7;
+		
+		pdf_font = HPDF_GetFont(doc, font_name, "StandardEncoding");
+		if (pdf_font == NULL)
+			return false;
+		HPDF_Page_SetFontAndSize(page, pdf_font, size);
+	}	
+	
+	return true;
+}