netsurf/riscos/theme.c

/*
 * This file is part of NetSurf, http://netsurf.sourceforge.net/
 * Licensed under the GNU General Public License,
 *                http://www.opensource.org/licenses/gpl-license
 * Copyright 2003 Phil Mellor <monkeyson@users.sourceforge.net>
 * Copyright 2003 James Bursa <bursa@users.sourceforge.net>
 * Copyright 2004 Richard Wilson <not_ginger_matt@users.sourceforge.net>
 */

/** \file
 * Toolbar themes (implementation).
 */

#include <alloca.h>
#include <assert.h>
#include <stdio.h>
#include <string.h>
#include "oslib/os.h"
#include "oslib/osgbpb.h"
#include "oslib/osfile.h"
#include "oslib/osspriteop.h"
#include "oslib/wimp.h"
#include "oslib/wimpspriteop.h"
#include "netsurf/riscos/gui.h"
#include "netsurf/riscos/theme.h"
#include "netsurf/riscos/toolbar.h"
#include "netsurf/riscos/wimp.h"
#include "netsurf/utils/utils.h"
#include "netsurf/utils/log.h"

/*	Current sprite area
*/
static osspriteop_area *theme_sprite_area = 0;

/*	Throbber details
*/
int theme_throbs;
static int throbber_width;
static int throbber_height;


/**
 * Load a theme from a directory.
 *
 * The directory must contain a Templates file containing the toolbar template,
 * and a Sprites file containing icons.
 */

void ro_theme_load(char *pathname) {
	osbool mask;
	os_mode mode;
 	os_coord dimensions;
	int size, i, n;
	char *filename = alloca(strlen(pathname) + 16);
	fileswitch_object_type obj_type;

	/*	Release previous sprite are
	*/
	free(theme_sprite_area);
	theme_sprite_area = NULL;

	/*	Reset the throbber variables
	*/
	theme_throbs = 0;
	throbber_height = 0;
	throbber_width = 0;

	/*	Load the sprites
	*/
	sprintf(filename, "%s.Sprites", pathname);
	xosfile_read_no_path(filename, &obj_type, 0, 0, &size, 0);

	/*	Claim memory for a sprite file if we have one
	*/
	if (obj_type & fileswitch_IS_FILE) theme_sprite_area = malloc(size + 16);

	/*	Load the sprite file if we have any memory
	*/
	if (theme_sprite_area) {

	  	/*	Initialise then load
	  	*/
		theme_sprite_area->size = size + 16;
		theme_sprite_area->sprite_count = 0;
		theme_sprite_area->first = 16;
		theme_sprite_area->used = 16;
		xosspriteop_clear_sprites(osspriteop_USER_AREA, theme_sprite_area);
		xosspriteop_load_sprite_file(osspriteop_USER_AREA, theme_sprite_area,
				filename);

		/*	Find the highest sprite called 'throbber%i', and get the maximum
			dimensions for all 'thobber%i' icons. We use the filename buffer
			as the temporary spritename buffer as it is guaranteed to be at
			least 12 bytes (max sprite name size).
		*/
		for (i = 1; i <= theme_sprite_area->sprite_count; i++) {
			osspriteop_return_name(osspriteop_USER_AREA,
					theme_sprite_area, filename, 12, i);
			if (strncmp(filename, "throbber", 8) == 0) {
			  	/*	Get the max sprite width/height
			  	*/
				xosspriteop_read_sprite_info(osspriteop_USER_AREA,
					theme_sprite_area, (osspriteop_id)filename,
					&dimensions.x, &dimensions.y, &mask, &mode);
				ro_convert_pixels_to_os_units(&dimensions, mode);
				if (dimensions.x > throbber_width) throbber_width = dimensions.x;
				if (dimensions.y > throbber_height) throbber_height = dimensions.y;

				/*	Get the throbber number
				*/
				n = atoi(filename + 8);
				if (theme_throbs < n) theme_throbs = n;
			}
		}
	}

}


/**
 * Create a toolbar from the current theme.
 *
 * The buffers url_buffer and status_buffer must be at least 256 bytes each,
 * throbber_buffer at least 12 bytes;
 */

void ro_theme_create_toolbar(gui_window *g) {
  	struct toolbar *toolbar;

	/*	Destroy any previous toolbar (paranoia)
	*/
	if (g->data.browser.toolbar) {
		ro_toolbar_destroy(g->data.browser.toolbar);
		g->data.browser.toolbar = NULL;
	}
  	/*	Create a toolbar
  	*/
  	toolbar = ro_toolbar_create(theme_sprite_area, g->url, g->status, g->throb_buf);
  	if (toolbar == NULL) return;

  	/*	Set up the throbber
  	*/
  	toolbar->throbber_width = throbber_width;
  	toolbar->throbber_height = throbber_height;
  	toolbar->status_width = 640;

  	/*	Store our toolbar
  	*/
  	g->data.browser.toolbar = toolbar;

  	/*	Update the toolbar
  	*/
  	ro_theme_update_toolbar(g);
}


