Ada

Packages et liste générique

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Packages et liste générique

tris

salut tout le monde, j'ai (de nouveau) un pti probleme avec une approche différente d'un projet sur lequel vous m'aviez déja bien éclairé...

voila le topo :

J'ai un package listegen qui regroupe les fonctions sur les listes, et qui commence avec les parametres de généricité suivants:

Code :

generic
type TElement is private;
with procedure écrire (x : in TElement);
with procedure lire (x : out TElement);
neutre : telement;
with function egal (x,y : in TElement) return boolean;
package PlistGen is
..........

et 2 autres packages : Pmot et Pphrase

Code :

with plistgen;
with text_io; use text_io;
package pmot is
type tmot is private;
procedure saisie_mot (mot: out tmot);
procedure affiche_mot (mot: in tmot);
function mots_egaux (mot1, mot2 : tmot) return boolean;
private
package PListeCar is new Plistgen (character, put, get, ' ',"=" );
use plistecar;
type tmot is new Plistecar.tptrcellule;
end;

Code :

with plistgen;
with pmot; use Pmot;
with text_io; use text_io;
package Pphrase is
type tphrase is private;
procedure saisie_phrase (phrase: out tphrase);
procedure affiche_phrase (phrase: in tphrase);
private
package PListeMot is new Plistgen (tmot, affiche_mot, saisie_mot, <<<<<MOT NUL!!!>>>>> ,mots_egaux);
use plisteMot;
type tphrase is new PlisteMot.tptrcellule;
end;

mon problème : déclarer une variable de type Tmot qui ne contiendrait qu'un point '.' pour coller au parametre de généricité "Neutre"

Publicité

Profil supprimé

Bonjour tris,

je suis pas très fort en info mais :

Ne pourais-tu pas declarer

mot_neutre : tmot; dans ton paquetage "pmot"
initialiser mot_neutre à '.'
faire un preelaborate

mais je parle de queleque chose que je connais pas en fait.... faut que je test

Profil supprimé

Non, on peut pas, et une fonction qui retourne mot_neutre ?,
t'aurais pas le reste du code de plistgen ?

tris

j'ai essayé les 2 mais on ne peut pas déclarer mot_neutre : tmot; dans pmot ou alors je l'ai mis aux mauvais endroits...
J'ai essayé une procédure mais la pareil il faudrai exécuter cette procédure qui rendrait mot_neutre dans pmot, et je ne vois pas comment faire ....

Je pense qu'on peut le déclarer directement mais qu'il faut le mettre au bon endroit ... pour le package pmot, le probleme ne se posait pas car le caractère neutre es l'espace qui s'inscrit directement dans l'intanciation ' '

Pour le reste de plistgen il est dans ce post:http://forum.hardware.fr/hardwaref [...] 6642-1.htm
(c'est le même avec en plus les parametres de généricité précisés en haut)

Message édité par tris le 29-04-2006 à 00:35:58

Profil supprimé

une fonction mot_neutre return tmot dans pmot + elaborate_body(pmot) dans pmot.ads, ça c'est possible !

Profil supprimé

du code

Code :

package body Pmot is
   Neutre : Tmot
   function Mot_Neutre return TMot is
   begin
      return Neutre;
   end;
 
begin
   Init_Liste(Neutre);
   Insere_Apres(Neutre,'.');
end Pmot;

tris

qu'est ce que tu entends par "elaborate_body(pmot)" ?

et pourquoi la fonction mot_neutre est en 2 fois ? je veux dire

begin
return
end

puis de nouveau
begin
les instructions
end

Profil supprimé

Sorry,

Code :

package body Pmot is
   Neutre : Tmot
   function Mot_Neutre return TMot is
   begin
      return Neutre;
   end mot_neutre;
 
begin  -- début de la partie executive du corp de paquetage Pmot;
   Init_Liste(Neutre);                --  C'est deux instructions son executer lors de l'elaboration de Pmot
   Insere_Apres(Neutre,'.');     --  
end Pmot; -- fin de la partie executive du corp du paquetage Pmot;

pragma elaborate_body -- incapable de te traduire pragma mais

Citation :

elaborate_body [(nom_unité_de_bibliothèque)];

Il s'agit d'un pragma d'unité de bibliothèque. Spécifie que le corps de l'unité doit ètre
élaboré immédiatement aprés sa declaration

Le corps de Pmot sera elaboré avant l'alaboration de la specification de Pphrase.
De cette maniere, dans mon exemple, mot_neutre retournera neutre initialisé et contenant 1 element => '.'
je crois.

Citation :

Il est quelquefois nécessaire de fournir une information supplémentaire au compilateur. Cette information ne fait pas partie du programme en tant que tel ; C'est plutôt une indication utile. On peut réaliser cela grâce a une construction appelée pragma.

tris

oula trop compliqué pour moi ça ^^

j'ai essayé ça :

dans pmot.adb

Code :

function mot_neutre return Tmot is
neutre:tmot;
begin
init_liste(neutre);
insere_apres(neutre,'.');
return Neutre;
end;

je l'ai déclarée dans pmot.ads

et dans pphrase.ads

Code :

private
package PListeMot is new Plistgen (tmot, affiche_mot, saisie_mot,mot_neutre, mots_egaux);

ça compile ... on verra si ça marche

sinon je savais pas qu'on pouvait créer des fonctions sans parametres en entrée

Profil supprimé

Marchera pas, neutre n'est visible que pour mot_neutre, a la fin de mot_neutre neutre n'existera plus, sorry.

je crois que t'as pas trop de choix, :heink:

Publicité

Profil supprimé

Citation :

oula trop compliqué pour moi ça ^^

[:bubblelover] [:aless] [:kernel-panic] [:aldiallo] :hello: :lol: :jap: I :love: Ada

tris

c'est la fonction que j'apelle pas la variable

Profil supprimé

Sorry,

Citation :

Marchera pas, neutre n'est visible que pour mot_neutre, a la fin de mot_neutre neutre n'existera plus, sorry.

Si ça marche je t'envoie une bouteille de champagne ! 2 même !
Si ça marche pas mon code est gratis !

tris

ça marche ^^ mais c autre chose qui marhce pas maintenant...
dans le plistgen la fct insere apres ... mais le programme se lance sans pb !

tris

bon ça marche presque, la saisie ne s'arrete pas au point. je pense que le mot neutre constitué n'est pas reconnu.

tris

Quelqu'un a une idée ?

Profil supprimé

Bonjour Tris, t'a essayé ma soluce ? :jap:
j'espere que oui :sol:

tris

Salut !
si tu parles du elaborate....... non sinon le code c'est celui la que j'ai depuis le début.
je n'ai pas appris ce genre de trucs, je n'ai donc pas à l'utiliser.

Profil supprimé

Alors, je vais essayer de me casser la tête pour trouver autre chose, merci de ta reponse !
A+

tris

je précise la saisie de mots fonctionne bien, et s'arrete bien à ' ' (l'espace) , la fonction de saisie générique n'est donc pas en cause

