DataMuseum.dk

top - metrics - download

    Length: 2182 (0x886)
    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

with Calendar;
with String_Utilities;
with Simple_Text_Io;
with Time_Utilities;
package body Job_Accounting_Solution is

    package Sio renames Simple_Text_Io;

    function Entry_Kind (Log_Entry : Entry_Type) return Kind is
    begin
        return Log_Entry.Entry_Kind;
    end Entry_Kind;

    function Elapsed_Time (Log_Entry : Entry_Type) return Duration is
    begin
        return Log_Entry.Elapsed_Time;
    end Elapsed_Time;

    function Cpu_Time (Log_Entry : Entry_Type) return Duration is
    begin
        return Log_Entry.Cpu_Time;
    end Cpu_Time;

    function User_Name (Log_Entry : Entry_Type) return String is
    begin
        return Unbounded.Image (Log_Entry.User_Name);
    end User_Name;

    function Session_Name (Log_Entry : Entry_Type) return String is
    begin
        return Unbounded.Image (Log_Entry.Session_Name);
    end Session_Name;

    function Jobs_Spawned (Log_Entry : Entry_Type) return Positive is
    begin
        return Log_Entry.Jobs;
    end Jobs_Spawned;

    function Disk_Io_Requests (Log_Entry : Entry_Type) return Positive is
    begin
        return Log_Entry.Disk_Waits;
    end Disk_Io_Requests;

    Start_Elapsed_Offset : constant := 2;
    End_Elapsed_Offset : constant := 20;
    Elapsed_Time_Length : constant := 17;

    Cpu_Time_Offset : constant := 39;
    Cpu_Time_End : constant := 47;

    User_Session_Offset : constant := 62;

    Disk_Wait_Offset : constant := 48;
    Disk_Wait_End : constant := 54;

    Jobs_Offset : constant := 55;
    Jobs_End : constant := 60;

    function "-" (T1, T2 : Calendar.Time) return Duration renames Calendar."-";

    procedure Initialize (Log_File_Name : String;
                          Iter : out Iterator) is separate;
    procedure Next (Iter : in out Iterator) is
    begin
        Entry_List.Next (Entry_List.Iterator (Iter.all));
    end Next;

    function Value (Iter : Iterator) return Entry_Type is
    begin
        return Entry_List.Value (Entry_List.Iterator (Iter.all));
    end Value;

    function Done (Iter : Iterator) return Boolean is
    begin
        return Entry_List.Done (Entry_List.Iterator (Iter.all));
    end Done;
end Job_Accounting_Solution;