|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 4746 (0x128a)
Types: TextFile
Names: »V«
└─⟦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⟧
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;