ref: 8f211091301af3a465be701bfdfecf049733dc20
dir: /sys/src/cmd/jamterm/menu.c/
#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 "flayer.h"
#include "samterm.h"
uchar **name; /* first byte is ' ' or '\'': modified state */
Text **text; /* pointer to Text associated with file */
ushort *tag; /* text[i].tag, even if text[i] not defined */
int nname;
int mname;
int mw;
char *genmenu3(int);
char *genmenu2(int);
char *genmenu2c(int);
enum Menu2
{
Cut,
Paste,
Snarf,
Plumb,
Look,
Search,
};
enum Menu3
{
New,
Zerox,
Resize,
Close,
Write,
NMENU3
};
char *menu2str[] = {
"cut",
"paste",
"snarf",
"plumb",
"look",
nil, /* storage for last pattern */
};
int ncmd;
int ncbuf;
char **cmds;
char **clabels;
char *menu3str[] = {
"new",
"zerox",
"resize",
"close",
"write",
};
Menu menu2 = {0, genmenu2};
Menu menu2c ={0, genmenu2c};
Menu menu3 = {0, genmenu3};
extern int kekfd[2];
typedef struct Menucmd Menucmd;
struct Menucmd{
char *cmd;
Menucmd *next;
}*menucmds;
char*
findmenucmd(int n){
Menucmd *m;
for(m = menucmds; n > 0 && m != nil; n--)
m = m->next;
if(n == 0 && m != nil)
return m->cmd;
return nil;
}
void
menucmdhit(char *s)
{
if(s == nil)
return;
outstart(Tmenucmdsend);
outcopy(strlen(s), (uchar*)s);
outsend();
}
void
menu2hit(void)
{
Text *t=(Text *)which->user1;
int w = which-t->l;
int m;
if(hversion==0 || plumbfd<0)
menu2str[Plumb] = "(plumb)";
m = menuhit(2, mousectl, t==&cmd? &menu2c : &menu2, nil);
if(hostlock || t->lock)
return;
switch(m){
case Cut:
cut(t, w, 1, 1);
break;
case Paste:
paste(t, w);
break;
case Snarf:
snarf(t, w);
break;
case Plumb:
if(hversion > 0)
outTsll(Tplumb, t->tag, which->p0, which->p1);
break;
case Look:
outTsll(Tlook, t->tag, which->p0, which->p1);
setlock();
break;
case Search:
if(t == &cmd || menu2str[Search] != nil){
outcmd();
if(t == &cmd)
outTsll(Tsend, 0 /*ignored*/, which->p0, which->p1);
else
outT0(Tsearch);
setlock();
break;
}
default:
m -= Search+(menu2str[Search] != nil);
menucmdhit(findmenucmd(m));
break;
}
}
void
menu3hit(void)
{
Rectangle r;
Flayer *l;
int m, i;
Text *t;
l = which;
mw = -1;
if(l != nil){
t = (Text *)l->user1;
menu3.lasthit = whichmenu(t->tag) + NMENU3;
}
switch(m = menuhit(3, mousectl, &menu3, nil)){
case -1:
break;
case New:
if(!hostlock)
sweeptext(1, 0);
break;
case Zerox:
case Resize:
if(hostlock || l == nil)
break;
if(promptrect(&r, l, m != Resize))
duplicate(l, r, l->f.font, m == Resize);
break;
case Close:
if(hostlock || l == nil)
break;
t=(Text *)l->user1;
if (t->nwin>1)
closeup(l);
else if(t!=&cmd) {
outTs(Tclose, t->tag);
setlock();
}
break;
case Write:
if(hostlock || l == nil)
break;
outTs(Twrite, ((Text *)l->user1)->tag);
setlock();
break;
default:
if(t = text[m-NMENU3]){
i = t->front;
if(t->nwin==0 || t->l[i].textfn==0)
return; /* not ready yet; try again later */
if(t->nwin>1 && which==&t->l[i])
do
if(++i==NL)
i = 0;
while(i!=t->front && t->l[i].textfn==0);
if(&t->l[i] != which)
current(&t->l[i], 1, 1);
}else if(!hostlock)
sweeptext(0, tag[m-NMENU3]);
break;
}
}
Text *
sweeptext(int new, int tag)
{
Rectangle r;
Text *t;
if((t = mallocz(sizeof(*t), 1)) == nil)
return nil;
if(!promptrect(&r, nil, new))
return nil;
current((Flayer *)0, 0, 0);
flnew(&t->l[0], gettext, 0, (char *)t);
flinit(&t->l[0], r, font, maincols); /*bnl*/
t->nwin = 1;
rinit(&t->rasp);
if(new)
startnewfile(Tstartnewfile, t);
else{
rinit(&t->rasp);
t->tag = tag;
startfile(t);
}
return t;
}
int
whichmenu(int tg)
{
int i;
for(i=0; i<nname; i++)
if(tag[i] == tg)
return i;
return -1;
}
void
menuins(int n, uchar *s, Text *t, int m, int tg)
{
int i;
if(nname == mname){
if(mname == 0)
mname = 32;
else
mname *= 2;
name = realloc(name, sizeof(name[0])*mname);
text = realloc(text, sizeof(text[0])*mname);
tag = realloc(tag, sizeof(tag[0])*mname);
if(name==nil || text==nil || tag==nil)
panic("realloc");
}
for(i=nname; i>n; --i)
name[i]=name[i-1], text[i]=text[i-1], tag[i]=tag[i-1];
text[n] = t;
tag[n] = tg;
name[n] = alloc(strlen((char*)s)+2);
name[n][0] = m;
strcpy((char*)name[n]+1, (char*)s);
nname++;
menu3.lasthit = n+NMENU3;
}
void
menudel(int n)
{
int i;
if(nname==0 || n>=nname || text[n])
panic("menudel");
free(name[n]);
--nname;
for(i = n; i<nname; i++)
name[i]=name[i+1], text[i]=text[i+1], tag[i]=tag[i+1];
}
void
setpat(char *s)
{
static char pat[17];
pat[0] = '/';
strncpy(pat+1, s, 15);
menu2str[Search] = pat;
}
void
menucmd(char *s)
{
Menucmd **mp, *m;
while(*s == ' ' || *s == '\t')
s++;
if(*s == 0){
outstart(Tmenucmd);
for(m = menucmds; m != nil; m = m->next){
outcopy(3, (uchar*)"\tM ");
outcopy(strlen(m->cmd), (uchar*)m->cmd);
outcopy(1, (uchar*)"\n");
}
outsend();
return;
}
for(mp = &menucmds; *mp != nil; mp = &(*mp)->next)
if(!strcmp(s, (*mp)->cmd)){
m = *mp;
*mp = m->next;
free(m->cmd);
free(m);
return;
}
*mp = m = malloc(sizeof(Menucmd));
if(m == nil) panic("malloc");
m->cmd = strdup(s);
m->next = nil;
}
#define NBUF 64
static uchar buf[NBUF*UTFmax]={' ', ' ', ' ', ' '};
char *
paren(char *s)
{
uchar *t = buf;
*t++ = '(';
do; while(*t++ = *s++);
t[-1] = ')';
*t = 0;
return (char *)buf;
}
char*
genmenu2(int n)
{
Text *t=(Text *)which->user1;
char *p;
if(n < Search || n == Search && (menu2str[Search] != nil))
p = menu2str[n];
else{
n -= Search + (menu2str[Search] != nil);
p = findmenucmd(n);
if(p == nil)
return nil;
}
if(!hostlock && !t->lock
|| p == menu2str[Search]
|| p == menu2str[Look])
return p;
return paren(p);
}
char*
genmenu2c(int n)
{
Text *t=(Text *)which->user1;
char *p;
if(n < Search)
p = menu2str[n];
else if(n == Search)
p = "send";
else if((p = findmenucmd(n - Search-1)) == nil)
return nil;
if(!hostlock && !t->lock)
return p;
return paren(p);
}
char *
genmenu3(int n)
{
Text *t;
int c, i, k, l, w;
Rune r;
char *p;
if(n >= NMENU3+nname)
return 0;
if(n < NMENU3){
p = menu3str[n];
if(hostlock)
p = paren(p);
return p;
}
n -= NMENU3;
if(n == 0) /* unless we've been fooled, this is cmd */
return (char *)&name[n][1];
if(mw == -1){
mw = 7; /* strlen("~~jam~~"); */
for(i=1; i<nname; i++){
w = utflen((char*)name[i]+1)+4; /* include "'+. " */
if(w > mw)
mw = w;
}
}
if(mw > NBUF)
mw = NBUF;
t = text[n];
buf[0] = name[n][0];
buf[1] = '-';
buf[2] = ' ';
buf[3] = ' ';
if(t){
if(t->nwin == 1)
buf[1] = '+';
else if(t->nwin > 1)
buf[1] = '*';
if(work && t==(Text *)work->user1) {
buf[2]= '.';
if(modified)
buf[0] = '\'';
}
}
l = utflen((char*)name[n]+1);
if(l > NBUF-4-2){
i = 4;
k = 1;
while(i < NBUF/2){
k += chartorune(&r, (char*)name[n]+k);
i++;
}
c = name[n][k];
name[n][k] = 0;
strcpy((char*)buf+4, (char*)name[n]+1);
name[n][k] = c;
strcat((char*)buf, "...");
while((l-i) >= NBUF/2-4){
k += chartorune(&r, (char*)name[n]+k);
i++;
}
strcat((char*)buf, (char*)name[n]+k);
}else
strcpy((char*)buf+4, (char*)name[n]+1);
i = utflen((char*)buf);
k = strlen((char*)buf);
while(i<mw && k<sizeof buf-1){
buf[k++] = ' ';
i++;
}
buf[k] = 0;
return (char *)buf;
}