lyx_mirror/src/mathed/formula.C

/*
*  File:        formula.C
*  Purpose:     Implementation of formula inset
*  Author:      Alejandro Aguilar Sierra <asierra@servidor.unam.mx>
*  Created:     January 1996
*  Description: Allows the edition of math paragraphs inside Lyx.
*
*  Copyright: 1996-1998 Alejandro Aguilar Sierra
*
*  Version: 0.4, Lyx project.
*
*   You are free to use and modify this code under the terms of
*   the GNU General Public Licence version 2 or later.
*/

#include <config.h>
#include <fstream>

#include "Lsstream.h"

#ifdef __GNUG__
#pragma implementation
#endif

#include "formula.h"
#include "commandtags.h"
#include "math_cursor.h"
#include "math_parser.h"
#include "lyx_main.h"
#include "BufferView.h"
#include "lyxtext.h"
#include "gettext.h"
#include "LaTeXFeatures.h"
#include "debug.h"
#include "lyx_gui_misc.h"
#include "support/LOstream.h"
#include "support/lyxlib.h"
#include "support/syscall.h"
#include "LyXView.h"
#include "Painter.h"
#include "font.h"
#include "lyxrc.h"
#include "math_inset.h"
#include "math_parinset.h"
#include "math_matrixinset.h"
#include "math_rowst.h"
#include "math_spaceinset.h"
#include "math_deliminset.h"
#include "mathed/support.h"

using std::ostringstream;
using std::ostream;
using std::ifstream;
using std::istream;
using std::pair;
using std::endl;
using std::vector;
using std::max;

extern string mathed_label;

extern char const * latex_special_chars;

int greek_kb_flag = 0;
extern char const * latex_mathenv[];

// this is only used by Whichfont and mathed_init_fonts (Lgb)
LyXFont * Math_Fonts = 0;


MathedCursor * mathcursor = 0;


namespace {

LyXFont::FONT_SIZE lfont_size = LyXFont::SIZE_NORMAL;

// local global
int sel_x;
int sel_y;
bool sel_flag;

int mathed_write(MathParInset *, std::ostream &, bool fragile,
		 string const & label = string());

void mathed_init_fonts();

void mathedValidate(LaTeXFeatures & features, MathParInset * par);

} // namespaces



LyXFont WhichFont(short type, int size)
{
	LyXFont f;
	
	if (!Math_Fonts)
		mathed_init_fonts();

	switch (type) {
	case LM_TC_SYMB:	
		f = Math_Fonts[2];
		break;

	case LM_TC_BSYM:	
		f = Math_Fonts[2];
		break;

	case LM_TC_VAR:
	case LM_TC_IT:
		f = Math_Fonts[0];
		break;

	case LM_TC_BF:
		f = Math_Fonts[3];
		break;

	case LM_TC_SF:
		f = Math_Fonts[7];
		break;

	case LM_TC_CAL:
		f = Math_Fonts[4];
		break;

	case LM_TC_TT:
		f = Math_Fonts[5];
		break;

	case LM_TC_SPECIAL: //f = Math_Fonts[0]; break;
	case LM_TC_TEXTRM:
	case LM_TC_RM:
		f = Math_Fonts[6];
		break;

	default:
		f = Math_Fonts[1];
		break;
	}

	f.setSize(lfont_size);

	switch (size) {
	case LM_ST_DISPLAY:
		if (type == LM_TC_BSYM) {
			f.incSize();
			f.incSize();
		}
		break;

	case LM_ST_TEXT:
		break;

	case LM_ST_SCRIPT:
		f.decSize();
		break;

	case LM_ST_SCRIPTSCRIPT:
		f.decSize();
		f.decSize();
		break;

	default:
		lyxerr << "Mathed Error: wrong font size: " << size << endl;
		break;
	}

	if (type != LM_TC_TEXTRM)
		f.setColor(LColor::math);

	return f;
}


namespace {

void mathed_init_fonts() //removed 'static' because DEC cxx does not
//like it (JMarc)
// Probably because this func is declared as a friend in math_defs.h
// Lgb
{
	Math_Fonts = new LyXFont[8]; //DEC cxx cannot initialize all fonts
	//at once (JMarc) rc

	for (int i = 0 ; i < 8 ; ++i) {
		Math_Fonts[i] = LyXFont(LyXFont::ALL_SANE);
	}

	Math_Fonts[0].setShape(LyXFont::ITALIC_SHAPE);

	Math_Fonts[1].setFamily(LyXFont::SYMBOL_FAMILY);

	Math_Fonts[2].setFamily(LyXFont::SYMBOL_FAMILY);
	Math_Fonts[2].setShape(LyXFont::ITALIC_SHAPE);

	Math_Fonts[3].setSeries(LyXFont::BOLD_SERIES);

	Math_Fonts[4].setFamily(LyXFont::SANS_FAMILY);
	Math_Fonts[4].setShape(LyXFont::ITALIC_SHAPE);

	Math_Fonts[5].setFamily(LyXFont::TYPEWRITER_FAMILY);

	Math_Fonts[6].setFamily(LyXFont::ROMAN_FAMILY);

	Math_Fonts[7].setFamily(LyXFont::SANS_FAMILY);

	LyXFont f = WhichFont(LM_TC_VAR, LM_ST_TEXT);
	MathedInset::defaultAscent(lyxfont::maxAscent(f));
	MathedInset::defaultDescent(lyxfont::maxDescent(f));
	MathedInset::defaultWidth(lyxfont::width('I', f));
}

} // namespace anon


