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;