home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / metric / smetric.abs < prev    next >
Encoding:
Text File  |  1988-05-03  |  1.9 KB  |  38 lines
  1. package SELF_METRIC_INSTRUMENTATION_AND_ANALYSIS_TOOL is
  2. --This is a tool which will record information about program timing,
  3. -- loop execution counts, state of control variables at decision points,
  4. -- and values of selected variables.
  5.  
  6.    procedure self_analyze (source_file: in Ada_SOURCE_FILE_TYPE;
  7.                            report_file: out REPORT_FILE_TYPE
  8.                            data_file  : in FILE_TYPE := STANDARD_INPUT);
  9.    -- is the procedure to invoke this tool.  The data file contains
  10.    -- the instructions to the analyzer specifying optional items to 
  11.    -- instrument.
  12.  
  13.    package TITLE_PAGE is new TITLE_PAGE_PACKAGE
  14.        (DEVELOPING_ORGANIZATION      => "Intermetrics, Inc.",
  15.         AUTHOR                       => "Kathy Velick",
  16.         CONTACT                      => "Ron Rathgeber",
  17.         ADDRESS                      => ("5392 Bolsa Avenue",
  18.                                          "Huntington Beach",
  19.                                          "CA","92649"),
  20.         PHONE                        => (714,891,4631),
  21.         DATE_SUBMITTED               => (20,NOV,1984));
  22.  
  23.    package TECHNICAL_PARAMETERS is new TECHNICAL_PARAMETERS_PACKAGE
  24.        (LINES_OF_SOURCE_CODE         => TBD,
  25.         DEVELOPMENT_COMPILER         => (IBM3083,AIE_UTS),
  26.         PLANNED_COMPILERS_SUPPORTED  => ((DECVAX,DECADA),
  27.                                          (DECVAX,TSIADA)),
  28.         AUXILIARY_FILES_SIZE         => (TBD);
  29.  
  30.    package DEVELOPMENT_SCHEDULE_AND_STATUS is new SCHEDULE_PACKAGE
  31.        (COMPLETED_EVENTS            => NULL;
  32.         SCHEDULED_EVENTS            => ((PDR,(13,JAN,1985)),
  33.                                         (CDR,(13,MAR,1985)),
  34.                                         (FIRST_BUILT,(13,FEB,1985)),
  35.                                         (DELIVERY,(13,JUL,1985)));
  36.  
  37. end SELF_METRIC_INSTRUMENTATION_AND_ANALYSIS_TOOL;
  38.