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

⟦1951cbabf⟧ TextFile

    Length: 1841 (0x731)
    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 Text_Io, Token_Definition;
package Misspelled_Word_List is
    --------------------------------------------------------------------------
    -- Abstract   : This package maintains a list of tokens with a frequency
    --              count and prints the list in ascending order on request.
    --------------------------------------------------------------------------

    procedure Initialize;
    --------------------------------------------------------------------------
    -- Abstract   : This procedure empties the misspelled word list.
    --------------------------------------------------------------------------

    procedure Add_Token (Token : Token_Definition.Token_Type);
    --------------------------------------------------------------------------
    -- Abstract   : This procedure inserts a token into the linked list in
    --              ascending order (or if already in the list, increments
    --              its count).
    --------------------------------------------------------------------------
    -- Parameters : Token - is the token to be inserted into the list.
    --------------------------------------------------------------------------

    procedure Print (File : Text_Io.File_Type);
    --------------------------------------------------------------------------
    -- Abstract   : Print the list (token and count) from head to tail, one
    --              element per line.  The count is printed in columns beyond
    --              the maximum length of a token so that the file may be used
    --              as a dictionary.
    --------------------------------------------------------------------------
    -- Parameters : File - is the file to which the list is to be written.
    --------------------------------------------------------------------------

end Misspelled_Word_List;