/src/wrappers/glib/library/utilities/g_option_string_entry.e

http://github.com/tybor/Liberty · Specman e · 57 lines · 42 code · 12 blank · 3 comment · 2 complexity · 141af0c62541c7f6bdf24bfd6d9ea6b5 MD5 · raw file

  1. indexing
  2. description: "."
  3. copyright: "[
  4. Copyright (C) 2007 Paolo Redaelli, Glib developers
  5. This library is free software; you can redistribute it and/or
  6. modify it under the terms of the GNU Lesser General Public License
  7. as published by the Free Software Foundation; either version 2.1 of
  8. the License, or (at your option) any later version.
  9. This library is distributed in the hopeOA that it will be useful, but
  10. WITHOUT ANY WARRANTY; without even the implied warranty of
  11. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  12. Lesser General Public License for more details.
  13. You should have received a copy of the GNU Lesser General Public
  14. License along with this library; if not, write to the Free Software
  15. Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  16. 02110-1301 USA
  17. ]"
  18. class G_OPTION_STRING_ENTRY
  19. -- A string G_OPTION_ENTRY.
  20. inherit
  21. G_OPTION_ENTRY redefine make, fill_tagged_out_memory end
  22. -- TODO: REFERENCE[STRING]
  23. creation make
  24. feature
  25. make (a_long_name: STRING; a_short_name: CHARACTER; a_description: STRING) is
  26. local t: like argument_type
  27. do
  28. not_yet_implemented
  29. Precursor (a_long_name,a_short_name, a_description)
  30. -- TODO: string arg type seems to be missing in the enum wrapper! goption_entry_struct_set_arg(handle, t.g_option_arg_string)
  31. create item.make_empty
  32. goption_entry_struct_set_arg_data(handle, item.to_external)
  33. end
  34. feature -- Queries
  35. item: STRING
  36. set_item (a_value: like item) is
  37. do
  38. item.copy(a_value)
  39. end
  40. fill_tagged_out_memory is
  41. do
  42. Precursor
  43. tagged_out_memory.append(item)
  44. end
  45. end -- class G_OPTION_STRING_ENTRY