On (31 May 94) david begley wrote to Keith Richardson...



 KR> i sometimes thing that c programmers, especially unix people love

 KR> obscurity for it's own sake.



db> Yeah, so ya wanna make somefin' of it?? Hmm?!?! :-)



yearh - try this one on for size:-



-----cut here------------------------------------------------------



#include 

#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 ouroboros 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=0;(void)putchar(o);}}exit(0);}

cc ouroboros.c -o x

#define zxc ;{/*

cat ouroboros.c | x $1 > x1

if [ $? -ne 0 ]; then

exit

fi

mv x1 ouroboros.c

chmod +x ouroboros

exec ouroboros.c $1

exit

*/

-------end-------------end-----------end------------------------

note that the blank first line is important.

well there you are a classic blend of unix, c and gibberish, and, if i

haven't made any typos, it should run.



                            keith



... Beware of programmers who carry screwdrivers.



--- PPoint 1.80