348 lines
6.5 KiB
C
348 lines
6.5 KiB
C
#include "acd.h"
|
|
|
|
static int
|
|
iscmd(char *s, char *cmd)
|
|
{
|
|
int len;
|
|
|
|
len = strlen(cmd);
|
|
return strncmp(s, cmd, len)==0 && (s[len]=='\0' || s[len]==' ' || s[len]=='\t' || s[len]=='\n');
|
|
}
|
|
|
|
static char*
|
|
skip(char *s, char *cmd)
|
|
{
|
|
s += strlen(cmd);
|
|
while(*s==' ' || *s=='\t' || *s=='\n')
|
|
s++;
|
|
return s;
|
|
}
|
|
|
|
//#define PLAYSTRING "/^[0-9:]+>"
|
|
//#define PLAYSTRINGSPACE "/^[0-9:]+> ?"
|
|
//#define INITSTRING "0:00> "
|
|
|
|
#define INITSTRING "> "
|
|
#define PLAYSTRING "/^>"
|
|
#define PLAYSTRINGSPACE "/^> ?"
|
|
|
|
/*
|
|
* find the playing string, leave in addr
|
|
* if q0, q1 are non-nil, set them to the addr of the string.
|
|
*/
|
|
int
|
|
findplay(Window *w, char *s, ulong *q0, ulong *q1)
|
|
{
|
|
char xbuf[25];
|
|
if(w->data < 0)
|
|
w->data = winopenfile(w, "data");
|
|
|
|
if(!winsetaddr(w, "#0", 1) || !winsetaddr(w, s, 1))
|
|
return 0;
|
|
|
|
seek(w->addr, 0, 0);
|
|
if(read(w->addr, xbuf, 24) != 24)
|
|
return 0;
|
|
|
|
xbuf[24] = 0;
|
|
if(q0)
|
|
*q0 = atoi(xbuf);
|
|
if(q1)
|
|
*q1 = atoi(xbuf+12);
|
|
|
|
return 1;
|
|
}
|
|
|
|
/*
|
|
* find the playing string and replace the time
|
|
*/
|
|
int
|
|
setplaytime(Window *w, char *new)
|
|
{
|
|
char buf[40];
|
|
ulong q0, q1;
|
|
|
|
return 1;
|
|
if(!findplay(w, PLAYSTRING, &q0, &q1))
|
|
return 0;
|
|
|
|
q1--; /* > */
|
|
sprint(buf, "#%lud,#%lud", q0, q1);
|
|
DPRINT(2, "setaddr %s\n", buf);
|
|
if(!winsetaddr(w, buf, 1))
|
|
return 0;
|
|
|
|
if(write(w->data, new, strlen(new)) != strlen(new))
|
|
return 0;
|
|
|
|
return 1;
|
|
}
|
|
|
|
/*
|
|
* find the playing string, and remove it.
|
|
* return the string at the beginning of hte next line in buf
|
|
* (presumably a track number).
|
|
*/
|
|
static int
|
|
unmarkplay(Window *w, char *buf, int n, ulong *q0, ulong *q1, ulong *qbegin)
|
|
{
|
|
char xbuf[24];
|
|
|
|
if(!findplay(w, PLAYSTRINGSPACE, q0, q1))
|
|
return 0;
|
|
|
|
if(write(w->data, "", 0) < 0 || !winsetaddr(w, "+1+#0", 1))
|
|
return 0;
|
|
|
|
if(qbegin) {
|
|
seek(w->addr, 0, 0);
|
|
if(read(w->addr, xbuf, 24) != 24)
|
|
return 0;
|
|
*qbegin = atoi(xbuf);
|
|
}
|
|
|
|
if(buf) {
|
|
if((n = read(w->data, buf, n-1)) < 0)
|
|
return 0;
|
|
|
|
buf[n] = '\0';
|
|
}
|
|
|
|
return 1;
|
|
}
|
|
|
|
int
|
|
markplay(Window *w, ulong q0)
|
|
{
|
|
char buf[20];
|
|
|
|
if(w->data < 0)
|
|
w->data = winopenfile(w, "data");
|
|
|
|
sprint(buf, "#%lud", q0);
|
|
DPRINT(2, "addr %s\n", buf);
|
|
if(!winsetaddr(w, buf, 1) || !winsetaddr(w, "-0", 1))
|
|
return 0;
|
|
if(write(w->data, INITSTRING, strlen(INITSTRING)) != strlen(INITSTRING))
|
|
return 0;
|
|
return 1;
|
|
}
|
|
|
|
/* return 1 if handled, 0 otherwise */
|
|
int
|
|
cdcommand(Window *w, Drive *d, char *s)
|
|
{
|
|
s = skip(s, "");
|
|
|
|
if(iscmd(s, "Del")){
|
|
if(windel(w, 0))
|
|
threadexitsall(nil);
|
|
return 1;
|
|
}
|
|
if(iscmd(s, "Stop")){
|
|
unmarkplay(w, nil, 0, nil, nil, nil);
|
|
stop(d);
|
|
return 1;
|
|
}
|
|
if(iscmd(s, "Eject")){
|
|
unmarkplay(w, nil, 0, nil, nil, nil);
|
|
eject(d);
|
|
return 1;
|
|
}
|
|
if(iscmd(s, "Ingest")){
|
|
unmarkplay(w, nil, 0, nil, nil, nil);
|
|
ingest(d);
|
|
return 1;
|
|
}
|
|
if(iscmd(s, "Pause")){
|
|
pause(d);
|
|
return 1;
|
|
}
|
|
if(iscmd(s, "Resume")){
|
|
resume(d);
|
|
return 1;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
void
|
|
drawtoc(Window *w, Drive *d, Toc *t)
|
|
{
|
|
int i, playing;
|
|
|
|
if(w->data < 0)
|
|
w->data = winopenfile(w, "data");
|
|
if(!winsetaddr(w, ",", 1))
|
|
return;
|
|
|
|
fprint(w->data, "Title\n\n");
|
|
playing = -1;
|
|
if(d->status.state == Splaying || d->status.state == Spaused)
|
|
playing = d->status.track-t->track0;
|
|
|
|
for(i=0; i<t->ntrack; i++)
|
|
fprint(w->data, "%s%d/ Track %d\n", i==playing ? "> " : "", i+1, i+1);
|
|
fprint(w->data, "");
|
|
}
|
|
|
|
void
|
|
redrawtoc(Window *w, Toc *t)
|
|
{
|
|
int i;
|
|
char old[50];
|
|
|
|
if(w->data < 0)
|
|
w->data = winopenfile(w, "data");
|
|
if(t->title) {
|
|
if(winsetaddr(w, "/Title", 1))
|
|
write(w->data, t->title, strlen(t->title));
|
|
}
|
|
for(i=0; i<t->ntrack; i++) {
|
|
if(t->track[i].title) {
|
|
sprint(old, "/Track %d", i+1);
|
|
if(winsetaddr(w, old, 1))
|
|
write(w->data, t->track[i].title, strlen(t->track[i].title));
|
|
}
|
|
}
|
|
}
|
|
|
|
void
|
|
advancetrack(Drive *d, Window *w)
|
|
{
|
|
int n;
|
|
ulong q0, q1, qnext;
|
|
char buf[20];
|
|
|
|
q0 = q1 = 0;
|
|
if(!unmarkplay(w, buf, sizeof(buf), &q0, &q1, &qnext)) {
|
|
DPRINT(2, "unmark: %r\n");
|
|
return;
|
|
}
|
|
|
|
DPRINT(2, "buf: %s\n", buf);
|
|
if(strncmp(buf, "repeat", 6) == 0) {
|
|
if(!winsetaddr(w, "#0", 1) || !findplay(w, "/^[0-9]+\\/", &qnext, nil)) {
|
|
DPRINT(2, "set/find: %r\n");
|
|
return;
|
|
}
|
|
if(w->data < 0)
|
|
w->data = winopenfile(w, "data");
|
|
if((n = read(w->data, buf, sizeof(buf)-1)) <= 0) {
|
|
DPRINT(2, "read %d: %r\n", n);
|
|
return;
|
|
}
|
|
buf[n] = 0;
|
|
DPRINT(2, "buf: %s\n", buf);
|
|
}
|
|
|
|
if((n = atoi(buf)) == 0)
|
|
return;
|
|
|
|
if(!markplay(w, qnext))
|
|
DPRINT(2, "err: %r");
|
|
|
|
playtrack(d, n-1, n-1);
|
|
}
|
|
|
|
void
|
|
acmeevent(Drive *d, Window *w, Event *e)
|
|
{
|
|
Event *ea, *e2, *eq;
|
|
char *s, *t, *buf;
|
|
int n, na;
|
|
ulong q0, q1;
|
|
|
|
switch(e->c1){ /* origin of action */
|
|
default:
|
|
Unknown:
|
|
fprint(2, "unknown message %c%c\n", e->c1, e->c2);
|
|
break;
|
|
|
|
case 'E': /* write to body or tag; can't affect us */
|
|
break;
|
|
|
|
case 'F': /* generated by our actions; ignore */
|
|
break;
|
|
|
|
case 'K': /* type away; we don't care */
|
|
break;
|
|
|
|
case 'M': /* mouse event */
|
|
switch(e->c2){ /* type of action */
|
|
case 'x': /* mouse: button 2 in tag */
|
|
case 'X': /* mouse: button 2 in body */
|
|
ea = nil;
|
|
// e2 = nil;
|
|
s = e->b;
|
|
if(e->flag & 2){ /* null string with non-null expansion */
|
|
e2 = recvp(w->cevent);
|
|
if(e->nb==0)
|
|
s = e2->b;
|
|
}
|
|
if(e->flag & 8){ /* chorded argument */
|
|
ea = recvp(w->cevent); /* argument */
|
|
na = ea->nb;
|
|
recvp(w->cevent); /* ignore origin */
|
|
}else
|
|
na = 0;
|
|
|
|
/* append chorded arguments */
|
|
if(na){
|
|
t = emalloc(strlen(s)+1+na+1);
|
|
sprint(t, "%s %s", s, ea->b);
|
|
s = t;
|
|
}
|
|
/* if it's a known command, do it */
|
|
/* if it's a long message, it can't be for us anyway */
|
|
DPRINT(2, "exec: %s\n", s);
|
|
if(!cdcommand(w, d, s)) /* send it back */
|
|
winwriteevent(w, e);
|
|
if(na)
|
|
free(s);
|
|
break;
|
|
|
|
case 'l': /* mouse: button 3 in tag */
|
|
case 'L': /* mouse: button 3 in body */
|
|
// buf = nil;
|
|
eq = e;
|
|
if(e->flag & 2){
|
|
e2 = recvp(w->cevent);
|
|
eq = e2;
|
|
}
|
|
s = eq->b;
|
|
if(eq->q1>eq->q0 && eq->nb==0){
|
|
buf = emalloc((eq->q1-eq->q0)*UTFmax+1);
|
|
winread(w, eq->q0, eq->q1, buf);
|
|
s = buf;
|
|
}
|
|
DPRINT(2, "load %s\n", s);
|
|
if((n = atoi(s)) != 0) {
|
|
DPRINT(2, "mark %d\n", n);
|
|
q0 = q1 = 0;
|
|
unmarkplay(w, nil, 0, &q0, &q1, nil);
|
|
|
|
/* adjust eq->q* for deletion */
|
|
if(eq->q0 > q1) {
|
|
eq->q0 -= (q1-q0);
|
|
eq->q1 -= (q1-q0);
|
|
}
|
|
if(!markplay(w, eq->q0))
|
|
DPRINT(2, "err: %r\n");
|
|
|
|
playtrack(d, n-1, n-1);
|
|
} else
|
|
winwriteevent(w, e);
|
|
break;
|
|
|
|
case 'i': /* mouse: text inserted in tag */
|
|
case 'I': /* mouse: text inserted in body */
|
|
case 'd': /* mouse: text deleted from tag */
|
|
case 'D': /* mouse: text deleted from body */
|
|
break;
|
|
|
|
default:
|
|
goto Unknown;
|
|
}
|
|
}
|
|
}
|