/* Copyright (C) 2003-2013 Runtime Revolution Ltd.

This file is part of LiveCode.

LiveCode is free software; you can redistribute it and/or modify it under

the terms of the GNU General Public License v3 as published by the Free

Software Foundation.

LiveCode 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 LiveCode. If not see <http://www.gnu.org/licenses/>. */

#include "prefix.h"

#include "core.h"

#include "globdefs.h"

#include "filedefs.h"

#include "parsedef.h"

#include "objdefs.h"

#include "mcio.h"

#include "globals.h"

#include "stack.h"

#include "field.h"

#include "image.h"

#include "paragraf.h"

#include "line.h"

#include "block.h"

#include "util.h"

#include "context.h"

#include "unicode.h"

#include "mctheme.h"

#include "font.h"

#include "path.h"

// Default MCBlock constructor - makes a block with everything initialized

// to zero.

MCBlock::MCBlock(void)

{

parent = NULL;

flags = F_CLEAR;

atts = NULL;

index = size = 0;

width = 0;

opened = 0;

// MW-2012-02-14: [[ FontRefs ]] The font for the block starts off nil.

m_font = nil;

}

// MCBlock copy constructor - copy an existing block.

// Note that this copies everything except the linkage and opened state.

MCBlock::MCBlock(const MCBlock &bref) : MCDLlist(bref)

{

parent = bref.parent;

flags = bref.flags;

if (flags & F_HAS_ATTS)

{

atts = new Blockatts;

if (flags & F_HAS_COLOR)

{

atts->color = new MCColor;

*atts->color = *bref.atts->color;

}

if (flags & F_HAS_BACK_COLOR)

{

atts->backcolor = new MCColor;

*atts->backcolor = *bref.atts->backcolor;

}

// MW-2012-02-17: [[ SplitTextAttrs ]] Copy across the font attrs the other

// block has.

if ((flags & F_HAS_FNAME) != 0)

/* UNCHECKED */ MCNameClone(bref.atts->fontname, atts -> fontname);

if ((flags & F_HAS_FSIZE) != 0)

atts -> fontsize = bref . atts -> fontsize;

if ((flags & F_HAS_FSTYLE) != 0)

atts -> fontstyle = bref . atts -> fontstyle;

atts->shift = bref.atts->shift;

// MW-2012-01-06: [[ Block Changes ]] Change linktext/imagesource to be names.

if (flags & F_HAS_LINK)

/* UNCHECKED */ MCNameClone(bref.atts->linktext, atts->linktext);

if (flags & F_HAS_IMAGE)

/* UNCHECKED */ MCNameClone(bref.atts->imagesource, atts->imagesource);

// MW-2012-01-6: [[ Block Metadata ]] Copy the metadata (if any).

if (flags & F_HAS_METADATA)

/* UNCHECKED */ MCNameClone(bref.atts->metadata, atts->metadata);

}

else

atts = NULL;

index = bref.index;

size = bref.size;

width = 0;

opened = 0;

// MW-2012-02-14: [[ FontRefs ]] The font for the block starts off nil.

m_font = nil;

}

// MCBlock deconstructor - frees all associated data structures.

MCBlock::~MCBlock()

{

while (opened)

close();

if (atts != NULL)

freeatts();

}

bool MCBlock::visit(MCVisitStyle p_style, uint32_t p_part, MCObjectVisitor *p_visitor)

{

return p_visitor -> OnBlock(this);

}

// MW-2012-03-04: [[ StackFile5500 ]] If 'is_ext' is true then the record is an extended

// record.

IO_stat MCBlock::load(IO_handle stream, const char *version, bool is_ext)

