46 lines
1.3 KiB
Plaintext
46 lines
1.3 KiB
Plaintext
================================================================================
|
|
Discrete Choices and characters
|
|
================================================================================
|
|
|
|
declare
|
|
type Color_Type is (Red, 'W');
|
|
Color : Color_Type := 'W';
|
|
begin
|
|
case Color is
|
|
when Red => null;
|
|
when 'W' => null;
|
|
end case;
|
|
end;
|
|
|
|
--------------------------------------------------------------------------------
|
|
(compilation
|
|
(compilation_unit
|
|
(block_statement
|
|
(non_empty_declarative_part
|
|
(full_type_declaration
|
|
(identifier)
|
|
(enumeration_type_definition
|
|
(identifier)
|
|
(character_literal)))
|
|
(object_declaration
|
|
(identifier)
|
|
(identifier)
|
|
(expression
|
|
(term
|
|
(character_literal)))))
|
|
(handled_sequence_of_statements
|
|
(case_statement
|
|
(expression
|
|
(term
|
|
(identifier)))
|
|
(case_statement_alternative
|
|
(discrete_choice_list
|
|
(discrete_choice
|
|
(identifier)))
|
|
(null_statement))
|
|
(case_statement_alternative
|
|
(discrete_choice_list
|
|
(discrete_choice
|
|
(character_literal)))
|
|
(null_statement)))))))
|