// quite a hack i know. Should be done with return values...
int number_of_newlines = 0;


InsetFormula::InsetFormula(bool display)
{
	par = new MathParInset; // this leaks
	//  mathcursor = 0;
	disp_flag_ = display;
	if (disp_flag_) {
		par->SetType(LM_OT_PAR);
		par->SetStyle(LM_ST_DISPLAY);
	}
}


InsetFormula::InsetFormula(MathParInset * p)
{
	if (is_matrix_type(p->GetType()))
		lyxerr << "InsetFormula::InsetFormula: This shouldn't happen" << endl;

	par = is_multiline(p->GetType()) ?
		new MathMatrixInset(*static_cast<MathMatrixInset*>(p)):
		new MathParInset(*p);
	//   mathcursor = 0;

	disp_flag_ = par->GetType() > 0;
}


InsetFormula::~InsetFormula()
{
#ifdef WITH_WARNINGS
#warning leak this for a while...
#endif
	//delete par;
}


Inset * InsetFormula::Clone(Buffer const &) const
{
	return new InsetFormula(par);
}


void InsetFormula::Write(Buffer const * buf, ostream & os) const
{
	os << "Formula ";
	Latex(buf, os, false, false);
}


int InsetFormula::Latex(Buffer const *, ostream & os, bool fragile, bool) const
{
	return mathed_write(par, os, fragile, par->label()); 
}


int InsetFormula::Ascii(Buffer const *, ostream & os, int) const
{
	par->Write(os, false);
	return 0;
}


int InsetFormula::Linuxdoc(Buffer const * buf, ostream & os) const
{
	return Ascii(buf, os, 0);
}


int InsetFormula::DocBook(Buffer const * buf, ostream & os) const
{
	return Ascii(buf, os, 0);
}


// Check if uses AMS macros
void InsetFormula::Validate(LaTeXFeatures & features) const
{
	if (is_ams(par->GetType()))
		features.amsstyle = true;

	// Validation is necessary only if not using AMS math.
	// To be safe, we will always run mathedValidate.
	//if (!features.amsstyle)
	mathedValidate(features, par);
}


void InsetFormula::Read(Buffer const *buffer, LyXLex & lex)
{
	istream & is = lex.getStream();

	mathed_parser_file(is, lex.GetLineNo());

	MathedArray ar;
	mathed_parse(ar, par, 0);
	if (par->isMatrix()) {
		//lyxerr << "################## InsetFormula::Read: IsMatrix\n";
		static_cast<MathMatrixInset*>(par)->setData(ar);
	}
	else {
		par->setData(ar);
		//lyxerr << "################## InsetFormula::Read: keine Matrix\n";
	}

	//lyxerr << "InsetFormula::Read: par: " << par << " " << par->GetData() << endl;

	par->Metrics();
	disp_flag_ = (par->GetType() > 0);

	// Update line number
	lex.setLineNo(mathed_parser_lineno());

	// reading of end_inset in the inset!!!
	while (lex.IsOK()) {
		lex.nextToken();
		if (lex.GetString() == "\\end_inset")
			break;
		lyxerr << "InsetFormula::Read: Garbage before \\end_inset,"
			" or missing \\end_inset!" << endl;
	}

	if (lyxerr.debugging(Debug::MATHED))
		Write(buffer, lyxerr);
}


int InsetFormula::ascent(BufferView *, LyXFont const &) const
{
	return par->Ascent() + (disp_flag_ ? 8 : 1);
}


int InsetFormula::descent(BufferView *, LyXFont const &) const
{
	return par->Descent() + (disp_flag_ ? 8 : 1);
}


int InsetFormula::width(BufferView * bv, LyXFont const & f) const
{
	MathedInset::workWidth = bv->workWidth();
	lfont_size = f.size();
	par->Metrics();
	return par->Width(); //+2;
}


void InsetFormula::draw(BufferView * bv, LyXFont const & f,
			int baseline, float & x, bool) const
{
	MathedInset::workWidth = bv->workWidth();
	Painter & pain = bv->painter();
	// Seems commenting out solves a problem.
	LyXFont font = mathed_get_font(LM_TC_TEXTRM, LM_ST_TEXT);
	font.setSize(f.size());
	lfont_size = font.size();
	/// Let's try to wait a bit with this... (Lgb)
	//UpdatableInset::draw(pain, font, baseline, x);

	// otherwise a segfault could occur
	// in some XDrawRectangles (i.e. matrix) (Matthias)
	if (mathcursor && mathcursor->GetPar() == par) {
		if (mathcursor->Selection()) {
			int n;
			int * xp = 0;
			int * yp = 0;
			mathcursor->SelGetArea(&xp, &yp, n);
			pain.fillPolygon(xp, yp, n, LColor::selection);
		}
		mathcursor->draw(pain, int(x), baseline);
	} else {
		par->draw(pain, int(x), baseline);
	}
	x += float(width(bv, font));

	if (is_numbered(par->GetType())) {
		LyXFont wfont = WhichFont(LM_TC_BF, par->size());
		wfont.setLatex(LyXFont::OFF);

		if (is_singlely_numbered(par->GetType())) {
			string str;
			if (!par->label().empty())
				str = string("(") + par->label() + ")";
			else
				str = string("(#)");
			pain.text(int(x + 20), baseline, str, wfont);
		} else {
			MathedRowContainer::iterator crow = par->getRowSt().begin();
			while (crow) {
				int const y = baseline + crow->getBaseline();
				if (crow->isNumbered()) {
					string str;
					if (!crow->getLabel().empty())
						str = string("(") + crow->getLabel() + ")";
					else
						str = "(#)";
					pain.text(int(x + 20), y, str, wfont);
				}
				++crow;
			}
		}
	}
	setCursorVisible(false);
}