{

IO_stat stat;

// MW-2012-03-04: [[ StackFile5500 ]] If this is an extended block, then work out

// where to skip to when all the attrs currently recognized have been read.

int64_t t_attr_end;

if (is_ext)

{

// Read the size.

uint32_t t_size;

if ((stat = IO_read_uint2or4(&t_size, stream)) != IO_NORMAL)

return stat;

// The end is the current stream position + the size of the attrs.

t_attr_end = MCS_tell(stream) + t_size;

}

if ((stat = IO_read_uint4(&flags, stream)) != IO_NORMAL)

return stat;

// MW-2012-03-04: [[ StackFile5500 ]] If this isn't an extended block, then strip the

// metadata flag.

if (!is_ext)

flags &= ~F_HAS_METADATA;

// MW-2012-01-26: [[ FlaggedField ]] Make sure we ignore the setting of FLAGGED flag.

flags &= ~F_FLAGGED;

if (atts == NULL)

atts = new Blockatts;

// MW-2012-02-17: [[ SplitTextAttrs ]] If the font flag is present, it means there

// is a font record to read.

if (flags & F_FONT)

if (strncmp(version, "1.3", 3) > 0)

{

uint2 t_font_index;

if ((stat = IO_read_uint2(&t_font_index, stream)) != IO_NORMAL)

return stat;

// MW-2012-02-17: [[ LogFonts ]] Map the font index we have to the font attrs.

// Note that we ignore the 'unicode' tag since that is encoded in flags.

MCNameRef t_fontname;

uint2 t_fontstyle, t_fontsize;

bool t_is_unicode;

MCLogicalFontTableLookup(t_font_index, t_fontname, t_fontstyle, t_fontsize, t_is_unicode);

// MW-2012-02-17: [[ SplitTextAttrs ]] Only set the font attrs if they are

// not inherited.

if (!getflag(F_INHERIT_FNAME))

MCNameClone(t_fontname, atts -> fontname);

if (!getflag(F_INHERIT_FSIZE))

atts -> fontsize = t_fontsize;

if (!getflag(F_INHERIT_FSTYLE))

atts -> fontstyle = t_fontstyle;

}

else

{

// MW_2012-02-17: [[ LogFonts ]] Read a nameref directly.

if ((stat = IO_read_nameref(atts->fontname, stream)) != IO_NORMAL)

return stat;

if ((stat = IO_read_uint2(&atts->fontsize, stream)) != IO_NORMAL)

return stat;

if ((stat = IO_read_uint2(&atts->fontstyle, stream)) != IO_NORMAL)

return stat;

// MW-2012-02-17; [[ SplitTextAttrs ]] All the font attrs are set.

flags |= F_FATTR_MASK;

}

if (flags & F_HAS_COLOR)

{

atts->color = new MCColor;

if ((stat = IO_read_mccolor(*atts->color, stream)) != IO_NORMAL)

return stat;

if (flags & F_HAS_COLOR_NAME)

{

// MW-2012-01-06: [[ Block Changes ]] We no longer use the color name

// so load, delete and unset the flag.

char *colorname;

if ((stat = IO_read_string(colorname, stream)) != IO_NORMAL)

return stat;

delete colorname;

flags &= ~F_HAS_COLOR_NAME;

}

}

if (flags & F_HAS_BACK_COLOR)

{

atts->backcolor = new MCColor;

if ((stat = IO_read_mccolor(*atts->backcolor, stream)) != IO_NORMAL)

return stat;

if (strncmp(version, "2.0", 3) < 0 || flags & F_HAS_BACK_COLOR_NAME)

{

// MW-2012-01-06: [[ Block Changes ]] We no longer use the backcolor name

// so load, delete and unset the flag.

char *backcolorname;

if ((stat = IO_read_string(backcolorname, stream)) != IO_NORMAL)

return stat;

delete backcolorname;

flags &= ~F_HAS_BACK_COLOR_NAME;

}

}

if (flags & F_HAS_SHIFT)

if ((stat = IO_read_int2(&atts->shift, stream)) != IO_NORMAL)

return stat;

// MW-2012-01-06: [[ Block Changes ]] Change linktext/imagesource to be names.

if (flags & F_HAS_LINK)

if ((stat = IO_read_nameref(atts->linktext, stream)) != IO_NORMAL)

return stat;

if (flags & F_HAS_IMAGE)

if ((stat = IO_read_nameref(atts->imagesource, stream)) != IO_NORMAL)

return stat;

// MW-2012-03-04: [[ StackFile5500 ]] If there is a metadata attr then read

// it in.

if (flags & F_HAS_METADATA)

if ((stat = IO_read_nameref(atts->metadata, stream)) != IO_NORMAL)

return stat;

// MW-2012-03-04: [[ StackFile5500 ]] If this is an extended block, then skip

// to the end of the attrs record.

if (is_ext)

if ((stat = MCS_seek_set(stream, t_attr_end)) != IO_NORMAL)

return stat;

if ((stat = IO_read_uint2(&index, stream)) != IO_NORMAL)

return stat;

if ((stat = IO_read_uint2(&size, stream)) != IO_NORMAL)

return stat;

// MW-2012-02-17: [[ SplitTextAttrs ]] Adjust the flags to their in-memory

// representation. We ditch F_FONT because it is superceeded by the HAS_F*

// flags.

if (getflag(F_FONT))

{

flags &= ~F_FONT;

flags = (flags & ~F_FATTR_MASK) | (~(flags & F_FATTR_MASK) & F_FATTR_MASK);

}

else

flags &= ~F_FATTR_MASK;

// MW-2012-02-17: [[ SplitTextAttrs ]] If the block has no atts flags set

// then clear the atts struct.

if ((flags & F_HAS_ATTS) == 0)

{

delete atts;

atts = nil;

}

return IO_NORMAL;

}

