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

⟦18e45f612⟧ TextFile

    Length: 1855 (0x73f)
    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

--
-- COMMAND_LINE_HANDLER by Richard Conn, TI Ada Technology Branch
-- 27 Feb 85
--
package Command_Line_Handler is
    --------------------------------------------------------------------------
    -- Abstract   : This package contains routines which return words
    --               from the command line tail (parameters following
    --               the command line verb).  It expects a file to have
    --               been created externally which contains these words,
    --               one word per line.
    --------------------------------------------------------------------------

    No_Command_Line_File : exception;
    No_More_Words : exception;


    procedure Next_Word (Word : out String; Length : out Natural);
    --------------------------------------------------------------------------
    -- Abstract   : NEXT_WORD returns the next word from the command
    --               line tail.  If there are no more words, NO_MORE_WORDS
    --               is raised.  If there is no command line file,
    --               NO_COMMAND_LINE_FILE is raised.
    --------------------------------------------------------------------------
    -- Parameters : WORD           - string containing the next word
    --              LENGTH         - number of chars in next word
    --------------------------------------------------------------------------


    procedure Reset;
    --------------------------------------------------------------------------
    -- Abstract   : If the file containing the command line's words
    --               is open, this file is closed.  The net effect is
    --               that the next invocation of NEXT_WORD will return
    --               the first word of the command line tail.
    --------------------------------------------------------------------------

end Command_Line_Handler;