|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Speller, pragma Module_Name 4 3623, pragma Subsystem Speller, seg_013249
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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;
nblk1=5
nid=0
hdr6=a
[0x00] rec0=19 rec1=00 rec2=01 rec3=070
[0x01] rec0=16 rec1=00 rec2=02 rec3=006
[0x02] rec0=1a rec1=00 rec2=03 rec3=040
[0x03] rec0=13 rec1=00 rec2=04 rec3=074
[0x04] rec0=1d rec1=00 rec2=05 rec3=000
tail 0x2170e84a482efa7a83eb3 0x42a00088462065003