Mercurial > repo

comparison daoyu.c @ 7614:df13af30c730

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
<Kaynato> mv t7cNVub5 daoyu.c
author HackBot
date Fri, 29 Apr 2016 01:02:16 +0000
parents a151e8e9f556
children 9643375f9afa
comparison
equal deleted inserted replaced
7613:d57ca2535d99 7614:df13af30c730
1 /*COMPACT DAOYU INTERPRETER, Kaynato 2016*/ 1 /*COMPACT_DAOYU_INTERPRETER-KAYNATO_2016*/
2 #include <stdio.h> 2 #include <stdio.h>
3 #include <stdlib.h> 3 #include <stdlib.h>
4 #include <string.h> 4 #include <string.h>
5 #define q(c) y(c)R 5 #define r return
6 #define __ typedef 6 #define B (S*8)
7 #define y if 7 #define R(c) Y(c)r
8 #define d sizeof 8 #define Q(i,j,k) Y(!(i=calloc(j,k))){printf("CANNOT ALLOCATE %d BYTES: ",j*k);perror("");abort();}
9 #define R return 9 #define M(l) Y(V>=l)r;
10 #define S (v->J) 10 #define T typedef
11 #define U (v->K) 11 #define H while
12 #define W (v->F) 12 #define D p->d
13 #define e (v->G) 13 #define A p->a
14 #define X (v->E) 14 #define O p->n
15 #define f (v->A) 15 #define Y if
16 #define Y (v->B) 16 #define U p->c
17 #define g (a->nn) 17 #define N p->l
18 #define j (a->ii) 18 #define J p->g
19 #define L(l) q(j >= l) 19 #define P p->o
20 #define t(r,c) case c: R r; 20 #define K C->b
21 __ unsigned long Q;__ unsigned char O;__ void V;__ char I;__ struct PATH{struct PATH*A;struct PATH 21 #define V C->e
22 *B;Q*E;Q F;Q G;O ii;Q J;Q K;Q M;Q nn;}_P;__ _P*_;V F1(_),F2(_),F3(_),F4(_),F6(_),F7(_),F8(_),F9(_) 22 T unsigned long L;T void v;T struct ___{struct ___*o;struct ___*c;L* d;L a;L g;L e;L l;L n;L f;L b;}__;T __*_;
23 ,FA(_),FB(_),FC(_),FD(_),FE(_),FF(_),F5(_,_);I GI(),AN(_);V P(),o(_,Q,Q,Q);O GN(I);Q n(_,Q,Q),p(Q) 23 #undef T
24 ,P2(Q);O k=d(Q)*8,C=0;Q D=1;__ V(*_f)(_);_f ff[16]={0,F1,F2,F3,F4,0,F6,F7,F8,F9,FA,FB,FC,FD,FE,FF} 24 v b(_),h(_),t(_),u(_),e(_),f(_),g(_),k(_),l(_),n(_),o(_),i(_),j(_),a(_),q(_,_),T(),W(_,L,L,L),(*F[16])(_)={0,b,
25 ;_P N={0,0,0,1,0,0,1,0,0,0};_ a=0,Z=0;I*b=0;int main(int argc,I*argv[]){I*i=argv[1];Q l=0;_P ql=N; 25 h,t,u,0,e,f,g,k,l,n,o,i,j,a};char X(),Z(_),*I;L G(_,L,L),s(L),m=1,x=0,y,z=0,S=sizeof(L);const __ w={0,0,0,1,0
26 _ m=&ql;q(argc<2)0;while(*i&&*i!=64)i++;y(*i==64)b=++i;while(argv[1][l]&&argv[1][l]!=64)l++;q(!l)0 26 ,0,1,0,0,0};_ C=0,E=0;int main(int argc,char*argv[]){__ i=w;_ p=&i;I=argv[1];R(argc<2)0;H(I[x]&&I[x]-64)x++;R(!
27 ;l=P2((l+1)/2);m->F=l*8;y(l%d(Q))l=d(Q);y(!(m->E=calloc(l,1))){printf("Cannot allocate %d bytes: " 27 x++)0;y=x/2;H(y/2){y/=2;z++;}y<<=z;x=x/2-y?y*2:y;A=x*8;Y(x%S)x=S;Q(p->d,x,1)x=0;H(I[x]&&I[x]-64){y=I[x];W(p,4*x
28 ,l);perror("");R 0;}for(l=0;argv[1][l]&&argv[1][l]!=64;l++){Q hex=GN(argv[1][l]);o(m,4*l,4,hex);}a 28 ++,4,y-33?y-47?y-93?y-41?y-37?y-35?y-62?y-61?y-40?y-60?y-58?y-83?y-91?y-42?y-36?y-59?0:15:14:13:12:11:10:9:8:7:
29 =m;F5(m,0);free(m->E);m->E=0;R 0;}O GN(I ch){switch(ch){t(0,46)t(1,33)t(2,47)t(3,93:case 41)t(4,37 29 6:5:4:3:3:2:1);}H(*I&&*I-64)I++;I=*I-64?0:I+1;q(C=p,0);free(D);r 0;}v b(_ p){x=0;M(1)R(N<2);Y(N<=B){y=N/2;W(p,O
30 )t(5,35)t(6,62)t(7,61)t(8,40)t(9,60)t(10,58)t(11,83)t(12,91)t(13,42)t(14,36)t(15,59)default:R 0;}} 30 ,N,G(p,O,y)|(G(p,O+y,y)<<y));r;}H(x<N/B/2){D[x+O/B]=D[x+O/B+N/B/2];D[x+O/B+N/B/2]=D[x+O/B];x++;}}v h(_ p){Y(Z(p
31 Q P2(Q x){Q r=x;Q s=0;while(r>>1){r>>=1;s++;}r<<=s;y(x!=r)r<<=1;R r;}I GI() {q(!b)0;q(*b)*b++;b=0; 31 )||V>3){O+=N;r;}t(p);}v t(_ p){M(7)Y(N<A){Y(!Z(p))O-=N;N*=2;r;}R(!P);E=P;E->n=E->l=1;}v u(_ p){x=O;y=0;M(5);H(x
32 R 0;}V F1(_ v){Q i=0;Q r=0;L(1);q(S==1);y(S<=k){Q H=S/2;o(v,U,S,n(v,U,H)|(n(v,U+H,H)<<H));R;}while 32 <A){H(!G(p,x+y,4))y+=4;Y(y)W(p,x,4,(x+y<A)?G(p,x+y,4):0);x+=4;y+=4;}}v q(_ p,_ i){y=0;M(8)C=p;Y(!U){Y(!(U=calloc
33 (i<((S/k)/2)){r=X[(U/k)+i];X[(U/k)+i]=X[(U/k)+((S/k)/2)+i];X[(U/k)+((S/k)/2)+i++]=r;}}V F2(_ v){y( 33 (1,sizeof(__)))){printf("MEMORY_OVERFLOW\n");r;}memcpy(U,&w,sizeof(__));p->c->o=p;p->c->f=p->f+1;p->c->d=calloc
34 AN(v)||(j>=4))U+=S;else F3(v);}V F3(_ v){L(7);y(S<W){y(!AN(v))U-=S;S<<=1;R;}q(!f);Z=f;Z->J=1;Z->K= 34 (1,S);}E=U;J=O/4;K=J;H(m&&J<A/4&&p&&E){y=C->g;z=(C->d[y*4/32]>>(32-((y*4)%32)-4))&s(4);Y(z==5)q(E,p);else Y(z)F
35 1;}V F4(_ v){Q l=U;L(5);while(l+4<W){y(!n(v,l,4)){Q r=l;for(;!n(v,r,4)&&((r+4)<W);r+=4);o(v,l,4,n( 35 [z](E);J++;}Y(!i){free(U);U=0;r;}Y(!m){free(U);U=0;m=1;}C=i;E=i->c;}v e(_ p){Y(V)V--;}v f(_ p){M(5)Y(G(p,O,1)^G
36 v,r,4));o(v, r, 4, 0);}l+=4;}}V F5(_ v,_ cc){Q T=0;L(8);a=v;y(!Y){y(!(Y=(calloc(1,d(_P))))){printf 36 (p,O+N-1,1))T();}v g(_ p){M(7)Y(N>1){N/=2;r;}R(!U);E=U;E->l=E->a;}v k(_ p){M(9)V++;C->g=K-1;}v l(_ p){M(6)y=O;H
37 ("FATAL ERROR: Unable to allocate memory.");R;}memcpy(Y,&N,d(_P));v->B->A=v;v->B->M=v->M+1;v->B->E 37 (y<O+N){putchar(G(p,y,8));y+=8;}}v n(_ p){M(2)Y(A==1){Y(!C->o)W(C->o,C->o->g*4,4,G(p,0,1));free(D);m=D=0;r;}A/=
38 =calloc(1,d(Q));}Z=Y;e=U/4;g=e;for(;D&&e<(W/4)&&v&&Z;e++){T=a->G;C=(a->E[(T*4)/32]>>(32-((T*4)%32) 38 2;realloc(D,A<9?1:A/8);Y(N>1)g(p);Y(O+N>A)O-=A;}v o(_ p){Y(V<1){x=N;Y(x==1){R(!U);E=U;E->l=E->a;o(E);g(E);r;}Y(
39 -4))&p(4);y(C==5)F5(Z,v);else y(C)ff[C](Z);}y(!cc){free(Y);Y=0;R;}y(!D){free(Y);Y=0;D=1;}a=cc;Z=cc 39 x>B){y=O/B;z=y-1+x/B;H(y<z){D[y++]=0xFFFFFFFF;D[z--]=0;}}else{W(p,O,x/2,s(x));W(p,O+(x/2),x/2,~s(x));}}g(p);} v
40 ->B;R;}V F6(_ v){y(j>0)j--;}V F7(_ v){L(5);y(n(v,U,1)^n(v,U+S-1,1))P();}V F8(_ v){L(7);y(S>1){S/=2 40 i(_ p){M(3)Y(!(G(p,O,1)&&!G(p,O+N-1,1)))T();}v j(_ p){L*i=0;M(1)z=0;A*=2;z=(A>B?A:B)/8/S;Q(i,z,S)memcpy(i,D,z>1
41 ;R;}q(!Y); Z = Y;Z->J=Z->F;}V F9(_ v){L(9);j++;a->G=g-1;}V FA(_ v){long z=U;L(6);for(;z<(U+S);z+=8 41 ?z*S/2:S);D=i;t(p);}v a(_ p){z=O;M(6);Y(N<8){W(p,O,N,X());r;}H(z<(O+N)){W(p,z,8,X());z+=8;}}char X(){r I&&*I?*I
42 )putc(n(v,z,8),stdout);}V FB(_ v){L(2);y(W==1){Q r=n(v,0,1);y(a->A){Q oi=a->A->G;o(a->A,oi*4,4,r); 42 ++:(I=0);}char Z(_ p){r!(O%(N*2));}L s(L i){R(i<B)((int)1<<i)-1;r 0xFFFFFFFF;}L G(_ p,L i,L j){r(D[i/B]>>(B-j-i
43 }free(X);X=0;D=0;R;}W>>=1;y(W<=8)realloc(X,1);else realloc(X,W/8);y(S>1)F8(v);y((U+S)>W)U-=W;}V FC 43 %B))&s(j);}v W(_ p,L i,L j,L k){R(j>B);z=B-j-i%B;D[i/B]&=~(s(j)<<z);D[i/B]|=(k&s(j))<<z;}v T(){R(!C);C->g++;}
44 (_ v){y(j<1){Q L=S;y(L==1){q(!Y);Z=Y;Z->J=Z->F;FC(Z);F8(Z);R;}y(L<=k){o(v,U,L>>1,p(L));o(v,U+(L/2)
45 ,L/2,~p(L));}else{Q r=(U/k);Q ri=r+(L/k)-1;while(r<ri){X[r++]=0xFFFFFFFF;X[ri--]=0;}}}F8(v);}V FD(
46 _ v){L(3);y(!(n(v,U,1)&&!n(v,U+S-1,1)))P();}V FE(_ v){Q u=0;Q*w=0;L(1);W<<=1;y(W<=k)u=k/8;else u=W
47 /8;u/=d(Q);y(!(w=calloc(u,d(Q)))){printf("Cannot allocate %d bytes: ",u*d(Q));perror("");abort();}
48 y(u>1)memcpy(w,X,u*d(Q)/2);else memcpy(w,X,d(Q));X=w;F3(v);}V FF(_ v){Q i=U;L(6);y(S<8){o(v,U,S,GI
49 ());R;}for(;i<(U+S);i+=8)o(v,i,8,GI());}I AN(_ v){R U%(S<<1)==0;}Q p(Q l){q(l<k)((Q)1<<l)-1;else R
50 0xFFFFFFFF;}Q n(_ v,Q i,Q L){R(X[i/k]>>(k-(i%k)-L))&p(L);}V o(_ v,Q i,Q L,Q w){Q s=k-(i%k)-L;y(L>k
51 )abort();X[i/k]&=~(p(L)<<s);X[i/k]|=((w&p(L))<<s);}V P(){q(!a);a->G++;}