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

⟦fa0cd9845⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Update_Speller, seg_0061c8

Derivation

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

with Library;
with Product_Authorization;
with Speller;

procedure Update_Speller is

    Temporary_Name : constant String := "!Machine.Speller_Data.New_Master";
    Dictionary_Name : constant String := "!Machine.Speller_Data.Master";
    Dictionary_Number : Natural;

begin

    -- Unless the speller is authorized to run, there is nothing to do
    if Product_Authorization.Is_Registered (Product_Name => "Speller") then

        -- copy current master to temporary file
        Library.Move (From => Dictionary_Name,
                      To => Temporary_Name,
                      Recursive => False,
                      Copy_Links => False);

        -- First start the Speller Object-Editor.  In addition, the switch
        -- Ignore_Acronyms must be set to false so that "I" can be properly added
        -- (do not want to allow "i" as a valid word)
        Speller.Set_Switch (To_Value => False,
                            Switch_Name => "Ignore_Acronyms");

        -- open temporary dictionary into which new words will be added
        Speller.Open (Dictionary_Name => Temporary_Name, Writable => True);
        Dictionary_Number := Speller.Number (Temporary_Name);

        -- add the new words.  Since "I" is entered in upper case and
        -- ignore_acronyms has been set to false, lower-case "i" will still be
        -- flagged as a spelling error. Entering "a" in lower case does not
        -- prohibit the spelling checker from accepting it as valid when it is
        -- capitalized (e.g., it could be starting a sentence).
        Speller.Learn_Word (The_Word => "a", Dictionary => Dictionary_Number);
        Speller.Learn_Word (The_Word => "I", Dictionary => Dictionary_Number);

        -- commit the changes
        Speller.Close (Dictionary => Dictionary_Number, Save_Changes => True);

        -- make the temporary dictionary the new master
        Library.Move (From => Temporary_Name,
                      To => Dictionary_Name,
                      Recursive => False,
                      Copy_Links => False);

    end if;

end Update_Speller;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1b rec1=00 rec2=01 rec3=06e
        [0x01] rec0=13 rec1=00 rec2=02 rec3=028
        [0x02] rec0=07 rec1=00 rec2=03 rec3=000
    tail 0x21501341a81bf7ca9f08b 0x42a00088462060003