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