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

⟦ec80e7c1e⟧ TextFile

    Length: 2251 (0x8cb)
    Types: TextFile
    Names: »V«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

with Token_Definition, Get_User_Info;
package Corrector is

    Abandon_Operation : exception;
    Bad_Word_Flag : Boolean;


    --------------------------------------------------------------------------
    -- Abstract   : This operation will determine if a word has already been
    --            : corrected.
    --------------------------------------------------------------------------
    -- Parameters : WORD : in TOKEN_DEFINITION.TOKEN_TYPE is the string being
    --            : check for.
    --            : LIST : in LIST_TYPE is the access value to the list
    --            : of words which have already been corrected.
    --------------------------------------------------------------------------
    -- Algorithm  : (An optional paragraph describing any special algorithms
    --               used by the package or routine.)
    --------------------------------------------------------------------------


    function Was_Corrected (Token : Token_Definition.Token_Type) return Boolean;


    --**************************************************************************
    --**************************************************************************



    --------------------------------------------------------------------------
    -- Abstract   : This operation will manage the requests to possible
    --            : correct a misspelled word.
    --------------------------------------------------------------------------
    -- Parameters : WORD : in TOKEN_DEFINITION.TOKEN_TYPE is the word to be
    --            : corrected.
    --            : TO   : inTOKEN_DEFINITION.TOKEN_TYPE is what the word was
    --            : corrected to.
    --            : COMPLETED : out BOOLEAN indicates that the word has been
    --            : corrected.
    --------------------------------------------------------------------------
    -- Algorithm  :
    --
    --------------------------------------------------------------------------


    procedure Correct (User_Info : Get_User_Info.User_Info_Type;
                       Word : Token_Definition.Token_Type);




    procedure Insert_Word (Token, Corrected_Token :
                              Token_Definition.Token_Type);

    procedure Initialize;


end Corrector;