spreadwi.cpp

Linux/windows 环境下跨平台开发程序

//spreadwin.cpp, (c)2000, 2001, 2002, 2003, 2004, 2005 by R. Lackner
//
//    This file is part of RLPlot.
//
//    RLPlot 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; either version 2 of the License, or
//    (at your option) any later version.
//
//    RLPlot 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 RLPlot; if not, write to the Free Software
//    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
#include "rlplot.h"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

#include <fcntl.h>				//file open flags
#include <sys/stat.h>			//I/O flags

#ifdef _WINDOWS
	#include <io.h>					//for read/write
#else
	#define O_BINARY 0x0
	#include <unistd.h>
#endif

extern const LineDEF GrayLine;
extern EditText *CurrText;
extern char *LoadFile;
extern char TmpTxt[];
extern Default defs;
extern UndoObj Undo;

static ReadCache *Cache = 0L;
static TextDEF ssText;

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// Get item from *.csv file
bool GetItemCSV(char *Text, int cbText)
{
	char c;
	int i;

	for (i = 0,	*Text = 0; i < cbText; ) {
		c = Cache->Getc();
		switch(c) {
		case ',':			//column separator
			Text[i] = 0;
			return true;
		case 0x0a:			//end of line: mark by false return but text o.k.
			Text[i] = 0;
			return false;
		default:
			if(c > 0x20) Text[i++] = c;	//printable character
			else if(i >0 && c == 0x20) Text[i++] = c;
			else if(!c && Cache->IsEOF()) {
				Text[i] = 0;
				return false;
				}
			else Text[i] = 0;	//ignore non printing characters
			}
		}
	return false;
}

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// process a memory block (i.e. clipboard data) as if file input
int ProcMemData(GraphObj *g, unsigned char *ptr, bool dispatch)
{
	int i, RetVal = FF_UNKNOWN, nt, nl, nc, ns;

	if(ptr) {
		for(i = nt = nl = nc = ns = 0; ptr[i] && nl<100; i++) {
			switch(ptr[i]) {
			case 0x09:				//tab
				nt++;
				break;
			case 0x0a:				//LF
				nl++;
				break;
			case ',':
				nc++;
				break;
			case ' ':
				ns++;
				break;
				}
			}
		if(dispatch && i && !nt && !nl) {
			if(CurrText){
				g->Command(CMD_SETFOCUS, 0L, 0L);
				for(i = 0; ptr[i]; i++)	CurrText->AddChar(ptr[i], i? 0L : Undo.cdisp, 0L);
				g->Command(CMD_REDRAW, 0L, 0L);
				}
			}
		else if(nt) RetVal = FF_TSV;
		else if(nl && ptr[0] == '<') RetVal = FF_XML;
		else if(nc == nl && defs.DecPoint[0] == ',') RetVal = FF_TSV;
		else if(nl && nc && 0 == (nc % nl)) RetVal = FF_CSV;
		else if(nl && ns && 0 == (ns % nl)) RetVal = FF_SSV;
		else if(nl) RetVal = FF_TSV;
		if(dispatch) switch(RetVal) {
		case FF_CSV:	g->Command(CMD_PASTE_CSV, ptr, 0L);	break;
		case FF_TSV:	g->Command(CMD_PASTE_TSV, ptr, 0L);	break;
		case FF_SSV:	g->Command(CMD_PASTE_SSV, ptr, 0L);	break;
		case FF_XML:	g->Command(CMD_PASTE_XML, ptr, 0L); break;
			}
		}
	return RetVal;
}

//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
// This graphic object displays a spreadsheet
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
class SpreadWin:public GraphObj{
public:
	anyOutput *w;
	POINT ssOrg;
	RECT currRC;

	SpreadWin(GraphObj *par, DataObj *Data);
	~SpreadWin();
	void DoPlot(anyOutput *target);
	bool Command(int cmd, void *tmpl, anyOutput *o);

	bool ShowGrid(int CellWidth, int CellHeight, int FirstWidth, POINT *cpos);
	bool PrintData(anyOutput *o);
	void WriteGraphXML(unsigned char **ptr, long *cbd);

private:
	int ch, cw, fw;				//cell height and width, row button width
	bool is_modified;
	char *filename;
	ssButton **cButtons, **rButtons;
	ssButton *aButton;
	POINT cpos;
	DataObj *d;
	int NumGraphs;
	Graph **g;
};

SpreadWin::SpreadWin(GraphObj *par, DataObj *Data):GraphObj(par, Data)
{
	d = Data;	g = 0L;		ssOrg.x =  ssOrg.y = 0;		NumGraphs = 0;
	ch = 19;	cw = 76;	fw = 32;	filename=0L;	aButton = 0L;
	w = 0L;
	if(w = NewDispClass(this)){
		w->hasHistMenu = true;
		ssText.RotBL = ssText.RotCHAR = 0.0;
		ssText.fSize = 0.0f;
#ifdef _WINDOWS
		ssText.iSize = w->un2iy(defs.GetSize(SIZE_CELLTEXT));
#else
		ssText.iSize = w->un2iy(defs.GetSize(SIZE_CELLTEXT)*.7);
#endif
		ssText.Align = TXA_VCENTER | TXA_HLEFT;		ssText.Mode = TXM_TRANSPARENT;
		ssText.Style = TXS_NORMAL;					ssText.ColBg = 0x00e8e8e8L;
		ssText.ColTxt = 0x00000000L;				ssText.text = 0L;
		ssText.Font = FONT_HELVETICA;				w->SetTextSpec(&ssText);
		w->SetMenu(MENU_SPREAD);					w->FileHistory();
		w->Erase(0x00e8e8e8L);						w->Caption("RLPlot data");
		cw = w->un2ix(defs.GetSize(SIZE_CELLWIDTH));
		ch = w->un2iy(defs.GetSize(SIZE_CELLTEXT)/defs.ss_txt) + 2;
		fw = 32;
		}
	cButtons = rButtons = 0L;
	Id = GO_SPREADDATA;
	is_modified = false;
}

SpreadWin::~SpreadWin()
{
	int i;

	if(parent) {
		if(cButtons) {
			for(i = 0; cButtons[i]; i++) if(cButtons[i]) delete(cButtons[i]);
			free(cButtons);
			}
		if(rButtons) {
			for(i = 0; rButtons[i]; i++) if(rButtons[i]) delete(rButtons[i]);
			free(rButtons);
			}
		if (aButton) delete(aButton);
		if (w) delete w;
		if (g && NumGraphs) {
			for(i = 0; i < NumGraphs; i++) if(g[i]) {
				g[i]->Command(CMD_CAN_DELETE, 0L, 0L);
				delete(g[i]);
				}
			free (g);
			}
		if(filename) free(filename);	filename=0L;
		}
}

void
SpreadWin::DoPlot(anyOutput *o)
{
	o->ActualSize(&currRC);
	o->StartPage();
	d->Command(CMD_DOPLOT, (void*)this, o);
	o->EndPage();
}

