home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / FUZZY.ZIP / LISTING.S < prev    next >
Encoding:
Text File  |  1986-11-30  |  3.1 KB  |  50 lines
  1. -------------------------------------------------------------------------------
  2. --                                                                           --
  3. --  Library Unit:  listing  --  Insert errors and messages into listing      --
  4. --                                                                           --
  5. --  Author:  Bradley L. Richards                                             --
  6. --                                                                           --
  7. --     Version     Date     Notes . . .                                      --
  8. --    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -    --
  9. --       1.0     6 Feb 86   Initial Version                                  --
  10. --       1.1    25 Feb 86   Minor revisions to error messages                --
  11. --       1.2     4 Mar 86   Added 2 character lookahead (required to         --
  12. --                            differentiate between the Ada ellipse and      --
  13. --                            a floating point number).                      --
  14. --       1.3    22 May 86   Split message routines from io routines to       --
  15. --                            limit visibility for higher routines           --
  16. --       2.0    20 Jun 86   Added start and stop routines                    --
  17. --       2.1    13 Jul 86   Split into separate spec and body files          --
  18. --    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -    --
  19. --                                                                           --
  20. --  Library units used:  io                                                  --
  21. --                                                                           --
  22. --  Description:  This package inserts errors, warnings, and notes into      --
  23. --     the listing file.  It tracks the numbers of messages of each type     --
  24. --     which are inserted in the listing; these counts may be used, for      --
  25. --     instance, to tell the user how many source errors were found.         --
  26. --        The routines in this package all have a "pointer_flag" which       --
  27. --     is used to tell the "io" package whether to draw a pointer to the     --
  28. --     "current character" in the program being parsed.                      --
  29. --                                                                           --
  30. -------------------------------------------------------------------------------
  31. --                                                                           --
  32. --                          Package Specification                            --
  33. --                                                                           --
  34. -------------------------------------------------------------------------------
  35.  
  36. with io; use io;
  37. package listing is
  38.  
  39.     pointer : constant boolean := true;
  40.     no_pointer : constant boolean := false;
  41.     number_of_errors, number_of_notes, number_of_warnings : integer;
  42.  
  43.     procedure error( char_ptr : boolean; message : string );
  44.     procedure note( char_ptr : boolean; message : string);
  45.     procedure start_listing;
  46.     procedure stop_listing;
  47.     procedure warning( char_ptr : boolean; message : string );
  48.  
  49. end listing;
  50.