#include "lib9.h"#include "draw.h"#include "tk.h"#include "textw.h" #define istring u.string#define iwin u.win#define imark u.mark#define iline u.line /* debugging */extern int tktdbg;extern void tktprinttext(TkText*);extern void tktprintindex(TkTindex*);extern void tktprintitem(TkTitem*);extern void tktprintline(TkTline*); char*tktindparse(Tk *tk, char **pspec, TkTindex *ans){	int m, n, done, neg, modstart;	char *s, *mod;	TkTline *lend;	TkText *tkt;	char *buf; 	buf = mallocz(Tkmaxitem, 0);	if(buf == nil)		return TkNomem; 	tkt = TKobj(TkText, tk);	lend = &tkt->end; 	*pspec = tkword(tk->env->top, *pspec, buf, buf+Tkmaxitem, nil);	modstart = 0;	for(mod = buf; *mod != '\0'; mod++)		if(*mod == ' ' || *mod == '-' || *mod == '+') {			modstart = *mod;			*mod = '\0';			break;		} 	/*	 * XXX there's a problem here - if either coordinate is negative	 * which shouldn't be precluded, then the above scanning code	 * will break up the coordinate pair, so @-23,45 for example	 * yields a bad index, when it should probably return the index	 * of the character at the start of the line containing y=45.	 * i've seen this cause wm/sh to crash.	 */	if(strcmp(buf, "end") == 0)		tktendind(tkt, ans);	else	if(*buf == '@') {		/* by coordinates */ 		s = strchr(buf, ',');		if(s == nil) {			free(buf);			return TkBadix;		}		*s = '\0';		m = atoi(buf+1);		n = atoi(s+1);		tktxyind(tk, m, n, ans);	}	else	if(*buf >= '0' && *buf <= '9') {		/* line.char */ 		s = strchr(buf, '.');		if(s == nil) {			free(buf);			return TkBadix;		}		*s = '\0';		m = atoi(buf);		n = atoi(s+1); 		if(m < 1)			m = 1; 		tktstartind(tkt, ans); 		while(--m > 0 && ans->line->next != lend)			tktadjustind(tkt, TkTbyline, ans); 		while(n-- > 0 && ans->item->kind != TkTnewline)			tktadjustind(tkt, TkTbychar, ans);	}	else	if(*buf == '.') {		/* window */ 		tktstartind(tkt, ans); 		while(ans->line != lend) {			if(ans->item->kind == TkTwin &&			   ans->item->iwin->sub != nil &&			   ans->item->iwin->sub->name != nil &&			   strcmp(ans->item->iwin->sub->name->name, buf) == 0)				break;			if(!tktadjustind(tkt, TkTbyitem, ans))				ans->line = lend;		}		if(ans->line == lend) {			free(buf);			return TkBadix;		}	}	else {		s = strchr(buf, '.');		if(s == nil) {			if(tktmarkind(tk, buf, ans) == 0) {				free(buf);				return TkBadix;			}		}		else {			/* tag.first or tag.last */ 			*s = '\0';			if(strcmp(s+1, "first") == 0) {				if(tkttagind(tk, buf, 1, ans) == 0) {					free(buf);					return TkBadix;				}			}			else			if(strcmp(s+1, "last") == 0) {				if(tkttagind(tk, buf, 0, ans) == 0) {					free(buf);					return TkBadix;				}			}			else {				free(buf);				return TkBadix;			}		}	} 	if(modstart == 0) {		free(buf);		return nil;	} 	*mod = modstart;	while(*mod == ' ')		mod++; 	while(*mod != '\0') {		done = 0;		switch(*mod) {		case '+':		case '-':			neg = (*mod == '-');			mod++;			while(*mod == ' ')				mod++;			n = strtol(mod, &mod, 10);			while(*mod == ' ')				mod++;			while(n-- > 0) {				if(*mod == 'c')					tktadjustind(tkt, neg? TkTbycharback : TkTbychar, ans);				else				if(*mod == 'l')					tktadjustind(tkt, neg? TkTbylineback : TkTbyline, ans);				else					done = 1;			}			break;		case 'l':			if(strncmp(mod, "lines", 5) == 0)				tktadjustind(tkt, TkTbylinestart, ans);			else			if(strncmp(mod, "linee", 5) == 0)				tktadjustind(tkt, TkTbylineend, ans);			else				done = 1;			break;		case 'w':			if(strncmp(mod, "words", 5) == 0)				tktadjustind(tkt, TkTbywordstart, ans);			else			if(strncmp(mod, "worde", 5) == 0)				tktadjustind(tkt, TkTbywordend, ans);			else				done = 1;			break;		default:				done = 1;		} 		if(done)			break; 		while(tkiswordchar(*mod))			mod++;		while(*mod == ' ')			mod++;	} 	free(buf);	return nil;} inttktisbreak(int c){	/* unicode rules suggest / as well but that would split dates, and URLs might as well char. wrap */	return c == ' ' || c == '\t' || c == '\n' || c == '-' || c == ',';	/* previously included . but would probably need more then to handle ." */} /* * Adjust the index p by units (one of TkTbyitem, etc.). * The TkTbychar units mean that the final point should rest on a * "character" (in text widget index space; i.e., a newline, a rune, * and an embedded window are each 1 character, but marks and contlines are not). * * Indexes may not point in the tkt->start or tkt->end lines (which have * no items); tktadjustind sticks at the beginning or end of the buffer. * * Return 1 if the index changes at all, 0 otherwise. */inttktadjustind(TkText *tkt, int units, TkTindex *p){	int n, opos, count, c;	TkTitem *i, *it, *oit;	TkTindex q; 	oit = p->item;	opos = p->pos;	count = 1; 	switch(units) {	case TkTbyitemback:		it = p->item;		p->item = p->line->items;		p->pos = 0;		if(it == p->item) {			if(p->line->prev != &tkt->start) {				p->line = p->line->prev;				p->item = tktlastitem(p->line->items);			}		}		else {			while(p->item->next != it) {				p->item = p->item->next;				if(tktdbg && p->item == nil) {					print("tktadjustind: botch 1\n");					break;				}			}		}		break; 	case TkTbyitem:		p->pos = 0;		i = p->item->next;		if(i == nil) {			if(p->line->next != &tkt->end) {				p->line = p->line->next;				p->item = p->line->items;			}		}		else			p->item = i;		break; 	case TkTbytlineback:		if(p->line->prev != &tkt->start)			p->line = p->line->prev;		p->item = p->line->items;		p->pos = 0;		break; 	case TkTbytline:		if(p->line->next != &tkt->end)			p->line = p->line->next;		p->item = p->line->items;		p->pos = 0;		break; 	case TkTbycharstart:		count = 0;	case TkTbychar:		while(count > 0) {			i = p->item;			n = tktposcount(i) - p->pos;			if(count >= n) {				if(tktadjustind(tkt, TkTbyitem, p))					count -= n;				else					break;			}			else {				p->pos += count;				break;			}		}		while(p->item->kind == TkTmark || p->item->kind == TkTcontline)			if(!tktadjustind(tkt, TkTbyitem, p))				break;		break;	case TkTbycharback:		count = -1;		while(count < 0) {			if(p->pos + count >= 0) {				p->pos += count;				count = 0;			}			else {				count += p->pos;				if(!tktadjustind(tkt, TkTbyitemback, p))					break;				n = tktposcount(p->item);				p->pos = n;			}		}		break; 	case TkTbylineback:		count = -1;		/* fall through */	case TkTbyline:		n = tktlinepos(tkt, p);		while(count > 0) {			if(p->line->next == &tkt->end) {				count = 0;				break;			}			if(p->line->flags&TkTlast)				count--;			p->line = p->line->next;		}		while(count < 0 && p->line->prev != &tkt->start) {			if(p->line->flags&TkTfirst)				count++;			p->line = p->line->prev;		}		tktadjustind(tkt, TkTbylinestart, p);		while(n > 0) {			if(p->item->kind == TkTnewline)				break;			if(!tktadjustind(tkt, TkTbychar, p))				break;			n--;		}		break; 	case TkTbylinestart:		/* note: can call this with only p->line set correctly  in *p */ 		while(!(p->line->flags&TkTfirst))			p->line = p->line->prev;		p->item = p->line->items;		p->pos = 0;		break; 	case TkTbylineend:		while(p->item->kind != TkTnewline)			if(!tktadjustind(tkt, TkTbychar, p))				break;		break; 	case TkTbywordstart:		tktadjustind(tkt, TkTbycharstart, p);		q = *p;		c = tktindrune(p);		while(tkiswordchar(c)) {			q = *p;			if(!tktadjustind(tkt, TkTbycharback, p))				break;			c = tktindrune(p);		}		*p = q;		break; 	case TkTbywordend:		tktadjustind(tkt, TkTbycharstart, p);		if(p->item->kind == TkTascii || p->item->kind == TkTrune) {			c = tktindrune(p);			if(tkiswordchar(c)) {				do {					if(!tktadjustind(tkt, TkTbychar, p))						break;					c = tktindrune(p);				} while(tkiswordchar(c));			}			else				tktadjustind(tkt, TkTbychar, p);		}		else if(!(p->item->kind == TkTnewline && p->line->next == &tkt->end))			tktadjustind(tkt, TkTbychar, p); 		break; 	case TkTbywrapstart:		tktadjustind(tkt, TkTbycharstart, p);		q = *p;		c = tktindrune(p);		while(!tktisbreak(c)) {			q = *p;			if(!tktadjustind(tkt, TkTbycharback, p))				break;			c = tktindrune(p);		}		*p = q;		break; 	case TkTbywrapend:		tktadjustind(tkt, TkTbycharstart, p);		if(p->item->kind == TkTascii || p->item->kind == TkTrune) {			c = tktindrune(p);			if(!tktisbreak(c)) {				do {					if(!tktadjustind(tkt, TkTbychar, p))						break;					c = tktindrune(p);				} while(!tktisbreak(c) && (p->item->kind == TkTascii || p->item->kind == TkTrune));				while(tktisbreak(c) && tktadjustind(tkt, TkTbychar, p))					c = tktindrune(p);	/* could limit it */			}			else				tktadjustind(tkt, TkTbychar, p);		}		else if(!(p->item->kind == TkTnewline && p->line->next == &tkt->end))			tktadjustind(tkt, TkTbychar, p); 		break;	}	return (p->item != oit || p->pos != opos);} /* return 1 if advancing i1 by item eventually hits i2 */inttktindbefore(TkTindex *i1, TkTindex *i2){	int ans;	TkTitem *i;	TkTline *l1, *l2; 	ans = 0;	l1 = i1->line;	l2 = i2->line; 	if(l1 == l2) {		if(i1->item == i2->item)			ans = (i1->pos < i2->pos);		else {			for(i = i1->item; i != nil; i = i->next)				if(i->next == i2->item) {					ans = 1;					break;				}		}	}	else {		if(l1->orig.y < l2->orig.y)			ans = 1;		else		if(l1->orig.y == l2->orig.y) {			for(; l1 != nil; l1 = l1->next) {				if(l1->next == l2) {					ans = 1;					break;				}				if(l1->orig.y > l2->orig.y)					break;			}		}	} 	return ans;} /* * This comparison only cares which characters the indices are before. * So two marks should be called "equal" (and not "less" or "greater") * if they are adjacent. */inttktindcompare(TkText *tkt, TkTindex *i1, int op, TkTindex *i2){	int eq, ans;	TkTindex x1, x2; 	x1 = *i1;	x2 = *i2; 	/* skip over any marks, contlines, to see if on same character */	tktadjustind(tkt, TkTbycharstart, &x1);	tktadjustind(tkt, TkTbycharstart, &x2);	eq = (x1.item == x2.item && x1.pos == x2.pos); 	switch(op) {

Lines 1–500 of 610. Load more