DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦09203c29e⟧ TextFile

    Length: 1199 (0x4af)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

with Symbol;
with Nodes;
with Lexical;
package Reduct is
    type Reductnodelist is (Act, Des, Modi, Evo, None);
    type Reductnode (Areductnodetype : Reductnodelist);
    type Preductnode is access Reductnode;
    type Reductnode (Areductnodetype : Reductnodelist) is
        record
            Thetype : Reductnodelist := None;
            Thetime : Integer := 0;
            Next : Preductnode := null;
            case Areductnodetype is
                when Act =>
                    Act_Periph : Integer;
                    Act_Actor : Integer;
                when Des =>
                    Des_Periph : Integer;
                    Des_Actor : Integer;
                when Modi =>
                    Mod_Periph : Integer;
                    Mod_Actor : Integer;
                    Mod_Nbre : Integer;
                when Evo =>
                    Evo_Periph : Integer;
                    Evo_Actor : Integer;
                    Evo_Nbre1, Evo_Nbre2 : Integer;
                when None =>
                    null;
            end case;
        end record;

    function Reducttree return Preductnode;
    -- tests
    procedure Printtree (Atreenode : Nodes.Pnode);
end Reduct;