* writing with sequential_Io
@ 1997-12-04 0:00 Eric
1997-12-04 0:00 ` Anonymous
0 siblings, 1 reply; 2+ messages in thread
From: Eric @ 1997-12-04 0:00 UTC (permalink / raw)
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1300 bytes --]
I'd like to know if someone can find the errors in this file:
--------------------------------------------------------------
procedure Enrigistrer_Fichier_Produits is
Fichier_Entrep : ES_Fichiers.File_Type;
Nom_Du_Fichier : String(1..Long_Max_Nom_Fich);
--Variables locales
Produit : Type_Produit;
i : Natural:=0;
j : Natural:=1;
k : Natural:=1;
l : Natural:=0;
begin
Put(Item=> "Quel va etre le nom de sauvegruard du fichier ? ");
get(Nom_Du_Fichier);
Es_fichiers.create(File => Fichier_Entrep,
Mode => Es_fichiers.Out_File,
Name => Nom_Du_Fichier );
--affichage des donnes � l'ecran
Put(Item =>"Numero: nature: model: qnt. Inventaire: qnt. Vendu:
Prix: ");
while not end_of_file loop
for i IN j..j+9 loop
Es_Naturel.Put(Item=> t(i).numero);
Es_Enumeration.Put(Item=> t(i).nature);
Put(Item=> t(i).modele);
Es_Naturel.Put(Item=> t(i).Qte_Inventaire);
Es_Naturel.Put(Item=> t(i).Qte_Vendue);
es_Reels.Put(Item=> t(i).Prix_Unitaire);
Es_Fichiers.Write(File => Fichier_Entrep,
Item => T(i));
end loop;--for
j:=j+10;
end loop;--while
end Enrigistrer_Fichier_Produits;
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: writing with sequential_Io
1997-12-04 0:00 writing with sequential_Io Eric
@ 1997-12-04 0:00 ` Anonymous
0 siblings, 0 replies; 2+ messages in thread
From: Anonymous @ 1997-12-04 0:00 UTC (permalink / raw)
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 2557 bytes --]
On Thu, 04 Dec 1997 00:32:07 GMT, Eric <jj091849@er.uqam.ca> wrote:
> I'd like to know if someone can find the errors in this file:
> --------------------------------------------------------------
> procedure Enrigistrer_Fichier_Produits is
>
> Fichier_Entrep : ES_Fichiers.File_Type;
> Nom_Du_Fichier : String(1..Long_Max_Nom_Fich);
>
> --Variables locales
> Produit : Type_Produit;
>
> i : Natural:=0;
> j : Natural:=1;
> k : Natural:=1;
> l : Natural:=0;
>
>
> begin
> Put(Item=> "Quel va etre le nom de sauvegruard du fichier ? ");
> get(Nom_Du_Fichier);
>
> Es_fichiers.create(File => Fichier_Entrep,
> Mode => Es_fichiers.Out_File,
> Name => Nom_Du_Fichier );
> --affichage des donnes � l'ecran
> Put(Item =>"Numero: nature: model: qnt. Inventaire: qnt. Vendu:
> Prix: ");
> while not end_of_file loop
> for i IN j..j+9 loop
> Es_Naturel.Put(Item=> t(i).numero);
> Es_Enumeration.Put(Item=> t(i).nature);
> Put(Item=> t(i).modele);
> Es_Naturel.Put(Item=> t(i).Qte_Inventaire);
> Es_Naturel.Put(Item=> t(i).Qte_Vendue);
> es_Reels.Put(Item=> t(i).Prix_Unitaire);
>
>
> Es_Fichiers.Write(File => Fichier_Entrep,
> Item => T(i));
>
>
> end loop;--for
> j:=j+10;
> end loop;--while
>
>
>
>
> end Enrigistrer_Fichier_Produits;
>
>
GNAT 3.10p1 produces:
enrigistrer_fichier_produits.adb:3:18: "ES_Fichiers" is undefined (more
references follow)
enrigistrer_fichier_produits.adb:4:28: "Long_Max_Nom_Fich" is undefined
enrigistrer_fichier_produits.adb:7:22: "Type_Produit" is undefined
enrigistrer_fichier_produits.adb:16:01: "Put" is undefined
enrigistrer_fichier_produits.adb:16:01: "Put" is undefined (more
references follow)
enrigistrer_fichier_produits.adb:17:01: "get" is undefined
enrigistrer_fichier_produits.adb:24:13: "end_of_file" is undefined
enrigistrer_fichier_produits.adb:26:03: "Es_Naturel" is undefined (more
references follow)
enrigistrer_fichier_produits.adb:27:03: "Es_Enumeration" is undefined
enrigistrer_fichier_produits.adb:31:03: "es_Reels" is undefined
Without this information, the compiler cannot tell what you are trying
to do. Neither can we.
Jeff Carter PGP:1024/440FBE21
My real e-mail address: ( carter @ innocon . com )
"I unclog my nose towards you."
Monty Python & the Holy Grail
Posted with Spam Hater - see
http://www.compulink.co.uk/~net-services/spam/
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~1997-12-04 0:00 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1997-12-04 0:00 writing with sequential_Io Eric
1997-12-04 0:00 ` Anonymous
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox