class HYPERLINK_NOTE_SUBSTITUTION
Expand hyperlink in class note
note
description: "Expand hyperlink in class note"
author: "Finnian Reilly"
copyright: "Copyright (c) 2001-2022 Finnian Reilly"
contact: "finnian at eiffel hyphen loop dot com"
license: "MIT license (See: en.wikipedia.org/wiki/MIT_License)"
date: "2024-01-23 9:33:27 GMT (Tuesday 23rd January 2024)"
revision: "9"
class
HYPERLINK_NOTE_SUBSTITUTION
inherit
HYPERLINK_SUBSTITUTION
redefine
new_expanded_link
end
PUBLISHER_CONSTANTS
EL_PATH_CONSTANTS
create
make
feature {NONE} -- Implementation
new_expanded_link (a_path, text: ZSTRING): ZSTRING
local
path: ZSTRING; html_path: FILE_PATH
first_index: INTEGER
do
path := a_path
if path.starts_with (Current_dir_forward_slash) then
first_index := Current_dir_forward_slash.count + 1
if path.occurrences ('/') > 1 then
html_path := path.substring_end (first_index)
path := html_path.universal_relative_path (relative_page_dir)
elseif path.valid_index (first_index) and then path [first_index] = '#' then
path := Back_dir_step.multiplied (relative_page_dir.step_count) + path.substring_end (first_index)
end
end
Result := Html_link_template #$ [path, Empty_string, text]
end
end