Discussion :

[hAppywAy]

Bonjour. En sujet de projet de fin d'année, nous devons réaliser un SGBD avec le langage ADA. Jusque là vous me suivez. Néanmoins première foncion premier problème qui pour moi est insoluble.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
--p_bdd.ads
 
type t_base;
   type t_bdd is access t_base ;
 
   type t_base is record
            nom_base: string(1..80);
            table: t_table;
   end record ;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
-- p_bdd.adb
 
function creation_bdd return t_bdd is
      S: String(1..80):=(others=>' ' );
      L: integer;
      Base : t_bdd;
   begin
      Base := NULL;
      Put_line("Entrez le nom de la base de données");
      Get_line(S,L);
      Base.nom_base(1..L):=S(1..L);
      return Base;
  end creation_bdd;

Pas d'erreur lors de la compilation, cependant : raised CONSTRAINT_ERROR : p_bdd.adb:16 access check failed lors de l'éxécution. J'ai cherché un peu partout et je n'ai pas trouvé de solutions miracles. La ligne 16 étant " Base.nom_base(1..L):=S(1..L); ".

Merci d'avance pour votre aide ! N'hésitez pas à demander des informations complémentaires !

[Zerte]

Regarde bien ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
      Base := NULL;
      ...
      Base.nom_base(1..L):=S(1..L);

Rien de bizarre ?...

[hAppywAy]

Même lorsque je fais base.nom_base:=S(1..L) sa ne fonctionne pas :s

[Blackknight]

Même lorsque je fais base.nom_base:=S(1..L) sa ne fonctionne pas :s

Tu ne regardes pas au bon endroit. Comme Zerte, je te dirai, regardes bien ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Base := NULL;
...
Base.nom_base(1..L):=S(1..L);

Tu verras c'est nul comme petite erreur

[Invité]

Les accès sont initialisés à "null" par défaut avec Ada.
Par contre il doit bien falloir faire quelque chose avant d'alouer cet accès.

[Blackknight]

Les accès sont initialisés à "null" par défaut avec Ada.
Par contre il doit bien falloir faire quelque chose avant d'alouer cet accès.

Rhaaaa, tu donnes la solution alors que c'est pour un projet d'étudiant !!!! Il fallait le laisser chercher un peu.

Bon, en tout cas, même s'il est vrai que les pointeurs sont initialisés à NULL par défaut, là, c'est carrément mis explicitement.

Maintenant, je ne peux que conseiller à hAppywAy de lire la page Wikibook associée aux types accès.

[Sigurd9]

hAppywAy, le principe du pointeur n'est pas celui d'une simple variable et encore moins d'un type record. En fait ton pointeur est une variable contenant une adresse mémoire (et rien d'autre que ça). Autrement dit, ce n'est pas le contenu de ton pointeur qui est utile mais le contenu de l'emplacement mémoire vers lequel il pointe.

Par défaut, Ada initialise les pointeurs à Null donc la ligne ci-dessous, si elle constitue un bon réflexe, est inutile en Ada (mais pas en C par exemple) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Base := NULL ;

Ensuite quand tu écris :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Base.nom_base(1..L):=S(1..L);

Tu devrais plutôt écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Base.all.nom_base(1..L):=S(1..L);

Le langage Ada permet ce raccourci mais du coup tu sembles oublier que Base n'est pas un objet de type structuré (record) mais un pointeur valant NULL ! Pour accéder au contenu pointé, tu utilises Base.all, sauf que ton pointeur ne pointe sur rien ! Tu dois auparavant réserver un espace mémoire vers lequel pointera Base.

Pour créer ton objet pointé, il te suffira d'écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Base := new T_base ;

Ensuite tu pourras affecter une valeur à Base.all ! Mais seulement après.

[Blackknight]

Sigurd9, il faut pas donner toute la réponse, il est étudiant, c'est pour un projet de fin d'année et on a déjà donné toutes les billes

Pour ce qui est de la notion des pointeurs, je conseille toujours cette vidéo pour Ada ou pour d'autres langages, la page.