#define C char #define F X,perror("oops"),1 #define G getchar() #define I ;if( #define P putchar #define Q 256 #define W ;while( #define X return 0 #include<stdio.h> long M,N,c,f,m,o,r,s,w;y(l){o^=l;m+=l+1;f=f*2+l+(f>>31&1);}int O,S,e,i,k,n,q,t[69001];b(g){k=4 W g<k)y(P((C)(w>>--k*8)&255));w=0;}C D[Q*Q],h [Q*Q];main(g,V)C**V;{I**V-97)X,a()W G-10)W(g=G)+1&&g-'x')if(g-10){I 4<k)b(0)I g>32&g<'v')w=w*85+g-33,++k;else{I g-'z'|k)F;w=0;k=5;}}W G-78)I scanf("%ld%lx E%lx S%lx R%lx ",&M,&N,&c,&s,&r)-5)F I M){b(g=3-(M-1&3))W g--)y(0);}I(M-N|c-o|s-m|r-f)&4294967295)F;X;}long g(){C*p I m<f&n<k&&(m=(1L<<++n)-1)||O>=S){O=0;S=fread(D,1,n,stdin)*8 I S<8)X-1;S-=n-1;}p=D+O/8;q=O&7;O+=n;X,(1<<8-q)-1&*p>>q|m&((15<n+q)*p[2]*Q|p[1]& 255)<<8-q;}a(){C*p=D+Q;G;G;k=G;e=k>>7&1;k&=31 I k>16)F;w=Q W w--)t[w]=0,h[w]=w;n=8;f=Q+e;i=o=w=g()I o<0)X,1;P(i)W(w=g())+1){I w==Q&e){W w--)t[w]=0;m=n=8;f=Q I(w=g())<0)X;}c=w I w>=f)*p++=i,w=o W w>=Q)*p++=h[w],w=t[w];P(i=h[w])W p>D+Q)P(*--p)I(w=f)<1L<<k)t[w]=o,h[f++]=i;o=c;}X;}

引用元：https://www.ioccc.org/1990/jaw.c

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

動作

一言で言えば、テキスト化された自己解凍アーカイブのためのCコード。 ここでは最終的な動作だけを示し、詳しい説明は解説に回す。

添付されているshark.sh（jaw.cが埋め込まれている）を使うと自己解凍アーカイブができる。 実行にはcompressコマンドとbtoaコマンド（後述）が必要。

$ PATH=.:$PATH sh shark.sh jaw.* > archive

これを別ディレクトリで解凍する。

$ mkdir test

$ cd test

$ sh ../archive
...

元と同じファイルが生成されていることが確認できる。

$ ls
jaw.c  jaw.hint

$ diff -s jaw.c ../jaw.c
Files jaw.c and ../jaw.c are identical

$ diff -s jaw.hint ../jaw.hint
Files jaw.hint and ../jaw.hint are identical

解説

当時の通信環境では、通信速度が遅いのでデータ圧縮することが必須だった。 一方で、プロトコルの都合により、テキスト形式にすることも必要だった。 そのため、データを送信する人は圧縮したうえでバイナリ→テキスト変換を行い、受信側はその逆の手順を行っていた（メールの添付ファイルは現代でもBase64によるバイナリ・テキスト変換を行っているが、メールのクライアントが勝手に処理するので意識することは少ない）。 ここで問題になるのは、受信側が適切なツール群を持っていない場合、デコードができないということだった。

この作品はこの問題を解決するために作られた。 このプログラムは、atobの機能と、zcatの機能を備える。 atobはbtoaというバイナリ→テキスト変換の結果を逆変換する機能、zcatはcompressで圧縮されたデータを解凍する機能。 これらを使うことで、テキスト→バイナリ変換かつ解凍を行える。

このプログラムのバイナリはatobという名前で起動されたとき（argv[0]が'a'のとき）、atobモードで動く。

$ echo Hello | ./btoa
xbtoa Begin
87cURD[HIE
xbtoa End N 6 6 E 48 S 206 R 5520

$ echo Hello | ./btoa | ruby -e 'exec(["./atob", "atob"])'
Hello

バイナリがaで始まらない場合、このプログラムはzcatモードで動く。

$ echo Hello | compress | ./zcat
Hello

shark.shで作られた自己解凍アーカイブはjaw.cを埋め込んでいる（1100バイト程度とのこと）ので、受信側はあらかじめatobやzcatを用意しておく必要はない。 アーカイブを実行するとこのCコードをコンパイルしてatobとzcatを作り、それらを使ってデータを展開できる。 ただし受信側にCコンパイラやtarコマンドは必要。

このツールはひょっとしたら半分くらいまじめに実利用を狙っていたのかもしれない。 実用性が難読化（ショートコーディング）に依存しているなど、開発の経緯がjaw.hintに書かれている。 不幸にも現代ではcompressもbtoaも陳腐化しており、起動するのも苦労した。 btoaはUbuntuにパッケージがなかったので、いろいろ調べながらRubyで雑に書いたbtoaを置いておく。

#!/usr/bin/env ruby
puts "xbtoa Begin"
data = $<.read
n, e, s, r = data.bytesize, 0, 0, 0
(-n % 4).times { data << 0 }
data.bytes do |b|
  e, s, r = e ^ b, (s + b + 1) & 0xffffffff, (r * 2 + r[31] + b) & 0xffffffff
end
data.unpack("N*").flat_map do |v|
  v == 0 ? [?z.ord] : (0..4).map {|i| v / 85**(4 - i) % 85 + 33 }
end.pack("C*").scan(/.{1,78}/) { puts $& }
puts "xbtoa End N %d %x E %x S %x R %x" % [n, n, e, s, r]