string const InsetFormula::EditMessage() const
{
	return _("Math editor mode");
}


void InsetFormula::Edit(BufferView * bv, int x, int y, unsigned int)
{
	mathcursor = new MathedCursor(par);

	if (!bv->lockInset(this))
		lyxerr[Debug::MATHED] << "Cannot lock inset!!!" << endl;

	par->Metrics();
	bv->updateInset(this, false);
	x += par->xo();
	y += par->yo();
	mathcursor->SetPos(x, y);
	sel_x = 0;
	sel_y = 0;
	sel_flag = false;
}


void InsetFormula::InsetUnlock(BufferView * bv)
{
	if (mathcursor) {
		if (mathcursor->InMacroMode()) {
			mathcursor->MacroModeClose();
			UpdateLocal(bv);
		}
		delete mathcursor;
	}
	mathcursor = 0;
	bv->updateInset(this, false);
}


// Now a symbol can be inserted only if the inset is locked
void InsetFormula::InsertSymbol(BufferView *, string const & s)
{
	if (s.empty() || !mathcursor)
		return;
	mathcursor->Interpret(s);
	// Andre: UpdateLocal(bv);
}


void InsetFormula::GetCursorPos(BufferView *, int & x, int & y) const
{
	mathcursor->GetPos(x, y);
	x -= par->xo();
	y -= par->yo();
}


void InsetFormula::ToggleInsetCursor(BufferView * bv)
{
	if (!mathcursor)
		return;

	int x;
	int y;
	mathcursor->GetPos(x, y);
	//  x -= par->xo;
	y -= par->yo();
	LyXFont font = WhichFont(LM_TC_TEXTRM, LM_ST_TEXT);
	int const asc = lyxfont::maxAscent(font);
	int const desc = lyxfont::maxDescent(font);

	if (isCursorVisible())
		bv->hideLockedInsetCursor();
	else
		bv->showLockedInsetCursor(x, y, asc, desc);

	toggleCursorVisible();
}


void InsetFormula::ShowInsetCursor(BufferView * bv, bool)
{
	if (!isCursorVisible()) {
		if (mathcursor) {
			int x;
			int y;
			mathcursor->GetPos(x, y);
			//  x -= par->xo;
			y -= par->yo();
			LyXFont font = WhichFont(LM_TC_TEXTRM, LM_ST_TEXT);
			int const asc = lyxfont::maxAscent(font);
			int const desc = lyxfont::maxDescent(font);
			bv->fitLockedInsetCursor(x, y, asc, desc);
		}
		ToggleInsetCursor(bv);
	}
}


void InsetFormula::HideInsetCursor(BufferView * bv)
{
	if (isCursorVisible())
		ToggleInsetCursor(bv);
}


void InsetFormula::ToggleInsetSelection(BufferView * bv)
{
	if (!mathcursor)
		return;

	bv->updateInset(this, false);
}


void InsetFormula::display(bool dspf)
{
	if (dspf != disp_flag_) {
		if (dspf) {
			par->SetType(LM_OT_PAR);
			par->SetStyle(LM_ST_DISPLAY);
		} else {
			if (is_multiline(par->GetType())) {
				if (mathcursor)
					mathcursor->SetPar(par);
			}
			par->SetType(LM_OT_MIN);
			par->SetStyle(LM_ST_TEXT);
#ifdef WITH_WARNINGS
#warning Labels
#endif
/*
			if (!label_.empty()) {
				label_.erase();
			}
*/
		}
		disp_flag_ = dspf;
	}
}


vector<string> const InsetFormula::getLabelList() const
{
	vector<string> label_list;
	MathedRowContainer::iterator crow = par->getRowSt().begin();
	for ( ; crow; ++crow)
		label_list.push_back(crow->getLabel());

	return label_list;
}


void InsetFormula::UpdateLocal(BufferView * bv)
{
	par->Metrics();  // To inform lyx kernel the exact size
	// (there were problems with arrays).
	bv->updateInset(this, true);
}


void InsetFormula::InsetButtonRelease(BufferView * bv,
				      int x, int y, int /*button*/)
{
	if (mathcursor) {
		HideInsetCursor(bv);
		x += par->xo();
		y += par->yo();
		mathcursor->SetPos(x, y);
		ShowInsetCursor(bv);
		if (sel_flag) {
			sel_flag = false;
			sel_x = sel_y = 0;
			bv->updateInset(this, false);
		}
	}
}


void InsetFormula::InsetButtonPress(BufferView * bv, int x, int y,
				    int /*button*/)
{
	sel_flag = false;
	sel_x = x;
	sel_y = y;
	if (mathcursor && mathcursor->Selection()) {
		mathcursor->SelClear();
		bv->updateInset(this, false);
	}
}


