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

⟦eecd2b034⟧ Ada Source

    Length: 2048 (0x800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, function Evaluator_Generic, generic, seg_004697

Derivation

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

E3 Source Code



--| @SUMMARY Evaluates a parenthesized arithmetic expression out of a string
--|
generic -- function Evaluator

    type Number is private;
    Zero : in Number;

    with procedure Get_Literal
                      (From : String; Item : out Number; Last : out Integer);
    with function  "+" (X, Y : Number) return Number is <>;
    with function  "-" (X, Y : Number) return Number is <>;
    with function  "*" (X, Y : Number) return Number is <>;
    with function  "/" (X, Y : Number) return Number is <>;

function Evaluator_Generic (S : String) return Number;
--
--
-- Grammar for the expression:
--
--  <factor>     ::= ( <expression> )
--                   <literal>
--
--  <term>       ::= <factor>
--                   <term> * <factor>
--                   <term> / <factor>
--
--  <expression> :=  <term>
--                   <expression> + <term>
--                   <expression> - <term>

E3 Meta Data

    nblk1=1
    nid=0
    hdr6=2
        [0x00] rec0=1f rec1=00 rec2=01 rec3=000
    tail 0x215004722815c669adc1b 0x42a00088462061e03