home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / ADA_LRM3.ZIP / LR4SC.SRC < prev    next >
Encoding:
Text File  |  1989-03-17  |  1.6 KB  |  56 lines
  1.  
  2.  
  3. --                ON-LINE Ada LANGUAGE REFERENCE MANUAL
  4. --        Developed at Nofolk State University
  5. --        Development funded by a grant from the U. S. Army
  6. --        Project ReDTEA
  7. --        Version 1.0 released December 1988
  8. --        Programmer:        Esther M. Lumsdon
  9. --        Project Director:  George C. Harrison, PhD
  10.  
  11.  
  12.  
  13. with TEXT_IO; 
  14. package INTEGER_IO is 
  15.   new TEXT_IO.INTEGER_IO(INTEGER); 
  16. with TEXT_IO, INTEGER_IO; use TEXT_IO, INTEGER_IO; 
  17.  
  18. with LRM_TYPES; use LRM_TYPES; 
  19.  
  20.  
  21. package LRM_GLOBAL is 
  22.  
  23.  
  24.  
  25.  
  26.   CHAP_POINTERS               : CHAP_POINTER_LIST(C1 .. C14S7P3); 
  27.   CHAP_POINTERS_FILE_NAME     : STRING(1 .. 35); 
  28.   CREDITS_FILE_NAME           : STRING(1 .. 35); 
  29.   EXPLANATION_FILE_NAME       : STRING(1 .. 35); 
  30.  
  31.   FILE_NAMES_DATA_FILE_NAME   : STRING(1 .. 9) := "LRMinit. "; 
  32.  
  33.   LRM_FILE_NAME_PREFIX        : STRING(1 .. 35); 
  34.   LRM_FILE_NAME_PREFIX_LENGTH : INTEGER range 1 .. 35; 
  35.   LRM_READER_SAVE_FILE_NAME   : STRING(1 .. 35); 
  36.   MENU_MAIN_FILE_NAME         : STRING(1 .. 35); 
  37.   MENU_ANNEX_FILE_NAME        : STRING(1 .. 35); 
  38.   MENU_CHAPTER_FILE_NAME      : STRING(1 .. 35); 
  39.   SAVE_FILE                   : FILE_TYPE;  -- save LRM text into this file
  40.   WELCOME_MSG_FILE_NAME       : STRING(1 .. 35); 
  41.  
  42.  
  43.  
  44.  
  45.   procedure GENERATE_CHAP_POINTERS(CHAP_POINTERS : in out CHAP_POINTER_LIST); 
  46.  
  47.  
  48.   procedure VALIDATE_CITATION(CITATION_REQUESTED : in STRING; 
  49.                               REQUEST_LENGTH     : in NATURAL; 
  50.                               CITATION_TO_GET    : out LEGAL_CITATIONS); 
  51.  
  52.   procedure READ_IN_FILE_NAMES(FILE_NAMES_DATA_FILE_NAME : in STRING); 
  53.  
  54.  
  55. end LRM_GLOBAL; 
  56.