Je viens d'isntaller la dernière version du langage de programmation Ada : version 2006:
1) Téléchargement
- https://libre2.adacore.com/
- https://libre2.adacore.com/dynamic/download_page
2) Installation :
/usr/local/Ada_2006 bin/ lib/ libexec/ share/ /bin addr2line* gcov* gnatchop* gnatlink* gnatpp* gps_exe* cbrowser* gdb* gnatclean* gnatls* gnatprep* cpp* gnat* gnatelim* gnatmake* gnatstub* dbimp* gnatbind* gnatfind* gnatmem* gnatxref* gcc* gnatbl* gnathtml.pl* gnatmetric* gprmake* gccbug* gnatcheck* gnatkr* gnatname* gps* /lib gcc/ libffi-2.00-beta.so* libffi.la* libgcc_s.so* python2.3/ gps/ libffi.a libffi.so* libgcc_s.so.1 libexec gcc/ i686-pc-linux-gnu/ 3.4.6/ as* cc1* collect2* gnat1* install-tools/ ld* dans install-tools/ : fixincl* fixinc.sh* mkheaders* share/ doc/ examples/ gps/ themes/
3) Codage
-- ********************************************************
-- Nom Prog : ADA01_01.adb
-- Type : Application
-- Sujet : Modele de procedure
--
-- Auteur :
-- Version : 1.3
-- Creation : 17/09/2004
-- Dern. Modif : 04/10/2006
--
-- Compilateur : GNAT 3.12p - GNAT 2006
-- Remarques : Environnement Linux Debian 3.1 release 2
-- ********************************************************
-- Paquetage(s) utilise(s)
with Ada.Text_Io;
use Ada.Text_Io;
procedure Ada01_01 is
-- partie declarative
-- Variables, Procedure, Fonctions, ...
begin
-- Debut du corps de la procedure
-- Message de debut d'execution
Put_Line ("Debut - Execution ADA01_01");
New_Line;
Put_Line ("Modele de procedure GNAT 3.12p");
Put_Line (" Windows 9x / Me / NT / XP / Vista - Linux RedHat / Debian / Ubuntu / Mandriva / ...");
Put_Line ("------------------------------------------------------------------------------------");
New_Line;
-- Procedure proprement dite
-- Message de fin d'execution
New_Line;
Put_Line ("Fin - Execution ADA01_01");
end Ada01_01;
4) Compilation du code source
gnat GNAT GPL 2006 (20060522-34) Copyright 1996-2006, Free Software Foundation, Inc. List of available commands gnat bind gnatbind gnat chop gnatchop gnat clean gnatclean gnat compile gnatmake -f -u -c gnat check gnatcheck gnat elim gnatelim gnat find gnatfind gnat krunch gnatkr gnat link gnatlink gnat list gnatls gnat make gnatmake gnat metric gnatmetric gnat name gnatname gnat preprocess gnatprep gnat pretty gnatpp gnat setup gnat stub gnatstub gnat xref gnatxref Commands find, list, metric, pretty, stub and xref accept project file switches -vPx, -Pprj and -Xnam=val
gnatmake Ada01_01.adb fatal error, run-time library not installed correctly cannot locate file system.ads gnatmake: *** make failed.
D'avance merci.
