[ANN] TP7 emulation V2.6 with GTK-Ada

[ANN] TP7 emulation V2.6 with GTK-Ada

[Blady]

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

Re: [ANN] TP7 emulation V2.6 with GTK-Ada

[Yannick Duchêne (Hibou57)]

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

Re: [ANN] TP7 emulation V2.6 with GTK-Ada

[rugxulo]

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).

Re: [ANN] TP7 emulation V2.6 with GTK-Ada

[Shark8]

I think I have the TP7 version... somewhere.
If anyone's interested, that is.