bool
SpreadWin::Command(int cmd, void *tmpl, anyOutput *o)
{
	char *Name;
	Graph **g1, *g2;
	int i, j, k;
	MouseEvent *mev;
	POINT p1;

	if(d) {
		switch(cmd) {
		case CMD_CURRPOS:
			if(tmpl && cButtons && rButtons) {
				int ac = 1, na =  0;
				RECT urc;
				if(((POINT*)tmpl)->x != cpos.x) {
					for(cpos.x = ((POINT*)tmpl)->x, i = 0; cButtons[i]; i++) {
						cButtons[i]->Command(CMD_SELECT, (cpos.x == (i+ssOrg.x)) ? &ac : &na, w);
						}
					urc.left = cButtons[0]->rDims.left;		urc.bottom = cButtons[0]->rDims.bottom;
					urc.top = cButtons[0]->rDims.top;		urc.right = urc.left + cw * (i-1);
					w->UpdateRect(&urc, false);
					}
				if(((POINT*)tmpl)->y != cpos.y) {
					for(cpos.y = ((POINT*)tmpl)->y, i = 0; rButtons[i]; i++) {
						rButtons[i]->Command(CMD_SELECT, (cpos.y == (i+ssOrg.y)) ? &ac : &na, w);
						}
					urc.left = rButtons[0]->rDims.left;		urc.right = rButtons[0]->rDims.right;
					urc.top = rButtons[0]->rDims.top;		urc.bottom = urc.top + ch * (i-1);
					w->UpdateRect(&urc, false);
					}
				}
			return true;
		case CMD_CAN_CLOSE:
			HideTextCursor();
			for(i = 0; i < NumGraphs; i++) {
				if((g[i]) && !g[i]->Command(cmd, tmpl, o)) return false;
				}
			if(is_modified) {
				is_modified=false;
				i = YesNoCancelBox("The spreadsheet has been modified!\n\nDo you want to save it now?");
				if(i == 2) return false;
				else if(i == 1) return Command(CMD_SAVEDATAAS, tmpl, o);
				}
			//fall through
		case CMD_CAN_DELETE:
			HideTextCursor();
			if(is_modified && YesNoBox("The spreadsheet has been modified!\n\nDo you want to save it now?")){
				is_modified=false;
				return Command(CMD_SAVEDATAAS, tmpl, o);
				}
			Undo.KillDisp(w);
			is_modified=false;
			return true;
		case CMD_MRK_DIRTY:
			return is_modified = true;
		case CMD_WRITE_GRAPHS:
			if (g && NumGraphs) WriteGraphXML((unsigned char**)tmpl, (long*)o);
			return true;
		case CMD_DROP_GRAPH:
			if(o) o->FileHistory();
			if(!g) g = (Graph **)calloc(2, sizeof(Graph*));
			else {
				g1 = (Graph **)calloc(NumGraphs+2, sizeof(Graph*));
				if(!g1) return false;
				for(i = 0; i < NumGraphs; i++) g1[i] = g[i];
				free(g);
				g = g1; 
				}
			if(!g) return false;
			g[NumGraphs] = (Graph *)tmpl;
			if(g[NumGraphs]){
				g[NumGraphs]->parent = this;
				NumGraphs++;
				g[NumGraphs-1]->Command(CMD_SET_DATAOBJ, (void *)d, 0L);
				g[NumGraphs-1]->DoPlot(NULL);
				}
			return true;
		case CMD_NEWGRAPH:
			if((g2 = new Graph(this, d, 0L)) && g2->PropertyDlg() && 
				Command(CMD_DROP_GRAPH, g2, o))return Command(CMD_REDRAW, 0L, o);
			else if(g2) DeleteGO(g2);
			Undo.SetDisp(w);
			return false;
		case CMD_NEWPAGE:
			if((g2 = new Page(this, d)) && 
				Command(CMD_DROP_GRAPH, g2, o))return Command(CMD_REDRAW, 0L, o);
			else if(g2) DeleteGO(g2);
			Undo.SetDisp(w);
			return false;
		case CMD_DELGRAPH:
			if (g && NumGraphs) {
				for(i = 0; i < NumGraphs; i++) if(g[i]){
					g[i]->Command(CMD_CAN_DELETE, 0L, 0L);
					DeleteGO(g[i]);
					}
				free (g);
				}
			g = 0L;
			NumGraphs = 0;
			Undo.Flush();
			return true;
		case CMD_DELOBJ:
			if (g) {
				for(i = 0; i <= NumGraphs; i++) {
					if(g[i] == (Graph *)tmpl) {
						delete (g[i]);
						g[i] = 0L;
						return true;
						}
					}
				}
			return false;
		case CMD_SAVEDATAAS:
			is_modified=false;
			if((Name = SaveDataAsName(filename)) && Name[0]){
				if(o) o->FileHistory();
				if(Name && d->WriteData(Name)) {
					if(filename) free(filename);
					filename = strdup(Name);
					}
				else return false;
				}
			else return false;
			return true;
		case CMD_DROPFILE:
			if(!Command(CMD_CAN_CLOSE, 0L, o)) return false;
			if(IsRlpFile((char*)tmpl)) return OpenGraph(this, (char*)tmpl, 0L);
			else if(d->ReadData((char*)tmpl, 0L, FF_UNKNOWN)){
				if(filename) free(filename);
				filename = strdup((char*)tmpl);
				return Command(CMD_SETSCROLL, 0L, w);
				}
			return false;
		case CMD_OPEN:
			if(!Command(CMD_CAN_CLOSE, 0L, o)) return false;
			if((Name = OpenDataName(filename)) && Name[0]){
				if(o) o->FileHistory();
				if(IsRlpFile(Name)) return OpenGraph(this, Name, 0L);
				else if(d->ReadData(Name, 0L, FF_UNKNOWN)){
					if(filename) free(filename);
					filename = strdup(Name);
					return Command(CMD_SETSCROLL, 0L, w);
					}
				}
			return false;
		case CMD_ADDROWCOL:
			if(DoSpShSize(d)) DoPlot(o);
			return true;
		case CMD_MOUSE_EVENT:
			if(o && (mev = (MouseEvent*)tmpl) && mev->y > o->MenuHeight) {
				if(mev->x < fw && mev->y < (o->MenuHeight + ch) && aButton) {
					aButton->Command(cmd, tmpl, o);
					}
				else if(mev->x < fw && rButtons) {
					i = (mev->y - o->MenuHeight - ch)/ch;
					if(rButtons[i]) rButtons[i]->Command(cmd, tmpl, o);
					}
				else if(mev->y < (o->MenuHeight + ch) && cButtons) {
					i = (mev->x - fw)/cw;
					if(cButtons[i]) cButtons[i]->Command(cmd, tmpl, o);
					}
				else if(o->MrkMode == MRK_SSB_DRAW) o->HideMark();
				}
			return	d->Command(cmd, tmpl, o);
		case CMD_PASTE_TSV:		case CMD_PASTE_CSV:		case CMD_PASTE_SSV:
			Undo.DataObject(this, w, d, 0L, 0L);
		case CMD_COPY_SYLK:		case CMD_ADDCHAR:		case CMD_SHIFTUP:
		case CMD_COPY_TSV:		case CMD_COPY_XML:		case CMD_QUERY_COPY:
		case CMD_TAB:			case CMD_SHTAB:			case CMD_SHIFTDOWN:
		case CMD_CURRLEFT:		case CMD_CURRIGHT:		case CMD_CURRUP:
		case CMD_CURRDOWN:		case CMD_SHIFTRIGHT:	case CMD_POS_FIRST:
		case CMD_POS_LAST:		case CMD_SHIFTLEFT:		case CMD_DELETE:
		case CMD_TOOLMODE:		case CMD_FILLRANGE:		case CMD_CUT:
		case CMD_PASTE_XML:		case CMD_DELROW:		case CMD_INSROW:
		case CMD_INSCOL:		case CMD_DELCOL:		case CMD_UNDO:
		case CMD_SHPGUP:		case CMD_SHPGDOWN:
			return d->Command(cmd, tmpl, o);
		case CMD_REDRAW:
			Undo.SetDisp(w);
			d->Command(cmd, tmpl, o);
			return true;
		case CMD_SETSCROLL:
			HideTextCursor();
			o->ActualSize(&currRC);
			k = (currRC.bottom-currRC.top)/ch;
			d->GetSize(&i, &j);
			o->SetScroll(true, 0, j, k, ssOrg.y);
			k = (currRC.right-currRC.left)/cw;
			o->SetScroll(false, 0, i, k, ssOrg.x);
			DoPlot(o);
			return true;
		case CMD_PAGEUP:		case CMD_PAGEDOWN:
			k = (currRC.bottom-currRC.top)/ch;
			k = k > 3 ? k-2 : 1;
			p1.x = fw + 2;		p1.y = ch + 2;
			if(CurrText){
				p1.x = CurrText->GetX()+2;	p1.y = CurrText->GetY()+12;
				}
			d->GetSize(&i, &j);
			if(cmd == CMD_PAGEUP) ssOrg.y = ssOrg.y > k ? ssOrg.y-k : 0;
			else ssOrg.y = ssOrg.y < j-k*2 ? ssOrg.y+k : j > k ? j-k : 0;
			Command(CMD_SETSCROLL, tmpl, o);
			CurrText = 0L;		d->Select(&p1);
			return true;