Best Utility

最高のユーティリティ

Line wrap

Highlight

#define D ,close(

char              *c,q              [512              ],m[              256
],*v[           99], **u,        *i[3];int         f[2],p;main       (){for
 (m[m        [60]=   m[62      ]=32   ]=m[*      m=124   [m]=       9]=6;
  e(-8)     ,gets      (1+(    c=q)     )||      exit      (0);     r(0,0)
   )for(    ;*++        c;);  }r(t,      o){    *i=i        [2]=    0;for
     (u=v  +98           ;m[*--c]         ^9;m [*c]          &32  ?i[*c
       &2]=                *u,u-             v^98              &&++u:

	3	)if(!m[*c]){for(*++c=0;!m[*--c];);
	*	--u= ++c;}u-v^98?strcmp(*u,"cd")?*c?pipe(f),o=f[
	1	]:
	4	,(p=fork())?e(p),o?r(o,0)D o)D*f):
	1	,wait(0):(o?dup2(*f,0)D*f)D o):*i?
	5	D 0),e(open(*i,0)):
	9	,t?dup2(t,1)D t):i[
	2	]?
	6	D 1),e(creat(i[2],438)):
	5	,e(execvp(*u,u))):e(chdir(u[1])*2):
	3	;}e(x){x<0?write(2,"?\n$ "-x/4,2),x+1||exit(1):
	5	;}

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

審査員・作者による説明：https://www.ioccc.org/1990/tbr/index.html

動作

シェル。

~/ioccc/1990$ gcc -o tbr tbr.c

~/ioccc/1990$ ./tbr
$ echo Hello > tmp.txt
$ cat tmp.txt
Hello

解説

謎のレイアウト。波線や縦書き円周率などが目につくが、特に主題とは関係ないと思う。

tbr.hintではコード圧縮のテクニックがいろいろと語られている。550バイトでシェルは結構すごい気がする。詳細は未解読。

エラーメッセージは?のみだが、edコマンドも同じなのでいいでしょう、とのこと。

現代ではexit(0)の返り値を使っているところでエラーになるので、(exit(0),0)に置き換えた。

パッチ

--- tbr.c
+++ tbr.c
@@ -4,7 +4,7 @@
 char              *c,q              [512              ],m[              256
 ],*v[           99], **u,        *i[3];int         f[2],p;main       (){for
  (m[m        [60]=   m[62      ]=32   ]=m[*      m=124   [m]=       9]=6;
-  e(-8)     ,gets      (1+(    c=q)     )||      exit      (0);     r(0,0)
+  e(-8)     ,gets      (1+(    c=q)     )||     (exit(    0),0);    r(0,0)
    )for(    ;*++        c;);  }r(t,      o){    *i=i        [2]=    0;for
      (u=v  +98           ;m[*--c]         ^9;m [*c]          &32  ?i[*c
        &2]=                *u,u-             v^98              &&++u:
@@ -19,5 +19,5 @@
 	2	]?
 	6	D 1),e(creat(i[2],438)):
 	5	,e(execvp(*u,u))):e(chdir(u[1])*2):
-	3	;}e(x){x<0?write(2,"?\n$ "-x/4,2),x+1||exit(1):
+	3	;}e(x){x<0?write(2,"?\n$ "-x/4,2),x+1||(exit(1),0):
 	5	;}

パッチをダウンロード