ref: dd77de7a509fa0e8273e3395161e691549edca52
parent: 907105032b0cd6036b42e4e9c7854f03027038ca
author: glenda <glenda@9front.local>
date: Thu Dec 17 16:13:41 EST 2020
added neindaw script
--- /dev/null
+++ b/install/install-neindaw.rc
@@ -1,0 +1,6 @@
+#!/bin/rc
+mkdir -p $home/code
+cd $home/code
+git/clone https://git@git.sr.ht/~ft/neindaw
+cd neindaw
+mk install
binary files /dev/null b/install/irc7/.hg/00changelog.i differ
--- /dev/null
+++ b/install/irc7/.hg/branch
@@ -1,0 +1,1 @@
+default
--- /dev/null
+++ b/install/irc7/.hg/branchheads.cache
@@ -1,0 +1,2 @@
+ac16a1e78cdfc12ffd5af66949e50846e580c5e5 1
+ac16a1e78cdfc12ffd5af66949e50846e580c5e5 default
binary files /dev/null b/install/irc7/.hg/dirstate differ
--- /dev/null
+++ b/install/irc7/.hg/hgrc
@@ -1,0 +1,2 @@
+[paths]
+default = https://code.9front.org/hg/irc7
--- /dev/null
+++ b/install/irc7/.hg/requires
@@ -1,0 +1,3 @@
+revlogv1
+store
+fncache
binary files /dev/null b/install/irc7/.hg/store/00changelog.i differ
binary files /dev/null b/install/irc7/.hg/store/00manifest.i differ
binary files /dev/null b/install/irc7/.hg/store/data/irc.c.i differ
binary files /dev/null b/install/irc7/.hg/store/data/irc.h.i differ
binary files /dev/null b/install/irc7/.hg/store/data/irc.man.i differ
binary files /dev/null b/install/irc7/.hg/store/data/ircsrv.c.i differ
binary files /dev/null b/install/irc7/.hg/store/data/mkfile.i differ
--- /dev/null
+++ b/install/irc7/.hg/store/fncache
@@ -1,0 +1,5 @@
+data/irc.c.i
+data/irc.h.i
+data/irc.man.i
+data/ircsrv.c.i
+data/mkfile.i
binary files /dev/null b/install/irc7/.hg/store/undo differ
--- /dev/null
+++ b/install/irc7/.hg/undo.branch
@@ -1,0 +1,1 @@
+default
\ No newline at end of file
binary files /dev/null b/install/irc7/6.irc differ
binary files /dev/null b/install/irc7/6.ircsrv differ
binary files /dev/null b/install/irc7/irc.6 differ
--- /dev/null
+++ b/install/irc7/irc.c
@@ -1,0 +1,854 @@
+#include <u.h>
+#include <libc.h>
+#include <bio.h>
+#include <draw.h>
+
+char help[] =
+"cmd explanation/example\n"
+"--------------------------------------------\n"
+"/m privmsg #chan/nick message\n"
+"/M mode #chan +nt\n"
+"/j join #chan\n"
+"/p part #chan\n"
+"/q send parameters raw to the server\n"
+"/l list #chan\n"
+"/n nick newnick\n"
+"/N notice #chan/nick message\n"
+"/t set victim\n"
+"/T topic #chan newtopic\n"
+"/W whois nick\n"
+"/w who nick (a shorter whois)\n";
+
+#define NPAR 14
+
+enum state { Time, Cmd, Prefix, Middle, Trail, Ok };+
+typedef struct handler Handler;
+
+struct handler {+ char *cmd;
+ int (*fun)(int fd, char *time, char *pre, char *cmd, char *par[]);
+};
+
+QLock lck;
+int server_in;
+int server_out;
+int scr;
+char *victim;
+char *nick;
+int inacme; /* running in acme? */
+int linewidth; /* terminal width in # of characters */
+
+int replay; /* just print the log ma'am */
+
+void setwintitle(char *chan);
+
+int rtcs(int fd, char *cset);
+int wtcs(int fd, char *cset);
+int follow(int fd);
+void getwidth(void); /* establish the width of the terminal, from mc.c */
+
+int pmsg(int fd, char *time, char *pre, char *cmd, char *par[]);
+int ntc(int fd, char *time, char *pre, char *cmd, char *par[]);
+int generic(int fd, char *time, char *pre, char *cmd, char *par[]);
+int misc(int fd, char *time, char *pre, char *cmd, char *par[]);
+int numeric(int fd, char *time, char *pre, char *cmd, char *par[]);
+
+Handler handlers[] = {+ {"PRIVMSG", pmsg},+ {"NOTICE", ntc},+ {"JOIN", misc},+ {"PART", misc},+ {"MODE", misc},+ {"QUIT", misc},+ {"TOPIC", misc},+ {"332", numeric},+ {"333", numeric},+ {"352", numeric},+ {"315", numeric},+ {"311", numeric},+ {"319", numeric},+ {"312", numeric},+ {"320", numeric},+ {"317", numeric},+ {"318", numeric},+ {nil, nil}+};
+
+int srvparse(char *line, char **time, char **pre, char **cmd, char *par[], int npar);
+int usrparse(char *ln, char *cmd, char *par[], int npar);
+
+void
+usage(void)
+{+ char usage[] = "usage: irc [-c charset] [-t victim] [-b lines] [-r file] [/srv/irc [/tmp/irc]]\n";
+ write(1, usage, sizeof(usage)-1);
+ exits("usage");+}
+
+void
+setwintitle(char *chan)
+{+ int fd;
+
+ if ((fd = open("/dev/label", OWRITE)) >= 0) {+ fprint(fd, "%s", chan);
+ close(fd);
+ }
+ if ((fd = open("/dev/acme/ctl", OWRITE)) >= 0) {+ fprint(fd, "name -IRC/%s\n", chan);
+ close(fd);
+ inacme = 1;
+ }
+}
+
+/* try to find out whether we're running in acme's win -e */
+int
+testacme(void)
+{+ return access("/dev/acme", OREAD) >= 0 ? 1 : 0;+}
+
+void
+usrin(void)
+{+ char *line, *p;
+ char *par[2];
+ char cmd;
+ int n, i;
+
+ Biobuf kbd;
+ Binit(&kbd, 0, OREAD);
+ while ((line = Brdstr(&kbd, '\n', 0)) != nil) {+ n = utflen(line);
+ if(!inacme) {+ p = malloc(n);
+ for (i = 0; i < n; ++i)
+ p[i] = '\b';
+ write(scr, p, i);
+ free(p);
+ }
+ qlock(&lck);
+ if (!usrparse(line, &cmd, par, 2)) {+ switch(cmd) {+ case 'q': /* quote, just send the params ... */
+ if(par[0]) {+ fprint(server_out, "%s %s\r\n", par[0], par[1] ? par[1] : "");
+ } else {+ fprint(scr, "/q %s %s: not enough arguments\n", par[0], par[1]);
+ }
+ break;
+ case 'M':
+ if(par[0] && par[1]) {+ fprint(server_out, "MODE %s %s\r\n", par[0], par[1]);
+ } else {+ fprint(scr, "/M %s %s: not enough arguments\n", par[0], par[1]);
+ }
+ break;
+ case 'm':
+ if(par[0] && par[1]) {+ fprint(server_out, "PRIVMSG %s :%s\r\n", par[0], par[1]);
+ } else {+ fprint(scr, "/m %s %s: not enough arguments\n", par[0], par[1]);
+ }
+ break;
+ case 't':
+ if(par[0] != nil) {+ free(victim);
+ victim = strdup(par[0]);
+ setwintitle(par[0]);
+ }
+ fprint(scr, "*** default victim set to '%s'\n", par[0]);
+ break;
+ case 'T':
+ if(par[0] == nil)
+ fprint(server_out, "TOPIC %s\r\n", victim);
+ else if(par[1] == nil)
+ fprint(server_out, "TOPIC %s\r\n", par[0]);
+ else
+ fprint(server_out, "TOPIC %s :%s\r\n", par[0], par[1]);
+ break;
+ case 'j':
+ fprint(server_out, "JOIN %s\r\n", par[0] == nil ? victim : par[0]);
+ break;
+ case 'p':
+ fprint(server_out, "PART %s\r\n", par[0] == nil ? victim : par[0]);
+ break;
+ case 'n':
+ if(par[0] != nil) {+ fprint(server_out, "NICK %s\r\n", par[0]);
+ free(nick);
+ nick = strdup(par[0]);
+ } else {+ fprint(scr, "%s", help);
+ }
+ break;
+ case 'N':
+ if(par[1] != nil)
+ fprint(server_out, "NOTICE %s :%s\r\n", par[0] == nil ? victim : par[0], par[1]);
+ break;
+ case 'W':
+ fprint(server_out, "WHOIS %s %s\r\n", par[0] == nil ? victim : par[0], par[0]);
+ case 'w':
+ fprint(server_out, "WHO %s\r\n", par[0] == nil ? victim : par[0]);
+ break;
+ case 'l':
+ fprint(server_out, "LIST %s\r\n", par[0] == nil ? victim : par[0]);
+ break;
+ case 'L':
+ fprint(server_out, "NAMES %s\r\n", par[0] == nil ? victim : par[0]);
+ break;
+ case 'f':
+ break;
+ case 'h':
+ case 'H':
+ fprint(scr, "%s", help);
+ break;
+ }
+ } else {+ fprint(scr, "%s", help);
+ }
+ qunlock(&lck);
+ free(line);
+ }
+ exits(0);
+}
+
+void
+timestamp(char *logtime, char *scrtime, int maxlen)
+{+ static char *wday[] = { + "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat",
+ };
+ static char *mon[] = { + "Jan", "Feb", "Mar", "Apr", "May", "Jun",
+ "Jul", "Aug", "Sep", "Oct", "Nov", "Dec",
+ };
+ static int day = 0;
+ Tm *t;
+
+ t = localtime(atol(logtime));
+
+ if (t->mday != day) {+ day = t->mday;
+ fprint(scr, "-- %s, %02d %s %d --\n",
+ wday[t->wday], t->mday, mon[t->mon],
+ t->year + 1900);
+ }
+
+ snprint(scrtime, maxlen, "%02d:%02d:%02d",
+ t->hour, t->min, t->sec);
+}
+
+void
+srvin(void)
+{+ char *line;
+ char *time, *pre, *cmd, *par[NPAR];
+ char scrtime[32];
+ Biobuf srv;
+ Binit(&srv, server_in, OREAD);
+
+ while ((line = Brdstr(&srv, '\n', 0)) != nil) {+ if (!srvparse(line, &time, &pre, &cmd, par, NPAR)) {+ Handler *hp = handlers;
+ qlock(&lck);
+ timestamp(time, scrtime, sizeof(scrtime));
+ while (hp->cmd != nil) {+ if (!strcmp(hp->cmd, cmd)) {+ hp->fun(server_out, scrtime, pre, cmd, par);
+ break;
+ }
+ ++hp;
+ }
+ if (hp->cmd == nil)
+ generic(server_out, scrtime, pre, cmd, par);
+ qunlock(&lck);
+ }
+ free(line);
+ }
+}
+
+void
+replayfile(void)
+{+ char *line;
+ char *time, *pre, *cmd, *par[NPAR];
+ char scrtime[32];
+ Biobuf srv;
+ Binit(&srv, server_in, OREAD);
+
+ while ((line = Brdstr(&srv, '\n', 0)) != nil) {+ if (!srvparse(line, &time, &pre, &cmd, par, NPAR)) {+ Handler *hp = handlers;
+ qlock(&lck);
+ timestamp(time, scrtime, sizeof(scrtime));
+ while (hp->cmd != nil) {+ if (!strcmp(hp->cmd, cmd)) {+ hp->fun(server_out, scrtime, pre, cmd, par);
+ break;
+ }
+ ++hp;
+ }
+ if (hp->cmd == nil)
+ generic(server_out, scrtime, pre, cmd, par);
+ qunlock(&lck);
+ }
+ free(line);
+ }
+}
+
+/*
+ * display the last N lines from the conversation
+ * if we have a default target only the conversation with
+ * that target will be shown
+ */
+void
+seekback(int fd, int lines)
+{+ Biobuf srv;
+ int found = 0, off;
+ char c, *line;
+
+ if(lines < 0)
+ return;
+
+ Binit(&srv, fd, OREAD);
+
+ Bseek(&srv, -2, 2);
+ while(((off = Boffset(&srv)) > 0) && found < lines) {+ c = Bgetc(&srv);
+ Bungetc(&srv);
+ if(c == '\n') {+ Bseek(&srv, 1, 1);
+ line = Brdstr(&srv, '\n', '\0');
+ if(victim) {+ if(cistrstr(line, victim))
+ found++;
+ } else {+ found++;
+ }
+ free(line);
+ }
+ Bseek(&srv, off-1, 0);
+ }
+
+ Bterm(&srv);
+}
+
+void
+main(int argc, char *argv[])
+{+ char *charset = nil;
+ char buf[32], buf2[32], *out = nil, *in = nil;
+ char *arg;
+ int sb = 10; /* how many lines are we displaying initially */
+ int uipid;
+
+ ARGBEGIN {+ case 't':
+ victim = strdup(EARGF(usage()));
+ break;
+ case 'b':
+ arg = ARGF();
+ if(arg != nil && arg[0] != '-')
+ sb = atoi(arg);
+ else
+ sb = 0; /* show all text */
+ break;
+ case 'c':
+ charset = EARGF(usage());
+ break;
+ case 'r':
+ replay = 1;
+ sb = 0;
+ break;
+ default:
+ usage();
+ } ARGEND;
+
+ switch(argc) {+ case 0:
+ break;
+ case 1:
+ if(replay)
+ in = argv[0];
+ else
+ out = argv[0];
+ break;
+ case 2:
+ out = argv[0];
+ in = argv[1];
+ break;
+ default:
+ usage();
+ }
+
+ if(out == nil) {+ out = getuser();
+ if(strlen(out) > 4)
+ out[4] = 0;
+ snprint(buf, sizeof buf, "/srv/%sirc", out);
+ out = buf;
+ }
+ if(in == nil) {+ in = getuser();
+ if(strlen(in) > 4)
+ in[4] = 0;
+ snprint(buf2, sizeof buf2, "/tmp/%sirc", in);
+ in = buf2;
+ }
+
+ if(!replay && (server_out = open(out, OWRITE)) < 0)
+ sysfatal("open write: %s %r", out);+ if ((server_in = open(in, OREAD)) < 0)
+ sysfatal("open read: %s %r", in);+
+ inacme = testacme();
+ getwidth();
+
+ if(sb)
+ seekback(server_in, sb);
+
+ while(read(server_in, buf, 1) > 0)
+ if(*buf == '\n')
+ break;
+
+ if(victim && cistrncmp(victim, "MSGS", 4)){+ setwintitle(victim);
+ fprint(server_out, "JOIN %s\r\n", victim);
+ }
+ scr = 1;
+
+ server_in = follow(server_in);
+
+ if (charset != nil && strcmp(charset, "utf")) {+ server_out = wtcs(server_out, charset);
+ server_in = rtcs(server_in, charset);
+ }
+
+ if(replay) {+ replayfile();
+ } else {+ if ((uipid = rfork(RFPROC|RFFDG|RFMEM)) == 0)
+ srvin();
+
+ usrin();
+
+ postnote(PNPROC, uipid, "kill");
+ while (waitpid() != uipid);
+ }
+
+ exits(0);
+}
+
+int
+wtcs(int fd, char *cset)
+{+ int totcs[2];
+ int pid;
+
+ pipe(totcs);
+
+ pid = fork();
+
+ if (pid == 0) {+ dup(totcs[0], 0);
+ dup(fd, 1);
+ close(totcs[1]);
+ execl("/bin/tcs", "tcs", "-f", "utf", "-t", cset, nil);+ exits("execfailure");+ }
+ close(totcs[0]);
+
+ return totcs[1];
+}
+
+int
+rtcs(int fd, char *cset)
+{+ int fromtcs[2];
+ int pid;
+
+ pipe(fromtcs);
+
+ pid = fork();
+
+ if (pid == 0){+ dup(fromtcs[1], 1);
+ dup(fd, 0);
+ close(fromtcs[0]);
+ execl("/bin/tcs", "tcs", "-f", cset, "-t", "utf", nil);+ exits("execfailure");+ }
+ close(fromtcs[1]);
+
+ return fromtcs[0];
+}
+
+int
+follow(int fd)
+{+ int p[2], pid;
+ long n;
+ char buf[1024];
+ Dir *dp;
+
+ pipe(p);
+
+ pid = fork();
+ if (pid == 0){+ dup(p[1], 1);
+ dup(fd, 0);
+ close(p[0]);
+ for(;;){+ while((n = read(0, buf, sizeof(buf))) > 0)
+ write(1, buf, n);
+ sleep(1000);
+ dp = dirfstat(0);
+ free(dp);
+ }
+ }
+ close(p[1]);
+
+ return p[0];
+}
+
+char *
+prenick(char *p)
+{+ char *n = p;
+ if (p != nil) {+ while (*p != '\0' && *p != '!') ++p;
+ if (*p != '!')
+ n = nil;
+ *p = '\0';
+ }
+ return n;
+}
+
+int
+pmsg(int, char *time, char *pre, char *, char *par[])
+{+ int n = 0;
+ char *buf;
+ char *c, *tc;
+
+/*
+ * if sent to victim, or comes from victim to non-channel, print.
+ * otherwise bail out.
+ */
+ pre = prenick(pre);
+ if(victim) {+ if((cistrncmp(victim, "MSGS", 4) == 0) && *par[0] != '#') {+ /* catch-all for messages, fall through */
+
+ } else if(cistrcmp(par[0], victim))
+ if(!pre || cistrcmp(pre, victim) || *par[0] == '#')
+ return 0;
+ }
+
+ if(!pre)
+ buf = smprint("%s (%s) ⇐ %s\n", time, par[0], par[1]);+ else if(*par[0] != '#')
+ buf = smprint("%s (%s) ⇒ %s\n", time, pre, par[1]);+ else
+ buf = smprint("%s %s → %s\n", time, pre, par[1]);+
+ if(!buf)
+ sysfatal("failed to allocate space for message: %r\n");+
+ c = buf;
+again:
+ if(strlen(c) >= linewidth) {+ for(tc = c + linewidth; tc > c; tc--) {+ switch(*tc) {+ case ' ':
+ *tc = '\0';
+ n += fprint(scr, "%s\n", c);
+ c = tc+1;
+ goto again;
+ break;
+ default:
+ break;
+ }
+ }
+ }
+ n += fprint(scr, "%s", c);
+ free(buf);
+ return n;
+}
+
+int
+ntc(int, char *time, char *pre, char *, char *par[])
+{+ int n;
+
+/*
+ * if sent to victim, or comes from victim to non-channel, print.
+ * otherwise bail out.
+ */
+ pre = prenick(pre);
+ if(victim && cistrcmp(par[0], victim))
+ if(!pre || cistrcmp(pre, victim) || *par[0] == '#')
+ return 0;
+
+ if(!pre)
+ n = fprint(scr, "%s [%s] ⇐\t%s\n", time, par[0], par[1]);
+ else if(*par[0] != '#')
+ n = fprint(scr, "%s [%s] ⇒\t%s\n", time, pre, par[1]);
+ else
+ n = fprint(scr, "%s [%s] %s →\t%s\n", time, par[0], pre, par[1]);
+ return n;
+}
+
+int
+generic(int, char *time, char *pre, char *cmd, char *par[])
+{+ int i = 0, r;
+ char *nick = prenick(pre);
+
+/*
+ * don't print crud on screens with victim set
+ */
+ if(victim)
+ return 0;
+
+ if (nick != nil)
+ r = fprint(scr, "%s %s (%s)\t", time, cmd, nick);
+ else
+ r = fprint(scr, "%s %s (%s)\t", time, cmd, par[i++]);
+
+ for (; par[i] != nil; ++i)
+ r += fprint(scr, " %s", par[i]);
+
+ r += fprint(scr, "\n");
+
+ return r;
+}
+
+int
+misc(int, char *time, char *pre, char *cmd, char *par[])
+{+ int i = 0, r;
+ char *nick = prenick(pre);
+
+ if(cistrcmp(cmd,"QUIT"))
+ if(victim && par[0] && cistrcmp(par[0], victim))
+ return 0;
+
+ if (nick != nil)
+ r = fprint(scr, "%s %s (%s)\t", time, cmd, nick);
+ else
+ r = fprint(scr, "%s %s %s\t", time, cmd, par[i++]);
+
+ for (; par[i] != nil; ++i)
+ r += fprint(scr, " %s", par[i]);
+
+ r += fprint(scr, "\n");
+
+ return r;
+}
+
+int
+numeric(int, char *time, char *pre, char *cmd, char *par[])
+{+ int i = 0, r;
+ char *nick = prenick(pre);
+
+ if(victim && par[1] && cistrcmp(par[1], victim))
+ return 0;
+
+ if (nick != nil)
+ r = fprint(scr, "%s %s (%s)\t", time, cmd, nick);
+ else
+ r = fprint(scr, "%s %s (%s)\t", time, cmd, par[i++]);
+
+ for (; par[i] != nil; ++i)
+ r += fprint(scr, " %s", par[i]);
+
+ r += fprint(scr, "\n");
+
+ return r;
+}
+
+int
+usrparse(char *ln, char *cmd, char *par[], int npar)
+{+ enum state st = Cmd;
+ int i;
+
+ for(i = 0; i < npar; i++)
+ par[i] = nil;
+
+ if (ln[0] == '/' && npar >= 2) { + *cmd = ln[1];
+ for (i = 1; ln[i] != '\0'; ++i) {+ switch(st) {+ case Cmd:
+ if (ln[i] == ' ') {+ ln[i] = '\0';
+ par[0] = ln+i+1;
+ st = Middle;
+ } else if(ln[i] == '\n') {+ /* enable commands with no arguments */
+ ln[i] = '\0';
+ par[0] = nil;
+ par[1] = nil;
+ st = Ok;
+ }
+ break;
+ case Middle:
+ if (ln[i] == '\r' || ln[i] == '\n') {+ ln[i] = '\0';
+ st = Ok;
+ }
+ if (ln[i] == ' ') {+ ln[i] = '\0';
+ par[1] = ln+i+1;
+ st = Trail;
+ }
+ break;
+ case Trail:
+ if (ln[i] == '\r' || ln[i] == '\n') {+ ln[i] = '\0';
+ st = Ok;
+ }
+ break;
+ case Ok:
+ if (ln[i] == '\r' || ln[i] == '\n')
+ ln[i] = '\0';
+ break;
+ }
+ }
+ } else { /* send line to victim by default */+ st = Ok;
+ *cmd = 'm';
+ for (i = 0; ln[i] != '\0'; ++i)
+ if (ln[i] == '\r' || ln[i] == '\n')
+ ln[i] = '\0';
+ par[0] = victim;
+ par[1] = ln;
+ }
+ return st == Ok ? 0 : 1;
+}
+
+int
+srvparse(char *line, char **time, char **pre, char **cmd, char *par[], int npar)
+{+ int i;
+ char *p;
+ enum state st = Time;
+
+ *time = *pre = *cmd = nil;
+
+ for (*time = p = line, i = 0; *p != '\0'; ++p) {+ switch (st) {+ case Time:
+ if (*p == ' ') {+ *p = '\0';
+ *cmd = p + 1;
+ st = Cmd;
+ }
+ break;
+ case Cmd:
+ if (*p == ':') {+ *p = '\0';
+ *pre = p + 1;
+ st = Prefix;
+ } else if (*p == ' ') {+ *p = '\0';
+ par[i] = p + 1;
+ st = Middle;
+ }
+ break;
+ case Prefix:
+ if (*p == ' ') {+ *p = '\0';
+ *cmd = p + 1;
+ st = Cmd;
+ }
+ break;
+ case Middle:
+ if (*p == '\r' || *p == '\n') {+ *p = '\0';
+ st = Ok;
+ } else if (*p == ':') {+ *p = '\0';
+ par[i] = p + 1;
+ st = Trail;
+ } else if (*p == ' ') {+ *p = '\0';
+ i = (i + 1) % npar;
+ par[i] = p + 1;
+ st = Middle;
+ }
+ break;
+ case Trail:
+ if (*p == '\r' || *p == '\n') {+ *p = '\0';
+ st = Ok;
+ }
+ break;
+ case Ok:
+ *p = '\0';
+ break;
+ }
+ }
+ par[(i + 1) % npar] = nil;
+ return st == Ok ? 0 : 1;
+}
+
+void
+getwidth(void)
+{+ Font *font;
+ int n, fd, mintab;
+ char buf[128], *f[10], *p;
+
+ if(inacme){+ if((fd = open("/dev/acme/ctl", OREAD)) < 0)+ return;
+ n = read(fd, buf, sizeof buf-1);
+ close(fd);
+ if(n <= 0)
+ return;
+ buf[n] = 0;
+ n = tokenize(buf, f, nelem(f));
+ if(n < 7)
+ return;
+ if((font = openfont(nil, f[6])) == nil)
+ return;
+ mintab = stringwidth(font, "0");
+ linewidth = atoi(f[5]);
+ linewidth = linewidth/mintab;
+ return;
+ }
+
+ if((p = getenv("font")) == nil)+ return;
+ if((font = openfont(nil, p)) == nil)
+ return;
+ if((fd = open("/dev/window", OREAD)) < 0)+ return;
+
+ n = read(fd, buf, 5*12);
+ close(fd);
+
+ if(n < 5*12)
+ return;
+
+ buf[n] = 0;
+
+ /* window stucture:
+ 4 bit left edge
+ 1 bit gap
+ 12 bit scrollbar
+ 4 bit gap
+ text
+ 4 bit right edge
+ */
+ linewidth = atoi(buf+3*12) - atoi(buf+1*12) - (4+1+12+4+4);
+ mintab = stringwidth(font, "0");
+ linewidth = linewidth/mintab;
+}
--- /dev/null
+++ b/install/irc7/irc.h
@@ -1,0 +1,36 @@
+enum {+ Pmsg, /* private message */
+ Smsg, /* server message */
+ Nmsg, /* notice */
+ Lmsg, /* message sent by the client to server */
+ Cmd, /* some other event such as a quit/join */
+ Err = -1;
+};
+
+typedef struct Line Line;
+struct Line
+{+ int type;
+ char *from; /* who sent the message, can be nil for server messages */
+ char *uhost; /* host where the message came from */
+ int mid; /* message id for server messages
+ char *to; /* target for the message */
+ char *cmd; /* JOIN/QUIT, etc. may be nil */
+ char *text; /* message text */
+};
+#pragma varargck type "L" Line*
+
+void setwintitle(char *chan);
+
+int rtcs(int fd, char *cset);
+int wtcs(int fd, char *cset);
+int follow(int fd);
+
+int pmsg(int fd, char *pre, char *cmd, char *par[]);
+int ntc(int fd, char *pre, char *cmd, char *par[]);
+int generic(int fd, char *pre, char *cmd, char *par[]);
+int misc(int fd, char *pre, char *cmd, char *par[]);
+int numeric(int fd, char *pre, char *cmd, char *par[]);
+
+#define dprint if(debug) print
+
--- /dev/null
+++ b/install/irc7/irc.man
@@ -1,0 +1,131 @@
+.TH IRC 1
+.SH NAME
+ircsrv, irc \- internet relay chat client and ui
+.SH SYNOPSIS
+.B ircsrv
+[
+.I -s serv
+]
+[
+.I -f file
+]
+.I nickname
+.I [tcp!]irc.server.org
+.br
+.B irc
+[
+.I -e
+]
+[
+.I -c charset
+]
+[
+.I -t victim
+]
+[
+.I -b lines
+]
+[
+.I -r file
+]
+[
+.I -p password
+]
+[
+.I /srv/serv
+[
+.I /tmp/file
+]]
+.SH DESCRIPTION
+.I Ircsrv
+makes a connection to an irc server and reconnects if the connection
+gets broken. It posts a service to /srv and creates (if necessary) an
+append mode log file to /tmp. Default file and service name is a
+concatenation of 4 first letters of username and the string
+.I irc
+.
+.PP
+.I Irc
+is a client program that makes use of the service provided by
+.I ircsrv
+and provides a user interface for sending and receiving
+messages.
+.PP
+The command language understood by
+.I irc
+is as follows
+.EX
+/h this message
+/H this message
+/m privmsg #chan/nick message
+/M mode #chan +nt
+/j join [ #chan ]
+/p part [ #chan ]
+/q send parameters raw to the server
+/l list [ #chan ]
+/n nick newnick
+/N notice #chan/nick message
+/t set [ victim ]
+/T topic [ #chan [ newtopic ]]
+/W whois nick
+/w who nick (a shorter whois)
+.EE
+.PP
+The
+.I -e
+flag enables SSL, the
+.I -c
+flag sets character set conversion using
+.IR tcs (1),
+the
+.I -r
+flag will cause irc to replay the conversation from the raw file supplied as argument without user interaction,
+the
+.I -b
+flag causes the client to display the last n lines of the default target or
+conversations if no target is set. Without any arguments
+.I -b
+prints the conversation from the very beginning.
+The
+.I -t
+flag sets the default target to which the messages are
+sent by default if a line written to
+.I irc
+does not begin with /. Irc also prints messages to/from
+the target exclusively if one is set. Irc prints only private messages if the target is set to "MSGS", useful for being notified when a message is sent to your nick without having to monitor all the status information.
+.SH EXAMPLES
+To start up ircsrv on a remote cpu server
+.EX
+cpu -c ircsrv glenda irc.freenode.net
+.EE
+.PP
+To use ircsrv started earlier on a cpu server
+.EX
+import $cpu /srv
+import $cpu /tmp
+irc
+.EE
+.PP
+To start/see/continue a conversation with a specific target (can be #chan or nick)
+.EX
+irc -t \'#plan9\'
+irc -t f2f
+.EE
+.PP
+To run irc within acme start irc inside
+"win -e":
+.EX
+win -e
+irc -t f2f
+.EE
+.SH SOURCE
+/sys/src/cmd/ircsrv.c
+.br
+/sys/src/cmd/irc.c
+.SH SEE ALSO
+.IR tcs (1),
+.IR faces (1),
+.IR nedmail (1)
+.SH BUGS
+Probably. Missing functionality includes opening new windows when a
+message from a new target arrives.
binary files /dev/null b/install/irc7/ircsrv.6 differ
--- /dev/null
+++ b/install/irc7/ircsrv.c
@@ -1,0 +1,255 @@
+#include <u.h>
+#include <libc.h>
+#include <auth.h>
+#include <libsec.h>
+
+char *post;
+char *file;
+int ircfd = -1; // the irc server
+int logfd;
+int enctls = 0; // ssl/tls
+QLock lck;
+
+char *server;
+char *passwd;
+char *nickname;
+char *realname;
+char *username;
+char *mode = "foo";
+char *unused = "bar";
+
+void ircsrv(void);
+void logger(void);
+void die(void*, char*);
+void reconnect(void);
+
+void
+usage(void)
+{+ fprint(2, "usage: %s [-e] [-s service] [-f file] [-p pass] nickname [net!]ircserver[!port]\n", argv0);
+ exits("usage");+}
+
+
+void
+killall(void)
+{+ postnote(PNGROUP, getpid(), "quit");
+ while(waitpid() != -1)
+ ;
+ remove(post);
+ exits(nil);
+}
+
+void
+die(void *, char *)
+{+ killall();
+}
+
+void
+main(int argc, char *argv[])
+{+ char *tmp;
+ int p[2], fd;
+
+ ARGBEGIN{+ case 'f':
+ file = EARGF(usage());
+ break;
+ case 's':
+ post = EARGF(usage());
+ break;
+ case 'r':
+ realname = EARGF(usage());
+ break;
+ case 'e':
+ enctls = 1;
+ break;
+ case 'p':
+ passwd = EARGF(usage());
+ /* try to obfuscate the password so ps -a won't see it */
+ tmp = passwd;
+ passwd = smprint("%s", tmp);+ if(passwd)
+ memset(tmp, '\0', strlen(tmp));
+ else
+ passwd = tmp;
+ break;
+ default:
+ usage();
+ }ARGEND;
+
+ if(argc < 2)
+ usage();
+
+
+ nickname = argv[0];
+ server = argv[1];
+
+ username = getuser();
+
+ if(strlen(username) > 4)
+ username[4] = '\0';
+
+
+ if(post == nil)
+ post = smprint("/srv/%sirc", username);+ else
+ post = smprint("/srv/%s", post);+
+ if(file == nil)
+ file = smprint("/tmp/%sirc", username);+
+ if((logfd = create(file, OWRITE, 0600 | DMAPPEND)) < 0)
+ sysfatal("create(%s): %r", file);+
+ if((fd = create(post, OWRITE, 0600)) < 0)
+ sysfatal("create(%s): %r", post);+ if(pipe(p) == -1)
+ sysfatal("pipe: %r");+ fprint(fd, "%d", p[1]);
+ close(fd);
+ close(p[1]);
+ close(0);
+ close(1);
+ close(2);
+ dup(p[0], 0);
+
+ if(rfork(RFMEM|RFFDG|RFREND|RFPROC|RFNOTEG|RFCENVG|RFNOWAIT) == 0) {+ notify(die);
+ reconnect();
+ switch(rfork(RFPROC|RFMEM)){+ case -1:
+ sysfatal("rfork: %r");+ case 0:
+ notify(die);
+ logger();
+ break;
+ default:
+ ircsrv();
+ break;
+ }
+ }
+ exits(nil);
+}
+
+long
+readln(int fd, void *vp, long len)
+{+ char *b = vp;
+ while(len > 0 && read(fd, b, 1) > 0){+ if(*b++ == '\n')
+ break;
+ len--;
+ }
+ return b - (char*)vp;
+}
+
+void
+reregister(void)
+{+ int n;
+ char nbuf[32];
+
+ strncpy(nbuf, nickname, sizeof(nbuf) - 2);
+ switch(nbuf[strlen(nbuf) - 1]) {+ case '0':
+ case '1':
+ case '2':
+ case '3':
+ case '4':
+ case '5':
+ case '6':
+ case '7':
+ case '8':
+ nbuf[strlen(nbuf) - 1]++;
+ break;
+ case '9':
+ qlock(&lck);
+ fprint(logfd, "%ld can not register nick, bailing out\n", time(0));
+ qunlock(&lck);
+ die(nil, nil);
+ default:
+ n = strlen(nbuf);
+ nbuf[n] = '0';
+ nbuf[n+1] = '\0';
+ break;
+ }
+ qlock(&lck);
+ fprint(ircfd, "NICK %s\r\n", nbuf);
+ fprint(logfd, "%ld NICK %s\r\n", time(0), nickname);
+ qunlock(&lck);
+}
+
+void
+reconnect(void)
+{+ TLSconn *conn;
+ if(ircfd >= 0)
+ close(ircfd);
+ if((ircfd = dial(netmkaddr(server, "tcp", "6667"), nil, nil, nil)) < 0)
+ sysfatal("dial %r");+ if(enctls > 0) {+ conn = (TLSconn *)mallocz(sizeof *conn, 1);
+ ircfd = tlsClient(ircfd, conn);
+ if (ircfd < 0) { sysfatal ("tls: %r"); }+ }
+ if(passwd && strcmp(passwd, ""))
+ fprint(ircfd, "PASS %s\r\n", passwd);
+ fprint(ircfd, "USER %s %s %s :%s\r\n",
+ nickname, mode, unused, realname);
+ fprint(ircfd, "NICK %s\r\n", nickname);
+}
+
+
+void
+logger(void)
+{+ char buf[513];
+ char *f[3];
+ long n;
+
+ for(;;){+ while((n = readln(ircfd, buf, sizeof(buf)-1)) > 0){+ fprint(logfd, "%ld ", time(0));
+ write(logfd, buf, n);
+ buf[n] = 0;
+ n = tokenize(buf, f, nelem(f));
+ if(n == 3 && *f[0] == ':' && !cistrcmp(f[1], "PING")){+ qlock(&lck);
+ fprint(ircfd, "PONG %s\r\n", f[2]);
+ fprint(logfd, "%ld PONG %s\r\n", time(0), f[2]);
+ qunlock(&lck);
+ } else if(n == 2 && !cistrcmp(f[0], "PING")){+ qlock(&lck);
+ fprint(ircfd, "PONG %s\r\n", f[1]);
+ fprint(logfd, "%ld PONG %s\r\n", time(0), f[1]);
+ qunlock(&lck);
+ } else if(n == 3 && atoi(f[1]) == 433) {+ reregister();
+ }
+ }
+ reconnect();
+ }
+}
+
+void
+ircsrv(void)
+{+ char buf[512];
+ long n;
+
+ while((n = readln(0, buf, sizeof(buf)-1)) > 0){+ qlock(&lck);
+ fprint(logfd, "%ld ", time(0));
+ if(write(logfd, buf, n) != n)
+ fprint(2, "write to irclog: %r\n");
+ if(write(ircfd, buf, n) != n)
+ fprint(2, "write to ircserver: %r\n");
+ qunlock(&lck);
+ }
+ killall();
+}
+
+
--- /dev/null
+++ b/install/irc7/mkfile
@@ -1,0 +1,15 @@
+</$objtype/mkfile
+MAN=/sys/man/1
+
+TARG=\
+ irc\
+ ircsrv\
+
+BIN=/$objtype/bin
+
+</sys/src/cmd/mkmany
+
+ircman:V:
+ cp irc.man /sys/man/1/irc
+
+install: ircman