Sujet : Re: début avec fichiers textes... OPEN cause "file already open" mais lsof ne montre rien
De : fantome.forums.tDeContes (at) *nospam* free.fr.invalid (Thomas)
Groupes : fr.comp.lang.adaDate : 19. Jan 2022, 04:35:32
Autres entêtes
Organisation : Guest of ProXad - France
Message-ID : <fantome.forums.tDeContes-6DF117.03352919012022@news.free.fr>
References : 1 2 3 4
User-Agent : MT-NewsWatcher/3.5.3b3 (Intel Mac OS X)
In article <
rvjrsf$b7s$1@dont-email.me>, "J-P. Rosen" <
rosen@adalog.fr>
wrote:
Le 05/02/2021 à 16:40, 0012...@gmail.com a écrit :
procedure compression is
type Tableau is array(Positive) of Natural;
Ceci déclare un tableau de 2**31 éléments. Heureusement, tu n'utilises
pas ce type...
begin
Open(FICHIER, In_File, "LECTURE");
exception
when others => Put_Line("ici ?"); CLOSE(FICHIER);
---------------------------
end;
create(FICHIER, Out_File,"ECRITURE");
Ca devrait être create (FICHIER_ECRIRE, ....
Effectivement, FICHIER est déjà ouvert.
C'est le genre d'erreur qui est tellement grosse qu'on ne la voit pas ;-)
:-D
je dirais que c'est une bonne raison pour :
- simplifier son programme au max avant de le montrer aux autres, afin
de ne pas encombrer les autres avec du code inutile,
- vérifier si le programme simplifié reproduit effectivement l'erreur.
si ça n'est pas le cas, ça veut dire qu'elle n'est pas localisée où on
croyait.
et en poursuivant les investigations pour la localiser correctement,
c'est souvent suffisant pour la comprendre complètement et la corriger.
c'est un peu comme se relire et reformuler autant qu'il faut pour être
certain d'être bien compris par les autres :
quelques fois, c'est suffisant pour nous permettre de trouver nous même
la solution au pb formulé.
-- RAPID maintainerhttp://savannah.nongnu.org/projects/rapid/