Ada

[ADA95] grrr c koi cette erreur ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [ADA95] grrr c koi cette erreur ?

swich

snps

voila mon code :

Code :

function image(liste : LISTES) return string is
i : INTEGER := 2; -- la parenthèse+1
s : string(1..longueur_image(liste));
begin
s(1):='(';
if liste.premier = NULL then
return "()";
else
while not en_fin(liste) loop
while liste.precourant.s.v /= null loop
s(i..(i+liste.precourant.s.v.all'length)) := liste.precourant.s.v.all;
i:=i+(liste.precourant.s.v.all'length);
end loop;
s(i..i+2):=", ";
i := i+2; -- la virgule et l'espace
avancer(liste); -- ERREUR ICI
end loop;
s(i):=')';
return s;
end if;
end;

et az la compilation g l'erreur :
actual for list must be a variable

Message édité par swich le 03-09-2002 à 00:04:41

Publicité

antp

Super Administrateur
Champion des excuses bidons

C'est quoi comme langage ça :??:
Le truc d'Oracle ? (PLSQL?)

Message édité par antp le 02-09-2002 à 22:55:01

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

chicha

C'est de l'ADA 95, non ?

chicha

es-tu sûr que liste n'a pas été déclarée comme constante ?

Message édité par chicha le 02-09-2002 à 23:19:20

swich

snps

ouaip c de l'ada 95

swich

snps

et liste n'a pas ete declare comme une constante
vla mon code :

Code :

with unchecked_deallocation;
package body STRLISTE is
type PTRS is access STRING;
type ELEMS is record
v : PTRS;
s : PELEMS;
end record;
procedure liberer is new unchecked_deallocation(STRING, PTRS);
procedure liberer is new unchecked_deallocation(ELEMS, PELEMS);
function taille(LISTE :LISTES) return NATURAL is
begin
return liste.n;
end;
function valeur(LISTE : LISTES) return STRING is
begin
return LISTE.precourant.s.v.all;
exception when CONSTRAINT_ERROR =>
if en_fin(LISTE) then raise ERREUR; end if;
return LISTE.premier.v.all;
end;
function en_fin(LISTE : LISTES) return BOOLEAN is
begin
return LISTE.premier = null or else (LISTE.precourant /= null and then LISTE.precourant.s = null);
end;
procedure aller_en_debut(liste : in out LISTES) is
begin
if en_fin(liste) then raise ERREUR; end if;
liste.precourant := liste.precourant.s;
exception when CONSTRAINT_ERROR => liste.precourant := liste.premier;
end;
procedure avancer (liste : in out LISTES) is
begin
if en_fin(LISTE) then raise ERREUR; end if;
LISTE.precourant := LISTE.precourant.s;
exception when constraint_error =>
LISTE.precourant := LISTE.premier;
end;
procedure inserer(liste : in out LISTES; S : in STRING) is
c : PTRS := new STRING'(S);
begin
if liste.precourant = null then
liste.premier := new ELEMS'(c, liste.premier);
liste.precourant := liste.premier;
else
liste.precourant.s := new ELEMS'(c, liste.precourant.s);
liste.precourant := liste.precourant.s;
end if;
liste.n := liste.n + 1;
exception when STORAGE_ERROR => liberer(c); raise;
end;
procedure retirer(liste : in out LISTES) is
p : PELEMS;
begin
if en_fin(liste) then raise ERREUR; end if;
if liste.precourant = null then
p := liste.premier;
liste.precourant := liste.premier.s;
else p:= liste.precourant.s;
liste.precourant.s := liste.precourant.s.s;
end if;
liste.n := liste.n - 1;
liberer(p.v);
liberer(p);
end;
function longueur_image(liste : in LISTES) return INTEGER is
i : INTEGER := 2; -- les deux parenthèses
begin
if liste.premier /= NULL then
while not en_fin(liste) loop
i := i + (liste.precourant.s.v.all'length);
i := i+2; -- la virgule et l'espace
avancer(liste);
end loop;
end if;
return i;
end;
function image(liste : LISTES) return string is
i : INTEGER := 2; -- la parenthèse+1
s : string(1..longueur_image(liste));
begin
s(1):='(';
if liste.premier = NULL then
return "()";
else
while not en_fin(liste) loop
while liste.precourant.s.v /= null loop
s(i..(i+liste.precourant.s.v.all'length)) := liste.precourant.s.v.all;
i:=i+(liste.precourant.s.v.all'length);
end loop;
s(i..i+2):=", ";
i := i+2; -- la virgule et l'espace
avancer(liste);
end loop;
s(i):=')';
return s;
end if;
end;
procedure extraire (X : in PELEMS;d: out PELEMS) is
begin
d:=X;
while d.s /= NULL loop
while d.v.all>d.s.v.all loop
d:=d.s;
end loop;
end loop;
end;
end STRLISTE;

chicha

Je t'avoue que je ne suis plus vraiment dans l'Ada...
Mais à mon avis, l'idée pour commencer à debuger dans ta fonction image, est de voir si tu peux modifier liste avec une commande à la con.
Si c'est ça, c'est p-e une histoire de in/out qui couille sur liste :??:

swich

snps

hehe bien joue man
g remplace par ca :

function image(list : LISTES) return string is
liste : LISTES := list;

et ca compile nickel

chicha

ok c cool, c ce que je pensais...
mais je ne savais plus si fallait un .all ou pas ??

antp

Super Administrateur
Champion des excuses bidons

swich a écrit a écrit :

ouaip c de l'ada 95

ça aurait été bien de le mettre dans la section ADA et de l'indiquer dans le premier post
Bon vais le faire moi-même...

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Publicité

swich

snps

ben non pq des que je met qqchose ds la section ada, y'a jamais de reponse, dc la dsl mais ct important

antp

Super Administrateur
Champion des excuses bidons

si tu le mets dans la section ADA il apparaît dans la sous-section ADA et dans la section principale.
Si tu ne le mets dans aucune sous-section il n'apparaît que dans la section principale... donc tu as tout intérêt à utiliser ces sous-sections pour si jamais y a un gars qui vient juste voir les topics ADA.
Et si personne y répond c'est peut-être qu'il y a très peu de gens ici qui pourraient le faire

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

benou

y a aussi le fait que tu réponds pas aux questions dans tes post : tu écris ton problème et tu te casses !

chicha

swich a écrit a écrit :

ben non pq des que je met qqchose ds la section ada, y'a jamais de reponse, dc la dsl mais ct important

J'ai juste une question qui me trote... Tu peux me rappeler le sens du .all pour un type liste ? :??: Merci :hello:

BifaceMcLeOD

The HighGlandeur

swich a écrit a écrit :

hehe bien joue man

g remplace par ca :

function image(list : LISTES) return string is
liste : LISTES := list;

et ca compile nickel

C'est pas très malin de faire ça...
Globalement, dans une fonction ("image" ) qui promet de ne pas modifier "list", tu essaies d'appeler une procédure ("avancer" ) qui va la modifier.
Résultat, tu es obligé de faire une copie locale de ta liste ! :ouch:
Dans le genre efficace, on fait mieux... :sarcastic:
Ou alors, dans le cas présent (si l'opérateur "=" n'est pas redéfini sur ton type LISTES), c'est pire : cette copie locale introduit probablement un bug, car a priori, si "avancer" attend un paramètre en in/out, c'est qu'il modifie cet objet...

Tu ferais mieux de réléchir un peu plus attentivement à qui doit modifier quoi, et écrire (enfin, modifier) ton code en conséquence... :heink:

Message édité par BifaceMcLeOD le 03-09-2002 à 13:27:05

swich

snps

ouaip ben en fait le prob c tout bete, c qu'il peut pas modifier liste pq il est en mode in, donc y fo faire une copie

BifaceMcLeOD

The HighGlandeur

chicha a écrit a écrit :

J'ai juste une question qui me trote... Tu peux me rappeler le sens du .all pour un type liste ? :??:

Merci

Pas pour un type liste, pour un type accès (bref, un pointeur). Cela permet de manipuler l'agrégat pointé dans son ensemble (la valeur de type record, si tu préfères).

En toute logique, pour accéder à n'importe quel des champs d'un agrégat pointé, il faudrait aussi utiliser " .all ". Exemple, "elem" est de type "access ELEMS" :

Code :

elem.all.v

On "ouvre le pointeur pour accéder à l'agrégat pointé, avant d' "ouvrir" l'agrégat pour accéder à l'un de ses champs. Mais dans ce cas précis, Ada accepte que le " .all " soit implicite, et l'on peut écrire :

Code :

elem.v

BifaceMcLeOD

The HighGlandeur

swich a écrit a écrit :

ouaip ben en fait le prob c tout bete, c qu'il peut pas modifier liste pq il est en mode in, donc y fo faire une copie

Non, le problème, c'est que tu utilises une procédure qui modifie "liste" dans une fonction qui ne la modifie pas. Alors soit "image" doit bien appeler "avancer", mais dans ce cas, le prototype d'"avancer" n'est pas correct, ou alors c'est "avancer" qui est correct, et dans ce cas c'est "image" qui ne doit pas appeler "avancer". Mais dupliquer les objets en mémoire parce que le compilateur interdit l'accès direct aux variables est une très mauvaise manière de résoudre les problèmes. Imagine que ta liste nécessite plusieurs dizaines ou centaines de mégaoctets en mémoire. Je ne te raconte pas l'état de ta machine au simple appel d'"image" (facile : sur les rotules... )

swich

snps

ouai suis d'accord, vu comme ca..

BifaceMcLeOD

The HighGlandeur

Ca s'appelle la programmation par interfaces.
Ca paraît un peu rigide comme raisonnement, mais quand on bosse à plusieurs, c'est la manière la plus efficace de bosser que je connaisse (on peut atteindre des rendements de folie en termes de production de code sans bug)... à condition évidemment de respecter le contrat défini par les interfaces qu'on s'était donné au préalable.

FORUM HardWare.fr

Programmation

Ada

[ADA95] grrr c koi cette erreur ?

Sujets relatifs
[ php ] que veut dire cette erreur ??	C++ Builder 6: C quoi cette erreur à la con?
[PHP] Erreur de syntaxe a la con	Java2 SDK 1.4.0 -> Erreur à chaque applet
[HTML - JS] Pkoi j'ai une erreur ??	Quelqu'un pourrais me dire ou est mon erreur ????
Erreur SQL PHP, affreux !! C koi ???	erreur de compil dans jbuilder7
oracle 8 sur debian, erreur : ORA-03113	Méga pb avec VB!!! Erreur 429 incompréhensible!
Plus de sujets relatifs à : [ADA95] grrr c koi cette erreur ?

Page générée en 0.087 secondes