From: nobody@REPLAY.COM (Anonymous)
Subject: Re: writing with sequential_Io
Date: 1997/12/04
Date: 1997-12-04T00:00:00+00:00 [thread overview]
Message-ID: <199712041359.OAA20440@basement.replay.com> (raw)
In-Reply-To: 3485F9BA.57EC@er.uqam.ca
[-- 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/
prev parent reply other threads:[~1997-12-04 0:00 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
1997-12-04 0:00 writing with sequential_Io Eric
1997-12-04 0:00 ` Anonymous [this message]
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox