note description: "Auto-generated Objective-C wrapper class" date: "$Date$" revision: "$Revision$" class NS_HOST_UTILS inherit NS_OBJECT_UTILS redefine wrapper_objc_class_name, is_subclass_instance end feature -- NSHost current_host: detachable NS_HOST -- Auto generated Objective-C wrapper. local result_pointer: POINTER l_objc_class: OBJC_CLASS do create l_objc_class.make_with_name (get_class_name) check l_objc_class_registered: l_objc_class.registered end result_pointer := objc_current_host (l_objc_class.item) if result_pointer /= default_pointer then if attached objc_get_eiffel_object (result_pointer) as existing_eiffel_object then check attached {like current_host} existing_eiffel_object as valid_result then Result := valid_result end else check attached {like current_host} new_eiffel_object (result_pointer, True) as valid_result_pointer then Result := valid_result_pointer end end end end host_with_name_ (a_name: detachable NS_STRING): detachable NS_HOST -- Auto generated Objective-C wrapper. local result_pointer: POINTER l_objc_class: OBJC_CLASS a_name__item: POINTER do if attached a_name as a_name_attached then a_name__item := a_name_attached.item end create l_objc_class.make_with_name (get_class_name) check l_objc_class_registered: l_objc_class.registered end result_pointer := objc_host_with_name_ (l_objc_class.item, a_name__item) if result_pointer /= default_pointer then if attached objc_get_eiffel_object (result_pointer) as existing_eiffel_object then check attached {like host_with_name_} existing_eiffel_object as valid_result then Result := valid_result end else check attached {like host_with_name_} new_eiffel_object (result_pointer, True) as valid_result_pointer then Result := valid_result_pointer end end end end host_with_address_ (a_address: detachable NS_STRING): detachable NS_HOST -- Auto generated Objective-C wrapper. local result_pointer: POINTER l_objc_class: OBJC_CLASS a_address__item: POINTER do if attached a_address as a_address_attached then a_address__item := a_address_attached.item end create l_objc_class.make_with_name (get_class_name) check l_objc_class_registered: l_objc_class.registered end result_pointer := objc_host_with_address_ (l_objc_class.item, a_address__item) if result_pointer /= default_pointer then if attached objc_get_eiffel_object (result_pointer) as existing_eiffel_object then check attached {like host_with_address_} existing_eiffel_object as valid_result then Result := valid_result end else check attached {like host_with_address_} new_eiffel_object (result_pointer, True) as valid_result_pointer then Result := valid_result_pointer end end end end set_host_cache_enabled_ (a_flag: BOOLEAN) -- Auto generated Objective-C wrapper. local l_objc_class: OBJC_CLASS do create l_objc_class.make_with_name (get_class_name) check l_objc_class_registered: l_objc_class.registered end objc_set_host_cache_enabled_ (l_objc_class.item, a_flag) end is_host_cache_enabled: BOOLEAN -- Auto generated Objective-C wrapper. local l_objc_class: OBJC_CLASS do create l_objc_class.make_with_name (get_class_name) check l_objc_class_registered: l_objc_class.registered end Result := objc_is_host_cache_enabled (l_objc_class.item) end flush_host_cache -- Auto generated Objective-C wrapper. local l_objc_class: OBJC_CLASS do create l_objc_class.make_with_name (get_class_name) check l_objc_class_registered: l_objc_class.registered end objc_flush_host_cache (l_objc_class.item) end feature {NONE} -- NSHost Externals objc_current_host (a_class_object: POINTER): POINTER -- Auto generated Objective-C wrapper. external "C inline use " alias "[ return (EIF_POINTER)[(Class)$a_class_object currentHost]; ]" end objc_host_with_name_ (a_class_object: POINTER; a_name: POINTER): POINTER -- Auto generated Objective-C wrapper. external "C inline use " alias "[ return (EIF_POINTER)[(Class)$a_class_object hostWithName:$a_name]; ]" end objc_host_with_address_ (a_class_object: POINTER; a_address: POINTER): POINTER -- Auto generated Objective-C wrapper. external "C inline use " alias "[ return (EIF_POINTER)[(Class)$a_class_object hostWithAddress:$a_address]; ]" end objc_set_host_cache_enabled_ (a_class_object: POINTER; a_flag: BOOLEAN) -- Auto generated Objective-C wrapper. external "C inline use " alias "[ [(Class)$a_class_object setHostCacheEnabled:$a_flag]; ]" end objc_is_host_cache_enabled (a_class_object: POINTER): BOOLEAN -- Auto generated Objective-C wrapper. external "C inline use " alias "[ return [(Class)$a_class_object isHostCacheEnabled]; ]" end objc_flush_host_cache (a_class_object: POINTER) -- Auto generated Objective-C wrapper. external "C inline use " alias "[ [(Class)$a_class_object flushHostCache]; ]" end feature {NONE} -- Implementation wrapper_objc_class_name: STRING -- The class name used for classes of the generated wrapper classes. do Result := "NSHost" end is_subclass_instance: BOOLEAN -- do Result := False end end