/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

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