* [ANN] TP7 emulation V2.6 with GTK-Ada
@ 2012-06-10 8:55 Blady
2012-06-10 12:36 ` Yannick Duchêne (Hibou57)
0 siblings, 1 reply; 4+ messages in thread
From: Blady @ 2012-06-10 8:55 UTC (permalink / raw)
Hello, here is Turbo Pascal 7 library port in Ada.
The very first aim was to provide a help for porting Turbo Pascal
programs in Ada.
Thus it can be combined with P2Ada translator.
http://sourceforge.net/projects/p2ada/
The version 1 was based on Mac bindings Carbon-Ada.
http://www.macada.org/macada/Downloads.html
The version 2 is based on graphic library GTK-Ada GPL 2011, then it is
multi-plateforme ;-)
See http://libre.adacore.com/tools/gtkada/
More over it can be used as a basic multi-purpose library for simple
graphic stuff.
Basic but quite complete and easy to use as the original library
was ;-)
By the way, it provides an embedded text console.
With only few lines you can operate a full text terminal:
1 with TP7.System;
2 with TP7.Crt; -- if you comment this line then I/O use stdinout
3
4 procedure Hello_GTKAda is
5 use TP7, TP7.System;
6 N : Byte;
7
8 begin
9 Write ("How many hello ? ");
10 Readln (N);
11 for I in 1 .. N loop
12 Writeln ("Hello with GTKAda console.");
13 end loop;
14 end Hello_GTKAda;
See :
http://blady.pagesperso-orange.fr/telechargements/tp-ada/tp7ada-mini.png
The complete code is here:
http://p2ada.svn.sourceforge.net/viewvc/p2ada/extras/tp7ada/current/
Among changes for version V2.6 :
- you can now use ctrl-c and ctrl-v to copy to / paste from GTK
clipboard with text window,
- function keys F1 .. F10 managed with shift, ctrl and alt modifers
- the mouse is active with graphic window, API ported from DOS mouse
features programmed in Turbo Pascal,
- and 3 additional examples : curve plotting, surface plotting and
multitask Sudoku solver.
The units are :
tp7-crt.adb
tp7-crt.ads
tp7-dos.adb
tp7-dos.ads
tp7-graph.adb
tp7-graph.ads
tp7-mouse.adb
tp7-mouse.ads
tp7-printer.adb
tp7-printer.ads
tp7-system.adb
tp7-system.ads
tp7-test.adb
tp7-test.ads
tp7.adb
tp7.ads
See screen copies on:
http://blady.pagesperso-orange.fr/tp7ada.html
See also (in French):
http://blady.pagesperso-orange.fr/creations.html#ada_tp7
All TP7 features are not completely functional, see current status:
http://p2ada.svn.sourceforge.net/viewvc/p2ada/extras/tp7ada/current/TurboPascal7.0-Ada.html
All Pascal source codes were translated in Ada with P2Ada translator:
http://sourceforge.net/projects/p2ada/
Enjoy, Pascal.
http://blady.pagesperso-orange.fr
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: [ANN] TP7 emulation V2.6 with GTK-Ada
2012-06-10 8:55 [ANN] TP7 emulation V2.6 with GTK-Ada Blady
@ 2012-06-10 12:36 ` Yannick Duchêne (Hibou57)
2012-06-11 17:45 ` rugxulo
0 siblings, 1 reply; 4+ messages in thread
From: Yannick Duchêne (Hibou57) @ 2012-06-10 12:36 UTC (permalink / raw)
Le Sun, 10 Jun 2012 10:55:47 +0200, Blady <p.p11@orange.fr> a écrit:
> Hello, here is Turbo Pascal 7 library port in Ada.
>
> The very first aim was to provide a help for porting Turbo Pascal
> programs in Ada.
> Thus it can be combined with P2Ada translator.
> http://sourceforge.net/projects/p2ada/
If someone wish to play with it and have a funny time porting it, seems
Turbo Vision sources were made publicly available by Borland:
http://tvision.sourceforge.net/
--
“Syntactic sugar causes cancer of the semi-colons.” [1]
“Structured Programming supports the law of the excluded muddle.” [1]
[1]: Epigrams on Programming — Alan J. — P. Yale University
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: [ANN] TP7 emulation V2.6 with GTK-Ada
2012-06-10 12:36 ` Yannick Duchêne (Hibou57)
@ 2012-06-11 17:45 ` rugxulo
2012-06-11 23:18 ` Shark8
0 siblings, 1 reply; 4+ messages in thread
From: rugxulo @ 2012-06-11 17:45 UTC (permalink / raw)
Hi,
On Sunday, June 10, 2012 7:36:05 AM UTC-5, Hibou57 (Yannick Duchêne) wrote:
> Le Sun, 10 Jun 2012 10:55:47 +0200, Blady
> a écrit:
>
> > Hello, here is Turbo Pascal 7 library port in Ada.
> >
> > The very first aim was to provide a help for porting Turbo Pascal
> > programs in Ada.
Sounds promising.
> > Thus it can be combined with P2Ada translator.
> > http://sourceforge.net/projects/p2ada/
>
> If someone wish to play with it and have a funny time porting it, seems
> Turbo Vision sources were made publicly available by Borland:
> http://tvision.sourceforge.net/
Don't ask me why, but I think that's only the C++ version (e.g. used by RHIDE and SETEDIT). For a Pascal version, you'd have to try FPC's FreeVision (clone, e.g. used by their FP IDE).
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2012-06-14 16:26 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2012-06-10 8:55 [ANN] TP7 emulation V2.6 with GTK-Ada Blady
2012-06-10 12:36 ` Yannick Duchêne (Hibou57)
2012-06-11 17:45 ` rugxulo
2012-06-11 23:18 ` Shark8
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox