indexing
description: "General notions of a loadable resource."
status: "See notice at end of class."
date: "$Date$"
revision: "$Revision$"
note: "`make_by_predefined_id' does now take a POINTER as argument.Please change any external clauses of existing prefedefinedIDs to POINTER too. Predefined IDs are correctly casted onthe C-side already"
deferred class interface
WEL_RESOURCE
feature
item: POINTER
WEL_ANY
feature
exists: BOOLEAN
item
WEL_ANY
ensure WEL_ANY
Result = (item /= default_pointer)
shared: BOOLEAN
item
item
destroy_item
item
WEL_ANY
feature
set_shared
shared
WEL_ANY
ensure WEL_ANY
shared: shared
set_unshared
shared
WEL_ANY
ensure WEL_ANY
unshared: not shared
feature
set_item (an_item: POINTER)
iteman_item
WEL_ANY
ensure WEL_ANY
item_set: item = an_item
feature
dispose
Current
Current
WEL_ANY
feature
to_integer: INTEGER
item
WEL_ANY
ensure WEL_ANY
Result = cwel_pointer_to_integer (item)
invariant
ANY
reflexive_equality: standard_is_equal (Current)
reflexive_conformance: conforms_to (Current)
end -- WEL_RESOURCE