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

http://github.com/tybor/Liberty · Specman e · 83 lines · 48 code · 18 blank · 17 comment · 0 complexity · 3b98f54e35cf916d933cc6cdeb722acd MD5 · raw file

  1. class SETTINGS
  2. -- The setting of wrappers-generator.
  3. inherit
  4. SINGLETON
  5. insert
  6. FILE_TOOLS
  7. undefine is_equal, copy
  8. end
  9. BASIC_DIRECTORY
  10. undefine is_equal, copy
  11. end
  12. feature {ANY} -- Queries
  13. global: BOOLEAN
  14. verbose: BOOLEAN
  15. directory: STRING "."
  16. -- Default output is on current directory. May be overwritten.
  17. typedefs: STRING
  18. standard_typedefs_class: STRING
  19. are_standard_typedefs_emitted: BOOLEAN
  20. last_error: STRING
  21. feature {ANY} -- Setters
  22. set_verbose (a_value: BOOLEAN)
  23. do
  24. verbose := a_value
  25. end
  26. set_global (a_value: BOOLEAN)
  27. do
  28. global := a_value
  29. end
  30. -- set_directory (a_directory: STRING)
  31. -- do
  32. -- directory := a_directory
  33. -- end
  34. set_typedefs (a_typedefs: STRING)
  35. do
  36. typedefs := a_typedefs
  37. end
  38. set_standard_typedefs (a_class_name: STRING)
  39. do
  40. standard_typedefs_class := a_class_name
  41. end
  42. use_standard_typedefs
  43. do
  44. are_standard_typedefs_emitted := True
  45. end
  46. unset_use_standard_typedefs
  47. do
  48. are_standard_typedefs_emitted := False
  49. end
  50. set_error (an_error: STRING)
  51. do
  52. last_error := an_error
  53. end
  54. end -- class SETTINGS
  55. -- Copyright (C) 2008-2017: Paolo Redaelli
  56. -- wrappers_generator is free software: you can redistribute it and/or modify it
  57. -- under the terms of the GNU General Public License as publhed by the Free
  58. -- Software Foundation, either version 2 of the License, or (at your option)
  59. -- any later version.
  60. -- eiffel-gcc-xml is distributed in the hope that it will be useful, but
  61. -- WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  62. -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
  63. -- more details.
  64. -- You should have received a copy of the GNU General Public License along with
  65. -- th program. If not, see <http://www.gnu.org/licenses/>.