Best Abuse of the Guidelines

ガイドラインの最高の悪用

Line wrap

Highlight

#define B break;
#define Q if(
#define R return
#define V getenv(
#define T "DOCUMENT_ROOT"
#define S snprintf(
#define C strcspn(u,
#include <fcntl.h>
#include <dirent.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <sys/stat.h>
#include <sys/wait.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <arpa/inet.h>
#define Z				8192
char r[Z], q[Z], l[Z], w[Z], *o, *m = "404 Not Found", *e = "500 Error";
void
X(int t, char *u, long j)
{
				j = S 
								q, Z,
								"HTTP/1.0 %s\r\nContent-Length: %ld\r\n\r\n%s",
								u, j ? j : C ""), j ? "" : u
				);
				send(t, q, j, 0);
}
void
A(char *i, char *j)
{
				char *u;
				Q (u = strstr(o, i + 5)))
								sscanf(u + C ":") + 1, j, V i));
}
int
main(int c, char **p)
{
				int f, t, i;
				struct stat g;
				struct sockaddr_in a;
				char *v, *u;
				Q (v = V "SERVER_PORT")) == 0) {
								R 4;
				}
				i = (int) strtol(v, 0, 10);
				a.sin_addr.s_addr = htonl(INADDR_ANY);
				a.sin_port = htons((unsigned short) i);
				a.sin_family = AF_INET;
				Q (f = socket(AF_INET, SOCK_STREAM, IPPROTO_TCP)) < 0) {
								R 5;
				}
				Q bind(f,  (void *) &a, sizeof a)) {
								R 6;
				}
				Q listen(f, 10)) {
								R 7;
				}
				for ( ; ; close(t)) {
								for ( ; waitpid(0, 0, WNOHANG) > 0; )
												;
								i = sizeof a;
								Q (t = accept(f,  (void *) &a, &i)) < 0)
												continue;
								Q fork())
												continue;
								for (f = i = 0; f < 2 && i < Z; i++) {
												Q recv(t, r + i, 1, 0) <= 0)
																R 1;
												Q r[i] == '\n')
																f++;
												Q r[i] == ':')
																f = 0;
												Q f)
																r[i] = r[i] == '-' ? '_' : toupper(r[i]);
								}
								Q Z <= i)
												B
								r[i] = 0;
								Q *r != 'G' && *r != 'H' && r[2] != 'S') {
												X(t, "501 Unsupported", 0);
												B
								}
								*l = 0;
								Q (v = strstr(r, "HOST:")))
												sscanf(v+5, " %255[^:\r\n]", l);
								S w, Z, T "=%s/%s", V T), l);
								putenv(w);
								u = r + 4 + (*r != 'G');
 								Q *u != '/' || strstr(u, "../")) {
												X(t, m, 0);
												B
								}
								u[i = C " ")] = 0;
								o = u + i + 1;
								i = C "?");
								Q u[i]) {
												S q, Z, "QUERY_STRING=%s", u+i+1);
												putenv(q);
												u[i] = 0;
								}
								S l, Z, "SCRIPT_FILENAME=%s%s", w+14, u);
								v = l+16;
								Q stat(v, &g) < 0) {
												X(t, m, 0);
												B
								}
								Q S_ISDIR(g.st_mode)) {
												struct dirent *d;
												DIR *D = opendir(v);
												for ( ; (d = readdir(D)); ) {
																Q !strncmp(d->d_name, "index.", 6)) {
																				strncat(v, d->d_name, Z-16);
																				stat(v, &g);
																				B
																}
												}
												closedir(D);
												Q d == 0) {
																X(t, m, 0);
																B
												}
								}
								Q *r != 'H') {
												Q g.st_mode & 0111) {
																putenv(l);
																sscanf(r, "%4s", V "REQUEST_METHOD"));
																sscanf(inet_ntoa(a.sin_addr), "%15s", V "REMOTE_ADDR"));
																A("HTTP_COOKIE", "%*[ \t]%80[^\r\n]");
																A("CONTENT_LENGTH", "%20s");
																A("CONTENT_TYPE", "%60s");
																dup2(t, 0);
																dup2(t, 1);
																Q system(v))
																				X(t, e, 0);
																B
												}
												Q (f = open(v, O_RDONLY)) < 0) {
																X(t, e, 0);
																B
												}
								}
								X(t, "200 OK", g.st_size);
								Q *r != 'H') {
												for ( ; 0 < (i = read(f, r, Z)); )
																send(t, r, i, 0);
								}
								B
				}
				shutdown(t, SHUT_WR);
				R 0;
}

引用元：http://ioccc.org/2004/hibachi.tar.gz

審査員・作者による説明：https://github.com/ioccc-src/winner/blob/main/2004/hibachi.hint

動作

CGIに対応したHTTPサーバ。

実行には多数のファイルが必要なため、tarballにまとめて配布されている。

http://ioccc.org/2004/hibachi.tar.gz

これを展開してconfigureしてmakeしてhibachi-start.shを起動する。

$ tar xf hibachi.tar.gz

$ cd hibachi

$ ./configure

$ make

$ ./hibachi-start.sh

そしてブラウザでhttp://localhost:8008を開く。

解説

HIBACHIは日本語の火鉢に由来するらしい。ポータブルな調理器と、ポータブルなHTTPサーバで、コンセプトが似ているとのこと。 CGIに対応しているので、シェルスクリプト、Perl、PHP、RubyでのCGIの例も含まれている。

HIBACHIのロゴは、Apache HTTP Serverのロゴを火鉢で燃やし尽くすGIFアニメになっている。当時のやんちゃなインターネット文化を感じる。

コードは、インデントがハードタブ4文字となっている。多数の意味でガイドラインに違反しているということが評価されたらしい。