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

⟦d966379c7⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Liste_De_Mots_Du_Langage, seg_048224, seg_048470, seg_0484b0, seg_0486bf

Derivation

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

with Lex;
with Interface_Structure;
with Nos_Chaines;

package body Liste_De_Mots_Du_Langage is

    La_Signification : Nos_Chaines.String_Text;

    procedure Creer_Le_Nouveau_Mot
                 (Ok_Semantique : in out Boolean;
                  Type_Du_Mot : Les_Mots_Du_Langage;
                  Le_Nom_Du_Mot : Nos_Chaines.String_Text;
                  La_Signification_Du_Mot : Nos_Chaines.String_Text) is
    begin
        case Type_Du_Mot is
            when Verbe =>
                Interface_Structure.Create_Verbe;
            when Preposition =>
                Interface_Structure.Create_Preposition;
        end case;
        Interface_Structure.Associate_Nom_Variable (Le_Nom_Du_Mot);
        Interface_Structure.Associate_Signification (La_Signification_Du_Mot);
        Interface_Structure.Make_Variable (Ok_Semantique);
    end Creer_Le_Nouveau_Mot;

    procedure Autre_Synonyme (Ok : in out Boolean;
                              Ok_Semantique : in out Boolean;
                              Type_Du_Mot : Les_Mots_Du_Langage;
                              La_Signification : Nos_Chaines.String_Text) is
        use Lex;
    begin
        if Lex.Next_Token = L_Coma then
            if Lex.Next_Token = L_Id then
                Creer_Le_Nouveau_Mot (Ok_Semantique, Type_Du_Mot,
                                      Lex.Get_Value, La_Signification);
                Autre_Synonyme (Ok, Ok_Semantique, Type_Du_Mot,
                                La_Signification);
            else
                Ok := False;
            end if;
        else
            Ok := True;
        end if;
    end Autre_Synonyme;

    procedure Synonyme_De_Mot_Du_Langage
                 (Ok : in out Boolean;
                  Ok_Semantique : in out Boolean;
                  Type_Du_Mot : Les_Mots_Du_Langage;
                  La_Signification : Nos_Chaines.String_Text) is
        use Lex;
    begin
        if Lex.Next_Token = L_Equal then
            if Lex.Next_Token = L_Id then  
                Creer_Le_Nouveau_Mot (Ok_Semantique, Type_Du_Mot,
                                      Lex.Get_Value, La_Signification);
                Autre_Synonyme (Ok, Ok_Semantique, Type_Du_Mot,
                                La_Signification);
            else
                Ok := False;
            end if;
        else
            Ok := True;
        end if;
    end Synonyme_De_Mot_Du_Langage;

    procedure Ligne_De_Mots_Du_Langage (Ok : in out Boolean;
                                        Ok_Semantique : in out Boolean;
                                        Type_Du_Mot : Les_Mots_Du_Langage) is
        use Lex;
    begin
        if Lex.Get_Token = L_Id then  
            Nos_Chaines.Copy (La_Signification, Lex.Get_Value);
            Creer_Le_Nouveau_Mot (Ok_Semantique, Type_Du_Mot,
                                  Lex.Get_Value, La_Signification);
            Synonyme_De_Mot_Du_Langage
               (Ok, Ok_Semantique, Type_Du_Mot, La_Signification);
        else
            Ok := False;
        end if;
    end Ligne_De_Mots_Du_Langage;


    procedure Parse (Ok : in out Boolean;
                     Ok_Semantique : in out Boolean;
                     Type_Du_Mot : Les_Mots_Du_Langage) is
    begin
        Ligne_De_Mots_Du_Langage (Ok, Ok_Semantique, Type_Du_Mot);
        if Ok then  
            Parse (Ok, Ok_Semantique, Type_Du_Mot);
        else
            Ok := True;
        end if;
    end Parse;

end Liste_De_Mots_Du_Langage;

    nblk1=6
    nid=2
    hdr6=a
        [0x00] rec0=1c rec1=00 rec2=01 rec3=04e
        [0x01] rec0=00 rec1=00 rec2=05 rec3=024
        [0x02] rec0=1a rec1=00 rec2=06 rec3=04a
        [0x03] rec0=18 rec1=00 rec2=04 rec3=004
        [0x04] rec0=14 rec1=00 rec2=03 rec3=000
        [0x05] rec0=43 rec1=01 rec2=af rec3=1bf
    tail 0x21545466c86587529f6af 0x42a00088462060003
Free Block Chain:
  0x2: 0000  00 00 00 3f 80 24 75 65 2c 20 4c 61 5f 53 69 67  ┆   ? $ue, La_Sig┆