DataMuseum.dk

top - metrics - download

    Length: 5229 (0x146d)
    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 Vt100;
use Vt100;
with Text_Io;
use Text_Io;
with Data_Pkg;
use Data_Pkg;

procedure Tracker is
    ----------------------------------------------------------------------
    --|  NAME:  TRACKER  - Main
    --|
    --|  OVERVIEW:
    --|    TRACKER is an ADA conversion of the original INPREP and TRACKR
    --|    programs written in IFTRAN.  The Ada version of TRACKER is one
    --|    program that combines the two previous Iftran programs.  It is
    --|    written under the VAX/VMS Version 4.0 environment.
    --|
    --|    The TRACKER program is a management tool used for estimating
    --|    project cost and scheduling requirements, and tracking progress
    --|    within projects by calculating dates of completion, amount of time
    --|    required, amount of code, and other variable data.
    --|    Reports can be produced that will show the status of the project
    --|    from several different perspectives.
    --|
    --|  EXCEPTIONS HANDLED:
    --|    name_error            error message is printed and program terminates
    --|    ERROR_IN_INPUT_FILE   error message is printed and program terminates
    --|
    --|  HISTORY:
    --|    written by   May Lee   March 1985
    --|
    ----------------------------------------------------------------------

    -- instantiate I/O packages
    use Float_Text_Io;
    use Integer_Text_Io;

    -- user response line
    Max_Line_Lngth : Natural := 200;
    Line : String (1 .. Max_Line_Lngth) := (others => ' ');
    Line_Lngth : Natural;

    Error_In_Input_File : exception;

    Report_File,                    -- internal filename for the tracker output
                                    -- file of reports generated
    Tracker_File,                   -- internal filename for the tracker input
                                    -- file (in_file)
    Output_File : File_Type;    -- internal filename for output file(out_file)
    -- it is the same name as the input file.

    Report_Filename : String (1 .. 80) := (others => ' ');
    -- external name of the VAX tracker report file.  It will be the same name
    -- as the input file with a ".rpt" extension instead.

    Tracker_Filename : String (1 .. 80) := (others => ' ');
    -- external name of the VAX tracker file.  This is the name for the input
    -- file and the output file, the output file being a new version of the input.

    Filename_Lngth : Natural;   -- length of the tracker filename

    -- package specifications
    package Global_Pkg is
        procedure Gl_Set_Up;
        procedure Gl_Initialize;
        procedure Gl_Save;
    end Global_Pkg;

    package Activity_Pkg is
        procedure Ac_Set_Up;
        procedure Ac_Initialize;
        procedure Ac_Add;
        procedure Ac_Delete;
        procedure Ac_Modify;
        procedure Ac_Save;
    end Activity_Pkg;

    package Element_Pkg is
        procedure El_Set_Up;
        procedure El_Initialize;
        procedure Update_Current;
        procedure Update_Pct_Done;
        procedure El_Add;
        procedure El_Delete;
        procedure El_Modify;
        procedure El_Save;
    end Element_Pkg;

    package Milestone_Pkg is
        procedure Ms_Set_Up;
        procedure Ms_Initialize;
        procedure Ms_Add;
        procedure Ms_Delete;
        procedure Ms_Modify;
        procedure Ms_Save;
    end Milestone_Pkg;

    package Personnel_Pkg is
        procedure Pr_Set_Up;
        procedure Pr_Initialize;
        procedure Pr_Add;
        procedure Pr_Delete;
        procedure Pr_Modify;
        procedure Pr_Save;
    end Personnel_Pkg;

    package Subsystem_Pkg is
        procedure Ss_Set_Up;
        procedure Ss_Initialize;
        procedure Ss_Add;
        procedure Ss_Delete;
        procedure Ss_Modify;
        procedure Ss_Save;
    end Subsystem_Pkg;

    package body Global_Pkg is separate;
    package body Activity_Pkg is separate;
    package body Element_Pkg is separate;
    package body Milestone_Pkg is separate;
    package body Personnel_Pkg is separate;
    package body Subsystem_Pkg is separate;

    procedure Write_Data_To_File is separate;
    procedure Set_Up_Tracker_Data is separate;
    procedure Initialize_Tracker_Data is separate;
    procedure Data_Menu_Driver is separate;
    procedure Get_Data is separate;
    procedure Manipulate_Data is separate;
    procedure Report_Generator is separate;

    use Calendar;

begin
    Tracker_Intro;
    Get_Data;
    Manipulate_Data;
    Write_Data_To_File;

    --              TRACKER     --
    -- if answer to "Do you want to change or modify data?" was No
    -- or if already manipulated data (done with INPREP) ...
    -- then go to report menu (TRACKR part).
    Report_Generator;

exception
    when Name_Error =>
        New_Line (2);
        Put ("Sorry, TRACKER file ");
        Put (Tracker_Filename (1 .. Filename_Lngth));
        Put (" cannot be opened.");
        New_Line (2);
        Put ("    * * *  EXECUTION TERMINATED  * * * ");
        New_Line (2);
    when Error_In_Input_File =>
        Put ("Sorry, error reading TRACKER file ");
        Put (Tracker_Filename (1 .. Filename_Lngth));
        New_Line (2);
        Put ("    * * *  EXECUTION TERMINATED  * * * ");
end Tracker;