commit 7954eaacf9a40423f0669b43340d0f73f8b34d54
parent fa6fa28972c3aeef5f0be25ed7ee2cb89cd0533d
Author: Pavel Renev <an2qzavok@gmail.com>
Date: Wed, 30 Mar 2022 02:17:21 +0000
add Gemini
Diffstat:
3 files changed, 187 insertions(+), 0 deletions(-)
diff --git a/extra/Gemini.c b/extra/Gemini.c
@@ -0,0 +1,179 @@
+#include <u.h>
+#include <libc.h>
+#include <mp.h>
+#include <libsec.h>
+#include <bio.h>
+
+#define BSIZE 4096
+
+char *host;
+char * gethost(char *uri);
+void printlink(char *);
+void getbody(char *header, Biobuf *bfd);
+
+void
+usage(void)
+{
+ fprint(2, "usage: %s [-h host] uri\n", argv0);
+ exits("usage");
+}
+
+void
+main(int argc, char **argv)
+{
+ char *header, *uri;
+ long n;
+ int fd, tlsfd;
+ Biobuf bfd;
+ TLSconn conn;
+
+ host = nil;
+
+ ARGBEGIN {
+ case 'h':
+ host = EARGF(usage());
+ break;
+ default:
+ usage();
+ } ARGEND
+
+ if (argc != 1) usage();
+
+ uri = argv[0];
+ if (host == nil) host = gethost(uri);
+ if (host == nil) sysfatal("gethost: %r");
+
+ fd = dial(netmkaddr(host, "tcp", "1965"), nil, nil, nil);
+ if (fd < 0) sysfatal("dial: %r");
+
+ memset(&conn, 0, sizeof(conn));
+ conn.serverName = host;
+ tlsfd = tlsClient(fd, &conn);
+ if (tlsfd < 0) sysfatal("tlsClient: %r");
+
+ if (Binit(&bfd, tlsfd, OREAD) < 0)
+ sysfatal("Binit: %r");
+
+ n = fprint(tlsfd, "%s\r\n", uri);
+ if (n < 0) sysfatal("fprint: %r");
+
+ header = Brdstr(&bfd, '\n', 1);
+ n = Blinelen(&bfd);
+ if (n > 1024 + 2)
+ fprint(2, "warning: header too long\n");
+ header[n-1] = '\0';
+
+ enum {
+ SCInput = 10,
+ SCSensitiveInput = 11,
+ SCSuccess = 20,
+ SCRedirect = 30,
+ SCPermRedirect = 31,
+ };
+
+ switch (atoi(header)) {
+ case SCInput:
+ case SCSensitiveInput:
+ // TODO:ask for input
+ print(".%s\n" "n\n" ".input is not supported\n" "n\n", header);
+ break;
+ case SCSuccess:
+ getbody(header, &bfd);
+ break;
+ case SCRedirect:
+ case SCPermRedirect:
+ print(".Redirect: \n" "l%s\n" ".%s\n" "n\n" "l\n", header + 3, header + 3);
+ break;
+ default:
+ // print header
+ print(".%s\n" "n\n", header);
+ }
+
+ Bterm(&bfd);
+ close(tlsfd);
+ close(fd);
+}
+
+
+char *
+gethost(char *uri)
+{
+ char *host, *sp, *ep;
+ long length;
+
+ sp = strstr(uri, "://");
+ if (sp == nil) {
+ werrstr("missing scheme:// in '%s'", uri);
+ return nil;
+ }
+ else sp += 3;
+
+ ep = strchr(sp, '/');
+ if (ep == nil) ep = sp + strlen(sp);
+ length = ep - sp;
+ host = mallocz(sizeof(char) * (length+1), 1);
+ memcpy(host, sp, length);
+ return host;
+}
+
+void
+getbody(char *header, Biobuf *bfd)
+{
+ char *line;
+ int preform = 0;
+ int waslink = 0;
+
+ if (strncmp(header + 3, "text", 4) == 0) {
+
+ while ((line = Brdstr(bfd, '\n', 1)) != nil) {
+ long n = Blinelen(bfd);
+ if (line[n-1] == '\r') line[n-1] = '\0';
+ if (strncmp(line, "```", 3) == 0) {
+ preform = !preform;
+ if (preform == 1) print("f/lib/font/bit/terminus/unicode.12.font\n");
+ else print("f\n");
+ } else if (strncmp(line, "=>", 2) == 0) {
+ waslink = 1;
+ printlink(line);
+ } else {
+ if (waslink != 0) {
+ waslink = 0;
+ print("l\n");
+ }
+ print(".%s\n" "n\n", line);
+ }
+ free(line);
+ }
+
+ if (waslink == 1) print("l\n");
+ if (preform == 1) print("f\n");
+
+ } else {
+ print(".%s\n" "n\n", header);
+ }
+}
+
+void
+printlink(char *line)
+{
+ char *p, phost[1024];
+
+ for (p = line + 2; (*p == ' ') || (*p == '\t'); p++) if (*p == '\0') return;
+ for (line = p; (*line != ' ') && (*line != '\t') && (*line != '\0'); line++);
+
+ if (line != '\0') {
+ *line = '\0';
+ line++;
+ }
+
+ for (; (*line == ' ') || (*line == '\t') && (*line != '\0'); line++);
+
+ phost[0] = '\0';
+ if (strstr(p, "://") == nil) {
+ strcat(phost, "gemini://");
+ strcat(phost, host);
+ if (p[0] != '/') strcat(phost, "/");
+ }
+
+ print("l%s%s\n" ".%s\n" "n\n", phost, p, line);
+}
diff --git a/extra/Handler b/extra/Handler
@@ -39,6 +39,12 @@ fn lgopher {
Gopher $1 > $rroot/text
}
+fn lgemini {
+ history = ($1 $history)
+ forward = ()
+ Gemini $1 > $rroot/text
+}
+
fn tryfile {
type=`{file -m $1}
switch ($type) {
@@ -68,6 +74,7 @@ fn link {
case https://*; plumb $1
case http://*; plumb $1
case gopher://*; lgopher $1
+ case gemini://*; lgemini $1
case *.md; lmarkdown $1
case *.html
md=`{echo $1|sed 's/\.html/\.md/'}
diff --git a/extra/mkfile b/extra/mkfile
@@ -4,6 +4,7 @@ TARG=\
Markdown\
Dir\
Gopher\
+ Gemini\
SYSLIB=/sys/lib/richterm
BIN=$SYSLIB/bin/$cputype
