void debug(void){A name,seq;C err,*sp,*spz,*spp;DC si;
sp=scad; spz=sczad; spp=scpad; si=sitop;
if(!debugb||!si) R;
if(DCPARS==si->t) si=si->lnk;
if(!si || DCDEFN!=si->t && DCSCRP!=si->t) R;
err=jerr; jerr=0;
if(!debadd(DCDEBG)){debugb=0; jsignal(EVSYSTEM); R;}
sitop->ln=err;
if(DCDEFN==si->t){
name=scnm(CSPARS);
seq=srd(name,local);
seq=append(sc(si->ln),seq);
symbis(name,seq,local);
susp();
scad=sp; sczad=spz; scpad=spp;
switch(susact){
case SUSNON: break;
case SUSRUN: break;
case SUSRET: symbis(name, mtv, local); break;
case SUSPOP: symbis(name, mtv, local); break;
case SUSRES: break;
case SUSNXT: symbis(name, behead(seq), local); break;
}} else if(DCSCRP==si->t){
susp();
scad=sp; sczad=spz; scpad=spp;
switch(susact){
case SUSNON: break;
case SUSRUN: scad=scpad; break;
case SUSRET: fa(qpopres); qpopres=0;
case SUSPOP: scad=0; break;
case SUSRES: break;
case SUSNXT: break;
}}
susact=SUSNON; debz();
}
int
main(int argc, char *argv[])
{
const char *user = getenv("USER");
const char *ircnick = getenv("IRCNICK");
const char *server = SRV;
unsigned short port = PORT;
int o;
while ((o=getopt(argc, argv, "hn:u:s:p:"))>=0)
switch (o) {
case 'h':
case '?':
usage:
fputs("Usage: irc [-n NICK] [-u USER] [-s SERVER] [-p PORT] [-h]\n", stderr);
exit(0);
case 'n':
if (strlen(optarg)>=sizeof nick) goto usage;
strcpy(nick, optarg);
break;
case 'u':
user = optarg;
break;
case 's':
server = optarg;
break;
case 'p':
if (!(port=strtol(optarg, 0, 0))) goto usage;
break;
}
if (!nick[0] && ircnick && strlen(ircnick)<sizeof nick)
strcpy(nick, ircnick);
if (!nick[0]) goto usage;
if (!user) user = "******";
tinit();
sfd = dial(server, port);
chadd("*server*");
sndf("NICK %s", nick);
sndf("USER %s 8 * :%s", user, user);
sndf("MODE %s +i", nick);
while (!quit) {
fd_set rfs, wfs;
int ret;
if (winchg)
tresize();
FD_ZERO(&wfs);
FD_ZERO(&rfs);
FD_SET(0, &rfs);
FD_SET(sfd, &rfs);
if (outp!=outb)
FD_SET(sfd, &wfs);
ret=select(sfd+1, &rfs, &wfs, 0, 0);
if (ret<0) {
if (errno==EINTR) continue;
panic("Select failed.");
}
if (FD_ISSET(sfd, &rfs)) {
if (!srd())
quit=1;
}
if (FD_ISSET(sfd, &wfs)) {
int wr;
wr=write(sfd, outb, outp-outb);
if (wr<0) {
if (errno==EINTR) continue;
panic("Write error.");
}
if (wr==0) continue;
outp-=wr;
memmove(outb, outb+wr, outp-outb);
}
if (FD_ISSET(0, &rfs)) {
tgetch();
wrefresh(scr.iw);
}
}
close(sfd);
while (nch--)
free(chl[nch].buf);
treset();
exit(0);
}