void InsetFormula::InsetMotionNotify(BufferView * bv,
				     int x, int y, int /*button*/)
{
	if (sel_x && sel_y && abs(x-sel_x) > 4 && !sel_flag) {
		sel_flag = true;
		HideInsetCursor(bv);
		mathcursor->SetPos(sel_x + par->xo(), sel_y + par->yo());
		mathcursor->SelStart();
		ShowInsetCursor(bv);
		mathcursor->GetPos(sel_x, sel_y);
	} else if (sel_flag) {
		HideInsetCursor(bv);
		x += par->xo();
		y += par->yo();
		mathcursor->SetPos(x, y);
		ShowInsetCursor(bv);
		mathcursor->GetPos(x, y);
		if (sel_x != x || sel_y != y)
			bv->updateInset(this, false);
		sel_x = x;
		sel_y = y;
	}
}


void InsetFormula::InsetKeyPress(XKeyEvent *)
{
	lyxerr[Debug::MATHED] << "Used InsetFormula::InsetKeyPress." << endl;
}


// Special Mathed functions
bool InsetFormula::SetNumber(bool numbf)
{
	if (disp_flag_) {
		short type = par->GetType();
		bool const oldf = is_numbered(type);
		if (numbf && !oldf)
			++type;
		if (!numbf && oldf)
			--type;
		par->SetType(type);
		return oldf;
	} else
		return false;
}


