From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: *
X-Spam-Status: No, score=1.3 required=5.0 tests=BAYES_00,INVALID_MSGID,
	MSGID_RANDY autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,9fb574c7c04a7299
X-Google-Attributes: gid103376,public
From: gdemont@my-deja.com
Subject: Re: Terminal emulator in ADA ?
Date: 2000/08/24
Message-ID: <8o2ts7$51f$1@nnrp1.deja.com>#1/1
X-Deja-AN: 661896418
References: <slrn8q10p5.ooq.njc@CC47532-A.ewndsr1.nj.home.com>
 <8o1gdc$ico$1@nnrp1.deja.com>
X-Http-Proxy: 1.0 x55.deja.com:80 (Squid/1.1.22) for client 130.125.13.32
Organization: Deja.com - Before you buy.
X-Article-Creation-Date: Thu Aug 24 10:36:55 2000 GMT
X-MyDeja-Info: XMYDJUIDgdemont
Newsgroups: comp.lang.ada
X-Http-User-Agent: Mozilla/4.74 (Macintosh; U; PPC)
Date: 2000-08-24T00:00:00+00:00
List-Id: <comp.lang.ada>

wv12@my-deja.com:

> There is something Ada can't do.

Yes, this one:

#include <stdio.h>
#include <stdlib.h>

int main(int a,char     **A){FILE*B;typedef     unsigned long C;C b
[8]; if(!(a==7&&(B=     fopen(1[A],"rb"))))     return 1;for(7[b]=0
;7[b]<5;7[b]++)b[7[     b]]=strtoul(A[2+7[b     ]],0,16-!7[b]*6);5[
b]=3[b]                 ; while     ((6[b]=     getc(B)
)!=(C)-                 1){if(2     [b])for     (7[b]=0
;7[b]<4                 ;7[b]++     )if(((6     [b]>>7[
b])^(6[                 b]>>(7-7[b])))&1)6[     b] ^=(1
<<7[b])                 ^(1<<(7-7[b]));5[b]     ^= 6[b]
<<(0[b]                 -8);for(7[b]=0;7[b]     <8;7[b]
++)if((                 5[b]>>(0[b]-            1))&1)5
[b]=(5[                 b]<<1)^ 1[b];           else 5[
b]<<=1;                 }5[b]&=((((C)1          <<(0[b]
-1))-1)                 <<1)|1; if(2[b]         )for(7[
b]=0;7[                 b]<(0[b  ]>>1);7        [b] ++)
if(((5[b]>>7[b])^(5     [b]>>(0   [b]-1-7       [b])))&1)5[b]^=((C)
1<<7[b])^((C)1<<(0[     b]-1-7[    b]));5[      b]^=4[b];fclose(B);
printf("%0*lX\n", (     int)(0[     b]+3)>>     2,5[b]); return 0;}

> For everything else, there is C.
> Run xterm, tip, cu thru c2ada.
> Will



Sent via Deja.com http://www.deja.com/
Before you buy.