IO_stat MCBlock::save(IO_handle stream, uint4 p_part)

{

IO_stat stat;

// MW-2012-03-04: [[ StackFile5500 ]] If the block has metadata and 5.5 stackfile

// format has been requested then this is an extended block.

bool t_is_ext;

if (MCstackfileversion >= 5500 && getflag(F_HAS_METADATA))

t_is_ext = true;

else

t_is_ext = false;

// MW-2012-03-04: [[ StackFile5500 ]] If this is an extended block then use the EXT

// tag.

if ((stat = IO_write_uint1(t_is_ext ? OT_BLOCK_EXT : OT_BLOCK, stream)) != IO_NORMAL)

return stat;

// MW-2012-03-04: [[ StackFile5500 ]] If this is an extended block then write out

// the length of the attrs.

if (t_is_ext)

if ((stat = IO_write_uint2or4(measureattrs(), stream)) != IO_NORMAL)

return stat;

uint4 oldflags = flags;

// MW-2012-01-06: [[ StackFile5500 ]] If this isn't an extended block, then remove

// the metadata flag.

if (!t_is_ext)

flags &= ~F_HAS_METADATA;

flags &= ~F_VISITED;

// MW-2012-01-26: [[ FlaggedField ]] Make sure we don't save the flagged flag.

flags &= ~F_FLAGGED;

// MW-2012-02-17: [[ SplitTextAttrs ]] If we have unicode, or one of the font attr are

// set then we must serialize a font.

if ((flags & (F_FATTR_MASK | F_HAS_UNICODE)) != 0)

{

// Add in the font record flag.

flags |= F_FONT;

// Invert the font attr flags (from has to inherit).

flags = (flags & ~F_FATTR_MASK) | (~(flags & F_FATTR_MASK) & F_FATTR_MASK);

}

if ((stat = IO_write_uint4(flags, stream)) != IO_NORMAL)

return stat;

flags = oldflags;

// MW-2012-02-17: [[ SplitTextAttrs ]] If any one of the font attrs are set, or we

// are unicode we must serialize a font.

if ((flags & (F_FATTR_MASK | F_HAS_UNICODE)) != 0)

{

// MW-2012-02-17: [[ SplitTextAttrs ]] Compute the attrs to write out.

MCNameRef t_fontname;

uint2 t_fontstyle, t_fontsize;

getfontattrs(nil, t_fontname, t_fontsize, t_fontstyle);

// MW-2012-02-17: [[ LogFonts ]] Map the font attrs to the appropriate font

// index and write.

uint2 t_font_index;

t_font_index = MCLogicalFontTableMap(t_fontname, t_fontstyle, t_fontsize, hasunicode());

if ((stat = IO_write_uint2(t_font_index, stream)) != IO_NORMAL)

return stat;

}

if (flags & F_HAS_COLOR)

if ((stat = IO_write_mccolor(*atts->color, stream)) != IO_NORMAL)

return stat;

if (flags & F_HAS_BACK_COLOR)

if ((stat = IO_write_mccolor(*atts->backcolor, stream)) != IO_NORMAL)

return stat;

if (flags & F_HAS_SHIFT)

if ((stat = IO_write_int2(atts->shift, stream)) != IO_NORMAL)

return stat;

// MW-2012-01-06: [[ Block Changes ]] Change linktext/imagesource to be names.

if (flags & F_HAS_LINK)

if ((stat = IO_write_nameref(atts->linktext, stream)) != IO_NORMAL)

return stat;

if (flags & F_HAS_IMAGE)

if ((stat = IO_write_nameref(atts->imagesource, stream)) != IO_NORMAL)

return stat;

// MW-2012-03-04: [[ StackFile5500 ]] If this is an extended block then emit the

// new attributes.

if (t_is_ext)

{

if (flags & F_HAS_METADATA)

if ((stat = IO_write_nameref(atts -> metadata, stream)) != IO_NORMAL)

return stat;

}

if ((stat = IO_write_uint2(index, stream)) != IO_NORMAL)

return stat;

if ((stat = IO_write_uint2(size, stream)) != IO_NORMAL)

return stat;

return IO_NORMAL;

}

