DataMuseum.dk

top - metrics - download

    Length: 907 (0x38b)
    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.Activity_Pkg)



procedure Ac_Save is
    ------------------------------------------------------------------------------
    --|
    --|  NAME:  AC_SAVE
    --|
    --|  OVERVIEW:
    --|    This procedure saves a record to file by calling the AC_WRITE
    --|    procedure.  The generic procedures START_WALK and WALK are called
    --|    to walk the linked list allowing one record at a time to be written.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    none
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ------------------------------------------------------------------------------
    End_List : Boolean := False;
    Ac_Record : Activity_Pointer;

    procedure Ac_Write is separate;

begin
    Start_Walk (Ac_List);

    loop
        Walk (Ac_List, Ac_Record, End_List);
        exit when End_List;
        Ac_Write;
    end loop;
end Ac_Save;