|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 7168 (0x1c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Tableur, seg_05655c
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Tab_Orb;
with Byte_Defs;
with Bounded_String;
with Tab_Util;
with Text_Io;
package body Tableur is
Fin : Boolean := False;
task body Tache_Tableur is
Objet_Tab : Tab_Util.Tableau;
begin
Tab_Util.Init (Objet_Tab);
Text_Io.Put_Line ("Tache_Tableur: Debut");
loop
select
accept Init do
Tab_Util.Init (Objet_Tab);
end Init;
or
accept Ajoute (Element : in Byte_Defs.Byte_String;
Erreur : out Boolean) do
Tab_Util.Ajoute (Objet_Tab, Element, Erreur);
end Ajoute;
or
accept Efface (Index : in Positive; Erreur : out Boolean) do
Tab_Util.Efface (Objet_Tab, Index, Erreur);
end Efface;
or
accept Trouve (Index : out Positive;
Element : in Byte_Defs.Byte_String;
Numero : in Positive;
Erreur : out Boolean) do
Tab_Util.Trouve (Objet_Tab, Index, Element, Numero, Erreur);
end Trouve;
or
accept Trouve_Index (Requete : in Positive;
Index : out Positive;
Erreur : out Boolean) do
Tab_Util.Trouve_Index (Objet_Tab, Requete, Index, Erreur);
end Trouve_Index;
or
accept Donne (Requete : in Positive;
Numero : in Positive;
Element : in out Bounded_String.Variable_String;
Erreur : out Boolean) do
Tab_Util.Donne (Objet_Tab, Requete,
Numero, Element, Erreur);
end Donne;
or
accept Donne_String (Index : in Positive;
Num_Champ : in Positive;
Contenu_Champ : in out
Bounded_String.Variable_String) do
Contenu_Champ := Tab_Util.Donne_String
(Objet_Tab, Index, Num_Champ);
end Donne_String;
or
accept Donne_Integer (Index : in Positive;
Num_Champ : in Positive;
Contenu_Champ : in out Integer) do
Contenu_Champ := Tab_Util.Donne_Integer
(Objet_Tab, Index, Num_Champ);
end Donne_Integer;
or
accept Insere_String
(Index : in Positive;
Num_Champ : in Positive;
Donnees : in Bounded_String.Variable_String) do
Tab_Util.Insere_String
(Objet_Tab, Index, Num_Champ, Donnees);
end Insere_String;
or
accept Insere_Integer (Index : in Positive;
Num_Champ : in Positive;
Donnees : in Integer) do
Tab_Util.Insere_Integer
(Objet_Tab, Index, Num_Champ, Donnees);
end Insere_Integer;
or
accept Taille_Max (Taille : out Positive) do
Taille := Tab_Util.Taille_Max (Objet_Tab);
end Taille_Max;
or
accept Teste_Plein (Erreur : out Boolean) do
Erreur := Tab_Util.Teste_Plein (Objet_Tab);
end Teste_Plein;
or
accept Teste_Vide (Valeur : out Integer) do
Valeur := Tab_Util.Teste_Vide (Objet_Tab);
end Teste_Vide;
or
accept Fait_Trame (Index : in Positive;
Trame : out Byte_Defs.Byte_String) do
Trame := Tab_Util.Fait_Trame (Objet_Tab, Index);
end Fait_Trame;
or
accept Donne_Contrat
(Index : in Positive;
Contrat : in out Bounded_String.Variable_String) do
Tab_Util.Donne_Contrat (Objet_Tab, Index, Contrat);
end Donne_Contrat;
or
accept Termine do
Fin := True;
end Termine;
end select;
exit when Fin;
end loop;
end Tache_Tableur;
end Tableur;
nblk1=6
nid=0
hdr6=c
[0x00] rec0=21 rec1=00 rec2=01 rec3=040
[0x01] rec0=02 rec1=00 rec2=05 rec3=01c
[0x02] rec0=14 rec1=00 rec2=06 rec3=058
[0x03] rec0=13 rec1=00 rec2=02 rec3=020
[0x04] rec0=16 rec1=00 rec2=04 rec3=01c
[0x05] rec0=14 rec1=00 rec2=03 rec3=000
tail 0x21762453487c441ef616e 0x42a00088462060003