void MCBlock::open(MCFontRef p_parent_font)

{

if (opened++ != 0)

return;

// MW-2012-02-14: [[ FontRefs ]] Map the font for the block.

mapfont(p_parent_font);

if (flags & F_HAS_COLOR)

MCscreen->alloccolor(*atts->color);

if (flags & F_HAS_BACK_COLOR)

MCscreen->alloccolor(*atts->backcolor);

openimage();

width = 0;

}

void MCBlock::close()

{

if (opened == 0 || --opened != 0)

return;

closeimage();

// MW-2012-02-14: [[ FontRefs ]] Unmap the font for the block.

unmapfont();

}

// MW-2012-02-14: [[ FontRefs ]] This method computes the fontref for the block.

void MCBlock::mapfont(MCFontRef p_parent_font)

{

// If we have no font attrs set, then we just copy the parent font.

if (!hasfontattrs())

{

m_font = MCFontRetain(p_parent_font);

return;

}

// MW-2012-02-17: [[ SplitTextAttrs ]] Compute the attrs to write out. If we don't

// have all of the attrs, fetch the inherited ones.

MCNameRef t_textfont;

uint2 t_textstyle, t_textsize;

getfontattrs(nil, t_textfont, t_textsize, t_textstyle);

// Compute the font style from the text style.

MCFontStyle t_font_style;

t_font_style = MCFontStyleFromTextStyle(t_textstyle);

// If the parent font had printer metrics, then make sure we have them too.

if (MCFontHasPrinterMetrics(p_parent_font))

t_font_style |= kMCFontStylePrinterMetrics;

// Create the fontref.

/* UNCHECKED */ MCFontCreate(t_textfont, t_font_style, t_textsize, m_font);

}

// MW-2012-02-14: [[ FontRefs ]] This method delete the fontref associated with the block.

void MCBlock::unmapfont(void)

{

MCFontRelease(m_font);

m_font = nil;

}

// MW-2012-02-14: [[ FontRefs ]] This method updates the current fontref associated with the

// block, returning 'true' if it has changed.

bool MCBlock::recomputefonts(MCFontRef p_parent_font)

{

// If there are no font attributes, then we are updating to the parent font.

if (!hasfontattrs())

{

// If the font is the same as the parent font already then there is nothing to do.

if (m_font == p_parent_font)

return false;

// Otherwise change the current fontref for a copy of the parent fontref.

MCFontRelease(m_font);

m_font = MCFontRetain(p_parent_font);

width = 0;

// As we changed fontref, return 'true'.

return true;

}

// Take a copy of the current font.

MCFontRef t_current_font;

t_current_font = MCFontRetain(m_font);

// Unmap the current fontref, then map again.

unmapfont();

mapfont(p_parent_font);

// We've only changed if the new font is different from the old fontref.

bool t_changed;

t_changed = m_font != t_current_font;

// Get rid of the temporary copy of the old font we took.

MCFontRelease(t_current_font);

if (t_changed)

width = 0;

// Return the result of the operation.

return t_changed;

}

