/[eiffelstudio]/vendor/gobosoft.com/gobo/4.0d/library/tools/src/eiffel/parser/et_decorated_ast_factory.e
ViewVC logotype

Diff of /vendor/gobosoft.com/gobo/4.0d/library/tools/src/eiffel/parser/et_decorated_ast_factory.e

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 98697 by manus, Sat May 7 16:18:26 2016 UTC revision 98698 by manus, Mon May 9 13:53:54 2016 UTC
# Line 5  note Line 5  note
5                  "Eiffel decorated Abstract Syntax Tree factories"                  "Eiffel decorated Abstract Syntax Tree factories"
6    
7          library: "Gobo Eiffel Tools Library"          library: "Gobo Eiffel Tools Library"
8          copyright: "Copyright (c) 2002-2014, Eric Bezault and others"          copyright: "Copyright (c) 2002-2016, Eric Bezault and others"
9          license: "MIT License"          license: "MIT License"
10          date: "$Date$"          date: "$Date$"
11          revision: "$Revision$"          revision: "$Revision$"
# Line 120  inherit Line 120  inherit
120                          new_tilde_symbol,                          new_tilde_symbol,
121                          new_times_symbol,                          new_times_symbol,
122                          new_binary_integer_constant,                          new_binary_integer_constant,
                         new_bit_constant,  
123                          new_break,                          new_break,
124                          new_c1_character_constant,                          new_c1_character_constant,
125                          new_c2_character_constant,                          new_c2_character_constant,
# Line 179  inherit Line 178  inherit
178                          new_attribute,                          new_attribute,
179                          new_attribute_compound,                          new_attribute_compound,
180                          new_bang_instruction,                          new_bang_instruction,
                         new_bit_feature,  
                         new_bit_n,  
181                          new_bracket_arguments,                          new_bracket_arguments,
182                          new_check_instruction,                          new_check_instruction,
183                          new_choice_comma,                          new_choice_comma,
# Line 1261  feature -- AST leaves Line 1258  feature -- AST leaves
1258                          Result.set_break (last_break (True, a_scanner))                          Result.set_break (last_break (True, a_scanner))
1259                  end                  end
1260    
         new_bit_constant (a_scanner: ET_EIFFEL_SCANNER_SKELETON): detachable ET_BIT_CONSTANT  
                         -- New bit constant  
                 do  
                         create Result.make (a_scanner.last_literal)  
                         Result.set_position (a_scanner.line, a_scanner.column)  
                         Result.set_break (last_break (False, a_scanner))  
                 end  
   
1261          new_break (a_scanner: ET_EIFFEL_SCANNER_SKELETON): ET_BREAK          new_break (a_scanner: ET_EIFFEL_SCANNER_SKELETON): ET_BREAK
1262                          -- New break                          -- New break
1263                  do                  do
# Line 1945  feature -- AST nodes Line 1934  feature -- AST nodes
1934                                  end                                  end
1935                          end                          end
1936                  end                  end
   
         new_bit_feature (a_bit: detachable ET_IDENTIFIER; an_id: detachable ET_IDENTIFIER; a_base_class: detachable ET_CLASS): detachable ET_BIT_FEATURE  
                         -- New 'BIT Identifier' type  
                 do  
                         if an_id /= Void and a_base_class /= Void then  
                                 create Result.make (an_id, a_base_class)  
                                 if a_bit /= Void then  
                                         Result.set_bit_keyword (a_bit)  
                                 end  
                         end  
                 end  
   
         new_bit_n (a_bit: detachable ET_IDENTIFIER; an_int: detachable ET_INTEGER_CONSTANT; a_base_class: detachable ET_CLASS): detachable ET_BIT_N  
                         -- New 'BIT N' type  
                 do  
                         if an_int /= Void and a_base_class /= Void then  
                                 create Result.make (an_int, a_base_class)  
                                 if a_bit /= Void then  
                                         Result.set_bit_keyword (a_bit)  
                                 end  
                         end  
                 end  
1937    
1938          new_bracket_arguments (a_left, a_right: detachable ET_SYMBOL; nb: INTEGER): detachable ET_BRACKET_ARGUMENT_LIST          new_bracket_arguments (a_left, a_right: detachable ET_SYMBOL; nb: INTEGER): detachable ET_BRACKET_ARGUMENT_LIST
1939                          -- New bracket argument list with given capacity                          -- New bracket argument list with given capacity

Legend:
Removed from v.98697  
changed lines
  Added in v.98698

  ViewVC Help
Powered by ViewVC 1.1.23