#include <stdlib.h> #include <stdio.h> #include <string.h> #include <ctype.h> #define t(x) typedef x #define G return #define Y(x) x;x #define e(s) exit(s); #define b(x,o) x o x #define Z while #define y fclose #define end static t(signed)char U;t(struct) b(O,); t( U*) H; t(O *) *o; struct O{ O* l, **h; void* L; } ; t(int)i; i P(U g) { G isspace(g); } H D(H s){H p,r;if(!s)G 0;for(p=(H)s;*p && !P(*p); p++); if(r=malloc(p-s))for(p=r; *s&&! P(*s);p++ ,s++)b(*,p=) s; G r;} void l(o p,O*x){*(o)x=* p; *p=x;} #define m(x) do{ if(!(q = malloc(sizeof(O)))) e(1)q->l\ =0 ;q\ -> L=\ x ; } while (0) i(*R)(i) =putchar;i h( o f,H d,U c){O*q; f+=c;Z(d&&*d) { m(D(d)); l(f++, q); Z(*d && !P(*d )) d++; Z(*d && P(*d)) d++; } G b(,0);} void k() { static U b(c,;) ?R(c):(c='\n'); } i main (i Q, H *l){static o X;i t,j; switch (Q ){ case 1: { H *p, I [] ={ "aH" " " "B" "0" " " "B" "" "B" "" " " "B" "," " " "," " `" "0 " "b0 " "@, " "0 Hb," " B2 " "H0 b, B b" "H HB b`, " "H, @ 2 `, " "@2 H2 BH Bb" " b@","AH B0 BB B, , `0 b0 @, 0 Hb, B2 H0" " b, B bH HB b`, H, @ 2 `, @2 H2 BH Bb" " b@","0bHb, HbH `H2 @b, @H @0 B@ " "b@ bH0 bHB",".HHH","?`H0", ",b@b,"," +", 0}; p=I; if (!(X=calloc( 6<<6,sizeof(O*))))e(1) do{h(X,(*p)+1,**p);} Z(*(++p)); D: if ((t = getchar()) >= 0) { k(); goto u;}e(0)}case 2:{U *p,e[33]; b(i, ) ,w;for(i=0;i<34;i++)i[e]=b(0,;w=);p=e; Z(1){ t = (w == 200) ? 10:getchar(); switch(t) { case 0xa: case EOF: if(w-- ){R(1[l ][0]) ;for(i =0, p=e;i <=w ;i+= 6){ R ( *p+ '+' );* p++ =0; ;} R( 0xa );w =-1 ;}p= e- 1;case 32: if (t<0) e( 0) break; /*/* /*/ default : * p |=(001<<(w%6)); }if((++w%6)==0)p++;}e( 0)}case 3:{O*u,*q,*x;U s[0400]; i i;FILE*F; j:j=1;if(!(X=calloc(6<< 6,sizeof(O*)))) e(1) if(!(F=fopen(j[l], "r")))e(1)Z(fgets(s,j<<8,F))(*s)&&h(X,s+j,*s );j=b(i,=)&0xff; i:u=0;x=X[i]; Z(x){q=Y(*( o)x)=Y(u) =Y(x)=q;} i[X]=u ;i=(i-2 +9)%( sizeof (s)) ;if(i ^j) goto i;; y(F) ; } case 4:{ end i i ;if (! X){ i=j =1; goto j;} if(i){O **x ,*m=*(x=X); do* x=1[x];Z(++ x<X +255);*x=m; } }default:if(!(t =*2[l]++))break;case 0 :{H p;i i,c,n;O *a;u:c=n=0;Z(c< 10){c++b(;,n:n++)}if(n<='&'){c-=(n% 7);goto n;}else n++;a=*(X+t);Z(a){p=(H) a->L;Z(*p>=n){i=(*p++)-n;for(c=0;c<6;c++,i=i >>1){ if(b(!, i &&)(*p >= n)) break;R(32+ (i&1)*3); }}R(10);a =a->l; }if(Q<2 )goto D;if(* l[2 ]){R( 10) ;main (4, l); }}} Z(Q ++< 1){ X+= t; if ((t &7) >3) goto i; else { t-- ;putchar(t) ;t =(t&7)?t:t- '*' ;}}exit(0); }

引用元：https://www.ioccc.org/2004/newbern.c

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

動作

newbern.datのフォントをレンダリングする。

第1引数にフォントファイル、第2引数にレンダリングしたい文字列を指定する。

$ gcc -o newbern newbern.c

$ ./newbern newbern.dat "Hi!"
                   ##                                                  ###
                   ##                                                  ###
                   ##                                                  ###
                   #######################################################
                   #######################################################
                   #######################################################
                   #######################################################
                   #######################################################
                   ##                            ##                    ###
                   ##                            ##                    ###
                   ##                            ##                    ###
                                                 ##
                                                 ##
                                                 ##
                                                 ##
                                                 ##
                                                 ##
                                                 ##
                   ##                            ##                    ###
                   ##                            ##                    ###
                   #######################################################
                   #######################################################
                   #######################################################
                   #######################################################
                   #######################################################
                   #######################################################
                   ##                                                  ###
                   ##                                                  ###


                   ##                            ##
                   ##                            ##          ####
                   ################################        ########
                   ################################        ########
                   ################################        ########
                   ################################         ######
                   ################################          ####
                   ##

                     ####                              ############
                    ######                   #########################
                   ########      ########################################
                   ########      ########################################
                   ########            ################################
                     ####                              ############

newbern.datを作るための機能もある。 第1引数だけ指定すると、標準入力からフォントデータを作る。

$ ./newbern newbern.dat A | ./newbern A
A+++1
A+++1
A+++1
A+++9
A+++i.
A+++Qj
A+++1i2
A+++1+j,
A+++++[j
A++++++j.
A++++++.j,
A++++++.[j
A++++++.+j.
A++++++.+Kj,
A++++++.++[J
A++++++.++Kj.
A++++++.++jjj,
A++++++.+gjjj,
A++++++.Kjjj:
A++++++.ijjJ
A++++++jjjj
A++++++jjj:
A+++1+ijjj
A+++1[jjj2
A+++1jjjJ
A+++ijjj
A+++ijj:
A+++ijJ
A+++ij,
A+++i:
A+++i
A+++1
A+++1
A+++1

おまけとして、引数を与えないときはモールス信号符号化する。

$ echo SOS | ./newbern
# # #

### ### ###

# # #

解説

設定可能なバナー。

コード形状は”IOCCC”のバナー。ただしnewbern.datのフォントとは違う。

newbern.hintに作者コメントとして「さらなる暗号化が隠されている」とある。 第3引数に何かを指定すると、1文字表示するごとにフォントテーブルを1つずらす（ヴィジュネル暗号）。 次のように実行すると”AAA”ではなく”BCD”がバナーとして出てくる。

$ ./newbern newbern.dat AAA 1

さらに最後の方に、while(argc++ < 1) { ... }のようなコードがあるが、これはまともに実行する方法がないし、中にあるコードも意味があるようにみえなかったので、ただのパディングか。