lyx_mirror/src/insets/insetlatexaccent.C

800 lines
20 KiB
C++
Raw Normal View History

/* This file is part of
* ======================================================
*
* LyX, The Document Processor
*
* Copyright 1995 Matthias Ettrich
* Copyright 1995-2000 The LyX Team.
*
* ====================================================== */
#include <config.h>
#ifdef __GNUG__
#pragma implementation
#endif
#include "insetlatexaccent.h"
#include "debug.h"
#include "lyxrc.h"
#include "support/lstrings.h"
#include "Painter.h"
#include "font.h"
using std::ostream;
using std::endl;
/* LatexAccent. Proper handling of accented characters */
/* This part is done by Ivan Schreter, schreter@ccsun.tuke.sk */
/* Later modified by Lars G. Bj<42>nnes, larsbj@lyx.org */
InsetLatexAccent::InsetLatexAccent()
{
candisp = false;
}
InsetLatexAccent::InsetLatexAccent(string const & string)
: contents(string)
{
checkContents();
}
void InsetLatexAccent::checkContents()
// check, if we know the modifier and can display it ok on screen
{
candisp = false;
if (contents.empty() || contents.length() < 2) return;
// REMOVE IN 0.13
// Dirty Hack for backward compability. remove in 0.13 (Lgb)
contents = frontStrip(strip(contents));
if (!contains(contents, "{") && !contains(contents, "}")) {
if (contents.length() == 2) {
string tmp;
tmp += contents[0];
tmp += contents[1];
tmp += "{}";
contents = tmp;
} else if (contents.length() == 3) {
string tmp;
tmp += contents[0];
tmp += contents[1];
tmp += '{';
tmp += contents[2];
tmp += '}';
contents = tmp;
} else if (contents.length() == 4 && contents[2] == ' ') {
string tmp;
tmp += contents[0];
tmp += contents[1];
tmp += '{';
tmp += contents[3];
tmp += '}';
contents = tmp;
} else if (contents.length() == 4 && contents[2] == '\\'
&& (contents[3] == 'i' || contents[3] == 'j')) {
string tmp;
tmp += contents[0];
tmp += contents[1];
tmp += '{';
tmp += contents[2];
tmp += contents[3];
tmp += '}';
contents = tmp;
}
}
if (contents[0] != '\\') return; // demand that first char is a '\\'
lyxerr[Debug::KEY] << "Decode: " << contents << endl;
remdot = false; plusasc = false; plusdesc = false;
switch (contents[1]) { // second char should be one of these
case '\'': // acute
modtype = ACUTE; // acute
plusasc = true; // at the top of character
break;
case '`': // grave
modtype = GRAVE; // grave
plusasc = true; // at the top
break;
case '=': // macron
modtype = MACRON; // macron
plusasc = true; // at the top
break;
case '~': // tilde
modtype = TILDE; // tilde
plusasc = true; // at the top
break;
case 'b': // underbar
modtype = UNDERBAR; // underbar
plusdesc = true; // at the bottom
break;
case 'c': // cedilla
modtype = CEDILLA; // cedilla
plusdesc = true; // at the bottom
break;
case 'd': // underdot
modtype = UNDERDOT; // underdot
plusdesc = true; // at the bottom
break;
case 'r': // circle
modtype = CIRCLE; // circle
plusasc = true; // at the top
break;
case 't': // tie
modtype = TIE; // tie
plusasc = true; // at the top
break;
case 'u': // breve
modtype = BREVE; // breve
plusasc = true; // at the top
break;
case 'v': // caron
modtype = CARON; // caron
plusasc = true; // at the top
break;
case 'q': // special caron
modtype = SPECIAL_CARON; // special caron
plusasc = true; // at the top
break;
case 'H': // hungarian umlaut
modtype = HUNGARIAN_UMLAUT; // hungarian umlaut
plusasc = true; // at the top
break;
case '"': // umlaut
modtype = UMLAUT; // umlaut
plusasc = true; // at the top
break;
case '.': // dot
modtype = DOT; // dot
plusasc = true; // at the top
break;
case '^': // circumflex
modtype = CIRCUMFLEX; // circumflex
plusasc = true; // at the top
break;
case 'k': // ogonek
modtype = OGONEK; // ogonek
plusdesc = true;
break;
case 'i': // dot-less-i
modtype = DOT_LESS_I; // dot-less-i
plusasc = true; // at the top (not really needed)
remdot = true;
break;
case 'j': // dot-less-j
modtype = DOT_LESS_J; // dot-less-j
plusasc = true; // at the top (not really needed)
remdot = true;
break;
case 'l': // lslash
modtype = lSLASH;
plusasc = true; // at the top (not really needed)
break;
case 'L': // lslash
modtype = LSLASH;
plusasc = true; // at the top (not really needed)
break;
default:
lyxerr[Debug::KEY] << "Default" << endl;
// unknow accent (or something else)
return;
}
// we demand that third char is a '{' (Lgb)
if (contents[2] != '{') return;
// special clause for \i{}, \j{} \l{} and \L{}
if ((modtype == DOT_LESS_I || modtype == DOT_LESS_J
|| modtype == lSLASH || modtype == LSLASH)
&& contents[3] == '}' ) {
switch (modtype) {
case DOT_LESS_I: ic = 'i'; break;
case DOT_LESS_J: ic = 'j'; break;
case lSLASH: ic = 'l'; break;
case LSLASH: ic = 'L'; break;
default:
// if this happens something is really wrong
lyxerr << "InsetLaTexAccent: weird error." << endl;
break;
}
//ic = (modtype == DOT_LESS_J ? 'j' : 'i');
lyxerr[Debug::KEY] << "Contents: [" << contents << "]"
<< ", ic: " << ic
<< ", top: " << plusasc
<< ", bot: " << plusdesc
<< ", dot: " << remdot
<< ", mod: " << modtype << endl;
// Special case for space
} else if (contents[3] == '}') {
ic = ' ';
} else {
int i = 3;
// now get the char
ic = contents[3]; // i will always be 3 here
// ic should now be a alfa-char or '\\'
if (ic == '\\') {
ic = contents[++i]; // will only allow \<foo>{\i} and \<foo>{\j}
if (ic == 'i' || ic == 'j')
remdot = true;
else
return;
} else if ( (ic == 'i'|| ic == 'j') && contents[4] == '}') {
// Do a rewrite: \<foo>{i} --> \<foo>{\i}
string temp = contents;
temp.erase(3, string::npos);
temp += '\\';
temp += char(ic);
for(string::size_type j = 4;
j < contents.length(); ++j)
temp+= contents[j];
contents= temp;
++i;
remdot = true;
}
// demand a '}' at the end
if (contents[++i] != '}' && contents[++i]) return;
// fine, the char is properly decoded now (hopefully)
lyxerr[Debug::KEY] << "Contents: [" << contents << "]"
<< ", ic: " << ic
<< ", top: " << plusasc
<< ", bot: " << plusdesc
<< ", dot: " << remdot
<< ", mod: " << modtype << endl;
}
candisp = true;
}
int InsetLatexAccent::ascent(Painter &, LyXFont const & font) const
{
// This function is a bit too simplistix and is just a
// "try to make a fit for all accents" approach, to
// make it better we need to know what kind of accent is
// used and add to max based on that.
int max;
if (candisp) {
if (ic == ' ')
max = lyxfont::ascent('a', font);
else
max = lyxfont::ascent(ic, font);
if (plusasc)
max += (lyxfont::maxAscent(font) + 3) / 3;
} else
max = lyxfont::maxAscent(font) + 4;
return max;
}
int InsetLatexAccent::descent(Painter &, LyXFont const & font) const
{
int max;
if (candisp) {
if (ic == ' ')
max = lyxfont::descent('a', font);
else
max = lyxfont::descent(ic, font);
if (plusdesc)
max += 3;
} else
max = lyxfont::maxDescent(font) + 4;
return max;
}
int InsetLatexAccent::width(Painter &, LyXFont const & font) const
{
if (candisp)
return lyxfont::width(ic, font);
else
return lyxfont::width(contents, font) + 4;
}
int InsetLatexAccent::Lbearing(LyXFont const & font) const
{
return lyxfont::lbearing(ic, font);
}
int InsetLatexAccent::Rbearing(LyXFont const & font) const
{
return lyxfont::rbearing(ic, font);
}
bool InsetLatexAccent::DisplayISO8859_9(Painter & pain, LyXFont const & font,
int baseline,
float & x) const
{
unsigned char tmpic = ic;
switch (modtype) {
case CEDILLA:
{
if (ic == 'c') tmpic = 0xe7;
if (ic == 'C') tmpic = 0xc7;
if (ic == 's') tmpic = 0xfe;
if (ic == 'S') tmpic = 0xde;
break;
}
case BREVE:
{ if (ic == 'g') tmpic = 0xf0;
if (ic == 'G') tmpic = 0xd0;
break;
}
case UMLAUT:
{
if (ic == 'o') tmpic = 0xf6;
if (ic == 'O') tmpic = 0xd6;
if (ic == 'u') tmpic = 0xfc;
if (ic == 'U') tmpic = 0xdc;
break;
}
case DOT: if (ic == 'I') tmpic = 0xdd; break;
case DOT_LESS_I: tmpic = 0xfd; break;
default: return false;
}
if (tmpic != ic) {
char ch = char(tmpic);
pain.text(x, baseline, ch, font);
x += width(pain, font);
return true;
}
else
return false;
}
void InsetLatexAccent::draw(Painter & pain, LyXFont const & font,
int baseline, float & x) const
{
if (lyxrc.font_norm == "iso8859-9")
if (DisplayISO8859_9(pain, font, baseline, x))
return;
/* draw it! */
// All the manually drawn accents in this function could use an
// overhaul. Different ways of drawing (what metrics to use)
// should also be considered.
if (candisp) {
int asc = ascent(pain, font);
int desc = descent(pain, font);
int wid = width(pain, font);
float x2 = x + (Rbearing(font) - Lbearing(font)) / 2.0;
float hg;
int y;
if (plusasc) {
// mark at the top
hg = lyxfont::maxDescent(font);
y = baseline - asc;
if (font.shape() == LyXFont::ITALIC_SHAPE)
x2 += (4.0 * hg) / 5.0; // italic
} else {
// at the bottom
hg = desc;
y = baseline;
}
float hg35 = float(hg * 3.0) / 5.0;
// display with proper accent mark
// first the letter
pain.text(int(x), baseline, ic, font);
if (remdot) {
int tmpvar = baseline - lyxfont::ascent('i', font);
float tmpx = 0;
if (font.shape() == LyXFont::ITALIC_SHAPE)
tmpx += (8.0 * hg) / 10.0; // italic
lyxerr[Debug::KEY] << "Removing dot." << endl;
// remove the dot first
pain.fillRectangle(int(x + tmpx), tmpvar, wid,
lyxfont::ascent('i', font) -
lyxfont::ascent('x', font) - 1,
LColor::background);
// the five lines below is a simple hack to
// make the display of accent 'i' and 'j'
// better. It makes the accent be written
// closer to the top of the dot-less 'i' or 'j'.
char tmpic = ic; // store the ic when we
ic = 'x'; // calculates the ascent of
asc = ascent(pain, font); // the dot-less version (here: 'x')
ic = tmpic; // set the orig ic back
y = baseline - asc; // update to new y coord.
}
// now the rest - draw within (x, y, x+wid, y+hg)
switch (modtype) {
case ACUTE: // acute 0xB4
{
#if 0
pain.line(int(x2), int(y + hg),
int(x2 + hg35), y + hg35);
#else
pain.text(x2 - (lyxfont::rbearing(0xB4, font) - lyxfont::lbearing(0xB4, font)) / 2,
baseline - lyxfont::ascent(ic, font) - lyxfont::descent(0xB4, font) - (lyxfont::ascent(0xB4, font) + lyxfont::descent(0xB4, font)) / 2,
char(0xB4), font);
#endif
break;
}
case GRAVE: // grave 0x60
{
#if 0
pain.line(int(x2), int(y + hg),
int(x2 - hg35), y + hg35);
#else
pain.text(x2 - (lyxfont::rbearing(0x60, font) - lyxfont::lbearing(0x60, font)) / 2,
baseline - lyxfont::ascent(ic, font) - lyxfont::descent(0x60, font) - (lyxfont::ascent(0x60, font) + lyxfont::descent(0x60, font)) / 2.0,
char(0x60), font);
#endif
break;
}
case MACRON: // macron
{
#if 0
pain.line(int(x2 - wid * 0.4),
int(y + hg),
int(x2 + wid * 0.4),
int(y + hg));
#else
pain.text(x2 - (lyxfont::rbearing(0xAF, font) - lyxfont::lbearing(0xAF, font)) / 2,
baseline - lyxfont::ascent(ic, font) - lyxfont::descent(0xAF, font) - (lyxfont::ascent(0xAF, font) + lyxfont::descent(0xAF, font)),
char(0xAF), font);
#endif
break;
}
case TILDE: // tilde
{
#if 0
if (hg35 > 2.0) hg35 -= 1.0;
x2 += (hg35 / 2.0);
int xp[4], yp[4];
xp[0] = int(x2 - 2.0 * hg35);
yp[0] = int(y + hg);
xp[1] = int(x2 - hg35);
yp[1] = int(y + hg35);
xp[2] = int(x2);
yp[2] = int(y + hg);
xp[3] = int(x2 + hg35);
yp[3] = int(y + hg35);
pain.lines(xp, yp, 4);
#else
pain.text(x2 - (lyxfont::rbearing('~', font) - lyxfont::lbearing('~', font)) / 2,
baseline - lyxfont::ascent(ic, font) - lyxfont::descent('~', font) - (lyxfont::ascent('~', font) + lyxfont::descent('~', font)) / 2,
'~', font);
#endif
break;
}
case UNDERBAR: // underbar 0x5F
{
#if 0
pain.line(int(x2 - wid * 0.4),
y + hg / 2.0,
int(x2 + wid * 0.4),
y + hg / 2.0);
#else
pain.text(x2 - (lyxfont::rbearing(0x5F, font) - lyxfont::lbearing(0x5F, font)) / 2, baseline,
char(0x5F), font);
#endif
break;
}
case CEDILLA: // cedilla
{
#if 0
int xp[4], yp[4];
xp[0] = int(x2);
yp[0] = y;
xp[1] = int(x2);
yp[1] = y + int(hg / 3.0);
xp[2] = int(x2 + (hg / 3.0));
yp[2] = y + int(hg / 2.0);
xp[3] = int(x2 - (hg / 4.0));
yp[3] = y + int(hg);
pain.lines(xp, yp, 4);
#else
pain.text(x2 - (lyxfont::rbearing(0xB8, font) - lyxfont::lbearing(0xB8, font)) / 2, baseline,
char(0xB8), font);
#endif
break;
}
case UNDERDOT: // underdot
{
#if 0
pain.arc(int(x2), y + hg35,
3, 3, 0, 360 * 64);
#else
pain.text(x2 - (lyxfont::rbearing('.', font) - lyxfont::lbearing('.', font)) / 2.0,
baseline + 3.0 / 2.0 * (lyxfont::ascent('.', font) + lyxfont::descent('.', font)),
'.', font);
#endif
break;
}
case DOT: // dot
{
#if 0
pain.arc(int(x2), y + hg * 0.5,
(hg + 3.0)/5.0,
(hg + 3.0)/5.0,
0, 360 * 64);
#else
pain.text(x2 - (lyxfont::rbearing('.', font) - lyxfont::lbearing('.', font)) / 2.0,
baseline - lyxfont::ascent(ic, font) - lyxfont::descent('.', font) - (lyxfont::ascent('.', font) + lyxfont::descent('.', font)) / 2,
'.', font);
#endif
break;
}
case CIRCLE: // circle
{
#if 0
pain.arc(int(x2 - (hg / 2.0)),
y + (hg / 2.0), hg, hg , 0,
360 * 64);
#else
LyXFont tmpf(font);
tmpf.decSize().decSize();
pain.text(x2 - (lyxfont::rbearing(0xB0, tmpf) - lyxfont::lbearing(0xB0, tmpf)) / 2.0,
baseline - lyxfont::ascent(ic, font) - lyxfont::descent(0xB0, tmpf) - (lyxfont::ascent(0xB0, tmpf) + lyxfont::descent(0xB0, tmpf)) / 3.0,
char(0xB0), tmpf);
#endif
break;
}
case TIE: // tie
{
pain.arc(int(x2 + hg35), y + hg / 2.0,
2 * hg, hg, 0, 360 * 32);
break;
}
case BREVE: // breve
{
pain.arc(int(x2 - (hg / 2.0)), y,
hg, hg, 0, -360*32);
break;
}
case CARON: // caron
{
int xp[3], yp[3];
xp[0] = int(x2 - hg35); yp[0] = int(y + hg35);
xp[1] = int(x2); yp[1] = int(y + hg);
xp[2] = int(x2 + hg35); yp[2] = int(y + hg35);
pain.lines(xp, yp, 3);
break;
}
case SPECIAL_CARON: // special caron
{
switch (ic) {
case 'L': wid = int(4.0 * wid / 5.0); break;
case 't': y -= int(hg35 / 2.0); break;
}
int xp[3], yp[3];
xp[0] = int(x + wid);
yp[0] = int(y + hg35 + hg);
xp[1] = int(x + wid + (hg35 / 2.0));
yp[1] = int(y + hg + (hg35 / 2.0));
xp[2] = int(x + wid + (hg35 / 2.0));
yp[2] = y + int(hg);
pain.lines(xp, yp, 3);
break;
}
case HUNGARIAN_UMLAUT: // hung. umlaut
{
#if 0
int xs1[2], xs2[2], ys1[2], ys2[2];
xs1[0] = int(x2 - (hg / 2.0));
ys1[0] = int(y + hg);
xs2[0] = int(x2 + hg35 - (hg / 2.0));
ys2[0] = int(y + hg35);
xs1[1] = int(x2 + (hg / 2.0));
ys1[1] = int(y + hg);
xs2[1] = int(x2 + hg35 + (hg / 2.0));
ys2[1] = int(y + hg35);
pain.segments(xs1, ys1, xs2, ys2, 2);
#else
pain.text(x2 - (lyxfont::rbearing('<EFBFBD>', font) - lyxfont::lbearing('<EFBFBD>', font)),
baseline - lyxfont::ascent(ic, font) - lyxfont::descent('<EFBFBD>', font) - (lyxfont::ascent('<EFBFBD>', font) + lyxfont::descent('<EFBFBD>', font)) / 2,
'<EFBFBD>', font);
pain.text(x2,
baseline - lyxfont::ascent(ic, font) - lyxfont::descent('<EFBFBD>', font) - (lyxfont::ascent('<EFBFBD>', font) + lyxfont::descent('<EFBFBD>', font)) / 2,
'<EFBFBD>', font);
#endif
break;
}
case UMLAUT: // umlaut
{
#if 0
float rad = hg / 2.0;
if (rad <= 1.0) {
pain.point(int(x2 - 4.0 * hg / 7.0),
y + hg35);
pain.point(int(x2 + 4.0 * hg / 7.0),
y + hg35);
} else {
rad += .5; // this ensures that f.ex. 1.5 will
// not be rounded down to .5 and then
// converted to int = 0
pain.arc(int(x2 - 2.0 * hg / 4.0),
y + hg35,
rad, rad,
0, 360 * 64);
pain.arc(int(x2 + 2.0 * hg / 4.0),
y + hg35,
rad, rad, 0, 360*64);
}
#else
pain.text(x2 - (lyxfont::rbearing('<EFBFBD>', font) - lyxfont::lbearing('<EFBFBD>', font)) / 2,
baseline - lyxfont::ascent(ic, font) - lyxfont::descent('<EFBFBD>', font) - ( lyxfont::ascent('<EFBFBD>', font) + lyxfont::descent('<EFBFBD>', font)) / 2,
'<EFBFBD>', font);
#endif
break;
}
case CIRCUMFLEX: // circumflex
{
#if 0
int xp[3], yp[3];
xp[0] = int(x2 - hg35); yp[0] = y + int(hg);
xp[1] = int(x2); yp[1] = int(y + hg35);
xp[2] = int(x2 + hg35); yp[2] = y + int(hg);
pain.lines(xp, yp, 3);
#else
LyXFont tmpf(font);
tmpf.decSize().decSize().decSize();
pain.text(x2 - (lyxfont::rbearing(0x5E, tmpf) - lyxfont::lbearing(0x5E, tmpf)) / 2,
baseline - lyxfont::ascent(ic, font) - lyxfont::descent(0x5E, tmpf) - (lyxfont::ascent(0x5E, tmpf) + lyxfont::descent(0x5E, tmpf)) / 3.0,
char(0x5E), tmpf);
#endif
break;
}
case OGONEK: // ogonek
{
// this does probably not look like an ogonek, so
// it should certainly be refined
int xp[4], yp[4];
xp[0] = int(x2);
yp[0] = y;
xp[1] = int(x2);
yp[1] = y + int(hg35);
xp[2] = int(x2 - hg35);
yp[2] = y + int(hg / 2.0);
xp[3] = int(x2 + hg / 4.0);
yp[3] = y + int(hg);
pain.lines(xp, yp, 4);
break;
}
case lSLASH:
case LSLASH:
{
int xp[2], yp[2];
xp[0] = int(x);
yp[0] = y + int(3.0 * hg);
xp[1] = int(x + float(wid) * 0.75);
yp[1] = y + int(hg);
pain.lines(xp, yp, 2);
break;
}
case DOT_LESS_I: // dotless-i
case DOT_LESS_J: // dotless-j
{
// nothing to do for these
break;
}
}
} else {
pain.fillRectangle(int(x + 1),
baseline - ascent(pain, font) + 1,
width(pain, font) - 2,
ascent(pain, font)
+ descent(pain, font) - 2);
pain.rectangle(int(x + 1), baseline - ascent(pain, font) + 1,
width(pain, font) - 2,
ascent(pain, font) + descent(pain, font) - 2);
pain.text(int(x + 2), baseline, contents, font);
}
x += width(pain, font);
}
void InsetLatexAccent::Write(ostream & os) const
{
os << "\\i " << contents << "\n";
}
void InsetLatexAccent::Read(LyXLex & lex)
{
lex.EatLine();
contents = lex.GetString();
checkContents();
}
int InsetLatexAccent::Latex(ostream & os,
signed char /*fragile*/, bool/*fs*/) const
{
os << contents;
return 0;
}
int InsetLatexAccent::Linuxdoc(ostream & os) const
{
os << contents;
return 0;
}
int InsetLatexAccent::DocBook(ostream & os) const
{
os << contents;
return 0;
}
bool InsetLatexAccent::Deletable() const
{
return true;
}
bool InsetLatexAccent::DirectWrite() const
{
return true;
}
Inset * InsetLatexAccent::Clone() const
{
return new InsetLatexAccent(contents);
}
Inset::Code InsetLatexAccent::LyxCode() const
{
return Inset::ACCENT_CODE;
}
ostream & operator<<(ostream & o, InsetLatexAccent::ACCENT_TYPES at)
{
return o << int(at);
}