Profil supprimé

C'est bien la porté du mot neutre le problème ? n'est-ce pas ? As-tu essayé la même chose sans le preelaborate ?

Message édité par Profil supprimé le 04-05-2006 à 20:46:11

tris

c'est le repère qui termine une phrase qui doit poser probleme, car la saisie d'une phrase ne s'arrete pas.

Profil supprimé

Un '.'
Est-ce que tu peut poster les corps de paquetage et ton main courant, je voudrais tester le programme dans son ensemble

Sans le preelaborate, j'ai peur que ma solution soit incomplete, sait-on jamais !

A par ça, je trouve pas, à moins de faire tout à fait differement !

Peut-etre en creant un autre paquetage Mot_Neutre mais je voudrais les corps de paquetage pour compiler l'ensemble !

tris

je vais t'envoyer le projet entier par mail ce sera plus simple ^^ ya tellement de fichiers

Profil supprimé

:??: Pas simple, le probleme,
La solution l'est peut-être d'avantage !

up !

Edit : Petit erreur d'analise en vue !

Edit : Quelle sont tes contrainte de developpement ?

Message édité par Profil supprimé le 05-05-2006 à 18:05:54

tris

quelle erreur d'analyse ?
les fonctions sont imposées, les parametres de généricité de plisgen aussi. faut juste trouver un moyen d'exprimer un mot - point...
enfin exécute le tu verras où ça coince.
La structure en paquetages est imposée ainsi que les fonctons qu'ils doivent contenir. J'ai presque juste fait les corps des fonctions et rempli les parametres génériques.

Profil supprimé

Moi je tourne en rond [:aganemnon] , je trouve pas [:dawa_neowen]

Profil supprimé

T'es sure qu'il n'y a qu'un seul paquetage de liste generique,

Il faudrait un paquetage de liste de liste

ou alors il faut passer le 'Mot neutre' a P_phrase et implementer Phrase, et non pas faire un simple appel a plistgen

Bref, je trouve pas, je fait le truc à ma sauce ! :sol:

Profil supprimé

Pour les mot le paquetage ton paquetage plistgen, tel que je le connais, pas de problème !

Pour les phrase, tu fais des truc comme, comparer des pointeurs, afficher des pointeurs, saisir des pointeurs est-ce que tu saisis l'embrouille ?

Message édité par Profil supprimé le 06-05-2006 à 18:42:10

Profil supprimé

Fait peter le sujet si tu veux, parce que je m'en sort pas !

Publicité

FORUM HardWare.fr

Programmation

Ada

Packages et liste générique

Sujets relatifs
[XSL-T] Affichage d'une liste XML sous forme de tableau HTML	Tester la connectivité d'une liste de machines
access - zone de liste à sélection multiple	liste deroulante qui affiche le nom et enregistre l'id
Récupérer valeur combobox (liste déroulante)	Renvoyer la valeur d'une cellule d'une liste de fichiers?? merci d'ava
récupérer toutes les valeurs d'une liste	Problème de suppression d'un element d'une liste
remplir une liste avec une autre	msgbox sous access avec liste déroulante
Plus de sujets relatifs à : Packages et liste générique

Page générée en 0.079 secondes