Best use of the www

wwwの最高の使い方

Line wrap

Highlight

#define I int
#define c char *
#define G fscanf(f,
#define W while(
#define k return
#define Q if(
#define Z			512
#include <errno.h>
#include <stdio.h>
#include <stdarg.h>
#include <string.h>
#include <netdb.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <sys/ioctl.h>
FILE *f;
short w[4] = { 24, 80 };
I L, B, r, H;
c l[Z], b[Z], s[Z], S[Z][10], T[Z], h[Z];
I
e(c s)
{
	I n = 0;
	Q *s == '#')	
		k (I) strtol(s+1, 0, 0);
	W n < Z) {
		Q *S[n] && !strcmp(s, S[n]+1))
			k *S[n];
		n++;
	}
	k '?';
}
void
P(I x)
{
	Q x == '\n' || w[1] - 3 < B) {
		b[B] = 0;
		b[B+1] = 0;
		B = printf("%s", b);
		B = snprintf(
			b, Z,
			"\n   %s", 
			b + B + 1
		);
		r++;
	}
	Q b[B-1] != ' ' || !isspace(x)) {
		b[B++] = isspace(x) ? ' ' : x;
		Q w[1] - 3 < B)
			*strrchr(b, ' ') = 0;
	}
}
void
p(c t, ...)
{
	va_list x;
	va_start(x, t);	
	vsnprintf(s, Z, t, x);
	t = s;
	W *t)
		P(*t++);
	va_end(x);
}
I
X(c s)
{
	I x;
	c t = s;
	long m = ftell(f);
	W *t && (x = fgetc(f)) != EOF) {
		Q *t == '*')
			s = t++;
		Q tolower(x) != *t) {
			Q *s != '*')
				break;
			t = s;
		}
		t++;
	}
	Q *t)
		fseek(f, m, SEEK_SET);
	k !*t;
}
void
d(c s)
{
	Q 4 < B)
		P('\n');
	P('\n');
	Q *s == 'h')
		B = 1;
}
void
a(c s)
{
	*T = 0;
	G 
		ungetc(fgetc(f), f) == '"' 
			? "\"%511[^\"]" 
			: "'%511[^']", 
		T
	);
	Q *s == 'a' || *s == 'f' || s[1] == 'f') {
		free(l[++L]);
		l[L] = strdup(T);
		p(" [%d] ", L);
	} 
	Q *s != 'a')
		p("%s%s\n", T, *s == 'b' || s[1] == 'h' ? "" : "\n");
	X("*>");
}
void *Y[] = {
	"!--*-->"	,	0	,
	"a *href="	,	a	,	
	"ifr*src="	,	a	,
	"fra*src="	,	a	,
	"img*src="	,	a	,		
	"p*>"		,	d	,	
	"bl*>"		,	d	,
	"br"		,	a	,
	"hr"		,	a	,
	"h*>"		,	d	,	
	"/h"		,	a	,
	"/tr"		,	a	,
	"/dt"		,	a	,
	"/dd"		,	a	,
	"li*>"		,	d	,	
	"*>"		,	0	,	
	0		,	0
};
I
main(I V, c *v)
{
	I x, n = 0;
	c t = v[1];
	ioctl(0, TIOCGWINSZ, w);
	f = fopen("entities.txt", "r");
	Q f) {
		W G "%s %d", S[n]+1, &x) == 2)
			*S[n++] = x;
		fclose(f);
		n = 0;
	}	
	W t) {
		I m = 0;
		struct hostent *y;
		struct sockaddr_in A;
		L = 0;
		B = 1;
		Q !sscanf(t, "http://%255[^/]%n", h, &n) && !*h) {
			Q !(f = fopen(t, "rb")))
				k 1;
			goto e;
		}
		Q 0 < sscanf(h, "%*[^:]%n:%d", &x, &H))
			h[x] = 0;
		else
			H = 80;
		y = gethostbyname(h);
		Q !y)
			k 1;
		memcpy(&A.sin_addr.s_addr, y->h_addr, y->h_length);
		A.sin_port = htons( (short) H);
		A.sin_family = y->h_addrtype;
		f = tmpfile();
		Q !f)
			k 1;
		W 
			connect(
				m = socket(
					A.sin_family, SOCK_STREAM, 0
				), (void *) &A, sizeof A
			)
			|| errno == EINTR
		)
			;
		n = snprintf(
			b, Z, 
			"GET %s%s HTTP/1.0\r\nHost: %s:%d\r\n\r\n", 
			t[n] == '/' ? "" : "/", t+n, h, H
		);
		Q send(m, b, n, 0) == n) {
			W 0 < (n = recv(m, b, Z, 0)))
				fwrite(b, 1, n, f);
		}
		close(m);
		rewind(f);
		 X("*\r\n\r\n");
e:
		r = 3;
		*b = ' ';
		W r < *w && (x = fgetc(f)) != EOF) {
			Q x == '<') {
				void **p = Y;
				W *p) {
					Q X(*p)) {
						Q p[1])
							(* (void (*)(c ))
							p[1])(*p);
						break;
					}
					p += 2;
				}		
			} else {
				Q x == '&') {
					G "%9[^;];", T);
					x = e(T);
				}
				P(isspace(x) ? ' ' : x);
			}
		}
		printf("\n? ");
		fflush(stdout);
		fgets(T, Z, stdin);
		Q *T == '\n')
			goto e;
		t = l[strtol(T, 0, 0)];
		fclose(f);
	}
	k 0;
}

引用元：https://www.ioccc.org/2005/mynx/mynx.c

審査員・作者による説明：https://www.ioccc.org/2005/mynx/hint.text

動作

テキストベースのウェブブラウザ。

$ gcc -o mynx mynx.c

$ ./mynx http://ioccc.org/2005/mynx/manual.html


 Mynx

The Mynx Web Browser

Usage

   mynx filepath|url

Description

   View the web as it once was with the Mynx web browser. A fusion of somethi
   ng between more(1) and lynx(1). It allows you to surf the web in complete
   safety and tranquility. The ideal web browser for small children and
   their sensitive minds. It contains a window popup blocker, it filters
   banner ads, and is easy to configure!

   You can view local HTML files or give an http:// URL. Simply press the
   ENTER key to page down through long documents. To navigate, just type the
   number found in square brackets to the left of any link, followed by the
   ENTER key. To quit, simply visit link zero (0), or type CTRL+C.

?

ENTERを押すと続きが表示される。リンクには番号が振られているので、その番号を入力すると、そのページに飛べる。

解説

[[2004/hibachi]]に感動したので作った、と書かれているが、実は同じ作者による作品。 IOCCCの審査員は審査時には作者の情報を見ないようにして評価するので、同じ作者だとバレにくくするための作戦だったと思われる。