home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / metric / sinst.abs < prev    next >
Encoding:
Text File  |  1988-05-03  |  2.0 KB  |  45 lines
  1. package SOURCE_INSTRUMENTER is  -- a tool to instument Ada source code
  2. -- This tool will insert breakpoints in
  3. -- Ada source code.  These hooks will be
  4. -- used to trace the execution of an Ada
  5. -- program.  Normally, hooks will be placed
  6. -- at entry/exit and decision points.  A
  7. -- user option will allow for breakpoints 
  8. -- at every statement.
  9.  
  10.    type TRACE_OPTIONS is
  11.       record
  12.          -- to be determined
  13.       end record;
  14.       -- user can supply level of trace desired 
  15.  
  16.    procedure INSTRUMENT_SOURCE(SOURCE_FILE       : in Ada_SOURCE_FILE_TYPE;
  17.                                DESTINATION_FILE  : out Ada_SOURCE_FILE_TYPE;
  18.                                OPTIONS           : in TRACE_OPTIONS);
  19.    -- is the tool to instrument Ada source
  20.  
  21.    package TITLE_PAGE is new TITLE_PAGE_PACKAGE
  22.        (DEVELOPING_ORGANIZATION    => "Intermetrics, Inc.",
  23.         AUTHOR                     => "Kathy Velick",
  24.         CONTACT                    => "Ron Rathgeber",
  25.         ADDRESS                    => ("5392 Bolsa Avenue",
  26.                                        "Huntington Beach",
  27.                                        "CA","92649"),
  28.         PHONE                      => (714,891,4631),
  29.         DATE_SUBMITTED             => (20,NOV,1984));
  30.  
  31.    package TECHNICAL_PARAMETERS is new TECHNICAL_PARAMETERS_PACKAGE
  32.        (LINES_OF_SOURCE_CODE         => TBD,
  33.         DEVELOPMENT_COMPILER         => (IBM3083,AIE_UTS),
  34.         PLANNED_COMPILERS_SUPPORTED  => ((DECVAX,DECADA),
  35.                                          (DECVAX,TSIADA)),
  36.         AUXILIARY_FILES_SIZE         => (TBD);
  37.  
  38.    package DEVELOPMENT_SCHEDULE_AND_STATUS is new SCHEDULE_PACKAGE
  39.        (COMPLETED_EVENTS            => NULL;
  40.         SCHEDULED_EVENTS            => ((PDR,(13,JAN,1985)),
  41.                                         (CDR,(13,MAR,1985)),
  42.                                         (FIRST_BUILT,(13,FEB,1985)),
  43.                                         (DELIVERY,(13,JUL,1985)));
  44. end SOURCE_INSTRUMENTER;
  45.