// MW-2012-02-06: [[ Bug ]] The 'flagged' property was causing multiple (identical)

// runs in the styledText format. To rectify this, the 'persistent_only' param

// indicates whether the comparison is for persistence (styledText) or for in-

// memory processing (defrag).

Boolean MCBlock::sameatts(MCBlock *bptr, bool p_persistent_only)

{

// Check to see if a subset of the flags are the same, if they aren't the

// blocks are not the same. Notice that in 'persistent' mode (used by

// styledText generation) we exclude the transient flags. We need to keep

// the latter in the case of 'defrag()' as technically they are different

// runs from that point of view.

// MW-2012-02-13: [[ Block Unicode ]] Make sure both blocks have the same

// 'unicode' flag.

// MW-2012-02-17: [[ SplitTextAttrs ]] Check for all the fattr rather than

// font.

uint32_t t_flags;

t_flags = F_HAS_ALL_FATTR | F_HAS_COLOR | F_HAS_METADATA | F_HAS_SHIFT | F_HAS_BACK_COLOR | F_HAS_LINK | F_HAS_UNICODE;

if (!p_persistent_only)

t_flags |= F_HILITED | F_FLAGGED | F_VISITED;

// If the flags don't match, we can't be the same.

if ((flags & t_flags) != (bptr -> flags & t_flags))

return False;

// If either block has an image, we treat them as different blocks.

if (flags & F_HAS_IMAGE || bptr->flags & F_HAS_IMAGE)

return False;

// MW-2012-02-17: [[ SplitTextAttrs ]] CHeck to see if all the font attrs

// match in turn.

if ((flags & F_HAS_FNAME) != 0 && (atts -> fontname != bptr -> atts -> fontname))

return False;

if ((flags & F_HAS_FSTYLE) != 0 && (atts -> fontstyle != bptr -> atts -> fontstyle))

return False;

if ((flags & F_HAS_FSIZE) != 0 && (atts -> fontsize != bptr -> atts -> fontsize))

return False;

// If the linkTexts are not the same, the blocks are different. Notice that

// we do a pointer comparison - these are 'Names' and as such are identical

// iff they are the same pointer.

if (getlinktext() != bptr -> getlinktext())

return False;

// If the metadatas are not the same, the blocks are different. Notice that

// we do a pointer comparison - these are 'Names' and as such are identical

// iff they are the same pointer.

if (getmetadata() != bptr -> getmetadata())

return False;

// If we have a color set, then make sure it matches the other block.

if ((flags & F_HAS_COLOR) != 0 &&

(bptr->atts->color->red != atts->color->red ||

bptr->atts->color->green != atts->color->green ||

bptr->atts->color->blue != atts->color->blue))

return False;

// If we have a backColor set, then make sure it matches the other block.

if ((flags & F_HAS_BACK_COLOR) != 0 &&

(bptr->atts->backcolor->red != atts->backcolor->red ||

bptr->atts->backcolor->green != atts->backcolor->green ||

bptr->atts->backcolor->blue != atts->backcolor->blue))

return False;

// If we have a shift set, then make sure it matches the other block.

if ((flags & F_HAS_SHIFT) != 0 &&

(bptr -> atts -> shift != atts -> shift))

return False;

// Everything matches, so these two blocks must be the same.

return True;

}

static bool MCUnicodeCanBreakBetween(uint2 x, uint2 y)

{

if (x < 256 && isspace(x))

return true;

bool t_xid;

t_xid = MCUnicodeCodepointIsIdeographic(x);

bool t_yid;

t_yid = MCUnicodeCodepointIsIdeographic(y);

if (!t_xid && !t_yid)

return false;

bool t_prohibit_break_after_x;

t_prohibit_break_after_x = (MCUnicodeCodepointGetBreakClass(x) & 2) != 0;

bool t_prohibit_break_before_y;

t_prohibit_break_before_y = (MCUnicodeCodepointGetBreakClass(y) & 1) != 0;

return !t_prohibit_break_after_x && !t_prohibit_break_before_y;

}

bool MCBlock::fit(int2 x, uint2 maxwidth, uint2& r_break_index, bool& r_break_fits)

