DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦a0766b379⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Tableur, seg_055faf

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧

E3 Source Code



with Tab_Orb;
with Byte_Defs;
with Bounded_String;
with Tab_Util;

package Tableur is

    task type Tache_Tableur is

        entry Init;
        entry Ajoute (Element : in Byte_Defs.Byte_String; Erreur : out Boolean);
        entry Efface (Index : in Positive; Erreur : out Boolean);
        entry Trouve (Index : out Positive;
                      Element : in Byte_Defs.Byte_String;
                      Numero : in Positive;
                      Erreur : out Boolean);
        entry Trouve_Index (Requete : in Positive;
                            Index : out Positive;
                            Erreur : out Boolean);
        entry Donne (Requete : in Positive;
                     Numero : in Positive;
                     Element : in out Bounded_String.Variable_String;
                     Erreur : out Boolean);
        entry Donne_String (Index : in Positive;
                            Num_Champ : in Positive;
                            Contenu_Champ : in out
                               Bounded_String.Variable_String);
        entry Donne_Integer (Index : in Positive;
                             Num_Champ : in Positive;
                             Contenu_Champ : in out Integer);
        entry Insere_String (Index : in Positive;
                             Num_Champ : in Positive;
                             Donnees : in Bounded_String.Variable_String);
        entry Insere_Integer (Index : in Positive;
                              Num_Champ : in Positive;
                              Donnees : in Integer);
        entry Taille_Max (Taille : out Positive);
        entry Teste_Plein (Erreur : out Boolean);
        entry Teste_Vide (Valeur : out Integer);
        entry Fait_Trame (Index : in Positive;
                          Trame : out Byte_Defs.Byte_String);
        entry Donne_Contrat (Index : in Positive;
                             Contrat : in out Bounded_String.Variable_String);
        entry Termine;
    end Tache_Tableur;

end Tableur;

E3 Meta Data

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1b rec1=00 rec2=01 rec3=040
        [0x01] rec0=12 rec1=00 rec2=03 rec3=00e
        [0x02] rec0=04 rec1=00 rec2=02 rec3=000
    tail 0x21761872a87c344e44023 0x42a00088462060003