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 - download
Index: ┃ T V

⟦c64185b4f⟧ TextFile

    Length: 4746 (0x128a)
    Types: TextFile
    Names: »V«

Derivation

└─⟦6c4f54b10⟧ Bits:30000747 8mm tape, Rational 1000, ACCESS 0_8_0 INTERNAL RELEASE
    └─ ⟦5d1d5404f⟧ »DATA« 
        └─⟦ab9f224fa⟧ 
└─⟦6ac9a67ca⟧ Bits:30000548 8mm tape, Rational 1000, access 1_0_1
    └─ ⟦78f173837⟧ »DATA« 
        └─⟦687a7d38f⟧ 
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦687a7d38f⟧ 
            └─⟦ab9f224fa⟧ 
                └─⟦this⟧ 

TextFile

package Speller is

    pragma Subsystem (Speller);
    pragma Module_Name (4, 3623);
    pragma Bias_Key (19);


    ------------------------------------------------------------------
    --                                                              --
    -- Top level commands:                                          --
    --                                                              --
    -- These are the standard commands that are used to invoke the --
    -- speller, and to bring up the speller window.                 --
    --                                                              --
    ------------------------------------------------------------------

    procedure Check_Text (Data : String := "<TEXT>");
    --
    -- Check the selected text, or (if no selection exists or the
    -- cursor is not in the selection) the word nearest the cursor.

    procedure Check_Image;
    --
    -- Have the speller underline all of the unknown words in the
    -- current image.  Automatic corrections will be made immediately.

    procedure Check_File (Name : String := "<IMAGE>");
    --
    -- Run the speller in a batch mode over the named file.
    -- Send all unknown words to the log file.

    procedure Speller_Window (In_Place : Boolean := False);
    --
    -- Bring up the speller window.
    -- Dictionary and Switch settings may be altered in this window
    -- before running the Check_Image procedure above.


    -----------------------------------------------------------------
    --                                                             --
    -- Keys:                                                       --
    --                                                             --
    -- These procedures are meant to be bound to keys, and invoked --
    -- when the cursor is on a misspelled word.                    --
    --                                                             --
    -----------------------------------------------------------------

    procedure Learn_Word (The_Word : String := ""; Dictionary : Natural := 0);
    --
    -- Insert the current word into a dictionary.

    procedure Exchange_Word (Choice : Positive := 1);
    --
    -- Replace the current word with the indicated alternative.

    procedure Learn_Replacement (The_Word : String := "";
                                 Choice : Positive := 1;
                                 Dictionary : Natural := 0);
    --
    procedure Learn_Replacement (The_Word : String := "";
                                 Replacement : String := ">>Correction<<";
                                 Dictionary : Natural := 0);
    --
    -- Make an automatic correction from the current word to the
    -- indicated alternative.

    procedure Explain_Next;
    --
    -- Simply a combination of Editor.Cursor.Next and Common.Explain.


    ------------------------------------------------------------------
    --                                                              --
    -- Speller OE Commands:                                         --
    --                                                              --
    -- These procedures are meant to configure the speller.         --
    -- They can be run from any window, but are easier to run from  --
    -- the speller window.                                          --
    --                                                              --
    ------------------------------------------------------------------

    procedure Set_Switch (To_Value : Boolean := True;
                          Switch_Name : String := ">>Speller Switch<<");
    --
    -- Change the value of a speller switch.

    procedure Create (Dictionary_Name : String := ">>New name<<");
    --
    -- Create (and open for update) a new dictionary.

    procedure Open (Dictionary_Name : String := "<CURSOR>";
                    Writable : Boolean := False);
    --
    -- Open another auxiliary dictionary.

    procedure Save (Dictionary : Natural := 0);
    --
    -- Save any changes which have been made to a dictionary.

    procedure Close (Dictionary : Natural; Save_Changes : Boolean := True);
    --
    -- Close a dictionary.  All changes will be saved.

    function Number (Dictionary_Name : String := "<CURSOR>") return Natural;
    --
    -- Return the number of a named dictionary.

    procedure Read (File_Name : String := "<CURSOR>";  
                    Dictionary : Natural := 0);
    --
    -- Insert a specially formatted text file into an open,
    -- writable dictionary.

    procedure Write (To_File : String := ">>New file name<<";
                     Dictionary : Natural := 0);
    --
    -- Dump the contents of a dictionary to a text file.

end Speller;