home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / ada / ada_lrm3.arc / LR4SV.SRC < prev    next >
Text File  |  1989-03-28  |  1KB  |  50 lines
  1. --                Ada LRM Reader
  2.  
  3.  
  4.  
  5.  
  6.  
  7. with TEXT_IO; 
  8. package INTEGER_IO is 
  9.   new TEXT_IO.INTEGER_IO(INTEGER); 
  10. with TEXT_IO, INTEGER_IO; use TEXT_IO, INTEGER_IO; 
  11.  
  12. with LRM_TYPES; use LRM_TYPES; 
  13.  
  14.  
  15. package LRM_GLOBAL is 
  16.  
  17.  
  18.  
  19.  
  20.   CHAP_POINTERS               : CHAP_POINTER_LIST(C1 .. C14S7P3); 
  21.   CHAP_POINTERS_FILE_NAME     : STRING(1 .. 35); 
  22.   CREDITS_FILE_NAME           : STRING(1 .. 35); 
  23.   EXPLANATION_FILE_NAME       : STRING(1 .. 35); 
  24.  
  25.   FILE_NAMES_DATA_FILE_NAME   : STRING(1 .. 9) := "LRMinit  "; 
  26.  
  27.   LRM_FILE_NAME_PREFIX        : STRING(1 .. 35); 
  28.   LRM_FILE_NAME_PREFIX_LENGTH : INTEGER range 1 .. 35; 
  29.   LRM_READER_SAVE_FILE_NAME   : STRING(1 .. 35); 
  30.   MENU_MAIN_FILE_NAME         : STRING(1 .. 35); 
  31.   MENU_ANNEX_FILE_NAME        : STRING(1 .. 35); 
  32.   MENU_CHAPTER_FILE_NAME      : STRING(1 .. 35); 
  33.   SAVE_FILE                   : FILE_TYPE;  -- save LRM text into this file
  34.   WELCOME_MSG_FILE_NAME       : STRING(1 .. 35); 
  35.  
  36.  
  37.  
  38.  
  39.   procedure GENERATE_CHAP_POINTERS(CHAP_POINTERS : in out CHAP_POINTER_LIST); 
  40.  
  41.  
  42.   procedure VALIDATE_CITATION(CITATION_REQUESTED : in STRING; 
  43.                               REQUEST_LENGTH     : in NATURAL; 
  44.                               CITATION_TO_GET    : out LEGAL_CITATIONS); 
  45.  
  46.  
  47.   procedure READ_IN_FILE_NAMES(FILE_NAMES_DATA_FILE_NAME : in STRING); 
  48.  
  49. end LRM_GLOBAL; 
  50.