UpdatableInset::RESULT
InsetFormula::LocalDispatch(BufferView * bv, kb_action action,
			    string const & arg)
{
	//lyxerr << "InsetFormula::LocalDispatch: act: " << action
	//	<< " arg: '" << arg << "' cursor: " << mathcursor << "\n";
	//   extern char *dispatch_result;

	if (!mathcursor) {
		return UNDISPATCHED;
	}

	MathedTextCodes varcode = LM_TC_MIN;
	bool was_macro = mathcursor->InMacroMode();
	bool sel = false;
	bool space_on = false;
	bool was_selection = mathcursor->Selection();
	RESULT result = DISPATCHED;
	static MathSpaceInset * sp= 0;

	HideInsetCursor(bv);

	if (mathcursor->getLastCode() == LM_TC_TEX) {
		varcode = LM_TC_TEX;
	}

	switch (action) {
		// --- Cursor Movements ---------------------------------------------
	case LFUN_RIGHTSEL:
		sel = true; // fall through...

	case LFUN_RIGHT:
		result = DISPATCH_RESULT(mathcursor->Right(sel));
		if (!sel && (result == DISPATCHED))
			result = DISPATCHED_NOUPDATE;
		UpdateLocal(bv);
		break;


	case LFUN_LEFTSEL:
		sel = true; // fall through

	case LFUN_LEFT:
		result = DISPATCH_RESULT(mathcursor->Left(sel));
		if (!sel && (result == DISPATCHED))
			result = DISPATCHED_NOUPDATE;
		UpdateLocal(bv);
		break;


	case LFUN_UPSEL:
		sel = true;

	case LFUN_UP:
		result = DISPATCH_RESULT(mathcursor->Up(sel));
		if (!sel && (result == DISPATCHED))
			result = DISPATCHED_NOUPDATE;
		UpdateLocal(bv);
		break;


	case LFUN_DOWNSEL:
		sel = true;

	case LFUN_DOWN:
		result = DISPATCH_RESULT(mathcursor->Down(sel));
		if (!sel && (result == DISPATCHED))
			result = DISPATCHED_NOUPDATE;
		UpdateLocal(bv);
		break;


	case LFUN_HOME:
		mathcursor->Home();
		result = DISPATCHED_NOUPDATE;
		break;

	case LFUN_END:
		mathcursor->End();
		result = DISPATCHED_NOUPDATE;
		break;

	case LFUN_DELETE_LINE_FORWARD:
		bv->lockedInsetStoreUndo(Undo::DELETE);
		mathcursor->DelLine();
		// Andre:
		UpdateLocal(bv);
		break;

	case LFUN_BREAKLINE: 
	{
		bv->lockedInsetStoreUndo(Undo::INSERT);
		byte c = arg.empty() ? '1' : arg[0];
		mathcursor->Insert(c, LM_TC_CR);
#ifdef WITH_WARNINGS
#warning Labels
#endif
/*
		if (!par->label().empty()) {
			mathcursor->setLabel(label_);
			label_.erase();
		}
*/
		par = mathcursor->GetPar();
		// Andre:
		UpdateLocal(bv);
	}
	break;

	case LFUN_TAB:
		bv->lockedInsetStoreUndo(Undo::INSERT);
		mathcursor->Insert(0, LM_TC_TAB);
		//UpdateInset(this);
		break;

	case LFUN_TABINSERT:
		bv->lockedInsetStoreUndo(Undo::INSERT);
		mathcursor->Insert('T', LM_TC_TAB);
		// Andre:
		UpdateLocal(bv);
		break;

	case LFUN_BACKSPACE:
		if (!mathcursor->Left())
			break;

		if (!mathcursor->InMacroMode() && mathcursor->pullArg()) {
			bv->updateInset(this, true);
			break;
		}
		// fall through...

	case LFUN_DELETE:
		bv->lockedInsetStoreUndo(Undo::DELETE);
		mathcursor->Delete();
		bv->updateInset(this, true);
		break;

		//    case LFUN_GETXY:
		//      sprintf(dispatch_buffer, "%d %d",);
		//      dispatch_result = dispatch_buffer;
		//      break;
	case LFUN_SETXY:
	{
		int x;
		int y;
		int x1;
		int y1;
		istringstream ist(arg.c_str());
		ist >> x >> y;
		par->GetXY(x1, y1);
		mathcursor->SetPos(x1 + x, y1 + y);
	}
	break;

		/* cursor selection ---------------------------- */

	case LFUN_PASTE:
		if (was_macro)
			mathcursor->MacroModeClose();
		bv->lockedInsetStoreUndo(Undo::INSERT);
		mathcursor->SelPaste();
		// Andre:
		UpdateLocal(bv);
		break;

	case LFUN_CUT:
		bv->lockedInsetStoreUndo(Undo::DELETE);
		mathcursor->SelCut();
		// Andre:
		UpdateLocal(bv);
		break;

	case LFUN_COPY:
		mathcursor->SelCopy();
		break;

	case LFUN_HOMESEL:
	case LFUN_ENDSEL:
	case LFUN_WORDRIGHTSEL:
	case LFUN_WORDLEFTSEL:
		break;

		// --- accented characters ------------------------------

	case LFUN_UMLAUT:     mathcursor->setAccent(LM_ddot); break;
	case LFUN_CIRCUMFLEX: mathcursor->setAccent(LM_hat); break;
	case LFUN_GRAVE:      mathcursor->setAccent(LM_grave); break;
	case LFUN_ACUTE:      mathcursor->setAccent(LM_acute); break;
	case LFUN_TILDE:      mathcursor->setAccent(LM_tilde); break;
	case LFUN_MACRON:     mathcursor->setAccent(LM_bar); break;
	case LFUN_DOT:        mathcursor->setAccent(LM_dot); break;
	case LFUN_CARON:      mathcursor->setAccent(LM_check); break;
	case LFUN_BREVE:      mathcursor->setAccent(LM_breve); break;
	case LFUN_VECTOR:     mathcursor->setAccent(LM_vec); break;

		// Greek mode
	case LFUN_GREEK:
		if (!greek_kb_flag) {
			greek_kb_flag = 1;
			bv->owner()->message(_("Math greek mode on"));
		} else
			greek_kb_flag = 0;
		break;

		// Greek keyboard
	case LFUN_GREEK_TOGGLE:
		greek_kb_flag = (greek_kb_flag) ? 0 : 2;
		if (greek_kb_flag)
			bv->owner()->message(_("Math greek keyboard on"));
		else
			bv->owner()->message(_("Math greek keyboard off"));
		break;

		//  Math fonts
	case LFUN_BOLD:  mathcursor->toggleLastCode(LM_TC_BF); break;
	case LFUN_SANS:  mathcursor->toggleLastCode(LM_TC_SF); break;
	case LFUN_EMPH:  mathcursor->toggleLastCode(LM_TC_CAL); break;
	case LFUN_ROMAN: mathcursor->toggleLastCode(LM_TC_RM); break;
	case LFUN_CODE:  mathcursor->toggleLastCode(LM_TC_TT); break;
	case LFUN_DEFAULT:  mathcursor->setLastCode(LM_TC_VAR); break;

	case LFUN_TEX:
		// varcode = LM_TC_TEX;
		mathcursor->setLastCode(LM_TC_TEX);
		bv->owner()->message(_("TeX mode"));
		break;

	case LFUN_MATH_NUMBER:
		bv->lockedInsetStoreUndo(Undo::INSERT);
		if (disp_flag_) {
			short type = par->GetType();
			if (is_numbered(type)) {
				--type;
#ifdef WITH_WARNINGS
#warning Labels
#endif
/*
				if (!label_.empty()) {
					label_.erase();
				}
*/
				bv->owner()->message(_("No number"));
			} else {
				++type;
				bv->owner()->message(_("Number"));
			}
			par->SetType(type);
			// Andre:
			UpdateLocal(bv);
		}
		break;

	case LFUN_MATH_NONUMBER:
		if (is_multi_numbered(par->GetType())) {
				//BUG
				//	   par->SetNumbered(!par->IsNumbered());

#ifdef WITH_WARNINGS
#warning This is a terrible hack! We should find a better solution.
#endif
			while (mathcursor->getLabel() == MathedXIter::error_label) {
				if (LocalDispatch(bv, LFUN_LEFT, string()) == FINISHED)
					return DISPATCHED;
			}
			mathcursor->setNumbered();
			// Andre:
			UpdateLocal(bv);
		}
		break;

	case LFUN_MATH_LIMITS:
		bv->lockedInsetStoreUndo(Undo::INSERT);
		if (mathcursor->Limits())
			// Andre:
			UpdateLocal(bv);
		// fall through!

	case LFUN_MATH_SIZE:
		if (!arg.empty()) {
			latexkeys const * l = in_word_set(arg);
			int const sz = l ? l->id : -1;
			mathcursor->SetSize(sz);
			// Andre:
			UpdateLocal(bv);
			break;
		}
		// possible fall through?

	case LFUN_INSERT_MATH:
		bv->lockedInsetStoreUndo(Undo::INSERT);
		InsertSymbol(bv, arg);
		UpdateLocal(bv);
		break;


	case LFUN_INSERT_MATRIX:
	{
		bv->lockedInsetStoreUndo(Undo::INSERT);
		char s[80];
		//char arg2[80];
		
		// This is just so that too long args won't ooze out of s.
		//strncpy(arg2, arg.c_str(), 80);
		//arg2[79]= '\0';
		string arg2(arg, 0, 80);
		
		int m;
		int n;
		int const k = sscanf(arg2.c_str(), "%d %d %s", &m, &n, s);
		s[79] = '\0';

		if (k < 1) {
			m = n = 1;
		} else if (k == 1) {
			n = 1;
		}

		if (mathcursor) {
			MathMatrixInset * p = new MathMatrixInset(m, n);
			if (k > 2 && int(std::strlen(s)) > m)
				p->SetAlign(s[0], &s[1]);
			mathcursor->insertInset(p, LM_TC_ACTIVE_INSET);
			// Andre:
			UpdateLocal(bv);
		}
		break;
	}

	case LFUN_MATH_DELIM:
	{
		bv->lockedInsetStoreUndo(Undo::INSERT);
		char lf[40];
		char rg[40];
		//char arg2[40];
		int ilf = '(';
		int irg = '.';
		latexkeys const * l;
		string vdelim("(){}[]./|");

		if (arg.empty())
			break;
		//::strncpy(arg2, arg.c_str(), 40);
		//arg2[39]= '\0';
		string arg2(arg, 0, 40);
		
		int const n = sscanf(arg2.c_str(), "%s %s", lf, rg);
		lf[39] = '\0';
		rg[39] = '\0';

		if (n > 0) {
			if (isdigit(lf[0]))
				ilf = lyx::atoi(lf);
			else
				if (lf[1]) {
					l = in_word_set(lf);
					// Long words will cause l == 0; so check.
					if (l)
						ilf = l->id;
				} else if (vdelim.find(lf[0]) != string::npos)
					ilf = lf[0];

			if (n > 1) {
				if (isdigit(rg[0]))
					irg = lyx::atoi(rg);
				else
					if (rg[1]) {
						l = in_word_set(rg);
						if (l)
							irg = l->id;
					} else if (vdelim.find(rg[0]) != string::npos)
						irg = rg[0];
			}
		}

		MathDelimInset * p = new MathDelimInset(ilf, irg);
		mathcursor->insertInset(p, LM_TC_ACTIVE_INSET);
		// Andre:
		UpdateLocal(bv);
		break;
	}

	case LFUN_PROTECTEDSPACE:
		bv->lockedInsetStoreUndo(Undo::INSERT);
		sp = new MathSpaceInset(1);
		mathcursor->insertInset(sp, LM_TC_INSET);
		space_on = true;
		// Andre:
		UpdateLocal(bv);
		break;

	case LFUN_INSERT_LABEL:
	{
		bv->lockedInsetStoreUndo(Undo::INSERT);
		if (par->GetType() < LM_OT_PAR)
			break;

		string old_label = is_multiline(par->GetType())
			? mathcursor->getLabel() : par->label();

#ifdef WITH_WARNINGS
#warning This is a terrible hack! We should find a better solution.
#endif
		// This is needed because in some positions
		// mathcursor->cursor->crow is equal to 0, and therefore
		// the label cannot be inserted.
		// So we move the cursor left until
		// mathcursor->cursor->crow != 0.
		while (old_label == MathedXIter::error_label) {
			if (LocalDispatch(bv, LFUN_LEFT, string()) == FINISHED)
				return DISPATCHED;
			old_label = mathcursor->getLabel();
		}

		string new_label = arg;
		if (new_label.empty()) {
			string const default_label =
				(lyxrc.label_init_length >= 0) ? "eq:" : "";
			pair<bool, string> const res = old_label.empty()
				? askForText(_("Enter new label to insert:"),
					     default_label)
				: askForText(_("Enter label:"), old_label);
			if (!res.first)
				break;
			new_label = frontStrip(strip(res.second));
		}

		if (new_label == old_label)
			break;  // Nothing to do

		if (!new_label.empty())
			SetNumber(true);

		if (!new_label.empty() && bv->ChangeRefsIfUnique(old_label, new_label))
			bv->redraw();

#ifdef WITH_WARNINGS
#warning Labels
#endif
/*
		if (is_multi_numbered(par->GetType())) {
			mathcursor->setLabel(new_label);
			// par->SetLabel(new_label);
		} else
			label_ = new_label;
*/

		// Andre:
		UpdateLocal(bv);
		break;
	}

	case LFUN_MATH_DISPLAY:
		bv->lockedInsetStoreUndo(Undo::EDIT);
		display(!disp_flag_);
		// Andre:
		UpdateLocal(bv);
		break;

		// Invalid actions under math mode
	case LFUN_MATH_MODE:
		if (mathcursor->getLastCode()!= LM_TC_TEXTRM) {
			bv->owner()->message(_("math text mode"));
			varcode = LM_TC_TEXTRM;
		} else {
			varcode = LM_TC_VAR;
		}
		mathcursor->setLastCode(varcode);
		break;

	case LFUN_UNDO:
		bv->owner()->message(_("Invalid action in math mode!"));
		break;

	case LFUN_MATH_EXTERN:
		HandleExtern(arg, bv);
		break;

		//------- dummy actions
#ifdef WITH_WARNINGS
#warning Is this needed here? Shouldnt the main dispatch handle this? (Lgb)
#endif
		//case LFUN_EXEC_COMMAND:
		//bv->owner()->getMiniBuffer()->PrepareForCommand();
		//break;

	default:
		if ((action == -1  || action == LFUN_SELFINSERT)
		    && !arg.empty())  {
			unsigned char c = arg[0];
			bv->lockedInsetStoreUndo(Undo::INSERT);

			if (c == ' ' && mathcursor->getAccent() == LM_hat) {
				c = '^';
				mathcursor->setAccent(0);
			}

			if (c == 0) {      // Dead key, do nothing
				//lyxerr << "deadkey" << endl;
				break;
			}

			if (isalpha(c)) {
				if (mathcursor->getLastCode() == LM_TC_TEX) {
					mathcursor->MacroModeOpen();
					mathcursor->clearLastCode();
					varcode = LM_TC_MIN;
				} else if (!varcode) {		
					short f = (mathcursor->getLastCode()) ?
						mathcursor->getLastCode() :
						static_cast<MathedTextCodes>(mathcursor->GetFCode());
					varcode = MathIsAlphaFont(f) ?
						static_cast<MathedTextCodes>(f) :
						LM_TC_VAR;
				}
				
				//	     lyxerr << "Varcode << vardoce;
				MathedTextCodes char_code = varcode;
				if (greek_kb_flag) {
					char greek[26] =
					{'A', 'B', 'X',  0 , 'E',  0 ,  0 , 'H', 'I',  0 ,
					 'K',  0 , 'M', 'N', 'O',  0 ,  0 , 'P',  0 , 'T',
					 'Y',  0,   0,   0,   0 , 'Z' };
					
					if ('A' <= c && c <= 'Z' && greek[c - 'A']) {
						char_code = LM_TC_RM;
						c = greek[c - 'A'];
					} else
						char_code = LM_TC_SYMB;
				}
				
				mathcursor->Insert(c, char_code);
				
				if (greek_kb_flag && char_code == LM_TC_RM )
					mathcursor->setLastCode(LM_TC_VAR);
				
				varcode = LM_TC_MIN;
				
				if (greek_kb_flag < 2)
					greek_kb_flag = 0;
#if 0
			} else if (strchr("!,:;{}", c) && (varcode == LM_TC_TEX||was_macro)) {
#else
			} else if (contains("!,:;{}", c)
				   && (varcode == LM_TC_TEX||was_macro)) {
#endif
				mathcursor->Insert(c, LM_TC_TEX);
				if (c == '{') {
					mathcursor->Insert('}', LM_TC_TEX);
					mathcursor->Left();
				}
				mathcursor->clearLastCode();
				//	       varcode = LM_TC_MIN;
			} else if (c == '_' && varcode == LM_TC_TEX) {
				mathcursor->Insert(c, LM_TC_SPECIAL);
				mathcursor->clearLastCode();
				//	       varcode = LM_TC_MIN;
			} else if (('0'<= c && c<= '9') && (varcode == LM_TC_TEX||was_macro)) {
				mathcursor->MacroModeOpen();
				mathcursor->clearLastCode();
				mathcursor->Insert(c, LM_TC_MIN);
			} else if (('0'<= c && c<= '9') ||
#if 0
				   strchr(";:!|[]().,?", c)
#else
				   contains(";:!|[]().,?", c)
#endif
				) {
				mathcursor->Insert(c, LM_TC_CONST);
			} else if (
#if 0
				strchr("+/-*<>=", c)
#else
				contains("+/-*<>=", c)
#endif
				) {
				mathcursor->Insert(c, LM_TC_BOP);
			} else if (
#if 0
				strchr(latex_special_chars, c)
#else
				contains(latex_special_chars, c)
#endif
				&& c!= '_') {
				mathcursor->Insert(c, LM_TC_SPECIAL);
			} else if (c == '_' || c == '^') {
				char s[2];
				s[0] = c;
				s[1] = 0;
				mathcursor->Interpret(s);
			} else if (c == ' ') {	
				if (!varcode) {	
					short f = (mathcursor->getLastCode()) ?
						mathcursor->getLastCode() :
						static_cast<MathedTextCodes>(mathcursor->GetFCode());
					varcode = MathIsAlphaFont(f) ?
						static_cast<MathedTextCodes>(f) :
						LM_TC_VAR;
				}
				
				if (varcode == LM_TC_TEXTRM) {
					mathcursor->Insert(c, LM_TC_TEXTRM);
				} else if (was_macro) {
					mathcursor->MacroModeClose();
				} else if (sp) {
					int isp = (sp->GetSpace()<5) ? sp->GetSpace()+1: 0;
					sp->SetSpace(isp);
					space_on = true;
				} else if (!mathcursor->Pop() && mathcursor->IsEnd())
					result = FINISHED;
			} else if (c == '\'' || c == '@') {
				mathcursor->Insert (c, LM_TC_VAR);
			} else if (c == '\\') {
				if (was_macro)
					mathcursor->MacroModeClose();
				// This line nukes the mathcursor. Why?
#ifdef WITH_WARNINGS
#warning Still? (Lgb)
#endif
				bv->owner()->message(_("TeX mode"));
				mathcursor->setLastCode(LM_TC_TEX);
			}
			// Andre:
			UpdateLocal(bv);
		} else if (action == LFUN_MATH_PANEL) {
			result = UNDISPATCHED;
		} else {
			// lyxerr << "Closed by action " << action << endl;
			result =  FINISHED;
		}
	}
	
	//UpdateLocal(bv);
	
	// Andre:
	if ((mathcursor && was_macro != mathcursor->InMacroMode())
	    && action >= 0
	    && action != LFUN_BACKSPACE) 
  		UpdateLocal(bv);

	if (sp && !space_on)
		sp = 0;

	if (mathcursor && (mathcursor->Selection() || was_selection))
		ToggleInsetSelection(bv);

	if (result == DISPATCHED || result == DISPATCHED_NOUPDATE ||
	    result == UNDISPATCHED)
		ShowInsetCursor(bv);
	else
		bv->unlockInset(this);

	return result;  // original version
}


