/src/wrappers/common/struct_skeleton

http://github.com/tybor/Liberty · #! · 24 lines · 20 code · 4 blank · 0 comment · 0 complexity · cd16ec8596f9587690b88a8d2e871e82 MD5 · raw file

  1. note
  2. description: "Access to $struct C structure"
  3. copyright: "Copyright (C) 2007-2016: $EWLC_developer, $original_copyright_holder"
  4. license: "LGPL v2 or later"
  5. date: "$Date:$"
  6. revision: "$Revision:$"
  7. deferred class _STRUCT
  8. feature {} -- Structure getter/setter calls
  9. get_$field (a_struct: POINTER): $type is
  10. external "C struct $struct get $field use <$include>"
  11. end
  12. set_$field (a_struct: POINTER; a_$field: $type) is
  13. external "C struct $struct set $field use <$include>"
  14. end
  15. feature -- size
  16. struct_size: INTEGER is
  17. external "C inline use <$include>"
  18. alias "sizeof($struct)"
  19. end
  20. end