2015-02-03 22:51:55 +03:00
|
|
|
/*
|
2016-01-15 22:36:12 +03:00
|
|
|
* Copyright 2008 - 2016 Chris Young <chris@unsatisfactorysoftware.co.uk>
|
2015-02-03 22:51:55 +03:00
|
|
|
*
|
|
|
|
* 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/>.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include "amiga/os3support.h"
|
|
|
|
|
2016-04-20 17:54:18 +03:00
|
|
|
#include <stdlib.h>
|
|
|
|
#include <string.h>
|
2015-02-03 22:51:55 +03:00
|
|
|
#include <proto/diskfont.h>
|
|
|
|
#include <proto/exec.h>
|
|
|
|
#include <proto/graphics.h>
|
|
|
|
#include <proto/utility.h>
|
|
|
|
|
|
|
|
#include <graphics/rpattr.h>
|
|
|
|
|
|
|
|
#include "utils/log.h"
|
|
|
|
#include "utils/utf8.h"
|
|
|
|
#include "utils/nsoption.h"
|
|
|
|
|
|
|
|
#include "amiga/font.h"
|
2016-01-16 03:00:57 +03:00
|
|
|
#include "amiga/font_diskfont.h"
|
2015-02-03 22:51:55 +03:00
|
|
|
#include "amiga/gui.h"
|
|
|
|
#include "amiga/utf8.h"
|
|
|
|
|
2016-01-21 01:51:05 +03:00
|
|
|
#define MAX_FONT_NAME_SIZE 33
|
|
|
|
|
2015-02-03 22:51:55 +03:00
|
|
|
static struct TextFont *ami_font_bm_open(struct RastPort *rp, const plot_font_style_t *fstyle)
|
|
|
|
{
|
|
|
|
struct TextFont *bmfont = NULL;
|
|
|
|
struct TextAttr tattr;
|
2016-01-21 01:51:05 +03:00
|
|
|
char *fontname;
|
|
|
|
char font[MAX_FONT_NAME_SIZE];
|
2015-02-03 22:51:55 +03:00
|
|
|
|
|
|
|
if(rp == NULL) return NULL;
|
|
|
|
|
2016-01-18 03:20:45 +03:00
|
|
|
tattr.ta_Flags = 0;
|
|
|
|
|
2015-02-03 22:51:55 +03:00
|
|
|
switch(fstyle->family)
|
|
|
|
{
|
|
|
|
case PLOT_FONT_FAMILY_SANS_SERIF:
|
|
|
|
fontname = nsoption_charp(font_sans);
|
|
|
|
break;
|
|
|
|
case PLOT_FONT_FAMILY_SERIF:
|
|
|
|
fontname = nsoption_charp(font_serif);
|
|
|
|
break;
|
|
|
|
case PLOT_FONT_FAMILY_MONOSPACE:
|
|
|
|
fontname = nsoption_charp(font_mono);
|
|
|
|
break;
|
|
|
|
case PLOT_FONT_FAMILY_CURSIVE:
|
|
|
|
fontname = nsoption_charp(font_cursive);
|
|
|
|
break;
|
|
|
|
case PLOT_FONT_FAMILY_FANTASY:
|
|
|
|
fontname = nsoption_charp(font_fantasy);
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
return NULL;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
tattr.ta_Style = FS_NORMAL;
|
|
|
|
|
|
|
|
if (fstyle->flags & FONTF_OBLIQUE)
|
|
|
|
tattr.ta_Style = FSF_ITALIC;
|
|
|
|
|
|
|
|
if (fstyle->flags & FONTF_ITALIC)
|
|
|
|
tattr.ta_Style = FSF_ITALIC;
|
|
|
|
|
|
|
|
if (fstyle->weight >= 700)
|
|
|
|
tattr.ta_Style |= FSF_BOLD;
|
|
|
|
|
2016-01-21 01:51:05 +03:00
|
|
|
snprintf(font, MAX_FONT_NAME_SIZE, "%s.font", fontname);
|
|
|
|
tattr.ta_Name = font;
|
|
|
|
tattr.ta_YSize = fstyle->size / FONT_SIZE_SCALE;
|
|
|
|
LOG("font: %s/%d", tattr.ta_Name, tattr.ta_YSize);
|
|
|
|
if((bmfont = OpenDiskFont(&tattr))) {
|
|
|
|
SetRPAttrs(rp, RPTAG_Font, bmfont, TAG_DONE);
|
2015-02-03 22:51:55 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
return bmfont;
|
|
|
|
}
|
|
|
|
|
|
|
|
static void ami_font_bm_close(struct TextFont *bmfont)
|
|
|
|
{
|
|
|
|
CloseFont(bmfont);
|
|
|
|
}
|
|
|
|
|
2016-01-15 23:43:12 +03:00
|
|
|
static size_t ami_font_bm_convert_local_to_utf8_offset(const char *utf8string, size_t length, UWORD offset)
|
2016-01-13 21:32:17 +03:00
|
|
|
{
|
|
|
|
size_t chr = 0;
|
|
|
|
|
2016-01-15 23:51:37 +03:00
|
|
|
for(UWORD i = 0; i < offset; i++) {
|
2016-01-13 21:32:17 +03:00
|
|
|
chr = utf8_next(utf8string, length, chr);
|
2016-02-29 21:10:45 +03:00
|
|
|
if(chr > length) return length;
|
2016-01-13 21:32:17 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
return chr;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
2016-01-15 22:36:12 +03:00
|
|
|
static bool amiga_bm_nsfont_width(const plot_font_style_t *fstyle,
|
2015-02-03 22:51:55 +03:00
|
|
|
const char *string, size_t length,
|
|
|
|
int *width)
|
|
|
|
{
|
2016-01-13 21:32:17 +03:00
|
|
|
char *localtext = NULL;
|
2015-02-22 19:50:41 +03:00
|
|
|
|
|
|
|
if((glob == NULL) || (glob->rp == NULL)) return false;
|
2016-01-13 21:32:17 +03:00
|
|
|
*width = length;
|
2015-02-22 19:50:41 +03:00
|
|
|
|
2015-02-03 22:51:55 +03:00
|
|
|
struct TextFont *bmfont = ami_font_bm_open(glob->rp, fstyle);
|
2015-02-22 19:50:41 +03:00
|
|
|
if(bmfont == NULL) return false;
|
|
|
|
|
2016-01-13 21:32:17 +03:00
|
|
|
if(utf8_to_local_encoding(string, length, &localtext) != NSERROR_OK) {
|
|
|
|
ami_font_bm_close(bmfont);
|
|
|
|
return false;
|
|
|
|
}
|
|
|
|
|
2016-01-16 14:44:03 +03:00
|
|
|
*width = TextLength(glob->rp, localtext, (UWORD)strlen(localtext));
|
2016-01-13 21:32:17 +03:00
|
|
|
free(localtext);
|
|
|
|
|
2015-02-03 22:51:55 +03:00
|
|
|
ami_font_bm_close(bmfont);
|
|
|
|
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Find the position in a string where an x coordinate falls.
|
|
|
|
*
|
|
|
|
* \param fstyle style for this text
|
|
|
|
* \param string UTF-8 string to measure
|
|
|
|
* \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
|
|
|
|
*/
|
|
|
|
|
2016-01-15 22:36:12 +03:00
|
|
|
static bool amiga_bm_nsfont_position_in_string(const plot_font_style_t *fstyle,
|
2015-02-03 22:51:55 +03:00
|
|
|
const char *string, size_t length,
|
|
|
|
int x, size_t *char_offset, int *actual_x)
|
|
|
|
{
|
|
|
|
struct TextExtent extent;
|
|
|
|
struct TextFont *bmfont;
|
2016-01-13 21:32:17 +03:00
|
|
|
char *localtext = NULL;
|
2016-01-15 23:43:12 +03:00
|
|
|
UWORD co = 0;
|
2015-02-03 22:51:55 +03:00
|
|
|
|
2015-02-22 19:50:41 +03:00
|
|
|
if((glob == NULL) || (glob->rp == NULL)) return false;
|
|
|
|
|
2015-02-03 22:51:55 +03:00
|
|
|
bmfont = ami_font_bm_open(glob->rp, fstyle);
|
2015-02-22 19:50:41 +03:00
|
|
|
if(bmfont == NULL) return false;
|
|
|
|
|
2016-01-13 21:32:17 +03:00
|
|
|
if(utf8_to_local_encoding(string, length, &localtext) != NSERROR_OK) {
|
|
|
|
ami_font_bm_close(bmfont);
|
|
|
|
return false;
|
|
|
|
}
|
2015-02-03 22:51:55 +03:00
|
|
|
|
2016-01-15 23:43:12 +03:00
|
|
|
co = TextFit(glob->rp, localtext, (UWORD)strlen(localtext),
|
2016-01-13 21:32:17 +03:00
|
|
|
&extent, NULL, 1, x, 32767);
|
|
|
|
*char_offset = ami_font_bm_convert_local_to_utf8_offset(string, length, co);
|
2015-02-03 22:51:55 +03:00
|
|
|
*actual_x = extent.te_Extent.MaxX;
|
|
|
|
|
2016-01-13 21:32:17 +03:00
|
|
|
free(localtext);
|
2015-02-03 22:51:55 +03:00
|
|
|
ami_font_bm_close(bmfont);
|
|
|
|
|
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/**
|
|
|
|
* Find where to split a string to make it fit a width.
|
|
|
|
*
|
|
|
|
* \param fstyle style for this text
|
|
|
|
* \param string UTF-8 string to measure
|
|
|
|
* \param length length of string
|
|
|
|
* \param x width available
|
|
|
|
* \param char_offset updated to offset in string of actual_x, [1..length]
|
|
|
|
* \param actual_x updated to x coordinate of character closest to x
|
|
|
|
* \return true on success, false on error and error reported
|
|
|
|
*
|
|
|
|
* On exit, char_offset indicates first character after split point.
|
|
|
|
*
|
|
|
|
* Note: char_offset of 0 should never be returned.
|
|
|
|
*
|
|
|
|
* Returns:
|
|
|
|
* char_offset giving split point closest to x, where actual_x <= x
|
|
|
|
* else
|
|
|
|
* char_offset giving split point closest to x, where actual_x > x
|
|
|
|
*
|
|
|
|
* Returning char_offset == length means no split possible
|
|
|
|
*/
|
|
|
|
|
2016-01-15 22:36:12 +03:00
|
|
|
static bool amiga_bm_nsfont_split(const plot_font_style_t *fstyle,
|
2015-02-03 22:51:55 +03:00
|
|
|
const char *string, size_t length,
|
|
|
|
int x, size_t *char_offset, int *actual_x)
|
|
|
|
{
|
|
|
|
struct TextExtent extent;
|
2016-01-15 23:43:12 +03:00
|
|
|
UWORD co, offset;
|
2015-02-03 22:51:55 +03:00
|
|
|
char *charp;
|
2016-01-13 21:32:17 +03:00
|
|
|
char *localtext;
|
2015-02-22 19:50:41 +03:00
|
|
|
|
|
|
|
if((glob == NULL) || (glob->rp == NULL)) return false;
|
|
|
|
|
2015-02-03 22:51:55 +03:00
|
|
|
struct TextFont *bmfont = ami_font_bm_open(glob->rp, fstyle);
|
2015-02-22 19:50:41 +03:00
|
|
|
if(bmfont == NULL) return false;
|
|
|
|
|
2016-01-13 21:32:17 +03:00
|
|
|
if(utf8_to_local_encoding(string, length, &localtext) != NSERROR_OK) {
|
|
|
|
ami_font_bm_close(bmfont);
|
|
|
|
return false;
|
|
|
|
}
|
2016-01-21 02:32:19 +03:00
|
|
|
|
2016-01-15 23:43:12 +03:00
|
|
|
offset = TextFit(glob->rp, localtext, (UWORD)strlen(localtext),
|
2016-01-21 02:32:19 +03:00
|
|
|
&extent, NULL, 1, (UWORD)x, 32767);
|
2015-02-03 22:51:55 +03:00
|
|
|
|
2016-01-13 21:32:17 +03:00
|
|
|
co = offset;
|
|
|
|
charp = localtext + co;
|
|
|
|
|
2015-02-03 22:51:55 +03:00
|
|
|
|
2016-01-13 21:32:17 +03:00
|
|
|
while((*charp != ' ') && (co > 0)) {
|
2015-02-03 22:51:55 +03:00
|
|
|
charp--;
|
|
|
|
co--;
|
|
|
|
}
|
|
|
|
|
2016-01-13 21:32:17 +03:00
|
|
|
if(co == 0) {
|
|
|
|
co = offset;
|
|
|
|
charp = localtext + co;
|
|
|
|
while((*charp != ' ') && (co < strlen(localtext))) {
|
|
|
|
charp++;
|
|
|
|
co++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2016-01-15 23:43:12 +03:00
|
|
|
if((co > 0) && (co < strlen(localtext))) {
|
2016-01-16 14:44:03 +03:00
|
|
|
*actual_x = TextLength(glob->rp, localtext, co);
|
2016-01-13 21:32:17 +03:00
|
|
|
*char_offset = ami_font_bm_convert_local_to_utf8_offset(string, length, co);
|
2015-02-03 22:51:55 +03:00
|
|
|
} else {
|
2015-02-28 15:41:50 +03:00
|
|
|
*actual_x = x;
|
|
|
|
*char_offset = length;
|
2015-02-03 22:51:55 +03:00
|
|
|
}
|
|
|
|
|
2016-01-13 21:32:17 +03:00
|
|
|
free(localtext);
|
2016-01-12 00:04:10 +03:00
|
|
|
ami_font_bm_close(bmfont);
|
|
|
|
|
2015-02-03 22:51:55 +03:00
|
|
|
return true;
|
|
|
|
}
|
|
|
|
|
2016-01-15 22:36:12 +03:00
|
|
|
static ULONG amiga_bm_nsfont_text(struct RastPort *rp, const char *string, ULONG length,
|
|
|
|
const plot_font_style_t *fstyle, ULONG dx, ULONG dy, bool aa)
|
2015-02-03 22:51:55 +03:00
|
|
|
{
|
2016-01-15 22:36:12 +03:00
|
|
|
if(!string || string[0]=='\0') return 0;
|
|
|
|
if(!length) return 0;
|
|
|
|
if(rp == NULL) return 0;
|
|
|
|
|
2015-02-03 22:51:55 +03:00
|
|
|
struct TextFont *bmfont = ami_font_bm_open(rp, fstyle);
|
|
|
|
char *localtext = NULL;
|
|
|
|
if(bmfont == NULL) return 0;
|
|
|
|
if(utf8_to_local_encoding(string, length, &localtext) == NSERROR_OK) {
|
|
|
|
Move(rp, dx, dy);
|
2016-01-15 23:43:12 +03:00
|
|
|
Text(rp, localtext, (UWORD)strlen(localtext));
|
2015-02-03 22:51:55 +03:00
|
|
|
free(localtext);
|
|
|
|
}
|
|
|
|
|
2016-01-11 22:16:38 +03:00
|
|
|
ami_font_bm_close(bmfont);
|
|
|
|
|
2015-02-03 22:51:55 +03:00
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2016-01-15 22:36:12 +03:00
|
|
|
const struct ami_font_functions ami_font_diskfont_table = {
|
|
|
|
amiga_bm_nsfont_width,
|
|
|
|
amiga_bm_nsfont_position_in_string,
|
|
|
|
amiga_bm_nsfont_split,
|
|
|
|
amiga_bm_nsfont_text
|
|
|
|
};
|
|
|
|
|
|
|
|
void ami_font_diskfont_init(void)
|
|
|
|
{
|
|
|
|
/* Set up table */
|
|
|
|
ami_nsfont = &ami_font_diskfont_table;
|
|
|
|
}
|
|
|
|
|