/src/wrappers/common/struct_skeleton
http://github.com/tybor/Liberty · #! · 24 lines · 20 code · 4 blank · 0 comment · 0 complexity · cd16ec8596f9587690b88a8d2e871e82 MD5 · raw file
- note
- description: "Access to $struct C structure"
- copyright: "Copyright (C) 2007-2016: $EWLC_developer, $original_copyright_holder"
- license: "LGPL v2 or later"
- date: "$Date:$"
- revision: "$Revision:$"
- deferred class _STRUCT
- feature {} -- Structure getter/setter calls
- get_$field (a_struct: POINTER): $type is
- external "C struct $struct get $field use <$include>"
- end
- set_$field (a_struct: POINTER; a_$field: $type) is
- external "C struct $struct set $field use <$include>"
- end
- feature -- size
- struct_size: INTEGER is
- external "C inline use <$include>"
- alias "sizeof($struct)"
- end
- end