commit c532bafb97fc8b0deecb42dd7fc713777db7b289
parent c435a47566716c7b333c1bf4a8dcaddec3e2bcf8
Author: Pavel Renev <an2qzavok@gmail.com>
Date: Sat, 23 Oct 2021 20:50:20 +0000
add Gopher
Diffstat:
3 files changed, 172 insertions(+), 0 deletions(-)
diff --git a/bin/rc/Handler b/bin/rc/Handler
@@ -34,6 +34,16 @@ fn lmarkdown {
Markdown $fname
}
+fn lgopher {
+ history = ($1 $history)
+ forward = ()
+ clear
+ switch ($1) {
+ case *.md; Gopher $1 | Markdown
+ case *; Gopher $1
+ }
+}
+
fn tryfile {
type=`{file -m $1}
switch ($type) {
@@ -61,6 +71,7 @@ fn menu {
fn link {
switch($1) {
case http://*; plumb $1
+ case gopher://*; lgopher $1
case *.md; lmarkdown $1
case *.html
md=`{echo $1|sed 's/\.html/\.md/'}
@@ -85,6 +96,10 @@ Dir
event=''
+if (test -n $"1) {
+ link $1
+}
+
while ( { event=`{read $rroot/ctl} } ) {
if (test -z $"event) _exit
type=$event(1)
diff --git a/extra/Gopher.c b/extra/Gopher.c
@@ -0,0 +1,156 @@
+#include <u.h>
+#include <libc.h>
+#include <bio.h>
+
+const char *scheme = "gopher://";
+
+void
+usage(void)
+{
+ fprint(2, "usage: %s [gopher_url]\n", argv0);
+ exits("usage");
+}
+
+void
+newobj(char *text, char *link)
+{
+ int id, fd;
+ long n;
+ char buf[1024];
+ fd = open("/mnt/richterm/new", OREAD);
+ if (fd < 0) sysfatal("newobj: %r");
+ n = read(fd, buf, 1024);
+ close(fd);
+ buf[n] = '\0';
+ id = atoi(buf);
+ snprint(buf, 1024, "/mnt/richterm/%d/text", id);
+ fd = open(buf, OWRITE);
+ write(fd, text, strlen(text));
+ close(fd);
+ if (link != nil) {
+ snprint(buf, 1024, "/mnt/richterm/%d/link", id);
+ fd = open(buf, OWRITE);
+ write(fd, link, strlen(link));
+ close(fd);
+ }
+}
+
+void
+printtext(char *buf, long size)
+{
+ Biobuf* bd;
+ long n;
+ bd = Bfdopen(1, OWRITE);
+ for (n = 0; n < size; n++)
+ if (buf[n] != '\r') Bputc(bd, buf[n]);
+}
+
+void
+printmenu(char *buf, long size)
+{
+ char *lbuf, *ls, *le, type, *port, *host, *path, url[1024];
+ long lsize, n;
+ ls = buf;
+ lsize = 1024;
+ lbuf = malloc(lsize);
+ while (ls < buf + size) {
+ le = strchr(ls, '\n');
+ if (le == nil) break;
+ n = le - ls;
+ if (lsize < n) {
+ lsize = n;
+ free(lbuf);
+ lbuf = malloc(lsize);
+ }
+ memcpy(lbuf, ls, n);
+ lbuf[n - 1] = '\0';
+ type = lbuf[0];
+ ls = le + 1;
+ if (type == '.') break;
+ le = strchr(lbuf, '\t');
+ if (le == nil) return; // sysfatal("gopher menu is malformed\n");
+ *le = '\0';
+ switch (type) {
+ case 'i':
+ case 'e':
+ newobj(lbuf + 1, nil);
+ break;
+ default:
+ path = le + 1;
+ le = strchr(path, '\t');
+ *le = '\0';
+ host = le + 1;
+ le = strchr(host, '\t');
+ *le = '\0';
+ port = le + 1;
+ snprint(url, 1024, "gopher://%s:%s/%c%s", host, port, type, path);
+ newobj(lbuf + 1, url);
+ }
+ newobj("\n", nil);
+ }
+}
+
+void
+main(int argc, char **argv)
+{
+ char *url, *up, *host, *port, type, *path, *netaddr, *buf;
+ int fd;
+ long n, size;
+ void (*printfunc) (char *, long);
+ argv0 = argv[0];
+ printfunc = nil;
+ if ((argc == 1) || (argc > 2)) usage();
+ url = argv[1];
+ if (strncmp(scheme, url, strlen(scheme)) != 0) {
+ fprint(2, "%s: invalid url\n", url);
+ exits("invalid url");
+ }
+ type = '1';
+ path = "/";
+ port = "70";
+ url = url + strlen(scheme);
+ up = strchr(url, '/');
+ if (up != nil) {
+ host = mallocz(up - url + 1, 1);
+ memcpy(host, url, up - url);
+ up++;
+ if (up < url + strlen(url)) {
+ type = *(up);
+ path = ++up;
+ }
+ up = strchr(host, ':');
+ if (up != nil) {
+ *up = '\0';
+ port = up + 1;
+ }
+ } else {
+ host = url;
+ }
+ switch (type) {
+ case '0':
+ printfunc = printtext;
+ break;
+ case '1':
+ printfunc = printmenu;
+ break;
+ default:
+ sysfatal("unknown gopher type: %c\n", type);
+ }
+ netaddr = netmkaddr(host, "tcp", port);
+ fd = dial(netaddr, nil, nil, nil);
+ if (fd < 0) {
+ fprint(2, "url: %s\n", argv[1]);
+ fprint(2, "netaddr: %s\n", netaddr);
+ sysfatal("dial: %r");
+ }
+ write(fd, path, strlen(path));
+ write(fd, "\n", 1);
+ buf = malloc(4096);
+ size = 0;
+ while((n = read(fd, buf + size, 4096)) > 0) {
+ size += n;
+ buf = realloc(buf, size + 4096);
+ }
+ close(fd);
+ printfunc(buf, size);
+}
diff --git a/extra/mkfile b/extra/mkfile
@@ -3,6 +3,7 @@
TARG=\
Markdown\
Dir\
+ Gopher\
BIN=../bin/$cputype
