DataMuseum.dk

top - metrics - download

    Length: 2154 (0x86a)
    Types: TextFile
    Names: »B«

└─⟦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

separate (Tracker.Personnel_Pkg)
procedure Pr_Set_Up is
    ------------------------------------------------------------------------------
    --|
    --|  NAME:  PR_SET_UP
    --|
    --|  OVERVIEW:
    --|    This procedure is only called if there is an existing input file.
    --|    The people list is set up by reading the personnel record
    --|    from the input file by calling PR_READ, and adding it to the linked
    --|    list by calling the generic procedure ADD until there are no more
    --|    people records.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    others  Error reading the record from the file.
    --|    .  This exception raises ERROR_IN_INPUT_FILE.
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    --|  NOTES:
    --|    The number of people records read in is determined by the
    --|    global variable num_of_people.
    --|
    --|    If an error is detected reading the data, the rest of the input line
    --|    is skipped and reading of the rest of the data continues.  All errors
    --|    found are reported.  Execution is not terminated until the entire
    --|    input file has been read.
    --|
    --|
    -----------------------------------------------------------------------------
    Pr_Num : Integer := 1;      -- number of person record in file
    Pr_Record : Personnel_Pointer;
    Bad_Data : Boolean := False;

    procedure Pr_Read is separate;

begin
    for I in 1 .. Num_Of_People loop
        begin
            Pr_Num := I;

            -- create a null person record
            Pr_Record := new Personnel_Type;

            -- read the person
            Pr_Read;

            -- add it to the linked list
            Add (Pr_List, Pr_Record.Initials, Pr_Record);
        exception
            when others =>
                Skip_Line (Tracker_File);
                Put (" Error in reading person ");
                Put (Pr_Num);
                Put (" from the tracker file. ");
                New_Line;
                Bad_Data := True;
        end;
    end loop;

    if Bad_Data then
        raise Error_In_Input_File;
    end if;
end Pr_Set_Up;