/**
 * Updates any toolbar flags (eg closes windows, hides icons etc)
 *
 * \return non-zero if the toolbar height has changed
 */
int ro_theme_update_toolbar(gui_window *g) {
	wimp_outline outline;
	wimp_window_state state;
	struct toolbar *toolbar;
	int return_value = 0;

	/*	Set an update as pending
	*/
	toolbar = g->data.browser.toolbar;
	toolbar->update_pending = true;

  	/*	Close the status window if we should, or resize it
  	*/
  	if (toolbar->status_window) {

	  	/*	Update the status height
  		*/
  		ro_toolbar_resize_status(toolbar, ro_get_hscroll_height(g->window) - 2);
  	} else {
  	  	xwimp_close_window(toolbar->status_handle);
  	}

	/*	Update the toolbar height
	*/
	return_value = ro_theme_resize_toolbar(g);

	/*	Open/close the toolbar
	*/
	if (toolbar->height > 0) {
		outline.w = g->window;
		xwimp_get_window_outline(&outline);
		state.w = g->window;
		xwimp_get_window_state(&state);
		state.w = toolbar->toolbar_handle;
		state.visible.x1 = outline.outline.x1 - 2;
		state.visible.y0 = state.visible.y1 - toolbar->height;
		state.xscroll = 0;
		state.yscroll = 0;
		state.next = wimp_TOP;
		xwimp_open_window_nested((wimp_open *)&state, g->window,
				wimp_CHILD_LINKS_PARENT_VISIBLE_BOTTOM_OR_LEFT
						<< wimp_CHILD_XORIGIN_SHIFT |
				wimp_CHILD_LINKS_PARENT_VISIBLE_TOP_OR_RIGHT
						<< wimp_CHILD_YORIGIN_SHIFT |
				wimp_CHILD_LINKS_PARENT_VISIBLE_BOTTOM_OR_LEFT
						<< wimp_CHILD_LS_EDGE_SHIFT |
				wimp_CHILD_LINKS_PARENT_VISIBLE_TOP_OR_RIGHT
						<< wimp_CHILD_BS_EDGE_SHIFT |
				wimp_CHILD_LINKS_PARENT_VISIBLE_TOP_OR_RIGHT
						<< wimp_CHILD_RS_EDGE_SHIFT |
				wimp_CHILD_LINKS_PARENT_VISIBLE_TOP_OR_RIGHT
						<< wimp_CHILD_TS_EDGE_SHIFT);
	} else {
	  	xwimp_close_window(toolbar->toolbar_handle);
	}

	/*	Return
	*/
	return return_value;
}


/**
 * Resize the status and toolbar windows.
 *
 * \return non-zero if the toolbar height has changed
 */
int ro_theme_resize_toolbar(gui_window *g) {
	os_box extent = { 0, 0, 0, 0 };
	struct toolbar *toolbar;
	wimp_outline outline;
	wimp_outline status_outline;
	wimp_window_state state;
	int width, status_width;
	int return_value = 0;

	/*	Paranoia
	*/
	toolbar = g->data.browser.toolbar;
	if (toolbar == NULL) return 0;

	/*	Get the toolbar width
	*/
	outline.w = g->window;
	if (xwimp_get_window_outline(&outline)) return 0;
	width = outline.outline.x1 - outline.outline.x0 - 2;

	/*	Reformat if we should
	*/
	if ((toolbar->width != width) || (toolbar->resize_status) || (toolbar->update_pending)) {
 	  	if (toolbar->resize_status) {
		 	status_outline.w = toolbar->status_handle;
			if (xwimp_get_window_outline(&status_outline)) return 0;
			toolbar->status_width = width -
					(status_outline.outline.x1 - status_outline.outline.x0 - 4);
  	  	  	toolbar->resize_status = 0;
  	  	} else {
  	  	  	/*	Update the extent of the status window
  	  	  	*/
 	  		state.w = g->window;
 	  		if (xwimp_get_window_state(&state)) return 0;
 	  		extent.x1 = state.visible.x1 - state.visible.x0;
 	  		extent.y1 = toolbar->status_height - 2;
 	  		xwimp_set_extent(toolbar->status_handle, &extent);

		  	/*	Re-open the status window as we can't use the nested
		  		wimp to manage everything as it would keep extending
		  		the size incorrectly.
		  	*/
		  	status_width = width - toolbar->status_width;
		  	if (status_width < 12) status_width = 12;
		  	if (toolbar->status_window) {
		  		state.w = toolbar->status_handle;
				state.xscroll = 0;
				state.yscroll = 0;
				state.next = wimp_TOP;
				state.visible.x0 = outline.outline.x0;
				state.visible.x1 = outline.outline.x0 + status_width;
				state.visible.y0 = outline.outline.y0 - toolbar->status_height;
				state.visible.y1 = outline.outline.y0 - 2;
				xwimp_open_window_nested((wimp_open *) &state, g->window,
						wimp_CHILD_LINKS_PARENT_VISIBLE_BOTTOM_OR_LEFT
								<< wimp_CHILD_XORIGIN_SHIFT |
						wimp_CHILD_LINKS_PARENT_VISIBLE_BOTTOM_OR_LEFT
								<< wimp_CHILD_YORIGIN_SHIFT |
						wimp_CHILD_LINKS_PARENT_VISIBLE_BOTTOM_OR_LEFT
								<< wimp_CHILD_LS_EDGE_SHIFT |
						wimp_CHILD_LINKS_PARENT_VISIBLE_BOTTOM_OR_LEFT
								<< wimp_CHILD_BS_EDGE_SHIFT |
						wimp_CHILD_LINKS_PARENT_VISIBLE_TOP_OR_RIGHT
								<< wimp_CHILD_RS_EDGE_SHIFT |
						wimp_CHILD_LINKS_PARENT_VISIBLE_BOTTOM_OR_LEFT
								<< wimp_CHILD_TS_EDGE_SHIFT);
	  		} else {
	  		 	if (toolbar->update_pending) {
	  		 		xwimp_close_window(toolbar->status_handle);
	  		 	}
	  		}
		}

	  	/*	Resize the toolbar
	  	*/
		return ro_toolbar_reformat(toolbar, width);
	}
	return return_value;
}


