ref: 45f7b30244297a8bf87789793eec875246ed063c
dir: /acme/bin/source/acd/acme.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; } } }