12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415 |
- /*
- * This file is part of the UCB release of Plan 9. It is subject to the license
- * terms in the LICENSE file found in the top-level directory of this
- * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No
- * part of the UCB release of Plan 9, including this file, may be copied,
- * modified, propagated, or distributed except according to the terms contained
- * in the LICENSE file.
- */
- #include <u.h>
- #include <libc.h>
- #include <draw.h>
- #include <thread.h>
- #include <cursor.h>
- #include <mouse.h>
- #include <keyboard.h>
- #include <frame.h>
- #include <fcall.h>
- #include <plumb.h>
- #include <complete.h>
- #include "dat.h"
- #include "fns.h"
- Image *tagcols[NCOL];
- Image *textcols[NCOL];
- enum{
- TABDIR = 3 /* width of tabs in directory windows */
- };
- void
- textinit(Text *t, File *f, Rectangle r, Reffont *rf, Image *cols[NCOL])
- {
- t->file = f;
- t->all = r;
- t->scrollr = r;
- t->scrollr.max.x = r.min.x+Scrollwid;
- t->lastsr = nullrect;
- r.min.x += Scrollwid+Scrollgap;
- t->eq0 = ~0;
- t->ncache = 0;
- t->reffont = rf;
- t->tabstop = maxtab;
- memmove(t->Frame.cols, cols, sizeof t->Frame.cols);
- textredraw(t, r, rf->f, screen, -1);
- }
- void
- textredraw(Text *t, Rectangle r, Font *f, Image *b, int odx)
- {
- int maxt;
- Rectangle rr;
- frinit(&t->Frame, r, f, b, t->Frame.cols);
- rr = t->Frame.r;
- rr.min.x -= Scrollwid+Scrollgap; /* back fill to scroll bar */
- draw(t->Frame.b, rr, t->Frame.cols[BACK], nil, ZP);
- /* use no wider than 3-space tabs in a directory */
- maxt = maxtab;
- if(t->what == Body){
- if(t->w->isdir)
- maxt = min(TABDIR, maxtab);
- else
- maxt = t->tabstop;
- }
- t->Frame.maxtab = maxt*stringwidth(f, "0");
- if(t->what==Body && t->w->isdir && odx!=Dx(t->all)){
- if(t->Frame.maxlines > 0){
- textreset(t);
- textcolumnate(t, t->w->dlp, t->w->ndl);
- textshow(t, 0, 0, 1);
- }
- }else{
- textfill(t);
- textsetselect(t, t->q0, t->q1);
- }
- }
- int
- textresize(Text *t, Rectangle r)
- {
- int odx;
- if(Dy(r) > 0)
- r.max.y -= Dy(r)%t->Frame.font->height;
- else
- r.max.y = r.min.y;
- odx = Dx(t->all);
- t->all = r;
- t->scrollr = r;
- t->scrollr.max.x = r.min.x+Scrollwid;
- t->lastsr = nullrect;
- r.min.x += Scrollwid+Scrollgap;
- frclear(&t->Frame, 0);
- textredraw(t, r, t->Frame.font, t->Frame.b, odx);
- return r.max.y;
- }
- void
- textclose(Text *t)
- {
- free(t->cache);
- frclear(&t->Frame, 1);
- filedeltext(t->file, t);
- t->file = nil;
- rfclose(t->reffont);
- if(argtext == t)
- argtext = nil;
- if(typetext == t)
- typetext = nil;
- if(seltext == t)
- seltext = nil;
- if(mousetext == t)
- mousetext = nil;
- if(barttext == t)
- barttext = nil;
- }
- int
- dircmp(const void *a, const void *b)
- {
- Dirlist *da, *db;
- int i, n;
- da = *(Dirlist**)a;
- db = *(Dirlist**)b;
- n = min(da->nr, db->nr);
- i = memcmp(da->r, db->r, n*sizeof(Rune));
- if(i)
- return i;
- return da->nr - db->nr;
- }
- void
- textcolumnate(Text *t, Dirlist **dlp, int ndl)
- {
- int i, j, w, colw, mint, maxt, ncol, nrow;
- Dirlist *dl;
- uint q1;
- if(t->file->ntext > 1)
- return;
- mint = stringwidth(t->Frame.font, "0");
- /* go for narrower tabs if set more than 3 wide */
- t->Frame.maxtab = min(maxtab, TABDIR)*mint;
- maxt = t->Frame.maxtab;
- colw = 0;
- for(i=0; i<ndl; i++){
- dl = dlp[i];
- w = dl->wid;
- if(maxt-w%maxt < mint || w%maxt==0)
- w += mint;
- if(w % maxt)
- w += maxt-(w%maxt);
- if(w > colw)
- colw = w;
- }
- if(colw == 0)
- ncol = 1;
- else
- ncol = max(1, Dx(t->Frame.r)/colw);
- nrow = (ndl+ncol-1)/ncol;
- q1 = 0;
- for(i=0; i<nrow; i++){
- for(j=i; j<ndl; j+=nrow){
- dl = dlp[j];
- fileinsert(t->file, q1, dl->r, dl->nr);
- q1 += dl->nr;
- if(j+nrow >= ndl)
- break;
- w = dl->wid;
- if(maxt-w%maxt < mint){
- fileinsert(t->file, q1, (Rune*)L"\t", 1);
- q1++;
- w += mint;
- }
- do{
- fileinsert(t->file, q1, (Rune*)L"\t", 1);
- q1++;
- w += maxt-(w%maxt);
- }while(w < colw);
- }
- fileinsert(t->file, q1, (Rune*)L"\n", 1);
- q1++;
- }
- }
- uint
- textload(Text *t, uint q0, char *file, int setqid)
- {
- Rune *rp;
- Dirlist *dl, **dlp;
- int fd, i, j, n, ndl, nulls;
- uint q, q1;
- Dir *d, *dbuf;
- char *tmp;
- Text *u;
- if(t->ncache!=0 || t->file->Buffer.nc || t->w==nil || t!=&t->w->body)
- error("text.load");
- if(t->w->isdir && t->file->nname==0){
- warning(nil, "empty directory name\n");
- return 0;
- }
- fd = open(file, OREAD);
- if(fd < 0){
- warning(nil, "can't open %s: %r\n", file);
- return 0;
- }
- d = dirfstat(fd);
- if(d == nil){
- warning(nil, "can't fstat %s: %r\n", file);
- goto Rescue;
- }
- nulls = FALSE;
- if(d->qid.type & QTDIR){
- /* this is checked in get() but it's possible the file changed underfoot */
- if(t->file->ntext > 1){
- warning(nil, "%s is a directory; can't read with multiple windows on it\n", file);
- goto Rescue;
- }
- t->w->isdir = TRUE;
- t->w->filemenu = FALSE;
- if(t->file->name[t->file->nname-1] != '/'){
- rp = runemalloc(t->file->nname+1);
- runemove(rp, t->file->name, t->file->nname);
- rp[t->file->nname] = '/';
- winsetname(t->w, rp, t->file->nname+1);
- free(rp);
- }
- dlp = nil;
- ndl = 0;
- dbuf = nil;
- while((n=dirread(fd, &dbuf)) > 0){
- for(i=0; i<n; i++){
- dl = emalloc(sizeof(Dirlist));
- j = strlen(dbuf[i].name);
- tmp = emalloc(j+1+1);
- memmove(tmp, dbuf[i].name, j);
- if(dbuf[i].qid.type & QTDIR)
- tmp[j++] = '/';
- tmp[j] = '\0';
- dl->r = bytetorune(tmp, &dl->nr);
- dl->wid = stringwidth(t->Frame.font, tmp);
- free(tmp);
- ndl++;
- dlp = realloc(dlp, ndl*sizeof(Dirlist*));
- dlp[ndl-1] = dl;
- }
- free(dbuf);
- }
- qsort(dlp, ndl, sizeof(Dirlist*), dircmp);
- t->w->dlp = dlp;
- t->w->ndl = ndl;
- textcolumnate(t, dlp, ndl);
- q1 = t->file->Buffer.nc;
- }else{
- t->w->isdir = FALSE;
- t->w->filemenu = TRUE;
- q1 = q0 + fileload(t->file, q0, fd, &nulls);
- }
- if(setqid){
- t->file->dev = d->dev;
- t->file->mtime = d->mtime;
- t->file->qidpath = d->qid.path;
- }
- close(fd);
- rp = fbufalloc();
- for(q=q0; q<q1; q+=n){
- n = q1-q;
- if(n > RBUFSIZE)
- n = RBUFSIZE;
- bufread(&t->file->Buffer, q, rp, n);
- if(q < t->org)
- t->org += n;
- else if(q <= t->org+t->Frame.nchars)
- frinsert(&t->Frame, rp, rp+n, q-t->org);
- if(t->Frame.lastlinefull)
- break;
- }
- fbuffree(rp);
- for(i=0; i<t->file->ntext; i++){
- u = t->file->text[i];
- if(u != t){
- if(u->org > u->file->Buffer.nc) /* will be 0 because of reset(), but safety first */
- u->org = 0;
- textresize(u, u->all);
- textbacknl(u, u->org, 0); /* go to beginning of line */
- }
- textsetselect(u, q0, q0);
- }
- if(nulls)
- warning(nil, "%s: NUL bytes elided\n", file);
- free(d);
- return q1-q0;
- Rescue:
- close(fd);
- return 0;
- }
- uint
- textbsinsert(Text *t, uint q0, Rune *r, uint n, int tofile, int *nrp)
- {
- Rune *bp, *tp, *up;
- int i, initial;
- if(t->what == Tag){ /* can't happen but safety first: mustn't backspace over file name */
- Err:
- textinsert(t, q0, r, n, tofile);
- *nrp = n;
- return q0;
- }
- bp = r;
- for(i=0; i<n; i++)
- if(*bp++ == '\b'){
- --bp;
- initial = 0;
- tp = runemalloc(n);
- runemove(tp, r, i);
- up = tp+i;
- for(; i<n; i++){
- *up = *bp++;
- if(*up == '\b')
- if(up == tp)
- initial++;
- else
- --up;
- else
- up++;
- }
- if(initial){
- if(initial > q0)
- initial = q0;
- q0 -= initial;
- textdelete(t, q0, q0+initial, tofile);
- }
- n = up-tp;
- textinsert(t, q0, tp, n, tofile);
- free(tp);
- *nrp = n;
- return q0;
- }
- goto Err;
- }
- void
- textinsert(Text *t, uint q0, Rune *r, uint n, int tofile)
- {
- int c, i;
- Text *u;
- if(tofile && t->ncache != 0)
- error("text.insert");
- if(n == 0)
- return;
- if(tofile){
- fileinsert(t->file, q0, r, n);
- if(t->what == Body){
- t->w->dirty = TRUE;
- t->w->utflastqid = -1;
- }
- if(t->file->ntext > 1)
- for(i=0; i<t->file->ntext; i++){
- u = t->file->text[i];
- if(u != t){
- u->w->dirty = TRUE; /* always a body */
- textinsert(u, q0, r, n, FALSE);
- textsetselect(u, u->q0, u->q1);
- textscrdraw(u);
- }
- }
- }
- if(q0 < t->q1)
- t->q1 += n;
- if(q0 < t->q0)
- t->q0 += n;
- if(q0 < t->org)
- t->org += n;
- else if(q0 <= t->org+t->Frame.nchars)
- frinsert(&t->Frame, r, r+n, q0-t->org);
- if(t->w){
- c = 'i';
- if(t->what == Body)
- c = 'I';
- if(n <= EVENTSIZE)
- winevent(t->w, "%c%d %d 0 %d %.*S\n", c, q0, q0+n, n, n, r);
- else
- winevent(t->w, "%c%d %d 0 0 \n", c, q0, q0+n, n);
- }
- }
- void
- typecommit(Text *t)
- {
- if(t->w != nil)
- wincommit(t->w, t);
- else
- textcommit(t, TRUE);
- }
- void
- textfill(Text *t)
- {
- Rune *rp;
- int i, n, m, nl;
- if(t->Frame.lastlinefull || t->nofill)
- return;
- if(t->ncache > 0)
- typecommit(t);
- rp = fbufalloc();
- do{
- n = t->file->Buffer.nc-(t->org+t->Frame.nchars);
- if(n == 0)
- break;
- if(n > 2000) /* educated guess at reasonable amount */
- n = 2000;
- bufread(&t->file->Buffer, t->org+t->Frame.nchars, rp, n);
- /*
- * it's expensive to frinsert more than we need, so
- * count newlines.
- */
- nl = t->Frame.maxlines-t->Frame.nlines;
- m = 0;
- for(i=0; i<n; ){
- if(rp[i++] == '\n'){
- m++;
- if(m >= nl)
- break;
- }
- }
- frinsert(&t->Frame, rp, rp+i, t->Frame.nchars);
- }while(t->Frame.lastlinefull == FALSE);
- fbuffree(rp);
- }
- void
- textdelete(Text *t, uint q0, uint q1, int tofile)
- {
- uint n, p0, p1;
- int i, c;
- Text *u;
- if(tofile && t->ncache != 0)
- error("text.delete");
- n = q1-q0;
- if(n == 0)
- return;
- if(tofile){
- filedelete(t->file, q0, q1);
- if(t->what == Body){
- t->w->dirty = TRUE;
- t->w->utflastqid = -1;
- }
- if(t->file->ntext > 1)
- for(i=0; i<t->file->ntext; i++){
- u = t->file->text[i];
- if(u != t){
- u->w->dirty = TRUE; /* always a body */
- textdelete(u, q0, q1, FALSE);
- textsetselect(u, u->q0, u->q1);
- textscrdraw(u);
- }
- }
- }
- if(q0 < t->q0)
- t->q0 -= min(n, t->q0-q0);
- if(q0 < t->q1)
- t->q1 -= min(n, t->q1-q0);
- if(q1 <= t->org)
- t->org -= n;
- else if(q0 < t->org+t->Frame.nchars){
- p1 = q1 - t->org;
- if(p1 > t->Frame.nchars)
- p1 = t->Frame.nchars;
- if(q0 < t->org){
- t->org = q0;
- p0 = 0;
- }else
- p0 = q0 - t->org;
- frdelete(&t->Frame, p0, p1);
- textfill(t);
- }
- if(t->w){
- c = 'd';
- if(t->what == Body)
- c = 'D';
- winevent(t->w, "%c%d %d 0 0 \n", c, q0, q1);
- }
- }
- void
- textconstrain(Text *t, uint q0, uint q1, uint *p0, uint *p1)
- {
- *p0 = min(q0, t->file->Buffer.nc);
- *p1 = min(q1, t->file->Buffer.nc);
- }
- Rune
- textreadc(Text *t, uint q)
- {
- Rune r;
- if(t->cq0<=q && q<t->cq0+t->ncache)
- r = t->cache[q-t->cq0];
- else
- bufread(&t->file->Buffer, q, &r, 1);
- return r;
- }
- int
- textbswidth(Text *t, Rune c)
- {
- uint q, eq;
- Rune r;
- int skipping;
- /* there is known to be at least one character to erase */
- if(c == 0x08) /* ^H: erase character */
- return 1;
- q = t->q0;
- skipping = TRUE;
- while(q > 0){
- r = textreadc(t, q-1);
- if(r == '\n'){ /* eat at most one more character */
- if(q == t->q0) /* eat the newline */
- --q;
- break;
- }
- if(c == 0x17){
- eq = isalnum(r);
- if(eq && skipping) /* found one; stop skipping */
- skipping = FALSE;
- else if(!eq && !skipping)
- break;
- }
- --q;
- }
- return t->q0-q;
- }
- int
- textfilewidth(Text *t, uint q0, int oneelement)
- {
- uint q;
- Rune r;
- q = q0;
- while(q > 0){
- r = textreadc(t, q-1);
- if(r <= ' ')
- break;
- if(oneelement && r=='/')
- break;
- --q;
- }
- return q0-q;
- }
- Rune*
- textcomplete(Text *t)
- {
- int i, nstr, npath;
- uint q;
- Rune tmp[200];
- Rune *str, *path;
- Rune *rp;
- Completion *c;
- char *s, *dirs;
- Runestr dir;
- /* control-f: filename completion; works back to white space or / */
- if(t->q0<t->file->Buffer.nc && textreadc(t, t->q0)>' ') /* must be at end of word */
- return nil;
- nstr = textfilewidth(t, t->q0, TRUE);
- str = runemalloc(nstr);
- npath = textfilewidth(t, t->q0-nstr, FALSE);
- path = runemalloc(npath);
- c = nil;
- rp = nil;
- dirs = nil;
- q = t->q0-nstr;
- for(i=0; i<nstr; i++)
- str[i] = textreadc(t, q++);
- q = t->q0-nstr-npath;
- for(i=0; i<npath; i++)
- path[i] = textreadc(t, q++);
- /* is path rooted? if not, we need to make it relative to window path */
- if(npath>0 && path[0]=='/')
- dir = (Runestr){path, npath};
- else{
- dir = dirname(t, nil, 0);
- if(dir.nr + 1 + npath > nelem(tmp)){
- free(dir.r);
- goto Return;
- }
- if(dir.nr == 0){
- dir.nr = 1;
- dir.r = runestrdup((Rune*)L".");
- }
- runemove(tmp, dir.r, dir.nr);
- tmp[dir.nr] = '/';
- runemove(tmp+dir.nr+1, path, npath);
- free(dir.r);
- dir.r = tmp;
- dir.nr += 1+npath;
- dir = cleanrname(dir);
- }
- s = smprint("%.*S", nstr, str);
- dirs = smprint("%.*S", dir.nr, dir.r);
- c = complete(dirs, s);
- free(s);
- if(c == nil){
- warning(nil, "error attempting completion: %r\n");
- goto Return;
- }
- if(!c->advance){
- warning(nil, "%.*S%s%.*S*%s\n",
- dir.nr, dir.r,
- dir.nr>0 && dir.r[dir.nr-1]!='/' ? "/" : "",
- nstr, str,
- c->nmatch? "" : ": no matches in:");
- for(i=0; i<c->nfile; i++)
- warning(nil, " %s\n", c->filename[i]);
- }
- if(c->advance)
- rp = runesmprint("%s", c->string);
- else
- rp = nil;
- Return:
- freecompletion(c);
- free(dirs);
- free(str);
- free(path);
- return rp;
- }
- void
- texttype(Text *t, Rune r)
- {
- uint q0, q1;
- int nnb, nb, n, i;
- int nr;
- Rune *rp;
- Text *u;
- if(t->what!=Body && r=='\n')
- return;
- nr = 1;
- rp = &r;
- switch(r){
- case Kleft:
- if(t->q0 > 0){
- typecommit(t);
- textshow(t, t->q0-1, t->q0-1, TRUE);
- }
- return;
- case Kright:
- if(t->q1 < t->file->Buffer.nc){
- typecommit(t);
- textshow(t, t->q1+1, t->q1+1, TRUE);
- }
- return;
- case Kdown:
- n = t->Frame.maxlines/3;
- goto case_Down;
- case Kscrollonedown:
- n = mousescrollsize(t->Frame.maxlines);
- if(n <= 0)
- n = 1;
- goto case_Down;
- case Kpgdown:
- n = 2*t->Frame.maxlines/3;
- case_Down:
- q0 = t->org+frcharofpt(&t->Frame, Pt(t->Frame.r.min.x, t->Frame.r.min.y+n*t->Frame.font->height));
- textsetorigin(t, q0, TRUE);
- return;
- case Kup:
- n = t->Frame.maxlines/3;
- goto case_Up;
- case Kscrolloneup:
- n = mousescrollsize(t->Frame.maxlines);
- goto case_Up;
- case Kpgup:
- n = 2*t->Frame.maxlines/3;
- case_Up:
- q0 = textbacknl(t, t->org, n);
- textsetorigin(t, q0, TRUE);
- return;
- case Khome:
- typecommit(t);
- textshow(t, 0, 0, FALSE);
- return;
- case Kend:
- typecommit(t);
- textshow(t, t->file->Buffer.nc, t->file->Buffer.nc, FALSE);
- return;
- case 0x01: /* ^A: beginning of line */
- typecommit(t);
- /* go to where ^U would erase, if not already at BOL */
- nnb = 0;
- if(t->q0>0 && textreadc(t, t->q0-1)!='\n')
- nnb = textbswidth(t, 0x15);
- textshow(t, t->q0-nnb, t->q0-nnb, TRUE);
- return;
- case 0x05: /* ^E: end of line */
- typecommit(t);
- q0 = t->q0;
- while(q0<t->file->Buffer.nc && textreadc(t, q0)!='\n')
- q0++;
- textshow(t, q0, q0, TRUE);
- return;
- }
- if(t->what == Body){
- seq++;
- filemark(t->file);
- }
- if(t->q1 > t->q0){
- if(t->ncache != 0)
- error("text.type");
- cut(t, t, nil, TRUE, TRUE, nil, 0);
- t->eq0 = ~0;
- }
- textshow(t, t->q0, t->q0, 1);
- switch(r){
- case 0x06:
- case Kins:
- rp = textcomplete(t);
- if(rp == nil)
- return;
- nr = runestrlen(rp);
- break; /* fall through to normal insertion case */
- case 0x1B:
- if(t->eq0 != ~0)
- textsetselect(t, t->eq0, t->q0);
- if(t->ncache > 0)
- typecommit(t);
- return;
- case 0x08: /* ^H: erase character */
- case 0x15: /* ^U: erase line */
- case 0x17: /* ^W: erase word */
- if(t->q0 == 0) /* nothing to erase */
- return;
- nnb = textbswidth(t, r);
- q1 = t->q0;
- q0 = q1-nnb;
- /* if selection is at beginning of window, avoid deleting invisible text */
- if(q0 < t->org){
- q0 = t->org;
- nnb = q1-q0;
- }
- if(nnb <= 0)
- return;
- for(i=0; i<t->file->ntext; i++){
- u = t->file->text[i];
- u->nofill = TRUE;
- nb = nnb;
- n = u->ncache;
- if(n > 0){
- if(q1 != u->cq0+n)
- error("text.type backspace");
- if(n > nb)
- n = nb;
- u->ncache -= n;
- textdelete(u, q1-n, q1, FALSE);
- nb -= n;
- }
- if(u->eq0==q1 || u->eq0==~0)
- u->eq0 = q0;
- if(nb && u==t)
- textdelete(u, q0, q0+nb, TRUE);
- if(u != t)
- textsetselect(u, u->q0, u->q1);
- else
- textsetselect(t, q0, q0);
- u->nofill = FALSE;
- }
- for(i=0; i<t->file->ntext; i++)
- textfill(t->file->text[i]);
- return;
- case '\n':
- if(t->w->autoindent){
- /* find beginning of previous line using backspace code */
- nnb = textbswidth(t, 0x15); /* ^U case */
- rp = runemalloc(nnb + 1);
- nr = 0;
- rp[nr++] = r;
- for(i=0; i<nnb; i++){
- r = textreadc(t, t->q0-nnb+i);
- if(r != ' ' && r != '\t')
- break;
- rp[nr++] = r;
- }
- }
- break; /* fall through to normal code */
- }
- /* otherwise ordinary character; just insert, typically in caches of all texts */
- for(i=0; i<t->file->ntext; i++){
- u = t->file->text[i];
- if(u->eq0 == ~0)
- u->eq0 = t->q0;
- if(u->ncache == 0)
- u->cq0 = t->q0;
- else if(t->q0 != u->cq0+u->ncache)
- error("text.type cq1");
- textinsert(u, t->q0, rp, nr, FALSE);
- if(u != t)
- textsetselect(u, u->q0, u->q1);
- if(u->ncache+nr > u->ncachealloc){
- u->ncachealloc += 10 + nr;
- u->cache = runerealloc(u->cache, u->ncachealloc);
- }
- runemove(u->cache+u->ncache, rp, nr);
- u->ncache += nr;
- }
- if(rp != &r)
- free(rp);
- textsetselect(t, t->q0+nr, t->q0+nr);
- if(r=='\n' && t->w!=nil)
- wincommit(t->w, t);
- }
- void
- textcommit(Text *t, int tofile)
- {
- if(t->ncache == 0)
- return;
- if(tofile)
- fileinsert(t->file, t->cq0, t->cache, t->ncache);
- if(t->what == Body){
- t->w->dirty = TRUE;
- t->w->utflastqid = -1;
- }
- t->ncache = 0;
- }
- static Text *clicktext;
- static uint clickmsec;
- static Text *selecttext;
- static uint selectq;
- /*
- * called from frame library
- */
- void
- framescroll(Frame *f, int dl)
- {
- if(f != &selecttext->Frame)
- error("frameselect not right frame");
- textframescroll(selecttext, dl);
- }
- void
- textframescroll(Text *t, int dl)
- {
- uint q0;
- if(dl == 0){
- scrsleep(100);
- return;
- }
- if(dl < 0){
- q0 = textbacknl(t, t->org, -dl);
- if(selectq > t->org+t->Frame.p0)
- textsetselect(t, t->org+t->Frame.p0, selectq);
- else
- textsetselect(t, selectq, t->org+t->Frame.p0);
- }else{
- if(t->org+t->Frame.nchars == t->file->Buffer.nc)
- return;
- q0 = t->org+frcharofpt(&t->Frame, Pt(t->Frame.r.min.x, t->Frame.r.min.y+dl*t->Frame.font->height));
- if(selectq > t->org+t->Frame.p1)
- textsetselect(t, t->org+t->Frame.p1, selectq);
- else
- textsetselect(t, selectq, t->org+t->Frame.p1);
- }
- textsetorigin(t, q0, TRUE);
- }
- void
- textselect(Text *t)
- {
- uint q0, q1;
- int b, x, y;
- int state;
- selecttext = t;
- /*
- * To have double-clicking and chording, we double-click
- * immediately if it might make sense.
- */
- b = mouse->buttons;
- q0 = t->q0;
- q1 = t->q1;
- selectq = t->org+frcharofpt(&t->Frame, mouse->xy);
- if(clicktext==t && mouse->msec-clickmsec<500)
- if(q0==q1 && selectq==q0){
- textdoubleclick(t, &q0, &q1);
- textsetselect(t, q0, q1);
- flushimage(display, 1);
- x = mouse->xy.x;
- y = mouse->xy.y;
- /* stay here until something interesting happens */
- do
- readmouse(mousectl);
- while(mouse->buttons==b && abs(mouse->xy.x-x)<3 && abs(mouse->xy.y-y)<3);
- mouse->xy.x = x; /* in case we're calling frselect */
- mouse->xy.y = y;
- q0 = t->q0; /* may have changed */
- q1 = t->q1;
- selectq = q0;
- }
- if(mouse->buttons == b){
- t->Frame.scroll = framescroll;
- frselect(&t->Frame, mousectl);
- /* horrible botch: while asleep, may have lost selection altogether */
- if(selectq > t->file->Buffer.nc)
- selectq = t->org + t->Frame.p0;
- t->Frame.scroll = nil;
- if(selectq < t->org)
- q0 = selectq;
- else
- q0 = t->org + t->Frame.p0;
- if(selectq > t->org+t->Frame.nchars)
- q1 = selectq;
- else
- q1 = t->org+t->Frame.p1;
- }
- if(q0 == q1){
- if(q0==t->q0 && clicktext==t && mouse->msec-clickmsec<500){
- textdoubleclick(t, &q0, &q1);
- clicktext = nil;
- }else{
- clicktext = t;
- clickmsec = mouse->msec;
- }
- }else
- clicktext = nil;
- textsetselect(t, q0, q1);
- flushimage(display, 1);
- state = 0; /* undo when possible; +1 for cut, -1 for paste */
- while(mouse->buttons){
- mouse->msec = 0;
- b = mouse->buttons;
- if((b&1) && (b&6)){
- if(state==0 && t->what==Body){
- seq++;
- filemark(t->w->body.file);
- }
- if(b & 2){
- if(state==-1 && t->what==Body){
- winundo(t->w, TRUE);
- textsetselect(t, q0, t->q0);
- state = 0;
- }else if(state != 1){
- cut(t, t, nil, TRUE, TRUE, nil, 0);
- state = 1;
- }
- }else{
- if(state==1 && t->what==Body){
- winundo(t->w, TRUE);
- textsetselect(t, q0, t->q1);
- state = 0;
- }else if(state != -1){
- paste(t, t, nil, TRUE, FALSE, nil, 0);
- state = -1;
- }
- }
- textscrdraw(t);
- clearmouse();
- }
- flushimage(display, 1);
- while(mouse->buttons == b)
- readmouse(mousectl);
- clicktext = nil;
- }
- }
- void
- textshow(Text *t, uint q0, uint q1, int doselect)
- {
- int qe;
- int nl;
- uint q;
- if(t->what != Body){
- if(doselect)
- textsetselect(t, q0, q1);
- return;
- }
- if(t->w!=nil && t->Frame.maxlines==0)
- colgrow(t->col, t->w, 1);
- if(doselect)
- textsetselect(t, q0, q1);
- qe = t->org+t->Frame.nchars;
- if(t->org<=q0 && (q0<qe || (q0==qe && qe==t->file->Buffer.nc+t->ncache)))
- textscrdraw(t);
- else{
- if(t->w->nopen[QWevent] > 0)
- nl = 3*t->Frame.maxlines/4;
- else
- nl = t->Frame.maxlines/4;
- q = textbacknl(t, q0, nl);
- /* avoid going backwards if trying to go forwards - long lines! */
- if(!(q0>t->org && q<t->org))
- textsetorigin(t, q, TRUE);
- while(q0 > t->org+t->Frame.nchars)
- textsetorigin(t, t->org+1, FALSE);
- }
- }
- static
- int
- region(int a, int b)
- {
- if(a < b)
- return -1;
- if(a == b)
- return 0;
- return 1;
- }
- void
- selrestore(Frame *f, Point pt0, uint p0, uint p1)
- {
- if(p1<=f->p0 || p0>=f->p1){
- /* no overlap */
- frdrawsel0(f, pt0, p0, p1, f->cols[BACK], f->cols[TEXT]);
- return;
- }
- if(p0>=f->p0 && p1<=f->p1){
- /* entirely inside */
- frdrawsel0(f, pt0, p0, p1, f->cols[HIGH], f->cols[HTEXT]);
- return;
- }
- /* they now are known to overlap */
- /* before selection */
- if(p0 < f->p0){
- frdrawsel0(f, pt0, p0, f->p0, f->cols[BACK], f->cols[TEXT]);
- p0 = f->p0;
- pt0 = frptofchar(f, p0);
- }
- /* after selection */
- if(p1 > f->p1){
- frdrawsel0(f, frptofchar(f, f->p1), f->p1, p1, f->cols[BACK], f->cols[TEXT]);
- p1 = f->p1;
- }
- /* inside selection */
- frdrawsel0(f, pt0, p0, p1, f->cols[HIGH], f->cols[HTEXT]);
- }
- void
- textsetselect(Text *t, uint q0, uint q1)
- {
- int p0, p1;
- /* t->p0 and t->p1 are always right; t->q0 and t->q1 may be off */
- t->q0 = q0;
- t->q1 = q1;
- /* compute desired p0,p1 from q0,q1 */
- p0 = q0-t->org;
- p1 = q1-t->org;
- if(p0 < 0)
- p0 = 0;
- if(p1 < 0)
- p1 = 0;
- if(p0 > t->Frame.nchars)
- p0 = t->Frame.nchars;
- if(p1 > t->Frame.nchars)
- p1 = t->Frame.nchars;
- if(p0==t->Frame.p0 && p1==t->Frame.p1)
- return;
- /* screen disagrees with desired selection */
- if(t->Frame.p1<=p0 || p1<=t->Frame.p0 || p0==p1 || t->Frame.p1==t->Frame.p0){
- /* no overlap or too easy to bother trying */
- frdrawsel(&t->Frame, frptofchar(&t->Frame, t->Frame.p0), t->Frame.p0, t->Frame.p1, 0);
- frdrawsel(&t->Frame, frptofchar(&t->Frame, p0), p0, p1, 1);
- goto Return;
- }
- /* overlap; avoid unnecessary painting */
- if(p0 < t->Frame.p0){
- /* extend selection backwards */
- frdrawsel(&t->Frame, frptofchar(&t->Frame, p0), p0, t->Frame.p0, 1);
- }else if(p0 > t->Frame.p0){
- /* trim first part of selection */
- frdrawsel(&t->Frame, frptofchar(&t->Frame, t->Frame.p0), t->Frame.p0, p0, 0);
- }
- if(p1 > t->Frame.p1){
- /* extend selection forwards */
- frdrawsel(&t->Frame, frptofchar(&t->Frame, t->Frame.p1), t->Frame.p1, p1, 1);
- }else if(p1 < t->Frame.p1){
- /* trim last part of selection */
- frdrawsel(&t->Frame, frptofchar(&t->Frame, p1), p1, t->Frame.p1, 0);
- }
- Return:
- t->Frame.p0 = p0;
- t->Frame.p1 = p1;
- }
- /*
- * Release the button in less than DELAY ms and it's considered a null selection
- * if the mouse hardly moved, regardless of whether it crossed a char boundary.
- */
- enum {
- DELAY = 2,
- MINMOVE = 4,
- };
- uint
- xselect(Frame *f, Mousectl *mc, Image *col, uint *p1p) /* when called, button is down */
- {
- uint p0, p1, q, tmp;
- uint32_t msec;
- Point mp, pt0, pt1, qt;
- int reg, b;
- mp = mc->xy;
- b = mc->buttons;
- msec = mc->msec;
- /* remove tick */
- if(f->p0 == f->p1)
- frtick(f, frptofchar(f, f->p0), 0);
- p0 = p1 = frcharofpt(f, mp);
- pt0 = frptofchar(f, p0);
- pt1 = frptofchar(f, p1);
- reg = 0;
- frtick(f, pt0, 1);
- do{
- q = frcharofpt(f, mc->xy);
- if(p1 != q){
- if(p0 == p1)
- frtick(f, pt0, 0);
- if(reg != region(q, p0)){ /* crossed starting point; reset */
- if(reg > 0)
- selrestore(f, pt0, p0, p1);
- else if(reg < 0)
- selrestore(f, pt1, p1, p0);
- p1 = p0;
- pt1 = pt0;
- reg = region(q, p0);
- if(reg == 0)
- frdrawsel0(f, pt0, p0, p1, col, display->white);
- }
- qt = frptofchar(f, q);
- if(reg > 0){
- if(q > p1)
- frdrawsel0(f, pt1, p1, q, col, display->white);
- else if(q < p1)
- selrestore(f, qt, q, p1);
- }else if(reg < 0){
- if(q > p1)
- selrestore(f, pt1, p1, q);
- else
- frdrawsel0(f, qt, q, p1, col, display->white);
- }
- p1 = q;
- pt1 = qt;
- }
- if(p0 == p1)
- frtick(f, pt0, 1);
- flushimage(f->display, 1);
- readmouse(mc);
- }while(mc->buttons == b);
- if(mc->msec-msec < DELAY && p0!=p1
- && abs(mp.x-mc->xy.x)<MINMOVE
- && abs(mp.y-mc->xy.y)<MINMOVE) {
- if(reg > 0)
- selrestore(f, pt0, p0, p1);
- else if(reg < 0)
- selrestore(f, pt1, p1, p0);
- p1 = p0;
- }
- if(p1 < p0){
- tmp = p0;
- p0 = p1;
- p1 = tmp;
- }
- pt0 = frptofchar(f, p0);
- if(p0 == p1)
- frtick(f, pt0, 0);
- selrestore(f, pt0, p0, p1);
- /* restore tick */
- if(f->p0 == f->p1)
- frtick(f, frptofchar(f, f->p0), 1);
- flushimage(f->display, 1);
- *p1p = p1;
- return p0;
- }
- int
- textselect23(Text *t, uint *q0, uint *q1, Image *high, int mask)
- {
- uint p0, p1;
- int buts;
- p0 = xselect(&t->Frame, mousectl, high, &p1);
- buts = mousectl->buttons;
- if((buts & mask) == 0){
- *q0 = p0+t->org;
- *q1 = p1+t->org;
- }
- while(mousectl->buttons)
- readmouse(mousectl);
- return buts;
- }
- int
- textselect2(Text *t, uint *q0, uint *q1, Text **tp)
- {
- int buts;
- *tp = nil;
- buts = textselect23(t, q0, q1, but2col, 4);
- if(buts & 4)
- return 0;
- if(buts & 1){ /* pick up argument */
- *tp = argtext;
- return 1;
- }
- return 1;
- }
- int
- textselect3(Text *t, uint *q0, uint *q1)
- {
- int h;
- h = (textselect23(t, q0, q1, but3col, 1|2) == 0);
- return h;
- }
- static Rune left1[] = { L'{', L'[', L'(', L'<', L'«', 0 };
- static Rune right1[] = { L'}', L']', L')', L'>', L'»', 0 };
- static Rune left2[] = { L'\n', 0 };
- static Rune left3[] = { L'\'', L'"', L'`', 0 };
- static
- Rune *left[] = {
- left1,
- left2,
- left3,
- nil
- };
- static
- Rune *right[] = {
- right1,
- left2,
- left3,
- nil
- };
- void
- textdoubleclick(Text *t, uint *q0, uint *q1)
- {
- int c, i;
- Rune *r, *l, *p;
- uint q;
- for(i=0; left[i]!=nil; i++){
- q = *q0;
- l = left[i];
- r = right[i];
- /* try matching character to left, looking right */
- if(q == 0)
- c = '\n';
- else
- c = textreadc(t, q-1);
- p = runestrchr(l, c);
- if(p != nil){
- if(textclickmatch(t, c, r[p-l], 1, &q))
- *q1 = q-(c!='\n');
- return;
- }
- /* try matching character to right, looking left */
- if(q == t->file->Buffer.nc)
- c = '\n';
- else
- c = textreadc(t, q);
- p = runestrchr(r, c);
- if(p != nil){
- if(textclickmatch(t, c, l[p-r], -1, &q)){
- *q1 = *q0+(*q0<t->file->Buffer.nc && c=='\n');
- *q0 = q;
- if(c!='\n' || q!=0 || textreadc(t, 0)=='\n')
- (*q0)++;
- }
- return;
- }
- }
- /* try filling out word to right */
- while(*q1<t->file->Buffer.nc && isalnum(textreadc(t, *q1)))
- (*q1)++;
- /* try filling out word to left */
- while(*q0>0 && isalnum(textreadc(t, *q0-1)))
- (*q0)--;
- }
- int
- textclickmatch(Text *t, int cl, int cr, int dir, uint *q)
- {
- Rune c;
- int nest;
- nest = 1;
- for(;;){
- if(dir > 0){
- if(*q == t->file->Buffer.nc)
- break;
- c = textreadc(t, *q);
- (*q)++;
- }else{
- if(*q == 0)
- break;
- (*q)--;
- c = textreadc(t, *q);
- }
- if(c == cr){
- if(--nest==0)
- return 1;
- }else if(c == cl)
- nest++;
- }
- return cl=='\n' && nest==1;
- }
- uint
- textbacknl(Text *t, uint p, uint n)
- {
- int i, j;
- /* look for start of this line if n==0 */
- if(n==0 && p>0 && textreadc(t, p-1)!='\n')
- n = 1;
- i = n;
- while(i-->0 && p>0){
- --p; /* it's at a newline now; back over it */
- if(p == 0)
- break;
- /* at 128 chars, call it a line anyway */
- for(j=128; --j>0 && p>0; p--)
- if(textreadc(t, p-1)=='\n')
- break;
- }
- return p;
- }
- void
- textsetorigin(Text *t, uint org, int exact)
- {
- int i, a, fixup;
- Rune *r;
- uint n;
- if(org>0 && !exact){
- /* org is an estimate of the char posn; find a newline */
- /* don't try harder than 256 chars */
- for(i=0; i<256 && org<t->file->Buffer.nc; i++){
- if(textreadc(t, org) == '\n'){
- org++;
- break;
- }
- org++;
- }
- }
- a = org-t->org;
- fixup = 0;
- if(a>=0 && a<t->Frame.nchars){
- frdelete(&t->Frame, 0, a);
- fixup = 1; /* frdelete can leave end of last line in wrong selection mode; it doesn't know what follows */
- }
- else if(a<0 && -a<t->Frame.nchars){
- n = t->org - org;
- r = runemalloc(n);
- bufread(&t->file->Buffer, org, r, n);
- frinsert(&t->Frame, r, r+n, 0);
- free(r);
- }else
- frdelete(&t->Frame, 0, t->Frame.nchars);
- t->org = org;
- textfill(t);
- textscrdraw(t);
- textsetselect(t, t->q0, t->q1);
- if(fixup && t->Frame.p1 > t->Frame.p0)
- frdrawsel(&t->Frame, frptofchar(&t->Frame, t->Frame.p1-1), t->Frame.p1-1, t->Frame.p1, 1);
- }
- void
- textreset(Text *t)
- {
- t->file->seq = 0;
- t->eq0 = ~0;
- /* do t->delete(0, t->nc, TRUE) without building backup stuff */
- textsetselect(t, t->org, t->org);
- frdelete(&t->Frame, 0, t->Frame.nchars);
- t->org = 0;
- t->q0 = 0;
- t->q1 = 0;
- filereset(t->file);
- bufreset(&t->file->Buffer);
- }
|