restore *.orig.c to each entry
Under each yyyy/dir there is a file of the form '*.orig.c' containing the original source code, or as close as we can get to the original source code.
This commit is contained in:
Landon Curt Noll committed
1 parent
cfd253683f
commit
2ba12ecc3c
320 files changed
+21365
No files matched your search
@@ -0,0 +1,18 @@
|
||||
#include <stdio.h>
|
||||
#define QQ 1
|
||||
#define TT 1
|
||||
#define cc main(c,v) int c; char **v;{char tt[12],qq[7]; int q=0,o=1,l=1,m=1;struct {int c;} f;
|
||||
#define incest qq[6]='\0';tt[11]='\0';if(QQ==atoi(v[1])+1){(void)fprintf(stderr,"%s factorial = %d\n",v[1], TT);exit(1);}o=c+f
|
||||
#define x ;while(EOF!=(o=getchar())){if(l && q=='Q' && o=='Q'){l=0;(void)getchar();(void)fread(qq,6,1,stdin);(void)printf("Q %6d",atoi(qq)+1);}else
|
||||
if(m && q=='T' && o=='T'){m=0;(void)fread(tt,11,1,stdin);(void)printf("T %9d\n",atoi(tt)*QQ);}else {q=o;(void)putchar(o);}}exit(0);}
|
||||
cc incest.c -o x
|
||||
#define zxc ;{/*
|
||||
cat incest.c | x $1 >! x1
|
||||
if ($status != 0) then
|
||||
exit
|
||||
endif
|
||||
mv x1 incest.c
|
||||
chmod +x incest.c
|
||||
exec incest.c $1
|
||||
exit
|
||||
*/
|
||||
@@ -0,0 +1 @@
|
||||
char*He="llo world.\n";
|
||||
@@ -0,0 +1,44 @@
|
||||
#define d define
|
||||
#d a include
|
||||
#a <stdio.h>
|
||||
#a <string.h>
|
||||
#a <ctype.h>
|
||||
#d p char*
|
||||
#d P ,(p)
|
||||
#d T(E) !strcmp(E,"()")
|
||||
#d U return
|
||||
#d W while
|
||||
#d X sbrk(199)
|
||||
#d z atof
|
||||
#d e isspace
|
||||
#d D A(_)
|
||||
#d E S(C(_))
|
||||
#d B(y) p y(_)p _;{
|
||||
#d G(y,V) B(y)p i;U sprintf(i=X,"%lf",z(E)V z(S(C(D)))),i;}
|
||||
|
||||
p sbrk(),*S(),*j(),*O,*H;K,Y,M=14;double
|
||||
z();Q(_)p _;{int V=0;W(e(*_))_++;H=_;W(V|!(e
|
||||
(*H)|*H==')'||(*H=='('&&H-_)))V+=(*H=='(')-(*H==
|
||||
')'),H++;U H-_;}B(C)U _++,Y=Q(_),_=strncpy(X,_,Y),_[
|
||||
Y]=0,_;}B(A)_++,_+=Q(_);W(e(*_))_++;U O=X,*O='(',strcpy(
|
||||
O+1,_),O;}B(Z)U _;}B(c)U C(E);}B(q)U A(E);}B(t)p i=E;U H=S(C
|
||||
(D)),sprintf(O=X,T(H )?"(%s)":"(%s %s",i,H+1)
|
||||
|
||||
,O;}B(F)U S(C(A(T(E)?D:_)));}L(i,s)p
|
||||
|
||||
i,*s;{U isdigit(*i) ? z(i)!=z(s):strcmp(i,s);}
|
||||
B(b)U L(E,S(C(D)))?"()":"t";}B(R)U E;}B(o)U z(E)<z(S(C(D)))?
|
||||
"t":"()";}G(f,+)G(g,-)G(h,*)p r[4][2]={"function" P R,
|
||||
"quote"P C,"lambda"P Z,"defun"P j};B(j)U r[M][1]=D,*
|
||||
r[M++]=C(_);}p not[99][2]={"if"P F,"equal"P b,"<"
|
||||
P o,"+"P f,"-"P g,"*"P h,"car"P c,"cdr"P q,
|
||||
"cons"P t,"t","t"};B(S)int Li,s;p u;if(
|
||||
isdigit(*_)|T(_))U _;for(Y=M;Y--;)
|
||||
if(!strcmp(_,*r[Y]))U r[Y][1]
|
||||
;u=E,_=D;if(*u-'(')U(*((p(*)())u)
|
||||
)(_);s=Li=M;W(!T(_))r[M][1]=E,*r[M++]
|
||||
="",_=D;O=C(u);W(!T(O))*r[Li++]=C(O),O=A(O);U O=S
|
||||
(C(A(u))),M=s,O;}main(){H=O=X,Y=0;W(Y|!e(K=getchar()))K==
|
||||
EOF?exit(0):0,Y+=(K=='(')-(K==')'),*H++=K;*H=0,puts(S(O))
|
||||
,
|
||||
main();{printf("XLISP 4.0\n");}}
|
||||
@@ -0,0 +1,21 @@
|
||||
#include <string.h>
|
||||
typedef char ape
|
||||
#define D define
|
||||
#D EA register
|
||||
#D EP unsigned
|
||||
#D A 1
|
||||
#D AP (A<<A)
|
||||
#D P (A<<AP)
|
||||
#D AE ((P<<P)<<A)
|
||||
#D PE (((A<<P)<<P)<<P)
|
||||
#D E ((EP)A>>A)
|
||||
#D APE {EA EP ape ea=AE;while(ea--) e[ea]=E;}
|
||||
;ape a[PE+A],ap,*ae,p[P+A],e[AE];
|
||||
main(){ape pe,*ep=a;srand((EP)time((long)E));
|
||||
while(((*(ep++)=getchar())!=-A)&&((ep-a)<PE));
|
||||
*(ae= --ep)=E;for(ap=E;ap<=P;){APE;if(pe=PA())
|
||||
{putchar(pe);if(ap<P){p[ap]=pe;ap++;}else{
|
||||
ep=p+A;while(*ep) *(ep-A)= *(ep++); *(ep-A)=pe;}}else break;}}
|
||||
PA(){EA ape pe,*ep=a,pa,Ap=E;for(ep=a;ep<ae-P;ep++)
|
||||
if(!strncmp(ep,p,ap)){e[*(ep+ap)]++;Ap++;}if(!Ap)return(Ap);
|
||||
pa=rand()%Ap+A;pe=~E,Ap=!Ap;while((Ap+=e[++pe])<pa);return(pe);}
|
||||
@@ -0,0 +1,35 @@
|
||||
#include <stdio.h>
|
||||
#define f int
|
||||
#define v (void)printf(
|
||||
#define x ),exit(1);
|
||||
#define y ){if(n)c=z(n,u),u=n,n=c;o[i]=n?'0'+(1&*n):'0';}
|
||||
#define z(a,b) (f*)(~1&*a^(f)b)
|
||||
#define k(l) if(!(l=(f*)malloc(sizeof(l))))v 23+m x if(1&(f)l)v 39+m x*l=
|
||||
r(p,q,d)f*p,*q;{char o[81];f*n=p,i=39,*c,*u=d?q:z(p,q);o[40]='0'+(1&*p);
|
||||
for(;i>=0;i--y u=d?z(p,q):q;n=p;for(i=41;i<79;i++y o[i++]='\r';o[i++]=0;
|
||||
v o);(void)fflush(stdout);sleep(1);}
|
||||
main(a,c)char**c;{char*u,*malloc(),*m=
|
||||
"Usage: black [string]\n\0No more memory\n\0Unusable memory alignment\n\0jt,s@m@ (beleY%XX&Yz {z&z}i|R(|)*((.)i)hiniFiGJ%FG.JJgJ: ;;&;z {z&z}-RS/ROiOV OP+PsaPh+ijainnjmamfmfAlnnnnphppopv%vvgv.aABiB1/BVP11/1.%..&.OhrR-WV V1#1VP1CcC0R\
|
||||
\n\n'CVP0\n!\n\n'\nEaEEnEamat!akckk'kwaww'wz,zzozEit +",
|
||||
*n=m;f*q,*p=0,*g,b=3,d;
|
||||
if(a>2)v m x n=a>1?c[1]:n;
|
||||
/*v"\t\t\t\t\tV\n");*/
|
||||
k(q)0;u=n;a=~1&'j';
|
||||
while(a!='x'){
|
||||
/*r(q,p,b);*/
|
||||
for(;;u+=3){
|
||||
u= *u?u:n;
|
||||
if((~1&*u)==a&&(1&*q)<<1==(2&u[2]))break;
|
||||
}
|
||||
a=~1&u[1];
|
||||
d=(8&u[2])>>3;
|
||||
if(16&u[2])putchar(u[3]);
|
||||
if(4&u[2])*q|=1;else*q&=~1;
|
||||
if(b==d)g=p;else{
|
||||
g=z(q,p);
|
||||
if(!g){k(g)(f)q;*q^=(f)g;}
|
||||
}
|
||||
p=q;q=g;b=1-d;
|
||||
}
|
||||
/*r(q,p,b);v"\n");*/exit(0);
|
||||
}
|
||||
@@ -0,0 +1,33 @@
|
||||
typedef struct A*B,*(*C)();struct A{C(*d)();B e;}*v(),*b;C n[256];
|
||||
# include <stdio.h>
|
||||
#define a (d->e)
|
||||
#define o (B)printf
|
||||
#define X(_){return _;}
|
||||
#define Y(_,A)B _(d,e)B d,e;X(A)
|
||||
#define Z(P)C P(f,g,h,i)C f,g,h,i;X(P)
|
||||
#define c(_)(b=(B)malloc(sizeof(*b)),b->d=_,b->e=d,b)
|
||||
#define _(D,E,F,G,H)B D();Y(D/**/f,E)Y(D/**/g,F)Y(D/**/h,G)Y(D/**/i,H)Y(D,(*(*d->d)(D/**/f,D/**/g,D/**/h,D/**/i))(d,e))
|
||||
Z(f)
|
||||
Z(g)
|
||||
Z(h)
|
||||
Z(i)
|
||||
_(j,d,d,j a,j a)
|
||||
_(k,d,c(h),c(h),c(h))
|
||||
_(l,c(i),d,c(i),c(i))
|
||||
_(m,c(g),c(f),l(m a),k(m a))
|
||||
_(p,d,l(m(d)),k(p a),l(m a))
|
||||
_(q,l(p(d)),m(d),l a,k(q a))
|
||||
_(r,m(d),k(mf a),l(r a),k a)
|
||||
_(s,d,e,o("0",s a),o("1",s a))
|
||||
_(t,d,p(e),k(t(a,e)),v(k(t(a,e)),e))
|
||||
_(u,k(e),l(r(e)),k(v(a,e)),l(v(a,e)))
|
||||
_(v,e,r(e),u(e,a),u(q(e),a))
|
||||
_(w,o("0"),d,s(d),s(d))
|
||||
_(x,(*n[getchar()])(d),o("-1"),w(p(d,o("-"))),xh(d))
|
||||
_(y,xf(mg()),v(d,p(yf())),v(d,yf()),t(d,yf()))
|
||||
_(z,xf(yf()),(*(*j(d)->d)(w,x))(d),xf(k(d)),xf(l(d)))
|
||||
main(){
|
||||
n['(']=zf;n['x']=yi;n['-']=yg;
|
||||
n['+']=yh;n['0']=zh;n['1']=zi;
|
||||
n[' ']=xf;n[')']=n['\n']=kf;
|
||||
o("\n",zg(yf()));}
|
||||
@@ -0,0 +1,36 @@
|
||||
|
||||
|
||||
char
|
||||
_3141592654[3141
|
||||
],__3141[3141];_314159[31415],_3141[31415];main(){register char*
|
||||
_3_141,*_3_1415, *_3__1415; register int _314,_31415,__31415,*_31,
|
||||
_3_14159,__3_1415;*_3141592654=__31415=2,_3141592654[0][_3141592654
|
||||
-1]=1[__3141]=5;__3_1415=1;do{_3_14159=_314=0,__31415++;for( _31415
|
||||
=0;_31415<(3,14-4)*__31415;_31415++)_31415[_3141]=_314159[_31415]= -
|
||||
1;_3141[*_314159=_3_14159]=_314;_3_141=_3141592654+__3_1415;_3_1415=
|
||||
__3_1415 +__3141;for (_31415 = 3141-
|
||||
__3_1415 ; _31415;_31415--
|
||||
,_3_141 ++, _3_1415++){_314
|
||||
+=_314<<2 ; _314<<=1;_314+=
|
||||
*_3_1415;_31 =_314159+_314;
|
||||
if(!(*_31+1) )* _31 =_314 /
|
||||
__31415,_314 [_3141]=_314 %
|
||||
__31415 ;* ( _3__1415=_3_141
|
||||
)+= *_3_1415 = *_31;while(*
|
||||
_3__1415 >= 31415/3141 ) *
|
||||
_3__1415+= - 10,(*--_3__1415
|
||||
)++;_314=_314 [_3141]; if ( !
|
||||
_3_14159 && * _3_1415)_3_14159
|
||||
=1,__3_1415 = 3141-_31415;}if(
|
||||
_314+(__31415 >>1)>=__31415 )
|
||||
while ( ++ * _3_141==3141/314
|
||||
)*_3_141--=0 ;}while(_3_14159
|
||||
) ; { char * __3_14= "3.1415";
|
||||
write((3,1), (--*__3_14,__3_14
|
||||
),(_3_14159 ++,++_3_14159))+
|
||||
3.1415926; } for ( _31415 = 1;
|
||||
_31415<3141- 1;_31415++)write(
|
||||
31415% 314-( 3,14),_3141592654[
|
||||
_31415 ] + "0123456789","314"
|
||||
[ 3]+1)-_314; puts((*_3141592654=0
|
||||
,_3141592654)) ;_314= *"3.141592";}
|
||||
@@ -0,0 +1,19 @@
|
||||
long h[4];t(){h[3]-=h[3]/3000;setitimer(0,h,0);}c,d,l,v[]={(int)t,0,2},w,s,I,K
|
||||
=0,i=276,j,k,q[276],Q[276],*n=q,*m,x=17,f[]={7,-13,-12,1,8,-11,-12,-1,9,-1,1,
|
||||
12,3,-13,-12,-1,12,-1,11,1,15,-1,13,1,18,-1,1,2,0,-12,-1,11,1,-12,1,13,10,-12,
|
||||
1,12,11,-12,-1,1,2,-12,-1,12,13,-12,12,13,14,-11,-1,1,4,-13,-12,12,16,-11,-12,
|
||||
12,17,-13,1,-1,5,-12,12,11,6,-12,12,24};u(){for(i=11;++i<264;)if((k=q[i])-Q[i]
|
||||
){Q[i]=k;if(i-++I||i%12<1)printf("\033[%d;%dH",(I=i)/12,i%12*2+28);printf(
|
||||
"\033[%dm "+(K-k?0:5),k);K=k;}Q[263]=c=getchar();}G(b){for(i=4;i--;)if(q[i?b+
|
||||
n[i]:b])return 0;return 1;}g(b){for(i=4;i--;q[i?x+n[i]:x]=b);}main(C,V,a)char*
|
||||
*V,*a;{h[3]=1000000/(l=C>1?atoi(V[1]):2);for(a=C>2?V[2]:"jkl pq";i;i--)*n++=i<
|
||||
25||i%12<2?7:0;srand(getpid());system("stty cbreak -echo stop u");sigvec(14,v,
|
||||
0);t();puts("\033[H\033[J");for(n=f+rand()%7*4;;g(7),u(),g(0)){if(c<0){if(G(x+
|
||||
12))x+=12;else{g(7);++w;for(j=0;j<252;j=12*(j/12+1))for(;q[++j];)if(j%12==10){
|
||||
for(;j%12;q[j--]=0);u();for(;--j;q[j+12]=q[j]);u();}n=f+rand()%7*4;G(x=17)||(c
|
||||
=a[5]);}}if(c==*a)G(--x)||++x;if(c==a[1])n=f+4**(m=n),G(x)||(n=m);if(c==a[2])G
|
||||
(++x)||--x;if(c==a[3])for(;G(x+12);++w)x+=12;if(c==a[4]||c==a[5]){s=sigblock(
|
||||
8192);printf("\033[H\033[J\033[0m%d\n",w);if(c==a[5])break;for(j=264;j--;Q[j]=
|
||||
0);while(getchar()-a[4]);puts("\033[H\033[J\033[7m");sigsetmask(s);}}d=popen(
|
||||
"stty -cbreak echo stop \023;cat - HI|sort -rn|head -20>/tmp/$$;mv /tmp/$$ HI\
|
||||
;cat HI","w");fprintf(d,"%4d on level %1d by %s\n",w,l,getlogin());pclose(d);}
|
||||
@@ -0,0 +1 @@
|
||||
main(Q,O)char**O;{if(--Q){main(Q,O);O[Q][0]^=0X80;for(O[0][0]=0;O[++O[0][0]]!=0;)if(O[O[0][0]][0]>0)puts(O[O[0][0]]);puts("----------");main(Q,O);}}
|
||||
@@ -0,0 +1,24 @@
|
||||
|
||||
/**//*/};)/**/main(/*//**/tang ,gnat/**//*/,ABBA~,0-0(avnz;)0-0,tang,raeN
|
||||
,ABBA(niam&&)))2-]--tang-[kri - =raeN(&&0<)/*clerk*/,noon,raeN){(!tang&&
|
||||
noon!=-1&&(gnat&2)&&((raeN&&( getchar(noon+0)))||(1-raeN&&(trgpune(noon
|
||||
)))))||tang&&znva(/*//**/tang ,tang,tang/**|**//*/((||)))0(enupgrt=raeN
|
||||
(&&tang!(||)))0(rahcteg=raeN( &&1==tang((&&1-^)gnat=raeN(;;;)tang,gnat
|
||||
,ABBA,0(avnz;)gnat:46+]552&)191+gnat([kri?0>]652%)191+gnat([kri=gnat
|
||||
(&&)1-^gnat(&&)1& ABBA(!;)raeN,tang,gnat,ABBA(avnz&&0>ABBA{)raeN
|
||||
,/**/);}znva(/*//**/tang,gnat,ABBA/**//*/(niam;}1-,78-,611-,321
|
||||
-,321-,001-,64-,43-,801-,001-,301-,321-,511-,53-,54,44,34,24
|
||||
,14,04,93,83,73,63,53,43,33,85,75,65,55,45,35,25,15,05,94,84
|
||||
,74,64,0,0,0,0,0,0,/**/){ABBA='N'==65;(ABBA&&(gnat=trgpune
|
||||
(0)))||(!ABBA&&(gnat=getchar(0-0)));(--tang&1)&&(gnat='n'<=
|
||||
gnat&&gnat<='z'||'a'<=gnat&&gnat<='m'||'N'<=gnat&&gnat<='Z'
|
||||
||'A'<=gnat&&gnat<='M'?(((gnat&/*//**/31/**//*/,21,11,01,9,8
|
||||
,7,6,5,4,3,2,1,62,52,42,/**/)+12)%26)+(gnat&/*//**/32/**//*/,
|
||||
22,12,02,91,81,71,61,51,41{=]652[kri};)/*pry*/)+65:gnat);main
|
||||
(/*//**\**/tang^tang/**//*/,/* */,~/*//*-*/tang,gnat,ABBA-
|
||||
0/**//*/(niam&&ABBA||))))tang( rahcteg&&1-1=<enrA(||))tang(
|
||||
enupgrt&&1==enrA((&&)2&gnat(&& )1-^tang(&&ABBA!(;)85- =tang
|
||||
(&&)'a\'=gnat(&&)1-==gnat(&&)4 ==ABBA(&&tang!;))))0(enupgrt=
|
||||
gnat(&&)tang!((||)))0(rahcteg =gnat(&&tang((&&ABBA;;)1-'A'=!
|
||||
'Z'=tang(&&ABBA{)enrA/***/);gnat ^-1&&znva(tang+1,gnat,1+gnat);
|
||||
main(ABBA&2/*//*\\**/,tang,gnat ,ABBA/**//*/(avnz/**/);}/*//**/
|
||||
Reference in new issue
Block a user