/**
 * Make a list of available themes.
 *
 * \param  entries  updated to number of themes
 * \return  array of struct theme_entry, or 0 on error, and error reported
 */

struct theme_entry *ro_theme_list(unsigned int *entries)
{
	char pathname[256];
	unsigned int i = 0, n = 0;
	int context = 0;
	int read_count;
	struct theme_entry *list = 0, *list1;
	fileswitch_object_type obj_type;
	int file_type;
	osgbpb_INFO(100) info;
	os_error *error;

	/* invariant: list[0..n) are valid */
	while (context != -1) {
		error = xosgbpb_dir_entries_info(THEMES_DIR,
				(osgbpb_info_list *) &info, 1, context,
				sizeof(info), 0, &read_count, &context);
		if (error) {
			LOG(("xosgbpb_dir_entries_info: 0x%x: %s",
				error->errnum, error->errmess));
			warn_user("MiscError", error->errmess);
			ro_theme_list_free(list, n);
			return 0;
		}

		if (read_count == 0)
			continue;
		if (info.obj_type != fileswitch_IS_DIR)
			continue;

		/* check for presence of Sprites in directory */
		snprintf(pathname, sizeof pathname, "%s.%s.%s",
				THEMES_DIR, info.name, "Sprites");
		pathname[sizeof pathname - 1] = 0;
		error = xosfile_read_stamped_no_path(pathname,
				&obj_type, 0, 0, 0, 0, &file_type);
		if (error) {
			LOG(("xosfile_read_stamped_no_path: 0x%x: %s",
				error->errnum, error->errmess));
			warn_user("MiscError", error->errmess);
			ro_theme_list_free(list, n);
			return 0;
		}
		if (obj_type != fileswitch_IS_FILE ||
				file_type != osfile_TYPE_SPRITE)
			continue;

		/* expand list */
		list1 = realloc(list, sizeof *list * (i + 1));
		if (!list1) {
			warn_user("NoMemory", 0);
			ro_theme_list_free(list, n);
			return 0;
		}
		list = list1;

		/* update invariant */
		list[i].name = 0;
		list[i].sprite_area = 0;
		n = i + 1;

		/* copy name */
		list[i].name = strdup(info.name);
		if (!list[i].name) {
			warn_user("NoMemory", 0);
			ro_theme_list_free(list, n);
			return 0;
		}

		/* load sprites */
		list[i].sprite_area = ro_gui_load_sprite_file(pathname);
		if (!list[i].sprite_area) {
			ro_theme_list_free(list, n);
			return 0;
		}

		i++;
	}

	*entries = n;
	return list;
}


/**
 * Free an array of themes, as returned by ro_theme_list().
 *
 * \param  list     array of struct theme_entry
 * \param  entries  size of array
 */

void ro_theme_list_free(struct theme_entry *list, unsigned int entries)
{
	unsigned int i;
	for (i = 0; i != entries; i++) {
		free(list[i].name);
		free(list[i].sprite_area);
	}
	free(list);
}