Import sources from 2011-03-30 iso image

1 files changed, 542 insertions, 0 deletions

diff --git a/sys/src/libcontrol/text.c b/sys/src/libcontrol/text.c
new file mode 100755
index 000000000..7c3d9f86a
--- /dev/null
+++ b/sys/src/libcontrol/text.c
@@ -0,0 +1,542 @@
+#include <u.h>
+#include <libc.h>
+#include <draw.h>
+#include <thread.h>
+#include <mouse.h>
+#include <keyboard.h>
+#include <control.h>
+
+static int debug = 0;
+
+typedef struct Text Text;
+
+struct Text
+{
+	Control;
+	int		border;
+	int		topline;
+	int		scroll;
+	int		nvis;
+	int		lastbut;
+	CFont	*font;
+	CImage	*image;
+	CImage	*textcolor;
+	CImage	*bordercolor;
+	CImage	*selectcolor;
+	CImage	*selectingcolor;
+	Rune		**line;
+	int		selectmode;	// Selsingle, Selmulti
+	int		selectstyle;	// Seldown, Selup (use Selup only with Selsingle)
+	uchar	*selected;
+	int		nline;
+	int		warp;
+	int		align;
+	int		sel;		// line nr of selection made by last button down
+	int		but;		// last button down (still being hold)
+	int		offsel;	// we are on selection
+};
+
+enum
+{
+	Selsingle,
+	Selmulti,
+	Seldown,
+	Selup,
+};
+
+enum{
+	EAccumulate,
+	EAdd,
+	EAlign,
+	EBorder,
+	EBordercolor,
+	EClear,
+	EDelete,
+	EFocus,
+	EFont,
+	EHide,
+	EImage,
+	ERect,
+	EReplace,
+	EReveal,
+	EScroll,
+	ESelect,
+	ESelectcolor,
+	ESelectingcolor,
+	ESelectmode,
+	ESelectstyle,
+	EShow,
+	ESize,
+	ETextcolor,
+	ETopline,
+	EValue,
+	EWarp,
+};
+
+static char *cmds[] = {
+	[EAccumulate] =	"accumulate",
+	[EAdd] =			"add",
+	[EAlign] =			"align",
+	[EBorder] =		"border",
+	[EBordercolor] =	"bordercolor",
+	[EClear] =			"clear",
+	[EDelete] =		"delete",
+	[EFocus] = 		"focus",
+	[EFont] =			"font",
+	[EHide] =			"hide",
+	[EImage] =		"image",
+	[ERect] =			"rect",
+	[EReplace] =		"replace",
+	[EReveal] =		"reveal",
+	[EScroll] =			"scroll",
+	[ESelect] =		"select",
+	[ESelectcolor] =	"selectcolor",
+	[ESelectingcolor] =	"selectingcolor",
+	[ESelectmode] =	"selectmode",
+	[ESelectstyle] =		"selectstyle",
+	[EShow] =			"show",
+	[ESize] =			"size",
+	[ETextcolor] =		"textcolor",
+	[ETopline] =		"topline",
+	[EValue] =			"value",
+	[EWarp] =			"warp",
+	nil
+};
+
+static void	textshow(Text*);
+static void	texttogglei(Text*, int);
+static int	textline(Text*, Point);
+static int	texttoggle(Text*, Point);
+
+static void
+textmouse(Control *c, Mouse *m)
+{
+	Text *t;
+	int sel;
+
+	t = (Text*)c;
+	if (debug) fprint(2, "textmouse %s t->lastbut %d; m->buttons %d\n", t->name, t->lastbut, m->buttons);
+	if (t->warp >= 0)
+		return;
+	if ((t->selectstyle == Selup) && (m->buttons&7)) {
+		sel = textline(t, m->xy);
+		if (t->sel >= 0) {
+//			if (debug) fprint(2, "textmouse Selup %q sel=%d t->sel=%d t->but=%d\n",
+//						t->name, sel, t->sel, t->but);
+			t->offsel = (sel == t->sel) ? 0 : 1;
+			if ((sel == t->sel &&
+				    ((t->selected[t->sel] && !t->but) ||
+				     ((!t->selected[t->sel]) && t->but))) ||
+			    (sel != t->sel &&
+				     ((t->selected[t->sel] && t->but) ||
+                                         ((!t->selected[t->sel]) && (!t->but))))) {
+				texttogglei(t, t->sel);
+			}
+		}
+	}
+	if(t->lastbut != (m->buttons&7)){
+		if(m->buttons & 7){
+			sel = texttoggle(t, m->xy);
+			if(sel >= 0) {
+				if (t->selectstyle == Seldown) {
+					chanprint(t->event, "%q: select %d %d",
+						t->name, sel, t->selected[sel] ? (m->buttons & 7) : 0);
+					if (debug) fprint(2, "textmouse Seldown event %q: select %d %d\n",
+						t->name, sel, t->selected[sel] ? (m->buttons & 7) : 0);
+				} else {
+					if (debug) fprint(2, "textmouse Selup no event yet %q: select %d %d\n",
+						t->name, sel, t->selected[sel] ? (m->buttons & 7) : 0);
+					t->sel = sel;
+					t->but =  t->selected[sel] ? (m->buttons & 7) : 0;
+				}
+			}
+		} else if (t->selectstyle == Selup) {
+			sel = textline(t, m->xy);
+			t->offsel = 0;
+			if ((sel >= 0) && (sel == t->sel)) {
+				chanprint(t->event, "%q: select %d %d",
+					t->name, sel, t->but);
+				if (debug) fprint(2, "textmouse Selup event %q: select %d %d\n",
+					t->name, sel, t->but);
+			} else if (sel != t->sel) {
+				if  ((t->selected[t->sel] && t->but) ||
+                                         ((!t->selected[t->sel]) && (!t->but))) {
+					texttogglei(t, t->sel);
+				} else {
+					textshow(t);
+				}
+				if (debug) fprint(2, "textmouse Selup cancel %q: select %d %d\n",
+					t->name, sel, t->but);
+			}
+			t->sel = -1;
+			t->but = 0;
+		}
+		t->lastbut = m->buttons & 7;
+	}
+}
+
+static void
+textfree(Control *c)
+{
+	int i;
+	Text *t;
+
+	t = (Text*)c;
+	_putctlfont(t->font);
+	_putctlimage(t->image);
+	_putctlimage(t->textcolor);
+	_putctlimage(t->bordercolor);
+	_putctlimage(t->selectcolor);
+	_putctlimage(t->selectingcolor);
+	for(i=0; i<t->nline; i++)
+		free(t->line[i]);
+	free(t->line);
+	free(t->selected);
+}
+
+static void
+textshow(Text *t)
+{
+	Rectangle r, tr;
+	Point p;
+	int i, ntext;
+	Font *f;
+	Rune *text;
+
+	if (t->hidden)
+		return;
+	r = t->rect;
+	f = t->font->font;
+	draw(t->screen, r, t->image->image, nil, t->image->image->r.min);
+	if(t->border > 0){
+		border(t->screen, r, t->border, t->bordercolor->image, t->bordercolor->image->r.min);
+		r = insetrect(r, t->border);
+	}
+	tr = r;
+	t->nvis = Dy(r)/f->height;
+	for(i=t->topline; i<t->nline && i<t->topline+t->nvis; i++){
+		text = t->line[i];
+		ntext = runestrlen(text);
+		r.max.y = r.min.y+f->height;
+		if(t->sel == i && t->offsel)
+			draw(t->screen, r, t->selectingcolor->image, nil, ZP);
+		else if(t->selected[i])
+			draw(t->screen, r, t->selectcolor->image, nil, ZP);
+		p = _ctlalignpoint(r,
+			runestringnwidth(f, text, ntext),
+			f->height, t->align);
+		if(t->warp == i) {
+			Point p2;
+			 p2.x = p.x + 0.5*runestringnwidth(f, text, ntext);
+			 p2.y = p.y + 0.5*f->height;
+			moveto(t->controlset->mousectl, p2);
+			t->warp = -1;
+		}
+		_string(t->screen, p, t->textcolor->image,
+			ZP, f, nil, text, ntext, tr,
+			nil, ZP, SoverD);
+		r.min.y += f->height;
+	}
+	flushimage(display, 1);
+}
+
+static void
+textctl(Control *c, CParse *cp)
+{
+	int cmd, i, n;
+	Rectangle r;
+	Text *t;
+	Rune *rp;
+
+	t = (Text*)c;
+	cmd = _ctllookup(cp->args[0], cmds, nelem(cmds));
+	switch(cmd){
+	default:
+		ctlerror("%q: unrecognized message '%s'", t->name, cp->str);
+		break;
+	case EAlign:
+		_ctlargcount(t, cp, 2);
+		t->align = _ctlalignment(cp->args[1]);
+		break;
+	case EBorder:
+		_ctlargcount(t, cp, 2);
+		if(cp->iargs[1] < 0)
+			ctlerror("%q: bad border: %c", t->name, cp->str);
+		t->border = cp->iargs[1];
+		break;
+	case EBordercolor:
+		_ctlargcount(t, cp, 2);
+		_setctlimage(t, &t->bordercolor, cp->args[1]);
+		break;
+	case EClear:
+		_ctlargcount(t, cp, 1);
+		for(i=0; i<t->nline; i++)
+			free(t->line[i]);
+		free(t->line);
+		free(t->selected);
+		t->line = ctlmalloc(sizeof(Rune*));
+		t->selected = ctlmalloc(1);
+		t->nline = 0;
+		textshow(t);
+		break;
+	case EDelete:
+		_ctlargcount(t, cp, 2);
+		i = cp->iargs[1];
+		if(i<0 || i>=t->nline)
+			ctlerror("%q: line number out of range: %s", t->name, cp->str);
+		free(t->line[i]);
+		memmove(t->line+i, t->line+i+1, (t->nline-(i+1))*sizeof(Rune*));
+		memmove(t->selected+i, t->selected+i+1, t->nline-(i+1));
+		t->nline--;
+		textshow(t);
+		break;
+	case EFocus:
+		break;
+	case EFont:
+		_ctlargcount(t, cp, 2);
+		_setctlfont(t, &t->font, cp->args[1]);
+		break;
+	case EHide:
+		_ctlargcount(t, cp, 1);
+		t->hidden = 1;
+		break;
+	case EImage:
+		_ctlargcount(t, cp, 2);
+		_setctlimage(t, &t->image, cp->args[1]);
+		break;
+	case ERect:
+		_ctlargcount(t, cp, 5);
+		r.min.x = cp->iargs[1];
+		r.min.y = cp->iargs[2];
+		r.max.x = cp->iargs[3];
+		r.max.y = cp->iargs[4];
+		if(Dx(r)<=0 || Dy(r)<=0)
+			ctlerror("%q: bad rectangle: %s", t->name, cp->str);
+		t->rect = r;
+		t->nvis = (Dy(r)-2*t->border)/t->font->font->height;
+		break;
+	case EReplace:
+		_ctlargcount(t, cp, 3);
+		i = cp->iargs[1];
+		if(i<0 || i>=t->nline)
+			ctlerror("%q: line number out of range: %s", t->name, cp->str);
+		free(t->line[i]);
+		t->line[i] = _ctlrunestr(cp->args[2]);
+		textshow(t);
+		break;
+	case EReveal:
+		_ctlargcount(t, cp, 1);
+		t->hidden = 0;
+		textshow(t);
+		break;
+	case EScroll:
+		_ctlargcount(t, cp, 2);
+		t->scroll = cp->iargs[1];
+		break;
+	case ESelect:
+		if(cp->nargs!=2 && cp->nargs!=3)
+	badselect:
+			ctlerror("%q: bad select message: %s", t->name, cp->str);
+		if(cp->nargs == 2){
+			if(strcmp(cp->args[1], "all") == 0){
+				memset(t->selected, 1, t->nline);
+				break;
+			}
+			if(strcmp(cp->args[1], "none") == 0){
+				memset(t->selected, 0, t->nline);
+				break;
+			}
+			if(cp->args[1][0]<'0' && '9'<cp->args[1][0])
+				goto badselect;
+			texttogglei(t, cp->iargs[1]);
+			break;
+		}
+		if(cp->iargs[1]<0 || cp->iargs[1]>=t->nline)
+			ctlerror("%q: selection index out of range (nline %d): %s", t->name, t->nline, cp->str);
+		if(t->selected[cp->iargs[1]] != (cp->iargs[2]!=0))
+			texttogglei(t, cp->iargs[1]);
+		break;
+	case ESelectcolor:
+		_ctlargcount(t, cp, 2);
+		_setctlimage(t, &t->selectcolor, cp->args[1]);
+		break;
+	case ESelectmode:
+		_ctlargcount(t, cp, 2);
+		if(strcmp(cp->args[1], "single") == 0)
+			t->selectmode = Selsingle;
+		else if(strncmp(cp->args[1], "multi", 5) == 0)
+			t->selectmode = Selmulti;
+		break;
+	case ESelectstyle:
+		_ctlargcount(t, cp, 2);
+		 if(strcmp(cp->args[1], "down") == 0)
+			t->selectstyle = Seldown;
+		else if(strcmp(cp->args[1], "up") == 0)
+			t->selectstyle = Selup;
+		break;
+	case EShow:
+		_ctlargcount(t, cp, 1);
+		textshow(t);
+		break;
+	case ESize:
+		if (cp->nargs == 3)
+			r.max = Pt(10000, 10000);
+		else{
+			_ctlargcount(t, cp, 5);
+			r.max.x = cp->iargs[3];
+			r.max.y = cp->iargs[4];
+		}
+		r.min.x = cp->iargs[1];
+		r.min.y = cp->iargs[2];
+		if(r.min.x<=0 || r.min.y<=0 || r.max.x<=0 || r.max.y<=0 || r.max.x < r.min.x || r.max.y < r.min.y)
+			ctlerror("%q: bad sizes: %s", t->name, cp->str);
+		t->size.min = r.min;
+		t->size.max = r.max;
+		break;
+	case ETextcolor:
+		_ctlargcount(t, cp, 2);
+		_setctlimage(t, &t->textcolor, cp->args[1]);
+		break;
+	case ETopline:
+		_ctlargcount(t, cp, 2);
+		i = cp->iargs[1];
+		if(i < 0)
+			i = 0;
+		if(i > t->nline)
+			i = t->nline;
+		if(t->topline != i){
+			t->topline = i;
+			textshow(t);
+		}
+		break;
+	case EValue:
+		/* set contents to single line */
+		/* free existing text and fall through to add */
+		for(i=0; i<t->nline; i++){
+			free(t->line[i]);
+			t->line[i] = nil;
+		}
+		t->nline = 0;
+		t->topline = 0;
+		/* fall through */
+	case EAccumulate:
+	case EAdd:
+		switch (cp->nargs) {
+		default:
+			ctlerror("%q: wrong argument count in '%s'", t->name, cp->str);
+		case 2:
+			n = t->nline;
+			break;
+		case 3:
+			n = cp->iargs[1];
+			if(n<0 || n>t->nline)
+				ctlerror("%q: line number out of range: %s", t->name, cp->str);
+			break;
+		}
+		rp = _ctlrunestr(cp->args[cp->nargs-1]);
+		t->line = ctlrealloc(t->line, (t->nline+1)*sizeof(Rune*));
+		memmove(t->line+n+1, t->line+n, (t->nline-n)*sizeof(Rune*));
+		t->line[n] = rp;
+		t->selected = ctlrealloc(t->selected, t->nline+1);
+		memmove(t->selected+n+1, t->selected+n, t->nline-n);
+		t->selected[n] = (t->selectmode==Selmulti && cmd!=EAccumulate);
+		t->nline++;
+		if(t->scroll) {
+			if(n > t->topline + (t->nvis - 1)){
+				t->topline = n - (t->nvis - 1);
+				if(t->topline < 0)
+					t->topline = 0;
+			}
+			if(n < t->topline)
+				t->topline = n;
+		}
+		if(cmd != EAccumulate)
+			if(t->scroll || t->nline<=t->topline+t->nvis)
+				textshow(t);
+		break;
+	case EWarp:
+		_ctlargcount(t, cp, 2);
+		i = cp->iargs[1];
+		if(i <0 || i>=t->nline)
+			ctlerror("%q: selection index out of range (nline %d): %s", t->name, t->nline, cp->str);
+		if(i < t->topline || i >=  t->topline+t->nvis){
+			t->topline = i;
+		}
+		t->warp = cp->iargs[1];
+		textshow(t);
+		t->warp = -1;
+		break;
+	}
+}
+
+static void
+texttogglei(Text *t, int i)
+{
+	int prev;
+
+	if(t->selectmode == Selsingle){
+		/* clear the others */
+		prev = t->selected[i];
+		memset(t->selected, 0, t->nline);
+		t->selected[i] = prev;
+	}
+	t->selected[i] ^= 1;
+	textshow(t);
+}
+
+static int
+textline(Text *t, Point p)
+{
+	Rectangle r;
+	int i;
+
+	r = t->rect;
+	if(t->border > 0)
+		r = insetrect(r, t->border);
+	if(!ptinrect(p, r))
+		return -1;
+	i = (p.y-r.min.y)/t->font->font->height;
+	i += t->topline;
+	if(i >= t->nline)
+		return -1;
+	return i;
+}
+
+static int
+texttoggle(Text *t, Point p)
+{
+	int i;
+
+	i = textline(t, p);
+	if (i >= 0)
+		texttogglei(t, i);
+	return i;
+}
+
+Control*
+createtext(Controlset *cs, char *name)
+{
+	Text *t;
+
+	t = (Text*)_createctl(cs, "text", sizeof(Text), name);
+	t->line = ctlmalloc(sizeof(Rune*));
+	t->selected = ctlmalloc(1);
+	t->nline = 0;
+	t->image = _getctlimage("white");
+	t->textcolor = _getctlimage("black");
+	t->bordercolor = _getctlimage("black");
+	t->selectcolor = _getctlimage("yellow");
+	t->selectingcolor = _getctlimage("paleyellow");
+	t->font = _getctlfont("font");
+	t->selectmode = Selsingle;
+	t->selectstyle = Selup; // Seldown;
+	t->lastbut = 0;
+	t->mouse = textmouse;
+	t->ctl = textctl;
+	t->exit = textfree;
+	t->warp = -1;
+	t->sel = -1;
+	t->offsel = 0;
+	t->but = 0;
+	return (Control *)t;
+}