* Re: Terminal emulator in ADA ?
2000-08-23 0:00 ` wv12
@ 2000-08-23 0:00 ` tmoran
2000-08-24 0:00 ` gdemont
2000-08-24 0:00 ` Terminal emulator in Ada ? Larry Kilgallen
2 siblings, 0 replies; 6+ messages in thread
From: tmoran @ 2000-08-23 0:00 UTC (permalink / raw)
> source code to a terminal emulator written in ADA. Does anyone know of
Just what do you mean? I have an old program that makes a DOS machine
connected to a serial modem act like an ANSI (VT100) terminal, but of
course a chunk of that is 16 bit DOS interrupt handling, and it does
direct screen writes. OTOH, if your friend just wants to see an example
of Ada source code I'll send this (but he'd probably be better off
looking at some of the examples at www.adapower.com).
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Terminal emulator in ADA ?
2000-08-23 0:00 ` wv12
2000-08-23 0:00 ` tmoran
@ 2000-08-24 0:00 ` gdemont
2000-08-24 0:00 ` Terminal emulator in Ada ? Larry Kilgallen
2 siblings, 0 replies; 6+ messages in thread
From: gdemont @ 2000-08-24 0:00 UTC (permalink / raw)
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.
^ permalink raw reply [flat|nested] 6+ messages in thread
* Re: Terminal emulator in Ada ?
2000-08-23 0:00 ` wv12
2000-08-23 0:00 ` tmoran
2000-08-24 0:00 ` gdemont
@ 2000-08-24 0:00 ` Larry Kilgallen
2 siblings, 0 replies; 6+ messages in thread
From: Larry Kilgallen @ 2000-08-24 0:00 UTC (permalink / raw)
In article <slrn8q10p5.ooq.njc@CC47532-A.ewndsr1.nj.home.com>,
ncherry@home.net wrote:
> A friend of mine is interested in ADA and would like to find some
> source code to a terminal emulator written in ADA. Does anyone know of
> such an example? Any pointers would be appreciated
Ada has many strengths over competing languages to help a programmer
eliminate defects, but getting the programmer to pay attention to the
problem specification is not one of them.
I would expect a terminal emulator written in Ada to be not particularly
better than the raft of lousy terminal emulators written in C. I have a
terminal emulator which I presume was written in C, and occasionally it
does crash.
Far more prevalent in the world of terminal emulators, however, are defects
in the way the terminal emulation is done, meaning the wrong actions are
taken. At several successive yearly conferences I attend public Windows
stations have been provided, but only with what Microsoft calls a terminal
emulator. It cannot display correctly with common ordinary programs at the
other end, but it does not crash.
Of course one possible reason it does not crash is that nobody can stand
to use it long enough for it to crash.
^ permalink raw reply [flat|nested] 6+ messages in thread