namespace {

void mathedValidate(LaTeXFeatures & features, MathParInset * par)
{
	MathedIter it(&par->GetData());

	while (it.OK() && !(features.binom && features.boldsymbol)) {
		if (it.IsInset()) {
			if (it.IsActive()) {
				MathParInset * p = it.GetActiveInset();
				if (!features.binom && p->GetType() == LM_OT_MACRO &&
				    p->GetName() == "binom") {
					features.binom = true;
				} else {
					for (int i = 0; i <= p->getMaxArgumentIdx(); ++i) {
						p->setArgumentIdx(i);
						mathedValidate(features, p);
					}
				}
			} else {
				MathedInset * p = it.GetInset();
				if (!features.boldsymbol && p->GetName() == "boldsymbol") {
					features.boldsymbol = true;
				}
			}
		}
		it.Next();
	}
}


int mathed_write(MathParInset * p, ostream & os,
		 bool fragile, string const & label)
{
	number_of_newlines = 0;
	short mathed_env = p->GetType();
	
	if (mathed_env == LM_OT_MIN) {
		if (fragile) os << "\\protect";
		os << "\\( "; // changed from " \\( " (Albrecht Dress)
	} else {
		if (mathed_env == LM_OT_PAR){
			os << "\\[\n";
		} else {
			os << "\\begin{"
			   << latex_mathenv[mathed_env]
			   << "}";
			if (is_multicolumn(mathed_env)) {
				if (mathed_env != LM_OT_ALIGNAT
				    && mathed_env != LM_OT_ALIGNATN)
					os << "%";
				os << "{" << p->GetColumns()/2 << "}";
			}
			os << "\n";
		}
		++number_of_newlines;
	}
	
	if (!label.empty() && label[0] > ' '
	    && is_singlely_numbered(mathed_env)) {
		os << "\\label{"
		   << label
		   << "}\n";
		++number_of_newlines;
	}
	
	p->Write(os, fragile);
	
	if (mathed_env == LM_OT_MIN){
		if (fragile) os << "\\protect";
		os << " \\)";
	} else if (mathed_env == LM_OT_PAR) {
		os << "\\]\n";
		++number_of_newlines;
	} else {
		os << "\n\\end{"
		   << latex_mathenv[mathed_env]
		   << "}\n";
		number_of_newlines += 2;
	}
	return number_of_newlines;
}

} // namespace anon


