home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / misc / safeio.pro < prev    next >
Encoding:
Text File  |  1988-05-03  |  3.6 KB  |  75 lines
  1.  
  2. -------- SIMTEL20 Ada Software Repository Prologue ------------
  3. --                                                           -*
  4. -- Unit name    : SAFE_IO
  5. -- Version      : 1.0
  6. -- Author       : John A. Anderson
  7. --              : TEXAS INSTRUMENTS MS 8006
  8. --              : P.O. BOX 801
  9. --              : MCKINNEY, TEXAS   75069
  10. -- DDN Address  : ANDERSON%TI-EG@CSNET-RELAY
  11. -- Copyright    : (c) 1984 John A. Anderson
  12. -- Date created :  OCTOBER  2, 1984
  13. -- Release date :  NOVEMBER 27, 1984
  14. -- Last update  :  ANDERSON Wed Nov 27, 1984
  15. -- Machine/System Compiled/Run on: DEC VAX/VMS, DEC Ada
  16. --                                                           -*
  17. ---------------------------------------------------------------
  18. --                                                           -*
  19. -- Keywords     :  INPUT/OUTPUT
  20. --
  21. -- Abstract     :  This generic package allows the user to
  22. ----------------:  input data types from the keyboard
  23. ----------------:  while checking the input for errors. (Proper
  24. ----------------:  Type:  syntax and ranges.)
  25. ----------------:  A procedure for checking input of characters
  26. ----------------:  for a proper subrange of the character set is
  27. ----------------:  provided.
  28. ----------------:  When an error is encountered, an error message
  29. ----------------:  is displayed and the user is allowed to reenter.
  30. ----------------:  Output routines are provided to allow the user
  31. ----------------:  to do I/O with only one instantiation.  Screen
  32. ----------------:  manipulation (i.e. NEW_LINE) should be done with
  33. ----------------:  TEXT_IO directly.
  34. ----------------:  Instantiations require a FIELD_WIDTH which
  35. ----------------:  specifies the maximum field width for the input
  36. ----------------:  of the corresponding type.
  37. --                                                           -*
  38. ------------------ Revision history ---------------------------
  39. --                                                           -*
  40. -- DATE         VERSION    AUTHOR                  HISTORY
  41. -- 11/27/84      1.0    Anderson        Initial Release
  42. --                                                           -*
  43. ------------------ Distribution and Copyright -----------------
  44. --                                                           -*
  45. -- This prologue must be included in all copies of this software.
  46. --
  47. -- This software is copyright by the author.
  48. --
  49. -- This software is released to the Ada community.
  50. -- This software is released to the Public Domain (note:
  51. --   software released to the Public Domain is not subject
  52. --   to copyright protection).
  53. -- Restrictions on use or distribution:  NONE
  54. --                                                           -*
  55. ------------------ Disclaimer ---------------------------------
  56. --                                                           -*
  57. -- This software and its documentation are provided "AS IS" and
  58. -- without any expressed or implied warranties whatsoever.
  59. -- No warranties as to performance, merchantability, or fitness
  60. -- for a particular purpose exist.
  61. --
  62. -- Because of the diversity of conditions and hardware under
  63. -- which this software may be used, no warranty of fitness for
  64. -- a particular purpose is offered.  The user is advised to
  65. -- test the software thoroughly before relying on it.  The user
  66. -- must assume the entire risk and liability of using this
  67. -- software.
  68. --
  69. -- In no event shall any person or organization of people be
  70. -- held responsible for any direct, indirect, consequential
  71. -- or inconsequential damages or lost profits.
  72. --                                                           -*
  73. -------------------END-PROLOGUE--------------------------------
  74.  
  75.