{

// If the block of zero length, then it can't be broken and must be kept with previous blocks.

if (size == 0)

{

if (next() != parent -> getblocks())

r_break_fits = false;

else

r_break_fits = true;

r_break_index = index;

return true;

}

if ((flags & F_HAS_IMAGE) && atts -> image != NULL)

{

r_break_index = index + size;

r_break_fits = getwidth(NULL, x) <= maxwidth;

return r_break_fits;

}

const char *text;

text = parent -> gettext();

// Fetch the first character of the next block

int4 t_next_block_char;

MCBlock *t_next_block;

t_next_block = next();

if (t_next_block != parent -> getblocks())

{

if (t_next_block -> getsize() == 0)

t_next_block_char = -2;

else if (t_next_block -> hasunicode())

t_next_block_char = *(uint2 *)&text[t_next_block -> index];

else

t_next_block_char = MCUnicodeMapFromNative(text[t_next_block -> index]);

}

else

t_next_block_char = -1;

// If this is a text block and we fit inside maxwidth fully then check

// for a break point at the end.

if (getwidth(NULL, x) <= maxwidth)

{

uint2 t_last_char, t_break_index;

if (hasunicode() && (size & 1) == 0)

t_last_char = *(uint2 *)&text[index + size - 2], t_break_index = index + size - 2;

else

t_last_char = MCUnicodeMapFromNative(text[index + size - 1]), t_break_index = index + size - 1;

// If this is the last block, or we can break between this and the

// next block, return the end point.

if (t_next_block_char != -2)

{

if (t_next_block_char == -1 || MCUnicodeCanBreakBetween(t_last_char, t_next_block_char))

{

r_break_index = index + size;

r_break_fits = true;

return true;

}

}

// Compute the last possible break position in the block by looping

// back over the characters;

if (t_break_index > index)

{

do

{

uint2 i;

i = t_break_index;

uint2 t_prev_char;

if (hasunicode())

{

i -= 2;

t_prev_char = *(uint2 *)&text[i];

}

else

{

i -= 1;

t_prev_char = MCUnicodeMapFromNative(text[i]);

}

if (MCUnicodeCanBreakBetween(t_prev_char, t_last_char))

break;

t_break_index = i;

t_last_char = t_prev_char;

}

while(t_break_index > index);

}

r_break_index = t_break_index;

r_break_fits = true;

return true;

}

// We don't completely fit within maxwidth, so compute the last break point in

// the block by measuring

int4 twidth;

twidth = 0;

// MW-2009-04-23: [[ Bug ]] For printing, we measure complete runs of text otherwise we get

// positioning issues.

int4 t_last_break_width;

t_last_break_width = 0;

uint2 t_last_break_i;

t_last_break_i = index;

uint2 i;

i = index;

int4 t_next_char;

if (hasunicode())

t_next_char = *(uint2 *)&text[i];

else

t_next_char = (uint2)MCUnicodeMapFromNative(text[i]);

uint2 t_break_index;

t_break_index = index;

bool t_can_fit;

t_can_fit = false;

while(i < index + size)

{

uint2 t_this_char;

t_this_char = (uint2)t_next_char;

if (hasunicode())

{

if (i + 2 < index + size)

t_next_char = *(uint2 *)&text[i + 2];

else

t_next_char = t_next_block_char;

}

else

{

if (i + 1 < index + size)

t_next_char = (uint2)MCUnicodeMapFromNative(text[i + 1]);

else

t_next_char = t_next_block_char;

}

bool t_can_break;

t_can_break = false;

uint4 next_i;

next_i = i + indexincrement(i);

if (t_this_char == '\t')

{

twidth += gettabwidth(x + twidth, text, i);

t_last_break_width = twidth;

t_last_break_i = next_i;

// We can always break after a tab

t_can_break = true;

}

else

{

#ifdef _IOS_MOBILE

// MW-2012-02-01: [[ Bug 9982 ]] iOS uses sub-pixel positioning, so make sure we measure

// complete runs.

twidth = t_last_break_width + MCFontMeasureText(m_font, &text[t_last_break_i], next_i - t_last_break_i, hasunicode());

#else

#ifdef TARGET_PLATFORM_WINDOWS

// MW-2009-04-23: [[ Bug ]] For printing, we measure complete runs of text otherwise we get

// positioning issues.

if (MCFontHasPrinterMetrics(m_font))

twidth = t_last_break_width + MCFontMeasureText(m_font, &text[t_last_break_i], next_i - t_last_break_i, hasunicode());

else

#endif

twidth += MCFontMeasureText(m_font, &text[i], next_i - i, hasunicode());

#endif

if (t_next_char == -1 || MCUnicodeCanBreakBetween(t_this_char, t_next_char))

t_can_break = true;

}

i = next_i;

if (t_can_fit && twidth > maxwidth)

break;

if (t_can_break)

{

t_break_index = i;

if (twidth <= maxwidth)

t_can_fit = true;

if (twidth >= maxwidth)

break;

}

}

// We now have a suitable break point in t_break_index. This could be index if

// there are none in the block. We now loop forward until we get to the end of

// any suitable run of spaces.

while(t_break_index < index + size && textisspace(&text[t_break_index]))

t_break_index += indexincrement(t_break_index);

r_break_fits = t_can_fit;

r_break_index = t_break_index;

return false;

}

