home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / vrac / adaada.zip / ADAADA.ZIP / DOC / TEST.ADA < prev   
Text File  |  1994-10-12  |  2KB  |  75 lines
  1. -- Copyright (c) 1994 ARINC Research Corporation
  2. -- From material copyright (c) 1991, 1992 Premia Corporation
  3. --
  4. -- This material may be reproduced by or for the US Government pursuant 
  5. -- to the copyright license under DFAR Clause 252.227-7013 (1988)
  6. --
  7. -- Developed for US Air Force under contract no. F41608-90-D-0544-0005
  8. --
  9. -- PURPOSE
  10. --   NOT COMPILABLE CODE! This is a test file for Ada ChromaCoding
  11. --
  12. -- MODIFICATIONS
  13. --   94/06 - J. Neuse, SD/OSE/EA  - Initial code
  14. --   94/10 - O. Sluder, SD/OSE/EA - Cleanup
  15.  
  16. -----------
  17. -- Strings
  18. -----------
  19.  
  20. "Strings"
  21. "'"
  22. '"'
  23. '''123
  24. 'a'123'''"Strings"
  25. '''
  26. ""sdkfslkfjsldfk
  27.  
  28. -- Known string bug : 94/10/12-OVS
  29. String_Access_Variable := new String'('Oops!');
  30. --                                  ^=======^
  31.  
  32. -----------
  33. -- Numbers
  34. -----------
  35.  
  36. 123_456.001_456
  37. .00
  38. 2#0100101#
  39. 16#1234567890abcdefABCDEF#
  40. 16#1234567890abcdefABCDEF#
  41. 12_234.000_111
  42. 15..17
  43. 123.0000
  44.  
  45. -32_000..32000
  46.  
  47. ---------------
  48. -- Identifiers
  49. ---------------
  50.  
  51. forthe_loop_Variable
  52.  
  53. for_2_the_2loop2
  54.  
  55. al222pha_1
  56.  
  57. ------------
  58. -- Keywords
  59. ------------
  60.  
  61. -- Ada 9x syntax
  62. ABORT ABS ABSTRACT ACCEPT ACCESS ALIASED ALL AND ARRAY AT BEGIN BODY
  63. CASE CONSTANT DECLARE DELAY DELTA DIGITS DO ELSE ELSIF END ENTRY
  64. EXCEPTION EXIT FOR FUNCTION GENERIC GOTO IF IN IS LIMITED LOOP MOD NEW
  65. NOT NULL OF OR OTHERS OUT PACKAGE PRAGMA PRIVATE PROCEDURE PROTECTED
  66. RAISE RANGE RECORD REM RENAMES REQUEUE RETURN REVERSE SELECT SEPARATE
  67. SUBTYPE TAGGED TASK TERMINATE THEN TYPE UNTIL USE WHEN WHILE WITH XOR
  68.  
  69. For j in Key'FIRST..Key'LAST loop
  70.     if CHARACTER'POS (Key (j)) in 16#61#..16#7A# then
  71.         Key (j) := CHARACTER'VAL ( CHARACTER'POS ( Key (j) ) - 16#20# ) ;
  72.  
  73. new STRING'("ACCESS"),        new STRING'("ALIASED"),
  74. new STRING'("ALL"),          new STRING'("AND"),
  75.