/* FIXME: math-greek-toggle seems to work OK, but math-greek doesn't turn
 * on greek mode */
bool math_insert_greek(BufferView * bv, char c)
{
	if (bv->available() &&
	    (('A' <= c && c <= 'Z') ||
	     ('a'<= c && c<= 'z')))   {
		string tmp;
		tmp = c;
		if (!bv->theLockingInset() || bv->theLockingInset()->IsTextInset()) {
			int greek_kb_flag_save = greek_kb_flag;
			InsetFormula * new_inset = new InsetFormula();
			bv->beforeChange(bv->text);
			if (!bv->insertInset(new_inset)) {
				delete new_inset;
				return false;
			}
//	 Update(1);//BUG
			new_inset->Edit(bv, 0, 0, 0);
			new_inset->LocalDispatch(bv, LFUN_SELFINSERT, tmp);
			if (greek_kb_flag_save < 2) {
				bv->unlockInset(new_inset); // bv->theLockingInset());
				bv->text->CursorRight(bv, true);
			}
		} else
			if (bv->theLockingInset()->LyxCode() == Inset::MATH_CODE ||
			    bv->theLockingInset()->LyxCode() == Inset::MATHMACRO_CODE)
				static_cast<InsetFormula*>(bv->theLockingInset())->LocalDispatch(bv, LFUN_SELFINSERT, tmp);
			else
				lyxerr << "Math error: attempt to write on a wrong "
					"class of inset." << endl;
		return true;
	}
	return false;
}

void InsetFormula::HandleExtern(const string & arg, BufferView * bv)
{
	//string outfile = lyx::tempName("maple.out");
	string outfile = "/tmp/lyx2" + arg + ".out";
	ostringstream os;
	par->WriteNormal(os); 
	string code = os.str().c_str();
	string script = "lyx2" + arg + " '" + code + "' " + outfile;
	lyxerr << "calling: " << script << endl;
	Systemcalls cmd(Systemcalls::System, script, 0);

	ifstream is(outfile.c_str());
	MathedArray ar;
	mathed_parser_file(is, 0);
	mathed_parse(ar, par, 0);
	par->array = ar;

	UpdateLocal(bv);
}