// MW-2011-11-23: [[ Array TextStyle ]] Turn the given style on or off in the style
// set.
void MCF_changetextstyle(uint2& x_style_set, Font_textstyle p_style, bool p_new_state)
{
uint2 t_flag;
t_flag = 0;
switch(p_style)
{
case FTS_BOLD:
MCF_setweightstring(x_style_set, p_new_state ? MCSTR("bold") : MCSTR("medium"));
return;
case FTS_CONDENSED:
MCF_setexpandstring(x_style_set, p_new_state ? MCSTR("condensed") : MCSTR("normal"));
return;
case FTS_EXPANDED:
MCF_setexpandstring(x_style_set, p_new_state ? MCSTR("expanded") : MCSTR("normal"));
return;
case FTS_ITALIC:
t_flag = FA_ITALIC;
break;
case FTS_OBLIQUE:
t_flag = FA_OBLIQUE;
break;
case FTS_BOX:
t_flag = FA_BOX;
break;
case FTS_3D_BOX:
t_flag = FA_3D_BOX;
break;
case FTS_UNDERLINE:
t_flag = FA_UNDERLINE;
break;
case FTS_STRIKEOUT:
t_flag = FA_STRIKEOUT;
break;
case FTS_LINK:
t_flag = FA_LINK;
break;
default:
break;
}
if (p_new_state)
x_style_set |= t_flag;
else
x_style_set &= ~t_flag;
}
Exec_stat MCF_parsetextatts(Properties which, MCStringRef data,
uint4 &flags, MCStringRef &fname, uint2 &height,
uint2 &size, uint2 &style)
{
int2 i1;
switch (which)
{
case P_TEXT_ALIGN:
flags &= ~F_ALIGNMENT;
if (MCStringIsEqualToCString(data, MCleftstring, kMCCompareCaseless) || MCStringIsEmpty(data))
flags |= F_ALIGN_LEFT;
else
if (MCStringIsEqualToCString(data, MCcenterstring, kMCCompareCaseless))
flags |= F_ALIGN_CENTER;
else
if (MCStringIsEqualToCString(data, MCrightstring, kMCCompareCaseless))
flags |= F_ALIGN_RIGHT;
else
if (MCStringIsEqualToCString(data, MCjustifystring, kMCCompareCaseless))
flags |= F_ALIGN_JUSTIFY;
else
{
MCeerror->add(EE_OBJECT_BADALIGN, 0, 0, data);
return ES_ERROR;
}
break;
case P_TEXT_FONT:
{// MW-2012-02-17: [[ IntrinsicUnicode ]] Strip any lang tag from the
// fontname.
uindex_t t_offset;
if (MCStringFirstIndexOfChar(data, ',', 0, kMCCompareExact, t_offset))
/* UNCHECKED */ MCStringCopySubstring(data, MCRangeMake(t_offset + 1, MCStringGetLength(data) - (t_offset + 1)), fname);
else
fname = MCValueRetain(data);
}
break;
case P_TEXT_HEIGHT:
if (!MCU_stoi2(data, i1))
{
MCeerror->add
(EE_OBJECT_TEXTHEIGHTNAN, 0, 0, data);
return ES_ERROR;
}
height = i1;
break;
case P_TEXT_SIZE:
if (MCStringIsEmpty(data))
i1 = 0;
else
if (!MCU_stoi2(data, i1))
{
MCeerror->add
(EE_OBJECT_TEXTSIZENAN, 0, 0, data);
return ES_ERROR;
}
size = i1;
break;
case P_TEXT_STYLE:
{
// MW-2012-02-17: [[ SplitTextAttrs ]] If the string is empty, then
// return 0 for the style - indicating to unset the property.
if (MCStringIsEmpty(data))
style = 0;
else
{
style = FA_DEFAULT_STYLE;
uindex_t t_start_pos, t_end_pos;
t_end_pos = 0;
while (t_end_pos < MCStringGetLength(data))
{
t_start_pos = t_end_pos;
// skip spaces at the beginning or after a comma (if any)
MCU_skip_spaces(data, t_start_pos);
uindex_t t_comma;
if (!MCStringFirstIndexOfChar(data, ',', t_start_pos, kMCCompareExact, t_comma))
t_end_pos = MCStringGetLength(data);
else
t_end_pos = t_comma;
MCAutoStringRef tdata;
/* UNCHECKED */ MCStringCopySubstring(data, MCRangeMake(t_start_pos, t_end_pos - t_start_pos), &tdata);
t_end_pos++;
if (MCF_setweightstring(style, *tdata))
continue;
if (MCF_setexpandstring(style, *tdata))
continue;
if (MCF_setslantlongstring(style, *tdata))
continue;
if (MCStringIsEqualToCString(*tdata, MCplainstring, kMCCompareCaseless))
{
style = FA_DEFAULT_STYLE;
continue;
}
if (MCStringIsEqualToCString(*tdata, MCmixedstring, kMCCompareCaseless))
{
style = FA_DEFAULT_STYLE;
continue;
}
if (MCStringIsEqualToCString(*tdata, MCboxstring, kMCCompareCaseless))
{
style &= ~FA_3D_BOX;
style |= FA_BOX;
continue;
}
if (MCStringIsEqualToCString(*tdata, MCthreedboxstring, kMCCompareCaseless))
{
style &= ~FA_BOX;
style |= FA_3D_BOX;
continue;
}
if (MCStringIsEqualToCString(*tdata, MCunderlinestring, kMCCompareCaseless))
{
style |= FA_UNDERLINE;
continue;
}
if (MCStringIsEqualToCString(*tdata, MCstrikeoutstring, kMCCompareCaseless))
{
style |= FA_STRIKEOUT;
continue;
}
if (MCStringIsEqualToCString(*tdata, MCgroupstring, kMCCompareCaseless) || MCStringIsEqualToCString(*tdata, MClinkstring, kMCCompareCaseless))
{
style |= FA_LINK;
continue;
}
MCeerror->add(EE_OBJECT_BADSTYLE, 0, 0, data);
return ES_ERROR;
}
}
}
break;
default:
break;
}
return ES_NORMAL;
}
Exec_stat MCF_parsetextatts(Properties which, const MCString &data,
uint4 &flags, char *&fname, uint2 &height,
uint2 &size, uint2 &style)
{
int2 i1;
switch (which)
{
case P_TEXT_ALIGN:
flags &= ~F_ALIGNMENT;
if (data == MCleftstring || data.getlength() == 0)
flags |= F_ALIGN_LEFT;
else
if (data == MCcenterstring)
flags |= F_ALIGN_CENTER;
else
if (data == MCrightstring)
flags |= F_ALIGN_RIGHT;
else
if (data == MCjustifystring)
flags |= F_ALIGN_JUSTIFY;
else
{
MCeerror->add(EE_OBJECT_BADALIGN, 0, 0, data);
return ES_ERROR;
}
break;
case P_TEXT_FONT:
{
fname = data.clone();
// MW-2012-02-17: [[ IntrinsicUnicode ]] Strip any lang tag from the
// fontname.
char *t_tag;
t_tag = strchr(fname, ',');
if (t_tag != nil)
t_tag[0] = '\0';
}
break;
case P_TEXT_HEIGHT:
if (!MCU_stoi2(data, i1))
{
MCeerror->add
(EE_OBJECT_TEXTHEIGHTNAN, 0, 0, data);
return ES_ERROR;
}
height = i1;
break;
case P_TEXT_SIZE:
if (data.getlength() == 0)
i1 = 0;
else
if (!MCU_stoi2(data, i1))
{
MCeerror->add
(EE_OBJECT_TEXTSIZENAN, 0, 0, data);
return ES_ERROR;
}
size = i1;
break;
case P_TEXT_STYLE:
{
// MW-2012-02-17: [[ SplitTextAttrs ]] If the string is empty, then
// return 0 for the style - indicating to unset the property.
uint4 l = data.getlength();
const char *sptr = data.getstring();
if (l == 0)
style = 0;
else
{
style = FA_DEFAULT_STYLE;
while (l)
{
const char *startptr = sptr;
if (!MCU_strchr(sptr, l, ','))
{
sptr += l;
l = 0;
}
MCString tdata(startptr, sptr - startptr);
MCU_skip_char(sptr, l);
MCU_skip_spaces(sptr, l);
if (MCF_setweightstring(style, tdata))
continue;
if (MCF_setexpandstring(style, tdata))
continue;
if (MCF_setslantlongstring(style, tdata))
continue;
if (tdata == MCplainstring)
{
style = FA_DEFAULT_STYLE;
continue;
}
if (tdata == MCmixedstring)
{
style = FA_DEFAULT_STYLE;
continue;
}
if (tdata == MCboxstring)
{
style &= ~FA_3D_BOX;
style |= FA_BOX;
continue;
}
if (tdata == MCthreedboxstring)
{
style &= ~FA_BOX;
style |= FA_3D_BOX;
continue;
}
if (tdata == MCunderlinestring)
{
style |= FA_UNDERLINE;
continue;
}
if (tdata == MCstrikeoutstring)
{
style |= FA_STRIKEOUT;
continue;
}
if (tdata == MCgroupstring || tdata == MClinkstring)
{
style |= FA_LINK;
continue;
}
MCeerror->add(EE_OBJECT_BADSTYLE, 0, 0, data);
return ES_ERROR;
}
}
}
break;
default:
break;
}
return ES_NORMAL;
}