PageRenderTime 29ms CodeModel.GetById 26ms app.highlight 1ms RepoModel.GetById 1ms app.codeStats 0ms

/src/tools/wrappers-generator/c_qualified_type.e

http://github.com/tybor/Liberty
Specman e | 51 lines | 30 code | 8 blank | 13 comment | 0 complexity | b0d561c93870f0b3a1643ebdaed3b9db MD5 | raw file
 1class C_QUALIFIED_TYPE
 2   -- A CvQualifiedType node of an XML file generated by gccxml.
 3   -- Known attributes are: const, restrict, volatile
 4
 5inherit
 6   C_TYPE
 7   IDENTIFIED_NODE
 8   TYPED_NODE
 9   STORABLE_NODE
10
11create {GCCXML_TREE}
12   make
13
14feature {ANY}
15   store
16      do
17         types.fast_put(Current, id)
18      end
19
20   is_fundamental: BOOLEAN
21      do
22         Result := types.at(type).is_fundamental
23      end
24
25   is_void: BOOLEAN
26      do
27         Result := types.at(type).is_void
28      end
29
30   has_wrapper: BOOLEAN
31      do
32         Result := types.at(type).has_wrapper
33      end
34
35   wrapper_type: STRING
36      do
37         Result := types.at(type).wrapper_type
38      end -- invariant name.is_equal(once U"CvQualifiedType")
39
40end -- class C_QUALIFIED_TYPE
41-- Copyright (C) 2008-2017: ,2009,2010 Paolo Redaelli
42-- wrappers-generator  is free software: you can redistribute it and/or modify it
43-- under the terms of the GNU General Public License as publhed by the Free
44-- Software Foundation, either version 2 of the License, or (at your option)
45-- any later version.
46-- wrappers-generator is distributed in the hope that it will be useful, but
47-- WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
48-- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
49-- more details.
50-- You should have received a copy of the GNU General Public License along with
51-- th program.  If not, see <http://www.gnu.org/licenses/>.