Bonjour! je suis ravie d'avoir trouvé ce forum et cette partie consacrée au langage ADA, car on trouve rarement des gens qui s'y connaissent au contraire des autres langages...
 
Au fait... j'ai un projet ADA à preparer et j'ai besoin du maximum de conseils car je suis debutante... car j'ai envie de bien le reussir... pouvez vous m'aider à le generer?
 
il s'agit de faire un paquetage generique d'une liste doublement chainee, c'est à dire qui un curseur qui se balade dans la liste, ceci est permit car la liste contient un prededent un element et un suivant... voilà la difference avec une liste simple...
 
je vous remercie bcp bcp d'avance!
 
allez! on commence si vous voulez bien!    
 

-- partie specification du programme
GENERIC
   type T is private;
   with procedure aff_t (t:in T);
 
package P_listedb_gen is
 
   type liste_double is private;
   LISTE_DB_VIDE : exception;
 
function creer_ldb_vide return liste_double;
-- creer une liste vide
 
procedure afficher_ldb_curfin (cur: IN liste_double);
--afficher une liste du curseur à la fin
 
 
procedure afficher_ldb_debfin (cur: IN liste_double);
--afficher une liste du debut à la fin
 
function copier_ldb_debfin (cur: IN liste_double) return liste_double;
--copier une liste
 
--j'ajouterai d'autres une fois celle ci finies et une fois assurées que tout est bon
 
PRIVATE
   type noeud;
   type liste_double is access noeud;
   type noeud is record
     val: T;
     precedent: liste_double
     suivant: liste_double;
   end record;
 
end P_listedb_gen;

-- partie implementation du programme 
with text_io; use text_io;
package body P_listedb_gen is
PACKAGE entier is new integer_io(integer);
USE entier;
 
--
--
--

Bonjour diwanet,
 
pour que ton code soit un peu plus lisible, tu peux mettre les balises ["code=ada"] [/"code"] sans les guillemets
 
Si non, quel est ton problème, maitrise tu les listes simplements chainées
 
a par ça, tu trouvera ici quelques exemple d'implementations, ensuite si tu a des difficultés pour les listes doublement chainées nous y reviendrons
 
Si non, moi je maitrise pas super, je me debrouille, donc pour faire dans les regles de l'art que je ne connait pas,  je ne peut rien. Mais bon sait-on jamais, si tu a des questions précises ou un code qui contien des erreurs, je me ferais un plaisir d'y jeter un coup d'oeuil.  

voilà c'est bon j'ai changé la visualisation    merci!
 
disons que je maitrise assez les listes simples, c'est sur que ça va ressembler enormement, mais là je ne sais pas si je dois mettre le curseur en enregistrement aussi, ou bien laisser le typage tel que je l'ai ecris?... au fait là j suis encore bloquée sur ce point pour l'instant... merci en tout cas

 
qu'entends-tu par "mettre en enregistrement" ?
 
(demain je revise, je jete un premier code pour me souvenir et je t'en dis plus sur ta structure)

Bonjour diwanet,
Sachant qu'Ada garanti que les nouveaux pointeurs sont initialisés à null, et que ta procedure creer_ldb_vide consiste à retourner un pointeur null, celle-ci est a priori sans intéret. Donc je m'interroge    
 
Afficher un liste, quel soit double ou simple ne change rien.
 
Quant à la copie, elle consiste comme pour l'affichage à parcourir la liste du debut à la fin, en copiant l'element "val" de type T du type noeud.
 
En fonction de ce qui reste à faire, je vairai si ta structure reste adequate.
 
 

j'ai peut-etre ecris de grosse betise, ... je prend la journé pour y reflechir, excuser moi.

Non, c'est ça, corrigez moi si je persite dans l'erreur.