home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / misc / countada.pro < prev    next >
Encoding:
Text File  |  1988-05-03  |  4.1 KB  |  85 lines
  1. -------- SIMTEL20 Ada Software Repository Prologue ------------
  2. --                                                           -*
  3. -- Unit name    : CAS Ada Statement Counter
  4. -- Version      : 1.0
  5. -- Author       : WIS JPMO
  6. --              : Washington, D.C.  20330
  7. --              : Contact: Lt. Colonel Falgiano
  8. --              : ESD/SCW
  9. --              : Hanscom AFB, MA  01731
  10. -- DDN Address  :
  11. -- Copyright    : 
  12. -- Date created : 1985
  13. -- Release date : 1985
  14. -- Last update  : 1985
  15. -- Machine/System Compiled/Run on:
  16. --                                                           -*
  17. ---------------------------------------------------------------
  18. --                                                           -*
  19. -- Keywords     : 
  20. ----------------:
  21. --
  22. -- Abstract     : This function calculates the "statements"
  23. ----------------: of a valid Ada fragment specified by a 
  24. ----------------: FILE_NAME string parameter.  It need not
  25. ----------------: be a complete compilation unit buy it 
  26. ----------------: should have closed all open parentheses and
  27. ----------------: and string brackets.  The number of statements
  28. ----------------: of code is returned as an integer.  The Ada 
  29. ----------------: statement is defined by a semicolon terminator
  30. ----------------: outside of comments, parentheses, or string or
  31. ----------------: character literals.  The definition is 
  32. ----------------: insensitive to formatting or layout of the source.
  33. ----------------: This copy of the function is embedded in a test
  34. ----------------: and driver program.  The driver has a feature of
  35. ----------------: correcting for the common error of leaving out 
  36. ----------------: the extensiOn on a file name.  The nature of 
  37. ----------------: this extension is system dependent and a ".TXT"
  38. ----------------: extension is used.
  39. ----------------:
  40. ----------------: This tool was developed as a precursor for 
  41. ----------------: the WMCCS Information System (WIS).  An
  42. ----------------: executable version of the tool has been 
  43. ----------------: demonstrated.  This source code has sub-
  44. ----------------: sequently been recompiled but has not under-
  45. ----------------: gone extensive testing.
  46. ----------------:
  47. --                                                           -*
  48. ------------------ Revision history ---------------------------
  49. --                                                           -*
  50. -- DATE         VERSION AUTHOR                  HISTORY 
  51. -- 1985         1.0     WIS JPMO                Initial Release
  52. --                                                           -*
  53. ------------------ Distribution and Copyright -----------------
  54. --                                                           -*
  55. -- This prologue must be included in all copies of this software.
  56. -- 
  57. -- This software is copyright by the author.
  58. -- 
  59. -- This software is released to the Ada community.
  60. -- This software is released to the Public Domain (note:
  61. --   software released to the Public Domain is not subject
  62. --   to copyright protection).
  63. -- Restrictions on use or distribution:  NONE
  64. --                                                           -*
  65. ----------------- Disclaimer ----------------------------------
  66. --                                                           -*
  67. -- This software and its documentation are provided "AS IS" and
  68. -- without any expressed or implied warranties whatsoever.
  69. --
  70. -- No warranties as to performance, merchantability, or fitness
  71. -- for a particular purpose exist.
  72. --
  73. -- Because of the diversity of conditions and hardware under
  74. -- which this software may be used, no warranty of fitness for
  75. -- a particular purpose is offered.  The user is advised to 
  76. -- test the software thoroughly before relying on it.  The user
  77. -- must assume the entire risk and liability of using this 
  78. -- software.
  79. --
  80. -- In no event shall any person or organization of people be
  81. -- held responsible for any direct, indirect, consequential
  82. -- or inconsequential damages or lost profits.
  83. --                                                          -*
  84. ----------------- END-PROLOGUE -------------------------------
  85.