note description: "Summary description for {CMS_STORAGE_NULL}." date: "$Date: 2015-02-09 22:29:56 +0100 (lun., 09 févr. 2015) $" revision: "$Revision: 96596 $" class CMS_STORAGE_NULL inherit CMS_STORAGE redefine default_create select default_create end CMS_USER_STORAGE_NULL undefine default_create end REFACTORING_HELPER rename default_create as default_create_rh end feature -- Initialization default_create do create error_handler.make end feature -- Status report is_available: BOOLEAN -- Is storage available? do Result := True end is_initialized: BOOLEAN -- Is storage initialized? do Result := True end feature -- Basic operation close -- do end feature -- URL aliases set_path_alias (a_source: READABLE_STRING_8; a_alias: READABLE_STRING_8) -- . do end replace_path_alias (a_source: READABLE_STRING_8; a_previous_alias: detachable READABLE_STRING_8; a_alias: READABLE_STRING_8) -- Replace eventual previous alias `a_previous_alias' with a new alias `a_alias' -- on source `a_source'. do end unset_path_alias (a_source: READABLE_STRING_8; a_alias: READABLE_STRING_8) -- Unalias `a_source' from `a_alias'. do end path_alias (a_source: READABLE_STRING_8): detachable READABLE_STRING_8 -- Return eventual path alias associated with `a_source'. do end source_of_path_alias (a_alias: READABLE_STRING_8): detachable READABLE_STRING_8 -- Source path for alias `a_alias'. do end feature -- Logs save_log (a_log: CMS_LOG) -- Save `a_log'. do end feature -- Custom set_custom_value (a_name: READABLE_STRING_8; a_value: attached like custom_value; a_type: detachable READABLE_STRING_8) -- Save data `a_name:a_value' for type `a_type' (or default if none). do end unset_custom_value (a_name: READABLE_STRING_8; a_type: detachable READABLE_STRING_8) -- Delete data `a_name' for type `a_type' (or default if none). do end custom_value (a_name: READABLE_STRING_GENERAL; a_type: detachable READABLE_STRING_8): detachable READABLE_STRING_32 -- Data for name `a_name' and type `a_type' (or default if none). local s: STRING_32 do if attached api as l_api then create s.make_from_string_general ("custom_values") if a_type /= Void then s.append_character ('.') s.append_string_general (a_type) end s.append_character ('.') s.append_string_general (a_name) Result := l_api.setup.text_item (s) end end end