writing with sequential_Io

writing with sequential_Io

[Eric]

[-- 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;

Re: writing with sequential_Io

[Anonymous]

[-- 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/