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.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
autolearn=ham autolearn_force=no version=3.4.4
X-Google-Thread: 103376,77ccfbee30373d7a,start
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.220.230 with SMTP id pz6mr4887798pbc.3.1339318898683;
Sun, 10 Jun 2012 02:01:38 -0700 (PDT)
Path:
l9ni36807pbj.0!nntp.google.com!news2.google.com!postnews.google.com!l32g2000yqb.googlegroups.com!not-for-mail
From: Blady
Newsgroups: comp.lang.ada
Subject: [ANN] TP7 emulation V2.6 with GTK-Ada
Followup-To: comp.lang.ada
Date: Sun, 10 Jun 2012 01:55:47 -0700 (PDT)
Organization: http://groups.google.com
Message-ID:
<2aeaa2d8-81ab-42bf-94f3-7410e3850a0a@l32g2000yqb.googlegroups.com>
NNTP-Posting-Host: 2.9.79.177
Mime-Version: 1.0
X-Trace: posting.google.com 1339318898 20972 127.0.0.1 (10 Jun 2012 09:01:38
GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Sun, 10 Jun 2012 09:01:38 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: l32g2000yqb.googlegroups.com; posting-host=2.9.79.177;
posting-account=94GLqQoAAABRDKJ5vWVBzCDWAEq47F5V
User-Agent: G2/1.0
X-HTTP-UserAgent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_6_8)
AppleWebKit/534.57.2 (KHTML,
like Gecko) Version/5.1.7 Safari/534.57.2,gzip(gfe)
Content-Type: text/plain; charset=ISO-8859-1
Date: 2012-06-10T01:55:47-07:00
List-Id:
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