void MCBlock::split(uint2 p_index)

{

MCBlock *bptr = new MCBlock(*this);

uint2 newlength = size - (p_index - index);

bptr->setindex(parent -> gettext(), p_index, newlength);

size -= newlength;

width = 0;

// MW-2012-02-13: [[ Block Unicode ]] Only open the new block if the original

// was already open.

// MW-2012-02-14: [[ FontRefs ]] Pass in the parent fontref so the block can

// compute its fontref.

if (opened)

bptr->open(parent -> getparent() -> getfontref());

append(bptr);

}

// Compute the distance between x and the next tab stop position.

int2 MCBlock::gettabwidth(int2 x, const char *text, uint2 i)

{

uint2 *tabs;

uint2 ntabs;

Boolean fixed;

// MW-2012-01-25: [[ ParaStyles ]] Fetch the tab-stops from the owning paragraph.

parent->gettabs(tabs, ntabs, fixed);

// The tabs are 'fixed' if VGRID is set - I presume this also prevents wrapping

// but who can really say!

if (fixed)

{

const char *cptr = text;

uint2 ctab = 0;

uint2 cindex = 0;

// Count the number of preceeding tabs in the paragraph.

MCBlock *t_block;

t_block = parent -> getblocks();

uint2 j;

j = 0;

while(j < i)

{

if (t_block -> getflag(F_HAS_TAB))

{

uint2 k;

k = t_block -> getindex() + t_block -> getsize();

while(j < k && j < i)

{

if (t_block -> textcomparechar(&cptr[j], '\t'))

ctab++;

j += t_block -> indexincrement(j);

}

}

else

j = t_block -> getindex() + t_block -> getsize();

t_block = t_block -> next();

}

// At this point 'ctab' contains the number of tab characters before

// the one gettabwidth was called with - i.e. the 0-based index

// of the tab we started with.

int2 newloc;

if (ctab < ntabs)

{

// The tab array stores absolute positions of each tab from the

// left of the field.

newloc = tabs[ctab];

}

else

{

// We have requested a tab beyond the end of the tab array, so

// we use the length of the last tab as the length of every successive

// tab.

uint2 diff;

if (ntabs == 1)

diff = tabs[0];

else

diff = tabs[ntabs - 1] - tabs[ntabs - 2];

newloc = tabs[ntabs - 1] + diff * (ctab - ntabs + 1);

}

// If the position of the current tab co-incides with the last x position then

// adjust upward by one to ensure we don't overwrite anything (legacy behavior).

if (newloc == x)

return 1;

// The width of the tab is absolute position of the tab minus the x position of

// the left hand-side of the passed in tab character.

return newloc - x;

}

else

{

int2 lasttab = 0;

uint2 i = 0;

// Loop through the tab array and find the first tab to the right of x.

while (i < ntabs && x >= lasttab)

{

lasttab = tabs[i];

i++;

}

if (x >= lasttab && ntabs != 0)

{

// If x is further right than (or is at) the last tab then the tab position

// is the first multiple of the last difference after the last tab which is

// beyond x.

uint2 diff;

if (ntabs == 1)

diff = tabs[0];

else

diff = tabs[ntabs - 1] - tabs[ntabs - 2];

// MW-2012-09-19: [[ Bug 10239 ]] The tab difference can now be zero, in

// the non-vGrid case, if this is the case then just take lasttab to be

// x.

if (diff != 0)

lasttab = tabs[ntabs - 1] + diff * ((x - tabs[ntabs - 1]) / diff + 1);

else

lasttab = x;

}

// Adjust by 1 if the last tab is x

if (lasttab == x)

return 1;

// Return the difference between x and the last tab.

return lasttab - x;

}

}

void MCBlock::drawstring(MCDC *dc, int2 x, int2 cx, int2 y, uint2 start, uint2 length, Boolean image, uint32_t style)

{

// MW-2012-02-16: [[ FontRefs ]] Fetch the font metrics we need to draw.

int32_t t_ascent, t_descent;

t_ascent = MCFontGetAscent(m_font);

t_descent = MCFontGetDescent(m_font);

// MW-2012-01-25: [[ ParaStyles ]] Fetch the vGrid setting from the owning paragraph.

if (parent -> getvgrid())

{

const char *t_text;

t_text = parent -> gettext();

// MW-2012-02-09: [[ ParaStyles ]] Fetch the padding setting from the owning paragraph.

// MW-2012-03-19: [[ Bug 10069 ]] Use the horiztonal padding value here.

int32_t t_padding;

t_padding = parent -> gethpadding();

MCRectangle t_old_clip;

t_old_clip = dc -> getclip();

MCRectangle t_cell_clip;

t_cell_clip = t_old_clip;

int32_t t_delta;

t_delta = cx - x;

uint2 t_index;

t_index = start;

while(t_index < start + length)

{

const char *t_next_tab;

t_next_tab = textstrchr(t_text + t_index, start + length - t_index, '\t');

uint2 t_next_index;

if (t_next_tab == nil)

t_next_index = start + length;

else

t_next_index = t_next_tab - t_text;

int2 t_tab_width;

t_tab_width = gettabwidth(0, t_text, t_index);

uint2 t_cell_right;

t_cell_right = t_tab_width - t_delta;

uint2 t_width;

t_width = MCFontMeasureText(m_font, t_text + t_index, t_next_index - t_index, hasunicode());

// MW-2012-02-09: [[ ParaStyles ]] Compute the cell clip, taking into account padding.

t_cell_clip . x = x - 1;

t_cell_clip . width = MCU_max(t_cell_right - x - t_padding * 2, 0);

t_cell_clip = MCU_intersect_rect(t_cell_clip, t_old_clip);

dc -> setclip(t_cell_clip);

MCFontDrawText(m_font, t_text + t_index, t_next_index - t_index, hasunicode(), dc, x, y, image == True);

// Only draw the various boxes/lines if there is any content.

if (t_next_index - t_index > 0)

{

if ((style & FA_UNDERLINE) != 0)

dc -> drawline(x, y + 1, x + t_width, y + 1);

if ((style & FA_STRIKEOUT) != 0)

dc -> drawline(x, y - (t_ascent >> 1), x + t_width, y - (t_ascent >> 1));

if ((style & FA_BOX) != 0)

{

// MW-2012-09-04: [[ Bug 9759 ]] Adjust any pattern origin to scroll with text.

parent -> getparent() -> setforeground(dc, DI_BORDER, False, True);

parent -> getparent() -> adjustpixmapoffset(dc, DI_BORDER);

MCRectangle trect = { x - 1, y - t_ascent, t_width + 3, t_ascent + t_descent };

dc->drawrect(trect);

parent -> getparent() -> setforeground(dc, DI_FORE, False, True);

}

else if ((style & FA_3D_BOX) != 0)

{

MCRectangle trect = { x - 1, y - t_ascent, t_width + 2, t_ascent + t_descent };

parent -> getparent() -> draw3d(dc, trect, ETCH_RAISED, 1);

parent -> getparent() -> setforeground(dc, DI_FORE, False, True);

}

}

x += t_width;